[delphi] jak zapisać kolor do pliku ini

0

Witam
Mam na formie 20 Edit`ów i w pewien sposób zmieniam kolor kilku z nich z białego na niebieski. I teraz potrzebuję zapisać do pliku ini ( musi to być do ini) które z tych Edit'ów mają zmieniony kolor żeby później muc odczytac ten plik i mieć zaznaczone te które wcześniej zostały zapisane do tegoż pliu.
Nie wiem czy tak się da ale może to do czegoś się przyda:

for EE:=1 to 64 do
begin
If TEdit(FindComponent('Edit'+IntToStr(EE))).Color = clBlue then
...........
..........
// no właśnie i co dalej

**
A tak przy okazji robię program do minimalizowania tablic Karnougha jeżeli ktoś mógłby mi w tym pomóc byłbym baaaaardzo wdzięczny.
**

lusio pozdrawia

0

chyba powinieneś zamienić najpierw kolor na string i tak go zapisać
jest jakaś funkcjia ColorToString czy cuś takiego albo ColorToRgb--__________________________________
Pozdrawiam...
piechnat

0

A nie prościej:

ini.writeinteger('Sekcja', 'Nazwa', Jakiś_TColor);

?? :)---------------------------
Delphi 6

Pozdrówka

0

To jest tylko przykład...Dorzucasz na forme ColorDialog

procedure TForm1.FormCreate(Sender: TObject);
var
Ini: TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'kolor.ini');
Form1.Color:=TColor(Ini.ReadInteger('Kolory','Tło',clBtnFace));
Ini.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Ini: TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'kolor.ini');
if ColorDialog1.Execute then Ini.WriteInteger('Kolory','Tło',Integer(ColorDialog1.Color));
Ini.Free;
Form1.color:=ColorDialog1.color;
ShowMessage('Po ponowny uruchomieniu programu widoczny będzie wybrany kolor.');
end;

--
[email protected]
POZDRAWIAM
DELPHI RULEZ
NIECH MOCz BĘDZIE Z WAMI
:-))

1 użytkowników online, w tym zalogowanych: 0, gości: 1