Method FormCreate

source/main.cpp:76–168

---------------------------------------------------------------------------

}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate(TObject * Sender)
{
  Application->HintHidePause = 30000; // 30 sec.
  FileReadBuffer = new BYTE[StartSizeToRead];
  CreateGrid();
  ViewFileMode = false;
  LastBalloonShowTime = 0UL;
  ApplicationExeName = GetApplicationExeName();

  // Extract program version for resources
  WORD Major, Minor, Release, Build;
  if( GetFileVersion(ApplicationExeName, Major, Minor, Release, Build) )
  {
    HiVer = (BYTE)Major;
    LoVer = (BYTE)Minor;
    RelVer = (BYTE)Release;
  }

  if( bHideToTray )
    Application->ShowMainForm = false;

  char str[MAX_PATH];
  // CSIDL_COMMON_APPDATA   C:\Documents and Settings\All Users\Application Data
  // CSIDL_LOCAL_APPDATA    C:\Documents and Settings\username\Local Settings\Application Data (nonroaming)
  if( SHGetFolderPath(NULL, CSIDL_LOCAL_APPDATA | CSIDL_FLAG_CREATE,
					  NULL, SHGFP_TYPE_CURRENT, str) == S_OK )
  {
	WorkDir = IncludeTrailingPathDelimiter(str) + "visualsyslog\\";
    if( ! DirectoryExists(WorkDir) )
      if( ! CreateDir(WorkDir) )
        ReportError2("Error creating directory: \"%s\"", WorkDir.c_str());
  }

  FileNumber = 0; // view main file by default (syslog)
  RawFile = WorkDir + "raw";
  DeleteFile(RawFile);
  ErrorlogFile = WorkDir + "errors.txt";
  //MainCfgFile = WorkDir + "cfg.ini";
  MainCfgFile = WorkDir + "cfg.xml";
  HighlightFile = WorkDir + "highlight.xml";
  ProcessFile = WorkDir + "process.xml";
  FilterFile = WorkDir + "filter.xml";

  fdb = new TStorageFileList;
    // Add default file if config file not exist
    TStorageFile * sf = new TStorageFile;
    sf->number = 0;
    sf->file = "syslog";
    fdb->Add(sf);

  MainCfg.Load(MainCfgFile, fdb);

  HP = new THighlightProfileList;
  HP->Load(HighlightFile);

  ProcessRules = new TMessProcessRuleList;
  ProcessRules->Load(ProcessFile);