Очистка Canvas

← →
Destroyer (2004-03-26 23:45) [0]

Моя программа рисует на форме график. При изменении размера формы, график перерисовывается, но старый остается. Как обновлять canvas, т.е. стирать все с него?

← →
Mihey © (2004-03-27 00:00) [1]

Нужно заливать каким-то цвтом канву, например, FillRect, или работать с TBitmap - там можно и быстрее, через Scanline:

CONST
PixelCountMax = 32768;

TYPE
pRGBTripleArray = ^TRGBTripleArray;
TRGBTripleArray = ARRAY[0..PixelCountMax-1] OF TRGBTriple;

var
Bmp: TBitmap;

procedure Do;
var x, y: Integer;
i: Integer;
Row: pRGBTripleArray;
begin
FOR y := 0 TO Bmp.Height-1 DO
BEGIN
Row := Bmp.Scanline[y];
FOR x := 0 TO Bmp.Width-1 DO
BEGIN
WITH Row[x] DO
BEGIN // (255; 255; 0) - жёлтый
rgbtRed := 255;
rgbtGreen := 255;
rgbtBlue := 0;
END
END
END;
end;

← →
Mihey © (2004-03-27 00:54) [2]

Да, и кстати для D6-ников:

http://delphimaster.net/view/8-1080224905/

см. способы от dmk.

Destroyer (26.03.04 23:45)

Хотите чтобы график отображался плавно? Тогда формируйте график на отдельном Bitmap.Canvas и потом отрисовывайте всю картинку через Canvas.Draw

Очистка Canvas Найти похожие ветки