rysowanie w delphi - TImage - źle rysuje

0
procedure TfrmMain.RysujSiatke(ilX, ilY: Integer);
const
LiniaDziel = 1;
Ramka = 2;
PoleBok = 40;
var
LiniePoz, LiniePion: Byte;
Szer, Wys: Integer;
begin
  LiniePoz := ilX-1;
  LiniePion := ilY-1;
  Szer := (ilX*PoleBok)+(2*Ramka)+(LiniePion*LiniaDziel);
  Wys := (ilY*PoleBok)+(2*Ramka)+(LiniePoz*LiniaDziel);
  rys.Width := Szer;
  rys.Height := Wys;
  rys.Canvas.Rectangle(0, 0, rys.Width, rys.Height);
  rys.Refresh;
end;

Mam taką procedurkę. Przekazuje jej np. 5,5 i rysuje ok - Ale gdy później przekaże jej załóżmy 10,10, to zamiast ładnie narysować:
user image
rysuje:
user image

Co dziwne - jeśli za pierwszym razem narysuje sobie taki rozmiar - bez problemu działa, ale kiedy go przerysowuję, ten problem się pojawia.

Edit: Przypomniało mi się - czy klasa TImage lub TCanvas udostępnia możliwość usunięcia całego rysunku (skasowanie go, zresetowanie obrazka)?

0

Image.Picture:=nil;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0