Hilfe Bildschrimauflösung

enter

Level-2
Beiträge
83
Reaktionspunkte
5
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo,
brauch da mal eure Hilfe ich hab eine Vb.net Anwendung mit einer Bildschirmauflösung von 1280x1024 programmiert(Büro Rechner)
jetzt wollte ich zum Kunden fahren mit meinen Laptop der hat aber nur eine Auflösung von 1280x800 wenn ich jetzt mein Projekt auf den Laptop mit Visual Studio öffne passt er mir die Fenster immer auf die Maxauflösung des Laptops an und die Fenster werden nur halb dargestellt voll schei*** kann doch nicht sein das ich einen TFT mitschleppen muss .Kann ich das irgendwie umgehen?
 
Du hast sicher für dein Formular eine Funktion wie "OnResize". Wenn das Ereignis dann kommt musst du deine Komponenten relativ zur Größe deines Formulars anordnen bzw. die Größe ändern!

Hab da gerade ein Beispiel, allerdings nur in Delphi:

Code:
procedure TForm13.FormResize(Sender: TObject);
var
  pos: Integer;
begin
  pos := Self.ClientHeight - BtnPrint.Height;
  BtnPrint.Top := pos;
  BtnPrint.Left := 0;
  BtnPrint.Width := Self.ClientWidth;
  pos := pos - BtnRefresh.Height;
  BtnRefresh.Top := pos;
  BtnRefresh.Left := 0;
  BtnRefresh.Width := Self.ClientWidth;
  pos := pos - DTPEndT.Height;
  DTPEndT.Top := pos;
  DTPEndT.Left := (Self.ClientWidth div 3) * 2;
  DTPEndT.Width := Self.ClientWidth div 3;
  DTPEndD.Top := pos;
  DTPEndD.Left := (Self.ClientWidth div 3) * 1;
  DTPEndD.Width := Self.ClientWidth div 3;
  LblSE.Top := pos + 4;
  LblSE.Left := 10;
  pos := pos - DTPStartT.Height;
  DTPStartT.Top := pos;
  DTPStartT.Left := (Self.ClientWidth div 3) * 2;
  DTPStartT.Width := Self.ClientWidth div 3;
  DTPStartD.Top := pos;
  DTPStartD.Left := (Self.ClientWidth div 3) * 1;
  DTPStartD.Width := Self.ClientWidth div 3;
  LblSS.Top := pos + 4;
  LblSS.Left := 10;
  AdvSGGrid.Height := pos;
end;
 

Anhänge

  • resize.JPG
    resize.JPG
    62,5 KB · Aufrufe: 18
Zurück
Oben