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

fix, ddoc hint window stuck on top 

could happen when switching sheets.
This commit is contained in:
Basile Burg 2015-04-18 18:32:41 +02:00
parent 658978373d
commit d758ed0e76
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_synmemo.pas
View File

@ -103,6 +103,7 @@ type
procedure HintTimerEvent(sender: TObject); procedure HintTimerEvent(sender: TObject);
procedure InitHintWins; procedure InitHintWins;
protected protected
procedure MouseLeave; override;
procedure SetVisible(Value: Boolean); override; procedure SetVisible(Value: Boolean); override;
procedure SetHighlighter(const Value: TSynCustomHighlighter); override; procedure SetHighlighter(const Value: TSynCustomHighlighter); override;
procedure UTF8KeyPress(var Key: TUTF8Char); override; procedure UTF8KeyPress(var Key: TUTF8Char); override;
@ -402,7 +403,12 @@ end;
procedure TCESynMemo.SetVisible(Value: Boolean); procedure TCESynMemo.SetVisible(Value: Boolean);
begin begin
inherited; inherited;
if Value then setFocus; if Value then
setFocus
else begin
fDDocWin.Hide;
fCallTipWin.Hide;
end;
end; end;
procedure TCESynMemo.InitHintWins; procedure TCESynMemo.InitHintWins;
@ -640,6 +646,12 @@ begin
result += fMousePos.x; result += fMousePos.x;
end; end;
procedure TCESynMemo.MouseLeave;
begin
fDDocWin.Hide;
fCallTipWin.Hide;
end;
procedure TCESynMemo.MouseMove(Shift: TShiftState; X, Y: Integer); procedure TCESynMemo.MouseMove(Shift: TShiftState; X, Y: Integer);
var var
dX, dY: Integer; dX, dY: Integer;