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

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

Как почистить Canvas [D6, WinME, Win2k]


SB.John ©   (2002-04-12 12:54:00) 

Т.е. залить его белым цветом.
Логично было бы
Canvas.Rectangle(0,0,MaxX,MaxY)
но как узнать MaxX,MaxY ?

Пока делаю так
Image1.Canvas.Rectangle(0,0,Image1.Width-1,Image1.Height-1)
но это мне не нравится


SB.John   (2002-04-12 13:09:00) [1]

Ну и ну. За 10 минут 3 разных ответа и все вроде правильные и подходящие. Всем большое спасибо.


Song   (2002-04-12 13:07:00) [2]

Canvas.Assign(nil);


Леонид   (2002-04-12 13:07: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;


Anatoly Podgoretsky   (2002-04-12 13:03:00) [4]

FillRect


Наверх

Титульная страница Поиск, карта сайта Написать письмо