• Исходники

Как создать bitmap из пиктогрммы (icon)?

Используя Bitmap.Canvas.Draw нарисуйте пиктограмму на Bitmap'е.

procedure TForm1.Button1Click(Sender: TObject);
var
        TheIcon : TIcon;
        TheBitmap : TBitmap;
begin
                TheIcon := TIcon.Create;
                TheIcon.LoadFromFile('C:\Program Files\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;