Преобразование ICO в BMP III

procedure TIconShow.FileListBox1Click(Sender: TObject);
var
MyIcon: TIcon; MyBitMap : TBitmap; begin
MyIcon := TIcon.Create; MyBitMap := TBitmap.Create;
try { получаем имя файла и связанную с ним иконку} strFileName := FileListBox1.Items[FileListBox1.ItemIndex]; StrPCopy(cStrFileName, strFileName);

MyIcon.Handle := ExtractIcon(hInstance, cStrFileName, 0);
{ рисуем иконку на bitmap в speedbutton } SpeedButton1.Glyph := MyBitMap; SpeedButton1.Glyph.Width := MyIcon.Width; SpeedButton1.Glyph.Height := MyIcon.Height; SpeedButton1.Glyph.Canvas.Draw(0,0, MyIcon);
SpeedButton1.Hint := strFileName;
finally MyIcon.Free; MyBitMap.Free; end; end;

[001804]

Содержание раздела