mirror of https://gitlab.com/basile.b/dexed.git
fix, bug is described in c1a0ed2799
This commit is contained in:
parent
8ab97cb644
commit
cc5150f1a2
|
@ -12,6 +12,13 @@ uses
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
|
// this descendant propagates the Visible property to the children.
|
||||||
|
// this fix the bug described in commit c1a0ed2799390d788b1d1e435eb8dc1ed3369ce7
|
||||||
|
TCEEditorPage = class(TTabSheet)
|
||||||
|
protected
|
||||||
|
procedure SetVisible(Value: Boolean); override;
|
||||||
|
end;
|
||||||
|
|
||||||
{ TCEEditorWidget }
|
{ TCEEditorWidget }
|
||||||
TCEEditorWidget = class(TCEWidget, ICEMultiDocObserver)
|
TCEEditorWidget = class(TCEWidget, ICEMultiDocObserver)
|
||||||
imgList: TImageList;
|
imgList: TImageList;
|
||||||
|
@ -72,6 +79,17 @@ implementation
|
||||||
uses
|
uses
|
||||||
ce_main;
|
ce_main;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TCEEditorPage.SetVisible(Value: Boolean);
|
||||||
|
var
|
||||||
|
i: integer;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
for i := 0 to ComponentCount-1 do
|
||||||
|
if (Components[i] is TWinControl) then
|
||||||
|
TWinControl(Components[i]).Visible:= Value;
|
||||||
|
end;
|
||||||
|
|
||||||
{$REGION Standard Comp/Obj------------------------------------------------------}
|
{$REGION Standard Comp/Obj------------------------------------------------------}
|
||||||
constructor TCEEditorWidget.create(aOwner: TComponent);
|
constructor TCEEditorWidget.create(aOwner: TComponent);
|
||||||
var
|
var
|
||||||
|
@ -205,11 +223,12 @@ end;
|
||||||
|
|
||||||
procedure TCEEditorWidget.addEditor;
|
procedure TCEEditorWidget.addEditor;
|
||||||
var
|
var
|
||||||
sheet: TTabSheet;
|
sheet: TCEEditorPage;
|
||||||
memo: TCESynMemo;
|
memo: TCESynMemo;
|
||||||
begin
|
begin
|
||||||
sheet := pageControl.AddTabSheet;
|
sheet := TCEEditorPage.Create(self);
|
||||||
memo := TCESynMemo.Create(sheet);
|
memo := TCESynMemo.Create(sheet);
|
||||||
|
sheet.PageControl := PageControl;
|
||||||
//
|
//
|
||||||
memo.Align := alClient;
|
memo.Align := alClient;
|
||||||
memo.Parent := sheet;
|
memo.Parent := sheet;
|
||||||
|
|
|
@ -97,7 +97,6 @@ type
|
||||||
constructor Create(aOwner: TComponent); override;
|
constructor Create(aOwner: TComponent); override;
|
||||||
destructor destroy; override;
|
destructor destroy; override;
|
||||||
procedure setFocus; override;
|
procedure setFocus; override;
|
||||||
procedure UpdateShowing; override;
|
|
||||||
procedure DoEnter; override;
|
procedure DoEnter; override;
|
||||||
//
|
//
|
||||||
procedure checkFileDate;
|
procedure checkFileDate;
|
||||||
|
@ -359,7 +358,6 @@ end;
|
||||||
procedure TCESynMemo.setFocus;
|
procedure TCESynMemo.setFocus;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
if not Visible then exit;
|
|
||||||
checkFileDate;
|
checkFileDate;
|
||||||
identifierToD2Syn;
|
identifierToD2Syn;
|
||||||
subjDocFocused(TCEMultiDocSubject(fMultiDocSubject), self);
|
subjDocFocused(TCEMultiDocSubject(fMultiDocSubject), self);
|
||||||
|
@ -374,20 +372,11 @@ begin
|
||||||
subjDocFocused(TCEMultiDocSubject(fMultiDocSubject), self);
|
subjDocFocused(TCEMultiDocSubject(fMultiDocSubject), self);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TCESynMemo.UpdateShowing;
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
identifierToD2Syn;
|
|
||||||
subjDocFocused(TCEMultiDocSubject(fMultiDocSubject), self);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TCESynMemo.DoEnter;
|
procedure TCESynMemo.DoEnter;
|
||||||
begin
|
begin
|
||||||
Inherited;
|
Inherited;
|
||||||
checkFileDate;
|
checkFileDate;
|
||||||
identifierToD2Syn;
|
identifierToD2Syn;
|
||||||
// produces too much updates in the widgets
|
|
||||||
//subjDocFocused(TCEMultiDocSubject(fMultiDocSubject), self);
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TCESynMemo.SetHighlighter(const Value: TSynCustomHighlighter);
|
procedure TCESynMemo.SetHighlighter(const Value: TSynCustomHighlighter);
|
||||||
|
|
Loading…
Reference in New Issue