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

MG: fixed drawing of non visual components in designer

Browse Source 
git-svn-id: trunk@1977 -
This commit is contained in:
lazarus 2002-08-17 23:40:29 +00:00
parent 7aa2430516
commit 405467a871
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
designer/designer.pp
View File

@ -33,7 +33,7 @@ unit Designer;
interface
{$DEFINE VerboseDesigner}
{$DEFINE VerboseDesignerDraw}
{ $DEFINE VerboseDesignerDraw}
uses
Classes, LCLType, LCLLinux, Forms, Controls, LMessages, GraphType, Graphics,
@ -1024,15 +1024,14 @@ var
IconRect: TRect;
IconCanvas: TCanvas;
begin
FCustomForm.Canvas.Handle:=aDDC.DC;
for i:=0 to FCustomForm.ComponentCount-1 do begin
if not (FCustomForm.Components[i] is TControl) then begin
Diff:=aDDC.FormOrigin;
aDDC.Save;
// non-visual component
ItemLeftTop:=NonVisualComponentLeftTop(FCustomForm.Components[i]);
ItemLeft:=ItemLeftTop.X+Diff.X;
ItemTop:=ItemLeftTop.Y+Diff.Y;
ItemLeft:=ItemLeftTop.X-Diff.X;
ItemTop:=ItemLeftTop.Y-Diff.Y;
ItemRight:=ItemLeft+NonVisualCompWidth;
ItemBottom:=ItemTop+NonVisualCompWidth;
with aDDC.Canvas do begin
@ -1060,8 +1059,10 @@ begin
FOnGetNonVisualCompIconCanvas(Self,FCustomForm.Components[i]
,IconCanvas,IconWidth,IconHeight);
if IconCanvas<>nil then begin
inc(IconRect.Left,((IconRect.Right-IconRect.Left)-IconWidth) div 2);
inc(IconRect.Top,((IconRect.Bottom-IconRect.Top)-IconHeight) div 2);
inc(IconRect.Left,(NonVisualCompIconWidth-IconWidth) div 2);
inc(IconRect.Top,(NonVisualCompIconWidth-IconHeight) div 2);
IconRect.Right:=IconRect.Left+IconWidth;
IconRect.Bottom:=IconRect.Top+IconHeight;
aDDC.Canvas.CopyRect(IconRect, IconCanvas,
Rect(0,0,IconWidth,IconHeight));
end;