paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 14:49:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

lazreport: reduced overhead while moving

Browse Source 
git-svn-id: trunk@16104 -
This commit is contained in:
mattias 2008-08-18 07:45:43 +00:00
parent b340abac03
commit b54c7c2d80
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazreport/source/lr_desgn.pas
View File

@ -3849,8 +3849,7 @@ begin
LinePanel.Parent := Self; LinePanel.Parent := Self;
with (Sender as TControl) do with (Sender as TControl) do
p := Self.ScreenToClient(Parent.ClientToScreen(Point(Left, Top))); p := Self.ScreenToClient(Parent.ClientToScreen(Point(Left, Top)));
LinePanel.Left := p.X; LinePanel.SetBounds(p.X,p.Y + 26,LinePanel.Width,LinePanel.Height);
LinePanel.Top := p.Y + 26;
end; end;
LinePanel.Visible := not LinePanel.Visible; LinePanel.Visible := not LinePanel.Visible;
end; end;
@ -3906,8 +3905,7 @@ begin
ColorSelector.Visible := not ColorSelector.Visible ColorSelector.Visible := not ColorSelector.Visible
else else
begin begin
ColorSelector.Left := p.X; with ColorSelector do SetBounds(p.X,p.Y + 26,Width,Height);
ColorSelector.Top := p.Y + 26;
ColorSelector.Visible := True; ColorSelector.Visible := True;
end; end;
ClrButton := Sender as TSpeedButton; ClrButton := Sender as TSpeedButton;