paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 03:59:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit small optimization (unnecessary call to shiftstate)

Browse Source 
git-svn-id: trunk@21010 -
This commit is contained in:
martin 2009-07-29 19:14:32 +00:00
parent a5da38b431
commit ea95a7e23c
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synedit.pp
View File

@ -1765,7 +1765,8 @@ begin
UpdateScrollbars;
// must be past UpdateScrollbars; but before UpdateCaret (for ScrollBar-Auto-show)
if sfEnsureCursorPos in fStateFlags then
EnsureCursorPosVisible;
EnsureCursorPosVisible; // TODO: This may call SetTopLine, change order
// This does Paintlock, should be before final decrease
// Must be after EnsureCursorPosVisible (as it does MoveCaretToVisibleArea)
if sfCaretChanged in fStateFlags then
UpdateCaret;
@ -1773,7 +1774,8 @@ begin
// UpdateScrollbars;
if fStatusChanges <> [] then
DoOnStatusChange(fStatusChanges);
fMarkupHighCaret.CheckState; // Todo need a global lock, including the markup
fMarkupHighCaret.CheckState; // Todo: need a global lock, including the markup
// Todo: Markup can do invalidation, should be before ScrollAfterTopLineChanged;
end;
if (fPaintLock = 0) then
FBlockSelection.AutoExtend := False;
@ -2215,7 +2217,7 @@ begin
{$ENDIF}
inherited;
if assigned(fMarkupCtrlMouse) then
fMarkupCtrlMouse.UpdateCtrlState;
fMarkupCtrlMouse.UpdateCtrlState(Shift);
UpdateCursor;
Data := nil;
C := #0;
@ -2266,7 +2268,7 @@ begin
{$ENDIF}
inherited KeyUp(Key, Shift);
if assigned(fMarkupCtrlMouse) then
fMarkupCtrlMouse.UpdateCtrlState;
fMarkupCtrlMouse.UpdateCtrlState(Shift);
UpdateCursor;
end;

6
components/synedit/syneditmarkupctrlmouselink.pp
View File

@ -51,7 +51,7 @@ type
protected
procedure SetLines(const AValue : TSynEditStrings); override;
public
procedure UpdateCtrlState;
procedure UpdateCtrlState(aShift: TShiftState);
procedure UpdateCtrlMouse;
property LastMouseCaret: TPoint read FLastMouseCaret write SetLastMouseCaret;
public
@ -95,9 +95,9 @@ begin
UpdateCtrlMouse;
end;
procedure TSynEditMarkupCtrlMouseLink.UpdateCtrlState;
procedure TSynEditMarkupCtrlMouseLink.UpdateCtrlState(aShift: TShiftState);
begin
if FLastControlIsPressed <> IsCtrlMouseShiftState(GetKeyShiftState) then
if FLastControlIsPressed <> IsCtrlMouseShiftState(aShift) then
UpdateCtrlMouse;
end;