forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix #364 - Terminal blinks when popups are closed

This commit is contained in:
Basile Burg 2018-09-30 20:09:44 +02:00
parent fc93ecbc8e
commit c47d214c4f
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/ce_term.pas
View File

@ -58,6 +58,7 @@ type
fTerm: TTerminal; fTerm: TTerminal;
fOpts: TCETerminalOptions; fOpts: TCETerminalOptions;
fLastCd: string; fLastCd: string;
fNeedApplyChanges: boolean;
procedure docNew(document: TCESynMemo); procedure docNew(document: TCESynMemo);
procedure docFocused(document: TCESynMemo); procedure docFocused(document: TCESynMemo);
@ -73,6 +74,9 @@ type
protected protected
procedure DoShow; override;
procedure SetVisible(Value: boolean); override;
public public
constructor create(aOwner: TComponent); override; constructor create(aOwner: TComponent); override;
destructor destroy; override; destructor destroy; override;
@ -218,8 +222,24 @@ begin
inherited; inherited;
end; end;
procedure TCETermWidget.DoShow;
begin
inherited;
fNeedApplyChanges := true;
end;
procedure TCETermWidget.SetVisible(Value: boolean);
begin
inherited;
if Value then
fNeedApplyChanges := true;
end;
procedure TCETermWidget.ContentPaint(Sender: TObject); procedure TCETermWidget.ContentPaint(Sender: TObject);
begin begin
if not fNeedApplyChanges then
exit;
fNeedApplyChanges:=false;
fOpts.applyChanges; fOpts.applyChanges;
end; end;