Текущий архив: 2002.09.02;
Скачать: CL | DM;

Вниз

ico в bmp   Найти похожие ветки 

← →
DmitryM   (2002-04-23 15:46) [0]

Ка преобразовать ico-файл в bmp-файл?

---

← →
Gu ©   (2002-04-23 16:26) [1]

Переименовать

---

← →
DmitryM   (2002-04-24 16:16) [2]

НЕсле бы все было так просто - я бы не писал :)

---

← →
Song ©   (2002-04-24 16:25) [3]


procedure TForm1.Button1Click(Sender: TObject);
var
Icon: TIcon;
Bitmap: TBitmap;
begin
Icon := TIcon.Create;
try
Bitmap := TBitmap.Create;
try
{Load the .ICO}
Icon.LoadFromFile("c:\YourIcon.ico");
Bitmap.Height := Icon.Height;
Bitmap.Width := Icon.Width;
Bitmap.Canvas.Draw(0, 0, Icon);
Bitmap.SaveToFile("c:\YourBitmap.bmp");
finally
Bitmap.Free;
end;
finally
Icon.Free;
end;
end;


---

← →
DmitryM   (2002-04-25 11:56) [4]

Спасибо, попробую.

---

Страницы: 1 вся ветка

Текущий архив: 2002.09.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c