Jak ustawić niestandardowy kolor formy

0

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.

0

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

0

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.