SongBeamer Forum

Verfasst: **Di Nov 09, 2010 2:18 am**

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

Lutz

Verfasst: **Di Nov 09, 2010 9:47 am**

Das ist nicht vorgesehen. Wozu brauchst du das?

Verfasst: **Mi Nov 10, 2010 2:23 am**

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

Verfasst: **Mi Nov 10, 2010 11:18 am**

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&#58; Integer;
  SongEditor&#58; TForm;
  SongMemo&#58; TPersistent;
  Font&#58; TFont;

begin
  for I &#58;= 0 to Screen.FormCount - 1 do
    if Screen.Forms&#91;i&#93;.ClassName = 'TEditForm' then
    begin
      SongEditor &#58;= Screen.Forms&#91;i&#93;;
      for J &#58;= 0 to SongEditor.ComponentCount - 1 do
      begin      
        if SongEditor.Components&#91;J&#93;.Name = 'SongMemo' then
        begin
          SongMemo &#58;= SongEditor.Components&#91;J&#93;;
          Font &#58;= GetObjectProp&#40;SongMemo, 'Font'&#41;;
          Font.Height &#58;= 22; // Schriftgröße für Editor
        end;
      end;
    end;
end.

Verfasst: **Mi Nov 10, 2010 11:38 am**

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 &#58;= 'Tahoma'; //Schrift Name
IniSFS.Song.EditorFontSize &#58;= 22; //Schriftgröße

Zum Zurücksetzen:

Code: Alles auswählen

IniSFS.Song.EditorFontName &#58;= '';
IniSFS.Song.EditorFontSize &#58;= 0;
ShowMessage&#40;'Bitte SongBeamer neu starten!'&#41;;

Verfasst: **Fr Jun 29, 2012 3:59 am**

Sebastian hat geschrieben:

Code: Alles auswählen

IniSFS.Song.EditorFontName &#58;= 'Tahoma'; //Schrift Name
IniSFS.Song.EditorFontSize &#58;= 22; //Schriftgröße

Zum Zurücksetzen:

Code: Alles auswählen

IniSFS.Song.EditorFontName &#58;= '';
IniSFS.Song.EditorFontSize &#58;= 0;
ShowMessage&#40;'Bitte SongBeamer neu starten!'&#41;;

Kam erst gerade dazu es zu testen. Schäm.

Danke, das habe ich gesucht.

Lutz

SongBeamer Forum

Schriftgrösse im Editor

Schriftgrösse im Editor