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

IDE: Don't draw a gray background in the Find Palette Component Dialog

Browse Source 
git-svn-id: trunk@13057 -
This commit is contained in:
vincents 2007-11-27 22:51:43 +00:00
parent 0f1ecc873a
commit de83088a7d
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/findpalettecomp.pas
View File

@ -107,7 +107,6 @@ var
CurIcon: TBitmap; CurIcon: TBitmap;
IconWidth: Integer; IconWidth: Integer;
IconHeight: Integer; IconHeight: Integer;
CurRect: TRect;
begin begin
if fSelectedComponents=nil then exit; if fSelectedComponents=nil then exit;
if (Index<0) or (Index>=fSelectedComponents.Count) then exit; if (Index<0) or (Index>=fSelectedComponents.Count) then exit;
@ -117,13 +116,7 @@ begin
CurStr:=Format(lisPckEditPage, [CurComponent.ComponentClass.ClassName, CurStr:=Format(lisPckEditPage, [CurComponent.ComponentClass.ClassName,
CurComponent.Page.PageName]); CurComponent.Page.PageName]);
TxtH:=TextHeight(CurStr); TxtH:=TextHeight(CurStr);
CurRect:=ARect; FillRect(ARect);
inc(CurRect.Left,25);
FillRect(CurRect);
Brush.Color:=clLtGray;
CurRect:=ARect;
CurRect.Right:=ARect.Left+25;
FillRect(CurRect);
CurIcon:=nil; CurIcon:=nil;
if CurComponent is TPkgComponent then if CurComponent is TPkgComponent then
CurIcon:=TPkgComponent(CurComponent).Icon; CurIcon:=TPkgComponent(CurComponent).Icon;