Schriftgrösse im Editor

Alles über die neue Version 4.0
Antworten
elo22
Beiträge: 771
Registriert: So Mai 14, 2006 3:35 pm
Kontaktdaten:

Schriftgrösse im Editor

Beitrag von elo22 »

Gibt es eine Möglichkeit die Schrift im Editor zu vergrössern?

Lutz
Sebastian
SongBeamer Team
Beiträge: 6019
Registriert: Fr Nov 14, 2003 11:31 pm

Beitrag von Sebastian »

Das ist nicht vorgesehen. Wozu brauchst du das?
Gruß, Sebastian
elo22
Beiträge: 771
Registriert: So Mai 14, 2006 3:35 pm
Kontaktdaten:

Beitrag von elo22 »

Sebastian hat geschrieben:Das ist nicht vorgesehen. Wozu brauchst du das?
Meine Augen wollen trotz Doppelverglasung nicht immer so wie ich will da wäre es schon schöner ich könnte das was grösser drehen.

Lutz
Sebastian
SongBeamer Team
Beiträge: 6019
Registriert: Fr Nov 14, 2003 11:31 pm

Beitrag von Sebastian »

Es gibt eine inoffizielle Möglichkeit, das per Script vorübergehend umzustellen:

Code: Alles auswählen

uses
  Forms, Classes, Controls, Graphics;

var
  I, J, K: Integer;
  SongEditor: TForm;
  SongMemo: TPersistent;
  Font: TFont;

begin
  for I := 0 to Screen.FormCount - 1 do
    if Screen.Forms[i].ClassName = 'TEditForm' then
    begin
      SongEditor := Screen.Forms[i];
      for J := 0 to SongEditor.ComponentCount - 1 do
      begin      
        if SongEditor.Components[J].Name = 'SongMemo' then
        begin
          SongMemo := SongEditor.Components[J];
          Font := GetObjectProp(SongMemo, 'Font');
          Font.Height := 22; // Schriftgröße für Editor
        end;
      end;
    end;
end.
Gruß, Sebastian
Sebastian
SongBeamer Team
Beiträge: 6019
Registriert: Fr Nov 14, 2003 11:31 pm

Beitrag von Sebastian »

Da es doch schon ein paar vereinzelte Anfragen gibt, und die obige Variante zu stark auf interne Details geht, die sich jederzeit ändern können, haben wir uns entschlossen, ab Version 4.11b eine bessere Variante anzubieten, die auch nach einem Neustart erhalten bleibt. Dazu eines der folgenden Macros ausführen:

Code: Alles auswählen

IniSFS.Song.EditorFontName := 'Tahoma'; //Schrift Name
IniSFS.Song.EditorFontSize := 22; //Schriftgröße
Zum Zurücksetzen:

Code: Alles auswählen

IniSFS.Song.EditorFontName := '';
IniSFS.Song.EditorFontSize := 0;
ShowMessage('Bitte SongBeamer neu starten!');
Gruß, Sebastian
elo22
Beiträge: 771
Registriert: So Mai 14, 2006 3:35 pm
Kontaktdaten:

Beitrag von elo22 »

Sebastian hat geschrieben:

Code: Alles auswählen

IniSFS.Song.EditorFontName := 'Tahoma'; //Schrift Name
IniSFS.Song.EditorFontSize := 22; //Schriftgröße
Zum Zurücksetzen:

Code: Alles auswählen

IniSFS.Song.EditorFontName := '';
IniSFS.Song.EditorFontSize := 0;
ShowMessage('Bitte SongBeamer neu starten!');
Kam erst gerade dazu es zu testen. Schäm.:oops:
Danke, das habe ich gesucht.

Lutz
Antworten