paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 23:38:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-fpgui: Fix compilation. Wrong number of parameters for GetImageIndexAndEffect() call. Issue #35478, patch from Graeme.

Browse Source 
git-svn-id: trunk@61122 -
This commit is contained in:
juha 2019-05-03 19:45:25 +00:00
parent a29469dc6a
commit 98ea746922
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/fpgui/fpguiwsbuttons.pp
View File

@ -23,8 +23,10 @@ interface
uses
// Bindings
fpguiwsprivate, fpg_main, fpg_button,
// RTL
SysUtils,
// LCL
Buttons, LCLType, Controls, Graphics, GraphType, sysutils,
Buttons, LCLType, Controls, Graphics, GraphType, ImgList,
// Widgetset
WSButtons, WSLCLClasses;
@ -81,11 +83,15 @@ var
lButtonState: TButtonState;
lIndex: integer;
lEffect: TGraphicsDrawEffect;
lImageRes: TScaledImageListResolution;
begin
if not Assigned(AValue.Images) then exit;
lButton := TFPGUIPrivateButton(ABitBtn.Handle);
lButtonState:=bsUp;
AValue.GetImageIndexAndEffect(lButtonState,lIndex,lEffect);
lButtonState := bsUp;
AValue.GetImageIndexAndEffect(lButtonState, ABitBtn.Font.PixelsPerInch,
ABitBtn.GetCanvasScaleFactor, lImageRes, lIndex, lEffect);
lBitmap:=TBitmap.Create;
AValue.Images.GetBitmap(lIndex,lBitmap);
fpgImage:=TfpgImage.Create;