Inhaltsverzeichnis
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.
