Aussehen unter Windows 10

Alles über die neue Version 4.0
Antworten
elo22
Beiträge: 761
Registriert: So Mai 14, 2006 3:35 pm
Kontaktdaten:

Aussehen unter Windows 10

Beitrag 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
Sebastian
Site Admin
Beiträge: 5368
Registriert: Fr Nov 14, 2003 11:31 pm

Beitrag von Sebastian »

Kannst du bitte noch etwas genauer beschreiben, was du erreichen möchtest?
Gruß, Sebastian
elo22
Beiträge: 761
Registriert: So Mai 14, 2006 3:35 pm
Kontaktdaten:

Beitrag 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
Sebastian
Site Admin
Beiträge: 5368
Registriert: Fr Nov 14, 2003 11:31 pm

Beitrag 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.
Gruß, Sebastian
elo22
Beiträge: 761
Registriert: So Mai 14, 2006 3:35 pm
Kontaktdaten:

Beitrag 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
Antworten