Скачать: CL | DM;

Графика в 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;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c