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

ide: better support for transparency in imagelist editor (#0011174 by Luiz)

Browse Source 
git-svn-id: trunk@15328 -
This commit is contained in:
paul 2008-06-06 02:46:50 +00:00
parent 31b6def3f0
commit 19c044571d
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ideintf/imagelisteditor.pp
View File

@ -132,7 +132,7 @@ begin
end; end;
function CreateGlyph(B: TBitmap; Width, Height: Integer; function CreateGlyph(B: TBitmap; Width, Height: Integer;
Adjustment: TGlyphAdjustment; TransparentColor: TColor = clFuchsia): TBitmap; Adjustment: TGlyphAdjustment; TransparentColor: TColor = clDefault): TBitmap;
begin begin
Result := TBitmap.Create; Result := TBitmap.Create;
if (Adjustment = gaNone) then if (Adjustment = gaNone) then
@ -151,11 +151,15 @@ begin
gaCrop: Result.Canvas.Draw(0, 0, B); gaCrop: Result.Canvas.Draw(0, 0, B);
gaCenter: Result.Canvas.Draw((Width - B.Width) div 2, (Height - B.Height) div 2, B); gaCenter: Result.Canvas.Draw((Width - B.Width) div 2, (Height - B.Height) div 2, B);
end; end;
Result.TransparentColor := TransparentColor;
Result.Transparent := True;
Result.TransparentMode := tmAuto;
end; end;
if TransparentColor = clDefault then
Result.TransparentMode := tmAuto
else
begin
Result.TransparentColor := TransparentColor;
Result.TransparentMode := tmFixed;
end;
Result.Transparent := True;
end; end;
function CreateGlyphSplit(Src: TBitmap; Width, Height: Integer; SrcSplitIndex: Integer): TBitmap; function CreateGlyphSplit(Src: TBitmap; Width, Height: Integer; SrcSplitIndex: Integer): TBitmap;
@ -165,6 +169,9 @@ begin
Result.Height := Height; Result.Height := Height;
Result.Canvas.CopyRect( Rect(0, 0, Width, Height), Result.Canvas.CopyRect( Rect(0, 0, Width, Height),
Src.Canvas, Bounds(SrcSplitIndex * Width, 0, Width, Height) ); Src.Canvas, Bounds(SrcSplitIndex * Width, 0, Width, Height) );
Result.TransparentColor := Src.TransparentColor;
Result.TransparentMode := Src.TransparentMode;
Result.Transparent := True;
end; end;
{ TImageListEditorDlg } { TImageListEditorDlg }
@ -523,14 +530,14 @@ begin
if Assigned(v_CompositeBmp) then if Assigned(v_CompositeBmp) then
Bmp := CreateGlyphSplit(v_CompositeBmp, ImageList.Width, ImageList.Height, c_Part); Bmp := CreateGlyphSplit(v_CompositeBmp, ImageList.Width, ImageList.Height, c_Part);
Glyph := CreateGlyph(Bmp, ImageList.Width, ImageList.Height, gaNone); Glyph := CreateGlyph(Bmp, ImageList.Width, ImageList.Height, gaNone, clDefault);
I := ImageList.Add(Glyph, nil); I := ImageList.Add(Glyph, nil);
Glyph.Free; Glyph.Free;
New(P); New(P);
P^.Bitmap := Bmp; P^.Bitmap := Bmp;
P^.Adjustment := gaNone; P^.Adjustment := gaNone;
P^.TransparentColor := clFuchsia; P^.TransparentColor := clDefault;
Node := TreeView.Items.AddObject(nil, IntToStr(I), P); Node := TreeView.Items.AddObject(nil, IntToStr(I), P);
Node.ImageIndex := I; Node.ImageIndex := I;