Hallo, ich wollte das sich Komponenten meines Programms proportional zur Bildschirmgröße verhalten...
dazu habe ich folgenden Quelltext:=
Delphi-Quellcode:
procedure TFormMain.FormPaint(Sender: TObject);
var temp: Integer;
begin
ShowMessage('');
PConsole1.Width:=round((self.Width / 800) * PConsole1.Width);
PConsole1.Height:=round((self.Height / 600) * PConsole1.Height);
PConsole2.Width:=round((self.Width / 800) * PConsole2.Width);
PConsole2.Height:=round((self.Height / 600) * PConsole2.Height);
temp:=PConsole1.Left;
PConsole1.Left := round((self.Width / 2)-(PConsole1.Width / 2));
PConsole2.Left:=PConsole2.Left+(PConsole1.Left-temp);
end;
durch das Show Message habe ich mehr oder minder zufällig folgendes entdeckt: (siehe Anhang)
die Methode wird 4 Mal aufgerufen und jedesmal wird das pannel größer... bis es den ganzen Bereich füllt...
Woran liegt das?
Hab ich irgendwo nen Fehler... sieht den jemand?
