Im Rennbildschirm lässt sich die Schrift-Farbe auf zwei Wegen zuweisen.
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
Allerdings lässt sich diese Einstellseite auch in die Rennbahn oder ins StartCenter verlegen.
Befehl | cpGetSlotIDColor(SlotID,FontColor,BackColor) |
---|---|
Funktion | Liefert als Ergebnis Wahr (true) , wenn im Rennbildschirm die Farben aus den Slot-Farben genutzt werden. |
Typ | Boolean |
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.