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ć:
rysuje:
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)?