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

Как создать иконки на форме и при необходимости их перемещать?? Как на рабочем столе в Windows!   Найти похожие ветки 

← →
Aristotel ©   (2002-02-15 20:51) [0]

Как создать иконки на форме и при необходимости их перемещать?? Как на рабочем столе в Windows!

---

← →
wicked ©   (2002-02-16 21:12) [1]

посмотри на компоненту TListView... может, подойдёт....

---

← →
Aristotel ©   (2002-02-17 08:50) [2]

Нет ListView меня не устраивает! Я научился выводить иконки с помощью DrawIconEx пример :
Var bit2:TBitmap;
Ic1 :TIcon;
begin
Ic1 :=TIcon.Create;
Ic1.LoadFromFile("e:\ic2.ico");
bit2:=Tbitmap.Create;
try
bit2.LoadFromFile("e:\fon.bmp"); // Загружаю картинку для // красоты!
Form1.Canvas.StretchDraw(rect(0,0,form1.Width,form1.Height),bit1);
DrawIconEx(Form1.Canvas.Handle,250,50,ic1.Handle,364,364,0,Form1.Canvas.Brush.Handle,DI_NORMAL);
finally
end;
end; КАК СДЕЛАТЬ ИКОНКИ ПРОЗРАЧНЫМИ ?????????????????

---

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

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



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