Форум: "Media";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];

Вниз

Мастера подскажите как очистить канву?   Найти похожие ветки 

← →
Junior   (2003-10-25 17:09) [0]

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

---

← →
Fenik   (2003-10-25 17:44) [1]

PatBlt

---

← →
Junior   (2003-10-27 12:50) [2]

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

---

← →
Guerrillero   (2003-10-27 17:04) [3]

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

---

← →
Junior   (2003-10-28 17:01) [4]

Пасиба!

---

← →
ZEE   (2003-10-28 19:15) [5]

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

---

← →
xxxXXxx   (2003-10-29 11:40) [6]

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

---

← →
dDaN   (2003-10-29 13:27) [7]

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

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:28) [8]

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

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;


---

← →
ZEE   (2003-10-29 13:59) [9]

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

---

← →
Fenik   (2003-10-31 15:58) [10]

>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;

---

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

Форум: "Media";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];

Наверх

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