Как создать BitMap из пиктограммы (Icon)
Как создать BitMap из пиктограммы (Icon)
Как создать BitMap из пиктограммы (Icon) Используя Bitmap.Canvas.Draw нарисуйте пиктограмму на Bitmap'е. procedure TForm1.Button1Click(Sender: TObject); var TheIcon : TIcon; TheBitmap : TBitmap; begin TheIcon := TIcon.Create; TheIcon.LoadFromFile('C:\Borland\IcoCur32\EARTH.ICO'); TheBitmap := TBitmap.Create; TheBitmap.Height := TheIcon.Height; TheBitmap.Width := TheIcon.Width; TheBitmap.Canvas.Draw(0, 0, TheIcon); Form1.Canvas.Draw(10, 10, TheBitmap); TheBitmap.Free; TheIcon.Free; end; ***************************************************** Как преобразовать ico в bmp? var icon : ticon; bitmap : tbitmap; begin icon := ticon.create; bitmap := tbitmap.create; icon.loadfromfile('c:\picture.ico'); bitmap.width := icon.width; bitmap.height := icon.height; bitmap.canvas.draw(0, 0, icon ); bitmap.savetofile('c:\picture.bmp'); icon.free; bitmap.free; end;
