Czy moze mi ktos powiedziec jak ustawić kolr np. mam go w wartości hexadecymalnej no ale mozna do jakiejs innej skonwetować i chce tego kokloru użyc jako tla formy ??
Za pomoc z góry dziekuje.
Czy moze mi ktos powiedziec jak ustawić kolr np. mam go w wartości hexadecymalnej no ale mozna do jakiejs innej skonwetować i chce tego kokloru użyc jako tla formy ??
Za pomoc z góry dziekuje.
Hexadecymalnej, czyli #FFFFFF? Usuń pierwszy znak (po co ci #?) i potraktuj taką funkcją:
function HexToDec(Hex: string): Cardinal;
var
T, n, Sum: Integer;
begin
Sum:=0;
for n:=1 to Length(Hex) do
begin
T:=0;
case Hex[n] of
'0'..'9': T:=StrToInt(Hex[n]);
'A'..'F': T:=Ord(Hex[n])-55;
end;
Suma:=Sum+(T*Round(Power(16,Length(Hex)-n)));
end;
Result:=Sum;
end;
Przypisz wynik do Form.Color i powinno zadziałać.
StringToColor i będzie... przyjmuje nawet $00FACE00
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.