Method Init

source/main.cpp:170–214

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

}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Init(bool _bLive)
{
  bLive = _bLive;
  SizeToRead = StartSizeToRead;

  // For "non-life" protocol remove functions:
  //   "Goto new line"
  //   "Clear screen"
  if( ! bLive )
  {
    aGotoNewLine->Visible = false;
    aClear->Visible = false;
  }

  *AppParams >> this >> (TStringGrid *)LogSG;

  Variant v = AppParams->Values["GotoNewMess"];
  if( ! v.IsEmpty() )
	aGotoNewLine->Checked = v;

  String FontName = AppParams->Values["FontName"];
  if( FontName.Length() > 0 )
  {
    LogSG->Font->Name = FontName;
    LogSG->Font->Size = AppParams->Values["FontSize"];
  }
  HP->CurrentProfile = AppParams->Values["HighlighProfile"];

  FillProfilePopupMenu();

  SetLinesHeight();

  fdb->GetList(SelectFileCB->Items, true);
  FileNumber = AppParams->Values["FileNumber"];
  int i = SelectFileCB->Items->IndexOfObject((TObject *)FileNumber);
  if( i < 0 )
    i = 0;
  SelectFileCB->ItemIndex = i;

  MessMatch.Load(FilterFile, false);
  MessMatchLabel->Caption = MessMatch.GetDescription();
  ClearFilterButton2->Visible = ! MessMatch.IsAllMatch();

  LogSG_LivingColumns = new TStringGridLivingColumns((TStringGrid *)LogSG);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormDestroy(TObject *Sender)
{