GitHub-Mirror
/
unitswitcher
mirror of
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fixed: determine transparent color before resizing the component icon

This commit is contained in:
Mark van Renswoude 2007-12-19 14:11:31 +00:00
parent 804603986f
commit 6fdf574708
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Lib/D7/UnitSwitcherD7.bpl
View File

Binary file not shown.

6
Source/CmpSwDialog.pas
View File

@ -17,7 +17,7 @@ uses
BaseSwDialog,
BaseSwObjects,
CmpSwFilters, UnSwDialog;
CmpSwFilters;
type
@ -180,6 +180,7 @@ var
packageHandle: THandle;
bitmapHandle: THandle;
bitmap: Graphics.TBitmap;
transpColor: TColor;
begin
Result := -1;
@ -197,6 +198,7 @@ begin
bitmap := Graphics.TBitmap.Create();
try
bitmap.Handle := bitmapHandle;
transpColor := bitmap.TransparentColor;
if (bitmap.Width <> FImageList.Width) or
(bitmap.Height <> FImageList.Height) then
@ -204,7 +206,7 @@ begin
ResizeBitmap(bitmap, FImageList.Width, FImageList.Height);
end;
Result := FImageList.AddMasked(bitmap, bitmap.TransparentColor);
Result := FImageList.AddMasked(bitmap, transpColor);
finally
FreeAndNil(bitmap);
end;