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
Aussehen unter Windows 10
Hallo Sebastian,
Lutz
Ich möchte http://www.lutz-tech.de/sb/titel.jpg das Blau anpassen.Sebastian hat geschrieben:Kannst du bitte noch etwas genauer beschreiben, was du erreichen möchtest?
Lutz
Mit dem folgenden Makro könntest du das anpassen:
Hinweis: Wir können nicht garantieren, daß dieses Makro auf Dauer funktionieren wird, da es sich hier um ein Implemetationsdetail der Symbolleiste handelt.
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;
Gruß, Sebastian
Hallo Sebastian,
Lutz
Danke funktioniert.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;
Ist schon klar.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.
Lutz