Графика в Delphi

← →
Serg_lys (2004-07-11 05:05) [0]

Здравствуйте! У меня такая проблема. В моем проекте есть инструментальная панель Toolbar и компонент Image. Панель Toolbar связана с компонентом ImageList и на ней расположены кнопки Toolbutton, содержащие изображения от ImageList, например, пять кнопок с квадратиками разных цветов. Как сделать перетаскивание или копирование этих квадратиков с кнопок ToolBar в компонент Image с возможностью дальнейшего запоминания координат этих квадратиков в Image и перемещения их там?

← →
Defunct © (2004-07-11 05:22) [1]

procedure TForm1.Button1Click(Sender: TObject);
Var bmp : TBitmap;
begin
try
bmp := TBitmap.Create;
ImageList1.GetBitmap( 0, bmp); // Вытягивание рисунка
Image1.Canvas.Draw(10,10, bmp); // рисование на Image
finally
bmp.free;
End;
end;

Графика в Delphi Найти похожие ветки