searchin.cpp

《C++ Builder 5技术内幕》一书附带的程序源代码

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Searchin.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TDlgSearching *DlgSearching;
//---------------------------------------------------------------------
__fastcall TDlgSearching::TDlgSearching(TComponent* AOwner)
	: TForm(AOwner)
{
  nCurrReferRec = 0;
  nLastReferRec = MainFormRefer->m_prlReferList->Count;
}
//---------------------------------------------------------------------
void __fastcall TDlgSearching::FormActivate(TObject *Sender)
{
  Repaint();
  IsSearching();
}
//---------------------------------------------------------------------------
void __fastcall TDlgSearching::IsSearching()
{
//  int nPrecent = nLastReferRec / 100;
  for( int i=1; i<=nLastReferRec; i++ )
  {
    nCurrReferRec = i;
    for( int j=0; j<10000000; j++ ) {}
    ProgressBarSearching->Position = i * 100 / nLastReferRec;
//  After change the position of the progress bar, the form or the progress bar per se must be repaint!
//    Repaint();
  ProgressBarSearching->Repaint();
  }
  AnimateFind->Active = false;
  ButtonOK->Enabled = true;
//  ButtonOK->Default = true;
  ButtonOK->SetFocus();

}