Форум на Исходниках.RU

object TreeView1: TTreeView Left = 0 Top = 0 Width = 129 Height = 401 Indent = 19 TabOrder = 0 OnChange = TreeView1Change Items.Data = { 030000001E0000000000000000000000FFFFFFFFFFFFFFFF0000000000000000 05312E6C6F671E0000000000000000000000FFFFFFFFFFFFFFFF000000000000 000005322E6C6F671E0000000000000000000000FFFFFFFFFFFFFFFF00000000 0000000005332E6C6F67} end object Button1: TButton Left = 80 Top = 408 Width = 49 Height = 25 Caption = 'Apply' TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 0 Top = 408 Width = 33 Height = 25 Caption = 'New' TabOrder = 2 OnClick = Button2Click end object Button3: TButton Left = 40 Top = 408 Width = 33 Height = 25 Caption = 'Del' TabOrder = 3 OnClick = Button3Click end object RichEdit1: TRichEdit Left = 136 Top = 0 Width = 513 Height = 401 Lines.Strings = ( 'RichEdit1') ScrollBars = ssVertical TabOrder = 4 end object Button4: TButton Left = 184 Top = 416 Width = 225 Height = 17 Caption = 'Button4' TabOrder = 5 end object Timer1: TTimer Interval = 60000 OnTimer = Timer1Timer Left = 88 Top = 8 end object OpenDialog1: TOpenDialog Left = 88 Top = 48 end end

TForm1 *Form1; int run=0; AnsiString select; AnsiString aDirSav; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { TreeView1->SaveToFile(aDirSav); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { aDirSav=GetCurrentDir()+"\tree.sav"; TreeView1->LoadFromFile(aDirSav); } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { if(run==1) { //Memo1->Clear(); RichEdit1->Clear(); select=TreeView1->Selected->Text; //Memo1->Lines->LoadFromFile(select); RichEdit1->Lines->LoadFromFile(select); } } //--------------------------------------------------------------------------- void __fastcall TForm1::TreeView1Change(TObject *Sender, TTreeNode *Node) { run=1; //Memo1->Clear(); RichEdit1->Clear(); select=TreeView1->Selected->Text; Memo1->Lines->LoadFromFile(select); RichEdit1->Lines->LoadFromFile(select); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { AnsiString s; if(OpenDialog1->Execute()) { s=OpenDialog1->FileName; //s=InputBox("Новый лог","Введите путь к файлу",s); TreeView1->Items->Insert(TreeView1->Items->Item[0],s); } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { TreeView1->Items->Delete(TreeView1->Selected); } //---------------------------------------------------------------------------