Ĺadny brzuch
1. co zrobic by po zmianie ustawien w programie (np zmiana koloru tla, czcionki itd) zapisac je do pliku *.ini:?
2. co zrobic gdy w memo zmieniam czcionke i chce zapisac do pliku (np *.doc)to gdy zapisze i otworze ten plik to czcionka tego tekstu (w tym pliku) jest standartowa tzn, czarna, rozmiar 10
jak to zmienic:?
//maros//
1. uses iniFiles; var ini : TIniFile; begin ini := TIniFIle.create('c:'); ini.writeInteger('Ustawienia', 'Kolor', TForm1.color); end;
To tylko jeden przykład. Będziesz musiał poczytać troche o plikach ini
2. Zamiast memo użyj RichEdit i właściwości PlainText := false
BTW: Nie zapisuj do pliku doc, bo i tak twój program pliku doc stworzonego w wordzie nie otworzy. Użyj rozszerzenia .wri albo jakieś swoje wymyśl...
http://www.cinek.glt.pl
(potrzebni betatesterzy :) więcej info na maila)
Ludzie korzystajcie ze słownika!!!
1
uses inifiles
OdCzYt:
procedure TForm1.FormCreate(Sender: TObject);
var
iniFile : TIniFile;
begin
iniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'ustawienia.ini');
Edit1.Text:= inifile.ReadString('User', 'Nick', '');
iniFile.Free;
end;
ZaPiS
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
iniFile : TIniFile;
begin
iniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'nick.ini');
iniFile.WriteString('User', 'Nick', Edit1.Text);
close;
end;
2
Użyj RichEdit ;)
1. Form.Color itp + art o plikach INI na 4p
2. RichEdit.PlainText := True; PS. o *.doc narazie możesz pomarzyć
//----------------------
Darmowe oprogramowanie Tuning XPNeostradaXPtweaksoft
1. Możesz równie dobrze użyć rejestru:
http://www.ks-eksper...?TOPIC_ID=20825
To są tylko podstawowe operacje w rejestrze, ale powinny wystarczyć ;)
2. Jak już kilka osób mówiło RichEdit(i nie *.doc)
a jezeli chce zachowac kolor formy (lub innego komponentu):?
//maros//
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
2. co zrobic gdy w memo zmieniam czcionke i chce zapisac do pliku (np *.doc)to gdy zapisze i otworze ten plik to czcionka tego tekstu (w tym pliku) jest standartowa tzn, czarna, rozmiar 10
jak to zmienic:?
//maros//
1. uses iniFiles; var ini : TIniFile; begin ini := TIniFIle.create('c:'); ini.writeInteger('Ustawienia', 'Kolor', TForm1.color); end;
To tylko jeden przykład. Będziesz musiał poczytać troche o plikach ini
2. Zamiast memo użyj RichEdit i właściwości PlainText := false
BTW: Nie zapisuj do pliku doc, bo i tak twój program pliku doc stworzonego w wordzie nie otworzy. Użyj rozszerzenia .wri albo jakieś swoje wymyśl...
http://www.cinek.glt.pl
(potrzebni betatesterzy :) więcej info na maila)
Ludzie korzystajcie ze słownika!!!
1
uses inifiles
OdCzYt:
procedure TForm1.FormCreate(Sender: TObject);
var
iniFile : TIniFile;
begin
iniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'ustawienia.ini');
Edit1.Text:= inifile.ReadString('User', 'Nick', '');
iniFile.Free;
end;
ZaPiS
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
iniFile : TIniFile;
begin
iniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'nick.ini');
iniFile.WriteString('User', 'Nick', Edit1.Text);
close;
end;
2
Użyj RichEdit ;)
1. Form.Color itp + art o plikach INI na 4p
2. RichEdit.PlainText := True; PS. o *.doc narazie możesz pomarzyć
//----------------------
Darmowe oprogramowanie Tuning XPNeostradaXPtweaksoft
1. Możesz równie dobrze użyć rejestru:
http://www.ks-eksper...?TOPIC_ID=20825
To są tylko podstawowe operacje w rejestrze, ale powinny wystarczyć ;)
2. Jak już kilka osób mówiło RichEdit(i nie *.doc)
a jezeli chce zachowac kolor formy (lub innego komponentu):?
//maros//