Gibt es eine Möglichkeit die Schrift im Editor zu vergrössern?
Lutz
Schriftgrösse im Editor
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
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:
Zum Zurücksetzen:
Code: Alles auswählen
IniSFS.Song.EditorFontName := 'Tahoma'; //Schrift Name
IniSFS.Song.EditorFontSize := 22; //Schriftgröße
Code: Alles auswählen
IniSFS.Song.EditorFontName := '';
IniSFS.Song.EditorFontSize := 0;
ShowMessage('Bitte SongBeamer neu starten!');
Gruß, Sebastian
Kam erst gerade dazu es zu testen. Schäm.Sebastian hat geschrieben:Zum Zurücksetzen:Code: Alles auswählen
IniSFS.Song.EditorFontName := 'Tahoma'; //Schrift Name IniSFS.Song.EditorFontSize := 22; //Schriftgröße
Code: Alles auswählen
IniSFS.Song.EditorFontName := ''; IniSFS.Song.EditorFontSize := 0; ShowMessage('Bitte SongBeamer neu starten!');
Danke, das habe ich gesucht.
Lutz