Преобразование 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]
