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

MG: accelerated designer drawings

Browse Source 
git-svn-id: trunk@2053 -
This commit is contained in:
lazarus 2002-08-17 23:40:48 +00:00
parent 2a2e84fe6c
commit c05bde78cf
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/designer.pp
View File

@ -1241,13 +1241,15 @@ begin
for i:=0 to FCustomForm.ComponentCount-1 do begin for i:=0 to FCustomForm.ComponentCount-1 do begin
if not (FCustomForm.Components[i] is TControl) then begin if not (FCustomForm.Components[i] is TControl) then begin
Diff:=aDDC.FormOrigin; Diff:=aDDC.FormOrigin;
aDDC.Save;
// non-visual component // non-visual component
ItemLeftTop:=NonVisualComponentLeftTop(FCustomForm.Components[i]); ItemLeftTop:=NonVisualComponentLeftTop(FCustomForm.Components[i]);
ItemLeft:=ItemLeftTop.X-Diff.X; ItemLeft:=ItemLeftTop.X-Diff.X;
ItemTop:=ItemLeftTop.Y-Diff.Y; ItemTop:=ItemLeftTop.Y-Diff.Y;
ItemRight:=ItemLeft+NonVisualCompWidth; ItemRight:=ItemLeft+NonVisualCompWidth;
ItemBottom:=ItemTop+NonVisualCompWidth; ItemBottom:=ItemTop+NonVisualCompWidth;
if not aDDC.RectVisible(ItemLeft,ItemTop,ItemRight,ItemBottom) then
continue;
aDDC.Save;
with aDDC.Canvas do begin with aDDC.Canvas do begin
Brush.Color:=clWhite; Brush.Color:=clWhite;
for j:=0 to NonVisualCompBorder-1 do begin for j:=0 to NonVisualCompBorder-1 do begin
@ -1283,7 +1285,7 @@ begin
end; end;
if (ControlSelection.Count>1) if (ControlSelection.Count>1)
and (ControlSelection.IsSelected(FCustomForm.Components[i])) then and (ControlSelection.IsSelected(FCustomForm.Components[i])) then
ControlSelection.DrawMarkerAt(aDDC.Canvas, ControlSelection.DrawMarkerAt(aDDC,
ItemLeft,ItemTop,NonVisualCompWidth,NonVisualCompWidth); ItemLeft,ItemTop,NonVisualCompWidth,NonVisualCompWidth);
end; end;
end; end;