paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 08:00:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

designer: simplify code

Browse Source 
git-svn-id: trunk@16737 -
This commit is contained in:
paul 2008-09-26 01:27:49 +00:00
parent c911e73e25
commit 60b7a905c7
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
designer/designer.pp
View File

@ -2446,17 +2446,15 @@ begin
end;
if Assigned(FOnGetNonVisualCompIcon)
then begin
Icon:=nil;
FOnGetNonVisualCompIcon(Self,AComponent,Icon);
if Icon<>nil then begin
Icon := nil;
FOnGetNonVisualCompIcon(Self, AComponent, Icon);
if Icon <> nil then
begin
inc(IconRect.Left,(NonVisualCompIconWidth-Icon.Width) div 2);
inc(IconRect.Top,(NonVisualCompIconWidth-Icon.Height) div 2);
IconRect.Right:=IconRect.Left+Icon.Width;
IconRect.Bottom:=IconRect.Top+Icon.Height;
StretchMaskBlt(aDDC.Canvas.Handle, IconRect.Left, IconRect.Top,
IconRect.Right-IconRect.Left, IconRect.Bottom-IconRect.Top,
Icon.Canvas.Handle, 0, 0, Icon.Width, Icon.Height,
Icon.MaskHandle, 0, 0, SRCCOPY);
aDDC.Canvas.StretchDraw(IconRect, Icon);
end;
end;
if (ControlSelection.Count>1)