Schriftart für Liederbuchnummer

[Hawkzfan]

Hi @ SongBeamer Support und den Rest,

die Frage bzgl. der Formatierung der Liederbuchnummern wurde ja schon viel geschrieben. Ich verstehe auch die Problematik, nur kann ich diese für die Schriftart nicht nachvollziehen. Deswegen dacht ich mir, ich spreche dieses nochmal an, weil ich glaube dass das Einstellen der Schriftart irgendwie untergegangen ist.

Anderer Vorschlag bzgl. Liederbuchnummer: Ihr könntet die Liederbuchnummer auch in den Titel setzen.
Zum Beispiel: Liedtitel (Liederbuchnummer)

Danke für eure Aufmersamkeit und Hilfe


keep on checking
Hawkzfan

[Sebastian]

Das Problem der Schriftformatierung der Liedernummer ist, daß jede zusätzliche Schriftauswahlbox in den Optionen die Startzeit von SongBeamer spürbar verzögert (Wir haben dort schon ziemlich optimiert... und einige Sekunden herausgeholt. Das Problem liegt da jetzt aber eher bei Windows.)

Was ich als Kompromiß anbieten kann ist eine Einstellmöglichkeit per SongBeamer-Script.
Einfach die folgende Zeile im Scripteditor einfügen und ausführen. Vorher sollte man noch die gewünschte Schriftart zwischen die '...' setzen.

Code: Alles auswählen

IniSFS.Song.ChurchSongID_FontName := 'Georgia';

bzw. zum Zurücksetzen:

Code: Alles auswählen

IniSFS.Song.ChurchSongID_FontName := '';

Diese Einstellung bleibt auch nach einem Neustart von SongBeamer erhalten. Benötigt wird mindestens die kommende Version 2.51c.

[Hawkzfan]

Hallo!

Danke @ Sebastian für die Möglichkeit!

Könntest du aber bitte noch genauer erklären, wie das nun funktioniert? Denn meine Versuche scheitern immernoch (naja, einmal blöd immer blöd )

keep on checking
Hawkzfan

[Sebastian]

Also in SongBeamer: Extras->Makros

Dann das folgende Programm eingeben (oder besser in die Zwischenablage kopieren, abschreiben wäre etwas mühsam):

Code: Alles auswählen

uses
  Forms, Buttons, StdCtrls;

var
  C: TComboBox;
  F: TForm;
  L: TLabel;
  btnOk: TBitBtn;
  btnCancel: TBitBtn;
  
begin
  F := TForm.Create(nil);
  try
    F.Position := poMainFormCenter;
    F.BorderStyle := bsDialog;
    L := TLabel.Create(F);
    L.Parent := F;
    L.Left := 10;
    L.Top := 10;
    L.Caption := 'Schriftart für Liederbuchnummer wählen: ';
    F.Height := 170;
    F.Width := 290;
    btnOk := TBitBtn.Create(F);
    btnOk.Parent := F;
    btnOk.Caption := 'Ok';
    btnOk.Kind := bkOk;
    btnOk.SetBounds(80, 100, 90, 25);
    
    btnCancel := TBitBtn.Create(F);
    btnCancel.Parent := F;
    btnCancel.Caption := 'Abbrechen';
    btnCancel.SetBounds(180, 100, 90, 25);
    btnCancel.Kind := bkCancel;
    
    C := TComboBox.Create(F);
    C.Parent := F;
    C.SetBounds(10, 30, 260, 21);
    C.Style := csDropDownList;
    C.Items.Assign(Screen.Fonts);
    C.Items.Add(''); // Leerer Eintrag = Standard verwenden
    C.Sorted := True;
    C.ItemIndex := C.Items.IndexOf(IniSFS.Song.ChurchSongID_FontName);
    if F.ShowModal = mrOk then
    begin
      IniSFS.Song.ChurchSongID_FontName := C.Text;
      Reload;
    end;
  finally
    F.Free;
  end;
end;

Dann F9 drücken um das Makro zu starten.

[Christian Barz]

Hi Sebastian,

ich habe beim ausführen des Scriptes die Fehlermeldung bekommen:

“Property “IniSFS“ not found“
Module: “main“
Linenumber: “42“
Line:“ C.ItemIndex:=
C.Items.IndexOf(IniSFS.Song.ChurchSongID_FontName); “

[Sebastian]

ich habe beim ausführen des Scriptes die Fehlermeldung bekommen:

Dann solltest du mal die aktuelle Version von SongBeamer installieren

[Christian Barz]

Hi,

ich habe die Version 2.50, da erscheint die Fehlermeldung.
Brauche ich die 2.51c Version?

Wenn ja welcher Link?

[Sebastian]

Brauche ich die 2.51c Version?

Wenn ja welcher Link?

Der Link ist eigentlich immer derselbe:
http://www.songbeamer.de/bin/SongBeamer ... _Forum.exe

[Christian Barz]

Hi Sebastian,

hatte auch den Link aufgerufen, jedoch hat mein Downloadmanager was durcheinander gebracht.
Habe jetzt das Update ganz normal runter geladen, der Script läuft bestens.

DANKE