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