Menü : Schriftgröße

[malabarista]

Wo kann ich im TMainMenu die Schriftgröße und Schriftart einstellen ?

[Mathias]

Ich denke, dies wird kaum gehen, da dies vom OS gesteuert wird.

[wp_xyz]

Eine brauchbare Lösung habe ich noch nicht. Aber MainMenu hat einen OwnerDraw-Mechanismus, über den man in die Ausgabe eingreifen kann. Also: OwnerDraw des MainMenu auf true setzen, dann einen Event-Handler für OnDrawItem schreiben, in dem man den Font verändern kann und den Menütext selbst zeichnen muss (leider auch Icons etc.). Damit die Menüeinträge richtig platziert werden, muss man auch OnMeasureItem implementieren; dabei müssen die Änderungen des Fonts wiederholt werden. Allerdings sollte die Fontgröße nicht zu stark verändert werden, das ist anscheinend noch etwas buggy... Es reicht, die Events nur beim MainMenu einzutragen. Man kann aber auch bei einzelnen Menüpunkten jeweils eigene Einstellungen vornehmen.

Im Screenshot siehst du mein Ergebnis unter Windows.

Viel Spaß beim Experimentieren!

Code: Alles auswählen

procedure TForm1.MainMenu1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; AState: TOwnerDrawState);
begin
  ACanvas.Font.Name := 'Times New Roman';
  ACanvas.Font.Size := 12;
  ACanvas.Brush.Style := bsClear;   // Damit wird der Text ohne Hintergrund ausgegeben
  ACanvas.TextOut(ARect.left, ARect.Top, TMenuItem(Sender).Caption);
end;
 
procedure TForm1.MainMenu1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var AWidth, AHeight: Integer);
begin
  ACanvas.Font.Name := 'Times New Roman';
  ACanvas.Font.Size := 12;
  AWidth := ACanvas.TextWidth(TMenuItem(Sender).Caption);
  AHeight := ACanvas.TextHeight('Tg');
end;  

[Mathias]

Ich habe es grade probiert, aber funktionieren tut die nur mit Windows. Bei Linux bleibt das Menu unverändert.

[wp_xyz]

Wofür ist eigentlich Screen.MenuFont? Hat bei mir keinen Effekt (Win 10, Mint)

[Michl]

Wofür ist eigentlich Screen.MenuFont? Hat bei mir keinen Effekt (Win 10, Mint)

Hier geht es (Windows 7):

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  aFont: TFont;
begin
  aFont := Screen.MenuFont;
  Caption := aFont.Name;
end;  

[Mathias]

Ich dachte, damit könnten man auslesen, wie der Font im System eingestellt ist.
Aber bei Size und Height kommt nur 0.
Und bei Name "default".

[Michl]

Ja, unter Linux Mint KDE GKT2 kommt nur "default" als Fontname und FontSize 0, bei Windows 7 classic Theme "Tahoma" und 8.

[wp_xyz]

Wofür ist eigentlich Screen.MenuFont? Hat bei mir keinen Effekt (Win 10, Mint)

Hier geht es (Windows 7)...

Ich dachte, damit könnten man auslesen, wie der Font im System eingestellt ist.

Ach ja, jetzt fällt es mir wieder ein: damit konnte man bei Delphi 7 dafür sorgen, dass der bei Formularen als Default eingebaute, pixelige MS Sans Serif Font durch einen des Betriebssystems (Screen.MenuFont, Screen.IconFont) ersetzt wird:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  Font := Screen.IconFont;
end;

[malabarista]

OK. Dann lasse ich es so wie es ist.

[wp_xyz]

OK. Dann lasse ich es so wie es ist.

Falls jemand anders als du selbst mit dem Programm arbeiten soll, ist das auch besser so. Viele Benutzer sehen es gar nicht gern, wenn ein Programm meint, "bessere" Einstellungen zu haben als das Betriebssystem.

[compmgmt]

Falls jemand anders als du selbst mit dem Programm arbeiten soll, ist das auch besser so. Viele Benutzer sehen es gar nicht gern, wenn ein Programm meint, "bessere" Einstellungen zu haben als das Betriebssystem.

z.B. wenn ein Programm ein eigenen VisualStyle mitbringt. Wenn es nur ein Button oder eine ScrollBar ist, ok. Aber wenn das komplette Fenster aussieht als würde es nicht zum OS gehören kotze ich.

[Mathias]

z.B. wenn ein Programm ein eigenen VisualStyle mitbringt. Wenn es nur ein Button oder eine ScrollBar ist, ok. Aber wenn das komplette Fenster aussieht als würde es nicht zum OS gehören kotze ich.

Das finde ich auch recht mühsam, unter Windows haben sehr viele Programme eigene Skins, und man weis bald nicht mehr wo man hin klicken muss.

Bei einem Games finde ich solche Sachen OK., aber bei Tools etc. eine Katastrophe.

[theo]

Ich dachte, damit könnten man auslesen, wie der Font im System eingestellt ist.
Aber bei Size und Height kommt nur 0.
Und bei Name "default".

So gehts bei mir auf Linux.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var fd:TFontData;
begin
 fd:=GetFontData(Font.Handle);
 ShowMessage(fd.Name+' '+inttostr(Round(fd.Height * 72 / Font.PixelsPerInch)));
end;  

[Nixsager]

z.B. wenn ein Programm ein eigenen VisualStyle mitbringt. Wenn es nur ein Button oder eine ScrollBar ist, ok. Aber wenn das komplette Fenster aussieht als würde es nicht zum OS gehören kotze ich.

Mir geht es genauso. Opera lässt grüßen. Ich habe das Windows 98-Aussehen eingestellt (denn ich brauche und will diese grafischen Effekte nicht), und nichts aus davon zu sehen.