Formulare in hohen DPI korrekt anzeigen

[Jim Carrey]

Ich habe mir jetzt eine Funktion geschrieben, welche für mich die Arbeit mit dem Leerzeichen-Problem übernimmt.

Zur Erinnerung mein Aufbau:
[RadioButton_mit_einem___(EDIT_FELD)__ganz_langem_T ext]

Ihr dürft mich später erschlagen für meine Dummheit

Delphi-Quellcode:

function calcSpacesNeeded(aEdit: TEdit): string;
var
 iEditWidth, iTmpWidth: Integer;
 i: Integer;
 s: string;
begin
 s := '';
 iEditWidth := aEdit.Width;

 for i := 0 to iEditWidth do
  begin
   s := s + ' ';

   iTmpWidth := Form3.Canvas.TextWidth(s);

   if iTmpWidth >= iEditWidth then
    begin
     s := s + '        ';
     Break;
    end;
  end;

 Result := s;
end;

RadioButton1.Caption := 'Radiobutton mit einem ' + calcSpacesNeeded(Edit1) + ' ganz langem Text';
Edit1.Left := 123;

Erklärung:
mein Code geht in einer for-Schleife von 0 bis "Width des Edits" in Pixeln durch.
Bei jedem Durchgang wird die aktuelle Width der Variablen "s" geprüft. Ist sie kleiner als die des Edits, so wird der Variablen "s" ein Leerzeichen angefügt.
Sobald Width des Konstrukts der Variablen "s" größer oder gleich der des Edits ist, ist Schluss. Vorher werden der Variablen "s" aber noch 8 weitere Leerzeichen angefügt (hat bei mir einen Sinn, da ich meine Edits modifiziere).

Das klappt bei 96 DPI und 120 dpi perfekt.