Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: 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 вся ветка

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.023 c
1-1089730936
FlyDragon
2004-07-13 19:02
2004.07.25
Адрес класса(объекта)


6-1084312860
BiBle
2004-05-12 02:01
2004.07.25
HTTP- запрос в Delphi, его проведение и обработка !


14-1089092868
----
2004-07-06 09:47
2004.07.25
need help


1-1089624951
Snip
2004-07-12 13:35
2004.07.25
Owner


3-1088749882
b-a-n
2004-07-02 10:31
2004.07.25
DBGrid