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

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

Мастера подскажите как очистить канву? [D7, Win2k]

Junior ©   (2003-10-25 17:09:00) 

Мастера подскажите как очистить канву?
что то сам не нашел..
Пасиба

---

Fenik   (2003-10-31 15:58:00) [1]

>dDaN (29.10.03 13:27) [7]

procedure ClearScreen(Canvas: TCanvas);
begin
with Canvas.ClipRect do
PatBlt(Canvas.Handle, Left, Top, Right, Bottom, WHITENESS)
end;

---

ZEE   (2003-10-29 13:59:00) [2]

>dDaN (29.10.03 13:27) [7]
а чем это от ZEE © (28.10.03 19:15) [5]отличается?
кроме Canvas.ClipRect конечно...

---

dDaN   (2003-10-29 13:28:00) [3]

вот эта процедурка меня не огорчала.

Procedure ClearScreen(Canvas:TCanvas);
var
L,T,R,B:Integer;
begin
L:=Canvas.ClipRect.Left;
T:=Canvas.ClipRect.Top;
R:=Canvas.ClipRect.Right;
B:=Canvas.ClipRect.Bottom;
PatBlt(Canvas.Handle,L,T,R,B,WHITENESS)
end;


---

dDaN   (2003-10-29 13:27:00) [4]

вот эта процедурка меня не огорчала.

Procedure ClearScreen(Canvas:TCanvas);
var
L,T,R,B:Integer;
begin
L:=Canvas.ClipRect.Left;
T:=Canvas.ClipRect.Top;
R:=Canvas.ClipRect.Right;
B:=Canvas.ClipRect.Bottom;
PatBlt(Canvas.Handle,L,T,R,B,WHITENESS)
end;


---

xxxXXxx   (2003-10-29 11:40:00) [5]

[3] - красивее код!

---

ZEE   (2003-10-28 19:15:00) [6]

к [1] + [2]
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621937&n=21

---

Junior   (2003-10-28 17:01:00) [7]

Пасиба!

---

Guerrillero   (2003-10-27 17:04:00) [8]

with Canvas do
begin
Brush.Style := bsClear;
FillRect(ClipRect);
end;

---

Junior   (2003-10-27 12:50:00) [9]

енто как? Что за процедура? в хелпе не нашел... из какого модуля?

---

Fenik   (2003-10-25 17:44:00) [10]

PatBlt

---

Наверх