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

spotted synedit bug, cursor/zoom/scroll

This commit is contained in:
Basile Burg 2015-04-19 05:07:03 +02:00
parent bd461cf54d
commit da619d8479
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_synmemo.pas
View File

@ -600,14 +600,13 @@ begin
identifierToD2Syn; identifierToD2Syn;
if not (Shift = [ssCtrl]) then exit; if not (Shift = [ssCtrl]) then exit;
// //
IncPaintLock;
case Key of case Key of
VK_ADD: if Font.Size < 50 then Font.Size := Font.Size + 1; VK_ADD: if Font.Size < 50 then Font.Size := Font.Size + 1;
VK_SUBTRACT: if Font.Size > 3 then Font.Size := Font.Size - 1; VK_SUBTRACT: if Font.Size > 3 then Font.Size := Font.Size - 1;
VK_DECIMAL: Font.Size := fDefaultFontSize; VK_DECIMAL: Font.Size := fDefaultFontSize;
end; end;
DecPaintLock;
TCEEditorHintWindow.FontSize := Font.Size; TCEEditorHintWindow.FontSize := Font.Size;
UpdateCursor;
fCanShowHint:=false; fCanShowHint:=false;
fDDocWin.Hide; fDDocWin.Hide;
end; end;
@ -705,6 +704,7 @@ begin
result := inherited DoMouseWheel(Shift, WheelDelta, MousePos); result := inherited DoMouseWheel(Shift, WheelDelta, MousePos);
fCanShowHint:=false; fCanShowHint:=false;
fHintTimer.Enabled:=false; fHintTimer.Enabled:=false;
//SynEdit bug: begin scroll, press CTRL still while. Wrong cursor size sometimes.
end; end;
{$ENDREGION --------------------------------------------------------------------} {$ENDREGION --------------------------------------------------------------------}