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

[kdf]

Hallo,

ich habe in der *.dproj vor der Initialisierung das Menüe angepasst

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

Das funktioniert so ansich einwandfrei. Jedoch ändert sich der Parameter screen.MenuFont.Size nach unbestimmter Zeit wieder auf den Standardwert 8 oder 9. Den gesetzten Wert gibt es dann wieder mit einem Neustart des Clients.

Wie kann man dieses nachträgliche Überschreiben verhindern?

Gruß

K.-D.

[jaenicke]

Wie wäre es ganz einfach mit einem Datenhaltepunkt? Damit solltest du doch sehr schnell sehen, wann und warum sich der Wert ändert.

[Uwe Raabe]

Das kann passieren, wenn die Applikation eine passende WM_SETTINGCHANGE Message bekommt und die Fonts erneut aus Windows übernimmt. Man kann das verhindern, indem man Screen.UpdateMetricSettings := False setzt, bekommt dann aber eventuell auch noch andere Änderungen nicht mehr mit.

Alternativ kannst du auch im MainForm einen Message-Handler für CM_SYSFONTSALLCHANGED einbauen und dort den Screen.MenuFont wieder passend setzen.

[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.

[kdf]

Screen.UpdateMetricSettings := false;
kann ich nicht eingeben.

Application.UpdateMetricSettings := false;
war das so gemeint?