paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: LineOverviewGutter, reduce calculations, if not visible

Browse Source 
git-svn-id: trunk@39389 -
This commit is contained in:
martin 2012-11-27 15:56:30 +00:00
parent 5226f09ad5
commit d10b8da5cb
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/syngutterlineoverview.pp
View File

@ -1272,7 +1272,7 @@ procedure TSynGutterLineOverview.LineCountChanged(Sender: TSynEditStrings; AInde
ACount: Integer);
begin
FLineMarks.TextLineCount := TextBuffer.Count;
if not SynEdit.HandleAllocated then exit;
if (not SynEdit.HandleAllocated) or (not Self.Visible) then exit;
ScheduleASync([losLineCountChanged]);
end;
@ -1288,12 +1288,16 @@ procedure TSynGutterLineOverview.SetVisible(const AValue: boolean);
begin
inherited SetVisible(AValue);
FWinControl.Visible := Visible and Gutter.Visible;
if FWinControl.Visible then
ScheduleASync([losResized, losLineCountChanged]);
end;
procedure TSynGutterLineOverview.GutterVisibilityChanged;
begin
inherited GutterVisibilityChanged;
FWinControl.Visible := Visible and Gutter.Visible;
if FWinControl.Visible then
ScheduleASync([losResized, losLineCountChanged]);
end;
procedure TSynGutterLineOverview.DoChange(Sender: TObject);
@ -1351,7 +1355,7 @@ var
i: Integer;
begin
inherited DoResize(Sender);
if not SynEdit.HandleAllocated then exit;
if (not SynEdit.HandleAllocated) or (not Self.Visible) then exit;
FWinControl.Top := Top;
FWinControl.Left := Left;
FWinControl.Width := Width;