paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 06:23:35 +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;
with (Sender as TControl) do
p := Self.ScreenToClient(Parent.ClientToScreen(Point(Left, Top)));
LinePanel.Left := p.X;
LinePanel.Top := p.Y + 26;
LinePanel.SetBounds(p.X,p.Y + 26,LinePanel.Width,LinePanel.Height);
end;
LinePanel.Visible := not LinePanel.Visible;
end;
@ -3906,8 +3905,7 @@ begin
ColorSelector.Visible := not ColorSelector.Visible
else
begin
ColorSelector.Left := p.X;
ColorSelector.Top := p.Y + 26;
with ColorSelector do SetBounds(p.X,p.Y + 26,Width,Height);
ColorSelector.Visible := True;
end;
ClrButton := Sender as TSpeedButton;