Hier werden sowohl das Fenster als auch die beiden TImages in der Größe geändert
Delphi-Quellcode:
procedure Tfrm_track.ResizeObjects;
begin
ClientWidth:=(TrackWindow.Breite*FeldSize+16);
ClientHeight:=(TrackWindow.Hoehe*FeldSize+16);
with pb_gitter do
begin
Width:=(TrackWindow.Breite*FeldSize);
Height:=(TrackWindow.Hoehe*FeldSize)+1;
canvas.Pen.Style:=pssolid;
canvas.Pen.color:=clwhite;
canvas.Brush.Color:=clwhite;
canvas.Rectangle(0, 0, pb_gitter.width-1, pb_gitter.height-1);
end;
with im_TrackParts do
begin
Width:=(TrackWindow.Breite*FeldSize);
Height:=(TrackWindow.Hoehe*FeldSize);
canvas.Pen.Style:=pssolid;
canvas.Pen.Color := clWhite;
canvas.Brush.Color := clWhite;
canvas.Rectangle(0, 0, im_TrackParts.width, im_TrackParts.height);
end;
end;
Die beiden Bilder werden auch gleich nochmal gelöscht. Die beiden Methoden werden in folgender Methode aufgerufen.
Delphi-Quellcode:
procedure Tfrm_track.EditTrackParameters;
begin
ResizeObjects;
Caption:=TrackWindow.Name + ' - Editormodus';
Paintgitter;
end;
Ergänzend sollte ich vielleicht erwähnen, dass die Bilder per Default in der Größe 10x10 vorliegen (200x200Pixel). Danach lade ich erst das konkrete Gleisbild was die Größe erst einmal ändert. Erst das geänderte kann ich nicht mehr ändern.
Zweck der beiden verschiedenen Images ist, dass ich das Gitter zeitweise verstecke (.Hide), je nachdem in welchem Zustand das programm ist.
Naja, morgen probiere ich mal ein bitmap zu kopieren.