Image

Witam.
Stworzyłem programik który na podstawie danych, za pomocą Canvas rysuje na Image rysunek. Po stworzeniu już rysunku i po zmianie danych, program rysuje nowy obrazek na już wcześniej narysowanym. Jak zrobić aby za każdym razem nowy rysunek był rysowany na pustym Image. Thx

Clear();

Clear();

??

procedure WyczyscImage(kolorWypelnienia : TColor);
begin
    image1.Canvas.pen.Color := KolorWypelnienia;
    image1.Canvas.brush.color := KolorWypelnienia;
    image1.Canvas.Rectangle(0,0,image1.width,image1.height);
end;

Wielkie dzięki

Clear();

??

procedure WyczyscImage(kolorWypelnienia : TColor);
begin
    image1.Canvas.pen.Color := KolorWypelnienia;
    image1.Canvas.brush.color := KolorWypelnienia;
    image1.Canvas.Rectangle(0,0,image1.width,image1.height);
end;

FOMCL [rotfl] [rotfl] [rotfl]

image.picture:=nil;