TStringGrid Größe ermitteln

[BigAl]

Zitat von samso:

Es ist besser statt der 2 Pixel die Höhe der Trennlinie korrekt aus GridLineWidth abzuleiten. Bei mir ist das

(DefaultRowHeight + GridLineWidth) * RowCount + GridLineWidth

Die Trennline muss pro Zeile nur einmal berücksichtigt werden. Nur bei der letzen (bzw. der ersten) Zeile muss die Trennlinie noch einmal berücksichtigt werden.

Ja, bei mir steht es mittlerweile so im Quelltext (gekürzt):

Delphi-Quellcode:

var
  GridHeight: Integer;
begin
  GridHeight := Grid.GridLineWidth + (Grid.DefaultRowHeight + Grid.GridLineWidth) * Grid.RowCount;
  if Grid.AlignWithMargins then
   GridHeight := GridHeight + Grid.Margins.Top + Grid.Margins.Bottom;
  Panel.ClientHeight := GridHeight;
  ...

Das haut auch einigermaßen hin. Sind halt an die 30 Grids die ich so verwalten muss (in verschiedenen Formularen) und ich suche eine "stabile" Lösung. Muss das aber auf verschiedenen Zielgeräten prüfen, da heutzutage ein Pixel ja nicht immer gleich ein Pixel ist. Die Kunden stehen leider immer mehr auf ihre 4K und noch höher auflösenden Monitore und stellen da dann Skalierungen von 200% und mehr ein...

[himitsu]

So lange es runde Skalierungen sind, passt es noch, ansonsten stimmt das nicht mehr.

Beim FMX mit den Float-Positionen lässt sich das teilweise ausgleichen, aber in der VCL macht es dann Spaß.

Es kommt aber auch drauf an wer skaliert.
Wenn Windows skalieren würde und intern es noch die 100%-Pixel sind, dann hast du bei Berechnungen garkeine Probleme, aber es sieht eventuell auch blöd aus.

Wenn es unbedingt Pixelgenau sein muß, dann kannst du ein bissl mit den Einstellungen rumspielen.
HighDPI im Manifest und Form.Scaled und selbst skalieren rumspielen.