[Delphi5] Zapisywanie ustawień TCoolBar'a

Jak zapisać i odczytać ustawienia pasków narzędzi w TCoolBar'ze. Chodzi mi o to, że jak użytkownik sobie TCoolBand'y poukłada, to żeby program to zapisał.

--
;) Szymek

Rejestrem. Chociaz chyba byla nawet funkcja zapisujaca do pliku ustawienia komponentu ale gdzie ja ja widzialem sobie juz nie przypomne :)

--
Pozdrawiam [cya] Tomasz K.

Artykul o strumieniach :)

Strumienie umożliwiają także zapisywanie do pliku ustawień komponentów - np. położenia komponentu na formie itp. Do tego służą polecenia: WriteComponent oraz ReadCompoennt.

Proszę bardzo - zapisanie komponentu o nazwie "btnMove" do pliku:

var
FileStream : TFileStream;
begin
if FileExists('setup.txt') then // jezeli istnieje plik
FileStream := TFileStream.Create('setup.txt', fmOpenWrite) else
FileStream := TFileStream.Create('setup.txt', fmCreate); //w przeciwnym wypadku stworz plik

FileStream.WriteComponent(btnMove); // zapisz ustawienia komponentu TButton
FileStream.Free; // zwolnij zmienna

W tym wypadku jeżeli plik nie istnieje to zostanie stworzony, a jeżeli istnieje - zostanie jedynie otwarty do zapisu.

Teraz odczyt wygląda bardzo podobnie:

procedure TMainForm.FormCreate(Sender: TObject);
var
FileStream : TFileStream;
begin
if not FileExists('setup.txt') then Exit; //jezeli plik nie istnieje - nie rob nic

FileStream := TFileStream.Create('setup.txt', fmOpenRead); //otworz tylko do odczytu
FileStream.ReadComponent(btnMove); // odczytaj ustawienia komponentu
FileStream.Free;
end;

--
Pozdrawiam [cya] Tomasz K.