Seite 1 von 1

Aussehen unter Windows 10

Verfasst: So Mär 06, 2016 6:09 pm
von elo22
Hallo,
mein Songbeamer läuft hier unter Windows 10. Da ich Probleme mit den Augen habe möchte ich das Aussehen anpassen. Wo muss ich hin?

Lutz

Verfasst: Di Mär 08, 2016 9:05 am
von Sebastian
Kannst du bitte noch etwas genauer beschreiben, was du erreichen möchtest?

Verfasst: Mi Mär 09, 2016 5:41 pm
von elo22
Hallo Sebastian,
Sebastian hat geschrieben:Kannst du bitte noch etwas genauer beschreiben, was du erreichen möchtest?
Ich möchte http://www.lutz-tech.de/sb/titel.jpg das Blau anpassen.

Lutz

Verfasst: Do Mär 10, 2016 3:28 pm
von Sebastian
Mit dem folgenden Makro könntest du das anpassen:

Code: Alles auswählen

var
  dxBarManager: TComponent;
  dxBarManagerBar: TComponent;
  Farbe: TColor;
begin
  Farbe := clWhite; // oder Farbe := $FFFFFF; (kann aus SongBeamer Farbddialogen übernommen werden, muß aber in der Reihenfolge geändert werden #RRGGBB --> $BBGGRR
  
  // Toolbar
  dxBarManagerBar := Application.MainForm.FindComponent('dxBarManager1Bar1');
  SetOrdProp(dxBarManagerBar, 'Color', Farbe);

  dxBarManagerBar := Application.MainForm.FindComponent('dxBarManager1Bar2');
  SetOrdProp(dxBarManagerBar, 'Color', Farbe);

  dxBarManagerBar := Application.MainForm.FindComponent('dxBarManager1Bar3');
  SetOrdProp(dxBarManagerBar, 'Color', Farbe);
  
  // Bar Style
  dxBarManager := Application.MainForm.FindComponent('dxBarManager1');
  SetOrdProp(dxBarManager, 'Style', 2);   // unterstützte Werte: 0 - 5

  // Hintergrund
  Application.MainForm.Color := Farbe;
end;
Hinweis: Wir können nicht garantieren, daß dieses Makro auf Dauer funktionieren wird, da es sich hier um ein Implemetationsdetail der Symbolleiste handelt.

Verfasst: Fr Mär 11, 2016 6:11 pm
von elo22
Hallo Sebastian,
Sebastian hat geschrieben:Mit dem folgenden Makro könntest du das anpassen:

Code: Alles auswählen

var
  dxBarManager: TComponent;
  dxBarManagerBar: TComponent;
  Farbe: TColor;
begin
  Farbe := clWhite; // oder Farbe := $FFFFFF; (kann aus SongBeamer Farbddialogen übernommen werden, muß aber in der Reihenfolge geändert werden #RRGGBB --> $BBGGRR
  
  // Toolbar
  dxBarManagerBar := Application.MainForm.FindComponent('dxBarManager1Bar1');
  SetOrdProp(dxBarManagerBar, 'Color', Farbe);

  dxBarManagerBar := Application.MainForm.FindComponent('dxBarManager1Bar2');
  SetOrdProp(dxBarManagerBar, 'Color', Farbe);

  dxBarManagerBar := Application.MainForm.FindComponent('dxBarManager1Bar3');
  SetOrdProp(dxBarManagerBar, 'Color', Farbe);
  
  // Bar Style
  dxBarManager := Application.MainForm.FindComponent('dxBarManager1');
  SetOrdProp(dxBarManager, 'Style', 2);   // unterstützte Werte: 0 - 5

  // Hintergrund
  Application.MainForm.Color := Farbe;
end;
Danke funktioniert.
Sebastian hat geschrieben: Hinweis: Wir können nicht garantieren, daß dieses Makro auf Dauer funktionieren wird, da es sich hier um ein Implemetationsdetail der Symbolleiste handelt.
Ist schon klar.

Lutz