===== cpGetSlotIDColor(SlotID,FontColor,BackColor) =====
\\
 Im Rennbildschirm lässt sich die Schrift-Farbe auf zwei Wegen zuweisen.

{{:cockpit-xp:addon:befehlsreferenz:addon-cpgetslotidcolor-rbs-konfig.png?nolink  |}} \\
 \\
 \\
  * Farbwahldialog (Wie gewählte Farbe)
  * Slot-Farben (Slot Schrift Farbe, Slot Hintergrund Farbe)
\\
 
{{ :cockpit-xp:addon:befehlsreferenz:addon-cpgetslotidcolor-slot-farben-konfig.png?nolink&300|}} 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 =====

<Code:pascal linenums>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.</Code> 

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

{{ :cockpit-xp:addon:befehlsreferenz:addon-cpgetslotidcolor-meldung.png?nolink |}}

----

[[cockpit-xp:start|Start]] - [[cockpit-xp:faq|FAQ]] - [[cockpit-xp:glossar|Glossar]] - [[cockpit-xp:sitemap|Sitemap]] - [[cockpit-xp:impressum|Impressum]]