Σε Δελφοί, ο τύπος TColor καθορίζει το χρώμα ενός αντικειμένου. Χρησιμοποιείται από την ιδιότητα χρώματος πολλών στοιχείων και από άλλες ιδιότητες που καθορίζουν τις τιμές χρώματος.
Η μονάδα γραφικών περιέχει ορισμούς χρήσιμων σταθερών για το TColor. Για παράδειγμα, clBlue χάρτες σε μπλε, clRed χάρτες σε κόκκινο χρώμα.
Περισσότερες τιμές "CL" = περισσότερα χρώματα
Μπορείτε να ορίσετε το TColor ως 4-byte δεκαεξαδικό αριθμό αντί να χρησιμοποιήσετε τις σταθερές που ορίζονται στη μονάδα γραφικών. Τα χαμηλά τρία byte αντιπροσωπεύουν εντάσεις χρώματος RGB (κόκκινο, πράσινο, μπλε) για το μπλε, το πράσινο και το κόκκινο, αντίστοιχα. Σημειώστε την αντιστροφή από τυπικό δεκαεξαδικό χρώμα: Για το TColor, η ακολουθία είναι μπλε-πράσινο-κόκκινο.
Για παράδειγμα, το κόκκινο μπορεί να οριστεί ως TColor ($ 0000FF).
Μετατροπή RBG σε TColor
Αν έχετε τιμές για κόκκινες, πράσινες και μπλε εντάσεις (αριθμός από 0 έως 255 - τύπος "byte"), εδώ θα βρείτε τον τρόπο λήψης της τιμής TColor:
var r, g, b: Byte. χρώμα: TColor;
ξεκινήσει r: = ΣΤΡΑΤΗΓΟΣ (ledRed. Κείμενο); g: = ΣΤΡΑΤΟΣ (ledGreen. Κείμενο); β: = ΣΤΡΑΤΟΣ (ledBlue. Κείμενο); χρώμα: = RGB (r, g, b). Shape1.Brush. Χρώμα: = χρώμα; τέλος; Τα "ledRed", "ledGreen" και "ledBlue" είναι τρία στοιχεία ελέγχου που χρησιμοποιούνται για τον προσδιορισμό της έντασης κάθε στοιχείου χρώματος. Το Shape1 είναι ένας έλεγχος TShape Delphi.
Πλοηγός συμβουλών Delphi:
»Τρόπος ανάλυσης αρχείων TAB που έχουν υποστεί επεξεργασία στους Δελφούς
«IsDirectoryEmpty - λειτουργία Delphi για να διαπιστώσετε εάν ένας κατάλογος είναι κενός (δεν υπάρχουν αρχεία, δεν υπάρχουν υποφακέλοι)