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

Эффекты в компонентах.   Найти похожие ветки 

← →
Лёха   (2005-06-29 09:19) [0]

Дарова.
Вопрос такой. Можно-ли сделать появление компонента(TImage, TLabel и др.) эффектным, т.е. появляется в виде фрагментов, как бы разворачивался(по-моему, можно реализовать в цикле). Что-то вроде этого используется в проге DemoShield.
Зарание спасибо.

---

← →
TUser ©   (2005-06-29 09:30) [1]

Назначать компоненту регион (SetWindowRgn), только к TImage и TLabel эти никак не относится.

---

← →
gydvin   (2005-06-29 09:35) [2]

А не проще отрисовывать на paintbox, а потом paintbox.visible:=false;

---

← →
Чай толпой   (2005-06-29 09:42) [3]

Дарова Лёха!

исп. канву
TCanvas
например, TImage, в принципе = матрица точек, надо взять контекст устр-ва    
 Desktop: TCanvas;

 Desktop := TCanvas.Create;
 Desktop.Handle := GetWindowDC();
и вывести по-пиксельно TImage в каком угодно порядке

читай тут, в разделе графика
http://delphiworld.narod.ru/_all_articles_.html

пока, Лёха!

---

← →
Лёха   (2005-06-29 09:53) [4]

Вот ещё вопросик. Как отоюразить форму в виде изображения (что-то вроде скина).

---

← →
Чай толпой   (2005-06-29 09:56) [5]

Дарова Лёха!

читай тут, в разделе скины
http://delphiworld.narod.ru/_all_articles_.html

пока, Лёха!

---

← →
gydvin   (2005-06-29 13:53) [6]

procedure TForm1.Button1Click(Sender: TObject);
var
Desk : TCanvas ;
begin
Desk := TCanvas.Create ;
try
with Desk do
Handle := GetWindowDC (form1.Handle) ;

with PaintBox1.Canvas do
CopyRect (Rect (0, 0,form1.Width, form1.Height),Desk, Rect (0, 0,form1.Width, form1.Height))

finally
Desk.Free

end ;end ;

---

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

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



Память: 0.46 MB
Время: 0.026 c