[Support]

Hi

The glyph property of button is a Bitmap, and you can't just use LoadFromFile.
Here is a changed code :

CODE

uses acPNG;

{$R *.dfm}

procedure TForm1.sButton1Click(Sender: TObject);
var
  Png : TPNGGraphic;
begin
  Png := TPNGGraphic.Create;
  Png.LoadFromFile(ExtractFilePath(Application.ExeName) + 'TestForm2-48.png');
  sSpeedButton2.Glyph.Assign(Png);
  Png.Free;
end;

[skippy]

oops, of course… <img src="style_emoticons//blush.gif” style=”vertical-align:middle” emoid=”:blush:” border=”0″ alt=”blush.gif” />

Thx for your effort.

[Author]

Posts