cpGetSlotIDColor(SlotID,FontColor,BackColor)


Im Rennbildschirm lässt sich die Schrift-Farbe auf zwei Wegen zuweisen.




  • Farbwahldialog (Wie gewählte Farbe)
  • Slot-Farben (Slot Schrift Farbe, Slot Hintergrund Farbe)


Dieser Befehl prüft erst einmal, welche der beiden Optionen eingestellt ist. Hat der Entwickler die Farbe über den Farbauswahl-Dialog eingestellt, liefert der Befehl false.

Kommt jedoch eine der Slot-Farben zum Einsatz, ist das Ergebnis true und in dem Fall enthält das Ergebnis zusätzlich die dort hinterlegten Farbwerte für die abgefragte SlotID.

Die Slot-Farben werden nach einer Neuinstallation im

  • ConfigCenter →
  • Basis Einstellungen →
  • Allgemein →
  • Reiter Optionen →
  • Reiter Slot-Farben konfiguriert.

Allerdings lässt sich diese Einstellseite auch in die Rennbahn oder ins StartCenter verlegen.

Syntax

Befehl cpGetSlotIDColor(SlotID,FontColor,BackColor)
Funktion Liefert als Ergebnis Wahr (true), wenn im Rennbildschirm die Farben aus den Slot-Farben genutzt werden.
Typ Boolean

Codebeispiel

var
  slot : Integer;
  id : Integer;
  msg : String;
  FontColor : TColor;
  BackColor : TColor;
  schriftFarbe : TColor;
  hintergrundFarbe : TColor;

begin

  // Erste Meldungszeile in Variable schreiben
  msg := 'SlotID - Textfarbe - Hintergrundfarbe' + Chr(10) + Chr(13);
  
  // Farben für alle Slots anzeigen
  for slot := 1 to cpCountOfSlots do
  begin
  
    Cockpit.Slot := slot;
    id := Cockpit.SlotID;
  
    // Slot-Farben sind eingestellt
    if cpGetSlotIDColor(id, FontColor, BackColor) then
    begin
      schriftFarbe := FontColor;
      hintergrundFarbe := BackColor;
    end
    // Farbwahl über Auswahldialog
    else
    begin
      schriftFarbe := $000000;
      hintergrundFarbe := $FFFFFF;
    end;
    
    // Informationen für Slot in Meldungstext schreiben
    msg := msg + 'ID ' + IntToStr(id) + ' - (' + 
               VarToStr(schriftFarbe) + ') - (' + 
               VarToStr(hintergrundFarbe) + ')' + Chr(10) + Chr(13);
    
  end;
  
  // Meldung anzeigen
  cpShowMessage(msg);

end.

Dieser Code zeigt die Schrift- und Hintergrundfarbe aus der Konfiguration in einem Meldungsfenster, sofern das im geöffneten Rennbildschirm verwendet wird.


Start - FAQ - Glossar - Sitemap - Impressum

 
cockpit-xp/addon/befehlsreferenz/cpgetslotidcolor.txt · Zuletzt geändert: 2020/11/28 12:15 (Externe Bearbeitung)