Czy moze mi ktoś zamienić ta formułke która odczytuje kolor z pliku ini i ustawia go jako tło formy na formułe pobierajaca ten kolor z rejestru ...
Form1.Color:=TColor(Ini.ReadInteger('Kolory','Tło',clBtnFace));
To powyżej działa a jak pisze:
Form1.Color:=TColor(Reg.ReadInteger(Kolor);
to mi wywala błąd przy uruchamianiu programu ze jest nieprawidłowa wartość tego koloru. Wydaje mi sie ze problem lezy w konwersji tego koloru ale nie wiem czym to zastąpić wiec prosze was o pomoc ...
Z góry dzięki.
Tu masz kod:
[code]
var
Reg : TRegistry;
Klucz : Boolean;
kolory: String;
begin
Reg := TRegistry.Create;
try
Klucz := Reg.OpenKey('klucz' False); // otworz klucz
if not Klucz then
begin
Exit;
end;
kolory:= Reg.ReadString('Kolory'); // odczytaj kolory
finally
Reg.Free;
end;
end;
[/code]
Tu masz do zapisu kod:
[code]
var
Reg : TRegistry;
Klucz : Boolean;
kolory: String;
begin
Reg := TRegistry.Create;
try
Klucz := Reg.OpenKey('klucz' False); // otworz klucz
if not Klucz then
begin
Exit;
end;
kolory:= Reg.WriteString('Kolory',wartosc_do_zapisania_w_resjestrze); // odczytaj kolory
finally
Reg.Free;
end;
end;
[/code]
:)