


Memo1 | Memo2
______________
Memo3 | Memo4


void __fastcall TForm1::FormCreate(TObject *Sender)
{
adresy->Strings->LoadFromFile("data/adress.dat
if(FileExists("data\\pos.ini"))
{
TIniFile *params = new TIniFile(ExtractFilePath(Application->ExeName) + "data\\pos.ini");
Splitter1->Top = params->ReadInteger("splitter", "adress", 1);
Splitter2->Top = params->ReadInteger("splitter", "forums", 2);
Splitter3->Top = params->ReadInteger("splitter", "topics", 3);
delete params;
}
}
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
int adress;
int topics;
int forums;
adress = Splitter1->Top;
forums = Splitter2->Top;
topics = Splitter3->Top;
TIniFile *params = new TIniFile(ExtractFilePath(Application->ExeName) + "data\\pos.ini");
params->WriteString("splitter", "adress", adress);
params->WriteString("splitter", "forums", forums);
params->WriteString("splitter", "topics", topics);
delete params;
}









Powrót do Biblioteki i komponenty
Użytkownicy przeglądający ten dział: Brak zalogowanych użytkowników i 1 gość