Problem beim ändern der Größe eines TImage

[sledgehammer]

Delphi-Quellcode:

procedure Tfrm_track.PaintGitter;
var dummy: integer;
begin
  with pb_gitter.canvas do
    begin
      Pen.Color:=$00B6B6B6;
      Pen.Width:=2;
    end;
  for dummy:=0 to TrackWindow.Breite do //zeichnet die vertikalen Linien
  begin
    pb_gitter.Canvas.MoveTo(dummy*FeldSize,0);
    pb_gitter.Canvas.LineTo(dummy*FeldSize,TrackWindow.Hoehe*FeldSize);
  end;
  for dummy:=0 to TrackWindow.Hoehe do //zeichnet die horizontalen Linien
  begin
    pb_gitter.Canvas.MoveTo(0,dummy*FeldSize);
    pb_gitter.Canvas.LineTo(TrackWindow.Breite*FeldSize,dummy*FeldSize);
  end;
  with pb_gitter.canvas do //fügt eine weiße linie am unteren Rand hinzu, damit weiß die transparente Farbe ist
    begin
      Pen.Color:=clwhite;
      Pen.Width:=1;
      MoveTo(0,TrackWindow.Hoehe*FeldSize);
      LineTo(TrackWindow.Breite*FeldSize,TrackWindow.Hoehe*FeldSize);
    end;
end;

pb_gitter ist die die TImage Komponente (Name noch historisch bedingt)
TrackWindow.Breite gibt die anzahl an Spalten an
TrackWindow.Hoehe gibt die Anzahl an Zeilen an
FeldSize gibt die Kästchengröße an