![]() |
StringGrid.ScaleBy(x,y) scaled nicht ColWidth & RowHeigh
Hallo,
Ich bekomme es nicht hin, dass auch ein TStringGrid ( D7 ) die ColWidth und die RowHeight scaled. Gibts da eine Lösung für? mfg Rumpi |
Re: StringGrid.ScaleBy(x,y) scaled nicht ColWidth & RowH
Hi,
zu Info (D7) die neue Form Height und Width muss man nach ScaleBy setzen!
Delphi-Quellcode:
das Problem mit den StringGrid besteht immer noch.
const
DesHeight = 768; DesWidth = 1024; ... procedure TForm1.WMDisplayChange(var msg: TMessage); begin DoScale; end; procedure TForm1.OnCreate(Sender: TObject); begin Height := DesHeight; Width := DesWidth; DoScale; end; procedure TForm1.OnResize(Sender: TObject); begin DoScale; end; procedure TForm1.DoScale; var x, y : Longint; begin Scaled := True; // just in case it is not enabled x := Screen.Width; // get the new Width y := Screen.Height; // get the new Height // scale ? if (y <> Height) or (x <> Width) then begin if (x <> Width) then ScaleBy(x, Width) else ScaleBy(y, Height); Height := y; Width := x; end; end; mfg Rumpi |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 Uhr. |
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