mainform.cpp

C++ BUILDER精彩编程实例集锦(源码) 第一部分 界面设计 第二部分 程序设置

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

#include <vcl.h>
#pragma hdrstop

#include "MainForm.h"
#include <dir.h>
#include <vcl\Clipbrd.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  this->Memo1->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  this->Memo1->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
  int iFileHandle;
  int iFileLength;
  int iBytesRead;
  char *pszBuffer;
  if (OpenDialog1->Execute())
  {
    try
    {
      iFileHandle = FileOpen(OpenDialog1->FileName, fmOpenRead);
      iFileLength = FileSeek(iFileHandle,0,2);
      FileSeek(iFileHandle,0,0);
      pszBuffer = new char[iFileLength+1];
      iBytesRead = FileRead(iFileHandle, pszBuffer, iFileLength);
      FileClose(iFileHandle);
      this->Memo1->Text=pszBuffer;
      delete [] pszBuffer;
    }
    catch(...)
    {
      Application->MessageBox("Can't perform one of the  file read operation", "Alert", IDOK);
    }
   }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
  char szFileName[MAXFILE+4];
  int iFileHandle;
  int iLength;
  if (SaveDialog1->Execute())
  {
    if (FileExists(SaveDialog1->FileName))
    {
      fnsplit(SaveDialog1->FileName.c_str(), 0, 0, szFileName, 0);
      strcat(szFileName, ".BAK");
      RenameFile(SaveDialog1->FileName, szFileName);
    }
    iFileHandle = FileCreate(SaveDialog1->FileName);
    FileWrite(iFileHandle,this->Memo1->Text.c_str(),this->Memo1->Text.Length());
    FileClose(iFileHandle);
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn4Click(TObject *Sender)
{
   this->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::OnCreate(TObject *Sender)
{
  Application->OnIdle=OnIdle;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OnIdle(TObject* Sender,bool& Done)
{
  if(this->Memo1->SelLength>0)
  {  //允许使用“复制”按钮
     this->BitBtn5->Enabled=true;
     //允许使用“剪切”按钮
     this->BitBtn6->Enabled=true;
  }
  else
  {  //禁止使用“复制”按钮
     this->BitBtn5->Enabled=false;
     //禁止使用“剪切”按钮
     this->BitBtn6->Enabled=false;
  }
  if(this->Memo1->Modified)
  {  //允许使用“保存”按钮
     this->BitBtn3->Enabled=true;
  }
  else
  {  //禁止使用“保存”按钮
     this->BitBtn3->Enabled=false;
  }
  if(this->Memo1->Lines->Count>0)
  { //允许使用“全选”按钮
    this->BitBtn8->Enabled=true;
  }
  else
  { //禁止使用“全选”按钮
    this->BitBtn8->Enabled=false;
  }
  if(Clipboard()->HasFormat(CF_TEXT))
  { //允许使用“粘贴”按钮
    this->BitBtn7->Enabled=true;
  }
  else
  { //禁止使用“粘贴”按钮
    this->BitBtn8->Enabled=false;
  }
}