showfile.cpp

多级目录文件管理多级目录文件管理多级目录文件管理

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "showfile.h"
#include "file.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tshowfrm *showfrm;
extern UFD *opfile;
//---------------------------------------------------------------------------
__fastcall Tshowfrm::Tshowfrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tshowfrm::BtCancelClick(TObject *Sender)
{

        this->Hide();
}
//---------------------------------------------------------------------------
void __fastcall Tshowfrm::BtSaveClick(TObject *Sender)
{
        BtSave->Enabled=false;

}
//---------------------------------------------------------------------------
void __fastcall Tshowfrm::BtOkClick(TObject *Sender)
{
        strcpy(opfile->text,Memo->Text.c_str());
        opfile->len=Memo->Text.Length();
        this->Hide();        
}
//---------------------------------------------------------------------------
void __fastcall Tshowfrm::MemoChange(TObject *Sender)
{
        BtSave->Enabled=true;
        Lsize->Caption=IntToStr(Memo->Text.Length())+"(K)";       
}
//---------------------------------------------------------------------------