| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Эффекты в компонентах.

Лёха ©   (2005-06-29 09:19:00) 

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

---

gydvin   (2005-06-29 13:53:00) [1]

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 ;

---

Чай толпой   (2005-06-29 09:56:00) [2]

Дарова Лёха!

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

пока, Лёха!

---

Лёха   (2005-06-29 09:53:00) [3]

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

---

Чай толпой   (2005-06-29 09:42:00) [4]

Дарова Лёха!

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

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

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

пока, Лёха!

---

gydvin   (2005-06-29 09:35:00) [5]

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

---

TUser   (2005-06-29 09:30:00) [6]

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

---

Наверх