Графика в Delphi [D6, Win95/98]
Serg_lys © (2004-07-11 05:05:00)
Здравствуйте! У меня такая проблема. В моем проекте есть
инструментальная панель Toolbar и компонент Image.
Панель Toolbar связана с компонентом ImageList и на ней
расположены кнопки Toolbutton, содержащие изображения от ImageList,
например, пять кнопок с квадратиками разных цветов. Как сделать
перетаскивание или копирование этих квадратиков с кнопок ToolBar в
компонент Image с возможностью дальнейшего запоминания координат
этих квадратиков в Image и перемещения их там?
Defunct (2004-07-11 05:22:00) [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;
Наверх 
ЧАТ |
Орешник |
|
