Witam.
Jesli chcemy zmienić kolor Labela to mamy do dyspozycji ok 10 kolorów. Możemy napisać :
Label1.Color := clBlue;
A co zrobić jeśli taki kolor nam nieodpowiada. Chcemy uzyskać inny odcień.
Witam.
Jesli chcemy zmienić kolor Labela to mamy do dyspozycji ok 10 kolorów. Możemy napisać :
Label1.Color := clBlue;
A co zrobić jeśli taki kolor nam nieodpowiada. Chcemy uzyskać inny odcień.
F1 i szukaj TColor type.
opcja 1.
var
StaryKolor,Kolor:TColor;
begin
StaryKolor:=Label1.Color;//zapamiętanie starego koloru
Kolor:=RGB(x,y,z); //określenie nowego koloru
Label1.Color:=Kolor; //przypisanie nowego koloru
...
Label1.Color:=StaryKolor;//powrót do starego koloru
end;
opcja 2.
begin
Label1.Color:=RGB(x,y,z);
...
end;
gdzie x - składowa czerwieni, y - składowa zieleni a z - składowa koloru niebieskiego. Wszystkie typu Byte.
ok. Dzięki.
Ja tam polecam użycie zapisu szesnastkowego. W kolejności BGR (żeby było trudniej :D) podstawiane zamiast funkcji RGB. Jest to najprościej w świecie szybsze (w sensie wykoniania, niekoniecznie oprogramowania).