Hi
I used to draw disabled images in Delphi with TImageList.draw
But now I try it in Lazarus LCL and it's not drawing the image disabled.
I created also a speed button to test what will happen with the image when it is disabled and also the speed button is not drawing it disabled.
Do you have an idea what could be the issue
Lazarus 4.0RC1 (rev t-fixes-4-58-g43d904ed50) FPC 3.2.2 x86_64-win64-win32/win64
This is the code where I try the speed button
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Buttons, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
CheckBox1: TCheckBox;
ImageList1: TImageList;
SpeedButton1: TSpeedButton;
procedure CheckBox1Change(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.CheckBox1Change(Sender: TObject);
begin
SpeedButton1.Enabled := CheckBox1.Checked;
Repaint;
end;
end.