Schriftgröße des Hauptmenüs verändert sich

[Papaschlumpf73]

Das wollte ich jetzt auch mal ausprobieren und habe die paar Zeilen von kdf in die Projektdatei eingefügt. Bei mir passiert da aber gar nichts; die Werte werden komplett ignoriert. Woran kann das liegen?

[kdf]

Zitat von Papaschlumpf73:

Das wollte ich jetzt auch mal ausprobieren und habe die paar Zeilen von kdf in die Projektdatei eingefügt. Bei mir passiert da aber gar nichts; die Werte werden komplett ignoriert. Woran kann das liegen?

begin
screen.MessageFont.Size := 12;
screen.HintFont.Size := 12;
screen.MenuFont.Size := 12;
Application.Initialize;
....

Glaube, das muß vor Application.Initialize stehen.

[Papaschlumpf73]

Zitat von kdf:

Zitat von Papaschlumpf73:

Das wollte ich jetzt auch mal ausprobieren und habe die paar Zeilen von kdf in die Projektdatei eingefügt. Bei mir passiert da aber gar nichts; die Werte werden komplett ignoriert. Woran kann das liegen?

begin
screen.MessageFont.Size := 12;
screen.HintFont.Size := 12;
screen.MenuFont.Size := 12;
Application.Initialize;
....

Glaube, das muß vor Application.Initialize stehen.

Genauso habe ich es auch gemacht. Einfach ein neues Projekt erzeugt und die paar Zeilen eingefügt:

Delphi-Quellcode:

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  screen.MessageFont.Size := 14;
  screen.HintFont.Size := 14;
  screen.MenuFont.Size := 14;

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

In Form1 hab ich ein TMainMenu und eine MessageBox und ShowMessage ausprobiert. Hat nach wie vor alles Schriftgröße 9.

[himitsu]

Sicher, dass es davor rein muß?
Nicht, dass es erst im Application.Initialize geladen (wieder überschrieben) wird.

Und, wie schon erwähnt, sendet Windows Messages, um sowas im Programm zu aktualisieren, z.B. wenn jemand an den Windowseinstellungen rumspielt, sowie beim Umschalten des Desktops (einloggen/ausloggen/sperren der Nutzersession)

[Papaschlumpf73]

Jetzt habe ich die drei Zeilen vor/nach jede Anweisung gepackt. Selbst nochmal unmittelbar vor Application.MessageBox(). Laufzeit-Themes an/aus. Völlig egal, das TMainMenu und die Messagebox-Texte bleiben in Schriftgröße 9. Ist das evtl. bei RDP-Zugriff inaktiv?

[himitsu]

Ein aktuelles Delphi verhält sich bei RDP sowieso anders. (Windowes hat da im PE-Header ein Flag, was im aktuellen Delphi gesetzt wird, siehe Projektoptionen)
z.B. wird da auch anders beim DoubleBuffered rumgepfuscht.

Macht da echt wenig Spaß, wenn man die DelphiIDE im RDP laufen hat, weil da dinge in der DFM gespeichert werden, welche eigentlich nur "temporär" zur Laufzeit geändert werden sollten.


Hast du denn mal oben alles richtig durchgelesen?
z.B. die Eigenschaft zum Deaktivieren der Aktualisierung.

[Papaschlumpf73]

Auch Application.UpdateMetricSettings:=false; ändert hier nichts. Weder vor Application.Initialize; noch danach. - Es bleibt Schriftgröße 9. In zwei Wochen bin ich wieder im Büro und versuche es mal ohne RDP.

[kdf]

Standardstil: Windows