Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

Как почистить Canvas 


SB.John   (2002-04-12 12:54) [0]

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

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



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

FillRect



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

Canvas.Assign(nil);



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



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

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.02 c
1-80915           Sparky                2002-04-15 13:08  2002.04.25  
SendMessage


1-80986           kimblch               2002-04-10 02:29  2002.04.25  
Вопрос по OLE-Automation(ранние связывание)


1-80922           shane54               2002-04-11 00:17  2002.04.25  
Вопрос по таймеру


3-80832           Tolstomordik          2002-04-05 17:12  2002.04.25  
Получить значение выбранной ячейки в DBGrid


7-81098           star                  2002-01-24 17:45  2002.04.25  
О точных временных интервалах ...