Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Formularinhalte bei OnResize neu skalieren (https://www.delphipraxis.net/182030-formularinhalte-bei-onresize-neu-skalieren.html)

hathor 1. Okt 2014 13:07

AW: Formularinhalte bei OnResize neu skalieren
 
Panel1.align:= alClient;


ListView-Spaltenbreite

Delphi-Quellcode:
procedure TF_Liste.FormResize(Sender: TObject);
begin
  eAS.ResizeAll;
  ListView1.Column[0].Width:= ColumnHeaderWidth;
  ListView1.Column[1].Width:= ColumnHeaderWidth;
end;

LokutusvB 1. Okt 2014 13:55

AW: Formularinhalte bei OnResize neu skalieren
 
Danke für Mühe!

Panel1.align=alClient hatte ich bereits probiert. Mit meinem letzten Text meinte ich, egal auf was die Eigenschaft laign steht, es hat keine Auswirkung auf die enthaltenen Komponenten.

Was genau meinst du mit ListView-Spaltenbreite? Der Trick mit der Headerbreite ist ein guter Trick, den muß ich mir merken. Das ist sicher auf den Inhalt der anderen Zeilen abbildbar unter Berücksichtigung einer maximalen Spaltenbreite. Bliebe noch das PageControl. Da habe ich noch immer keine passende Idee, außer das ganze immer wieder per Code nachzubessern.

Zusatz:
Bei einem Speed- oder Bit-Button wird leider das Bild nicht mit skaliert. Gibt es vielleicht auch dafür eine Lösung?

hathor 1. Okt 2014 16:52

AW: Formularinhalte bei OnResize neu skalieren
 
Wirf diese Zeile raus: Screen.SetPixelsPerInch(240);

Button-Komponente suchen, die das kann...

oder manuell: Mehrere BMP im Unterordner in versch. Größen

Delphi-Quellcode:
var  bmp1 : TBitmap; //globale var
...
procedure TF_Liste.FormCreate(Sender: TObject);
begin
bmp1 := TBitmap.Create; { Bitmap erzeugen }
...
procedure TF_Liste.FormShow(Sender: TObject);
begin
   bmp1.LoadFromFile('battery30.bmp'); //beispiel 30pixel
end;
...
procedure TF_Liste.FormResize(Sender: TObject);
begin
  eAS.ResizeAll;
  ListView1.Column[0].Width:= ColumnHeaderWidth;
  ListView1.Column[1].Width:= ColumnHeaderWidth;
   bmp1.LoadFromFile('batteryxx.bmp'); //beispiel xx-pixel - abhängig von der Form-Size
  SpeedButton1.Glyph:= bmp1;
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:19 Uhr.
Seite 3 von 3     123   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz