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

fix #354 - CallTips stacking doesn't work fine anymore

This commit is contained in:
Basile Burg 2018-08-13 05:15:34 +02:00
parent fc63dbefee
commit 0d6da7fcd6
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_synmemo.pas
View File

@ -506,9 +506,9 @@ end;
function TCEEditorCallTipWindow.CalcHintRect(MaxWidth: Integer; const AHint: String; AData: Pointer): TRect; function TCEEditorCallTipWindow.CalcHintRect(MaxWidth: Integer; const AHint: String; AData: Pointer): TRect;
begin begin
Font.Style := Font.Style + [fsBold]; //Font.Style := Font.Style + [fsBold];
result := inherited CalcHintRect(MaxWidth, AHint, AData); result := inherited CalcHintRect(MaxWidth, AHint, AData);
Font.Style := Font.Style - [fsBold]; //Font.Style := Font.Style - [fsBold];
end; end;
procedure TCEEditorCallTipWindow.Paint; procedure TCEEditorCallTipWindow.Paint;
@ -2682,11 +2682,18 @@ begin
fCallTipWin.FontSize := Font.Size; fCallTipWin.FontSize := Font.Size;
fCallTipWin.HintRect := fCallTipWin.CalcHintRect(0, tips, nil); fCallTipWin.HintRect := fCallTipWin.CalcHintRect(0, tips, nil);
fCallTipWin.OffsetHintRect(pnt, Font.Size * 2); fCallTipWin.OffsetHintRect(pnt, Font.Size * 2);
// see procedure THintWindow.ActivateHint(const AHint: String);
// caused a regression in call tips stacking
fCallTipWin.Caption:= tips;
fCallTipWin.ActivateHint(tips); fCallTipWin.ActivateHint(tips);
end; end;
procedure TCESynMemo.hideCallTips; procedure TCESynMemo.hideCallTips;
begin begin
if not fCallTipWin.Visible then
exit;
fCallTipStrings.Clear; fCallTipStrings.Clear;
fCallTipWin.Hide; fCallTipWin.Hide;
end; end;
@ -3548,7 +3555,7 @@ begin
autoClosePair(autoCloseSingleQuote); autoClosePair(autoCloseSingleQuote);
',': ',':
begin begin
hideCallTips; //hideCallTips;
showCallTips(true); showCallTips(true);
end; end;
'"': if autoCloseDoubleQuote in fAutoClosedPairs then '"': if autoCloseDoubleQuote in fAutoClosedPairs then