Man kann doch im Windows die "Auflösung" anpassen
Systemsteuerung\Darstellung und Anpassung\Anzeige

Bei meinem kleinen FullHD-Schlepptop steht das auf 125% und ist eigentlich OK so.
Aber leider hat das einen Einfluß auf den Formeditor, welches dort die Größen und Positionen der Schrift und Komponenten verändert.

Das ist aber voll blöd, wenn man Computerübergreifend arbeitet, vorallem was das SVN angeht, da sich dann ja ständig die Dateien ändern.
Und ob das ständige hoch- und runtergezoome sich pixelgenau auswirkt, weiß auch keiner (aber da nur in ganzen Pixel gerechnet wird, muß sich am Ende wohl alles auf 4er-Schritte runden )
+25% ... -20% ... +25% ... -20% ... +25% ... -20% ... +25% ... -20% ... +25% ... -20% ...


[add]
Zur Laufzeit isses ja OK, aber im Designer sollte es doch bitte unverändert sein.

Und jupp, sind 4er-Schritte: (die 20% aka 1/5-tel hatten mich etwas verwirrt)

zusammenfalten · markieren

Delphi-Quellcode:

const
  Percent = 125;
var
  i, i2: Integer;
  a: array of array[-1..1] of Integer;
begin
  SetLength(a, 100);
  for i := 0 to High(a) do
    for i2 := -1 to 1 do
      a[i][i2] := i;

  for i2 := 0 to 100 do
    for i := 0 to High(a) do begin
      a[i][-1] := a[i][-1] * 100 div Percent;
      a[i][ 1] := a[i][ 1] * Percent div 100;

      a[i][-1] := a[i][-1] * Percent div 100;
      a[i][ 1] := a[i][ 1] * 100 div Percent;
    end;

  Memo1.Lines.Clear;
  for i := 0 to High(a) do
    Memo1.Lines.Add(Format(' %3d %3d %3d', [a[i][-1], a[i][0], a[i][1]]));
end;

*push*

Hilfe?


Das Notbook ist nun schon seit einer Weile so eingestellt, so daß (fast) überall nicht skaliert wird.
100% aka 96 DPI (war vorher auf 125% aka 120 DPI eingestellt, also auch wärend Delphi installiert wurde)

Screens.PixelPerInch sagt auch 96

In den DFMs steht 96

Und ich konnte in der Delphi-Registry weder was mit PixelPerInch oder 120 finden.
120 sind die DPI, welche für die Skalierung verwendet werden, jedenfalls wenn ich die Veränderungen in den DFMs zurückrechne.



Also wo/wie kommt der FormDesigner auf die Idee meine Formulare ständig verändern zu wollen?



PS: Ich hab auch bei einem alten Delphi7-Programm bemerkt, daß dort der Canvas skaliert ist.
Das Fenster ist unverändert, aber der Inhalt ist ist vergrößert (gezeichnete Bilder sind zu groß und die Eingabeelemante, wie Buttons, liegen rechts/unten außerhalb des Fensters, sind also nicht sichtbar)

Hab endlich rausgefunden was hier am Skalieren ist.

Das blöde TextHeight wurde nicht skaliert, es ist selber skalierend und scheinbar lag es schlußendlich am MS Sans Serif, welches bei vielen (alten) Forms eingestellt war.
Irgendwie hat diese Schriftart eine unterschiedliche Höhe.

Die DFMs bearbeitet und das gegen Tahoma getauscht und schon geht es. (es sieht bis jetzt zumindestens danach aus)

markieren

Code:

  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  TextHeight = 16

  Font.Height = -11
  Font.Name = 'Tahoma'
  TextHeight = 13