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

IDE: use 24bit bitmap in Gtk2 for scaling.

Browse Source 
git-svn-id: trunk@54289 -
This commit is contained in:
ondrej 2017-02-27 08:38:00 +00:00
parent 9e5332edbc
commit 4c5531e408
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/ideintf/ideimagesintf.pas
View File

@ -185,9 +185,14 @@ function TIDEImages.LoadImage(ImageSize: Integer; ImageName: String): Integer;
begin begin
Bmp := TBitmap.Create; Bmp := TBitmap.Create;
try try
{$IFDEF LCLGtk2}
Bmp.PixelFormat := pf24bit;
Bmp.Canvas.Brush.Color := clBtnFace;
{$ELSE}
Bmp.PixelFormat := pf32bit; Bmp.PixelFormat := pf32bit;
Bmp.SetSize(AList.Width, AList.Height);
Bmp.Canvas.Brush.Color := TColor($FFFFFFFF); Bmp.Canvas.Brush.Color := TColor($FFFFFFFF);
{$ENDIF}
Bmp.SetSize(AList.Width, AList.Height);
Bmp.Canvas.FillRect(Bmp.Canvas.ClipRect); Bmp.Canvas.FillRect(Bmp.Canvas.ClipRect);
Bmp.Canvas.StretchDraw( Bmp.Canvas.StretchDraw(
Rect(0, 0, MulDiv(Grp.Width, ScalePercent, 100), MulDiv(Grp.Height, ScalePercent, 100)), Rect(0, 0, MulDiv(Grp.Width, ScalePercent, 100), MulDiv(Grp.Height, ScalePercent, 100)),