PerfLogUnit.cpp

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

#include <vcl.h>
#pragma hdrstop

#include "PerfLogUnit.h"
#include "Utilities.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TPerfLogForm *PerfLogForm;
//---------------------------------------------------------------------------
__fastcall TPerfLogForm::TPerfLogForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TPerfLogForm::FormCreate(TObject *Sender)
{
    PerfLogForm->Visible = false;
    PerfLogForm->Top = 0; //modified when displayed
    PerfLogForm->Left = 0;
    PerfLogForm->Width = 486;      //added 10 for c++Builder v11.3 from v10.4 to display correctly at v2.20.0
    PerfLogForm->Height = 306;   //added 10 for c++Builder v11.3 from v10.4 to display correctly at v2.20.0
    PerformanceLogBox->Top = 0; //relative to form
    PerformanceLogBox->Left = 0;
    PerformanceLogBox->Width = PerfLogForm->Width - 18; //form has to be 8 wider than content to display content correctly + 10 added as above for c++Builder v11.3 at v2.20.0
    PerformanceLogBox->Height = PerfLogForm->Height - 43; //to allow for title bar   + 10 added as above for c++Builder v11.3 at v2.20.0
}
//---------------------------------------------------------------------------

void TPerfLogForm::PerformanceLog(int Caller, AnsiString Statement)
{
    Utilities->CallLog.push_back(Utilities->TimeStamp() + "," + AnsiString(Caller) + ",PerformanceLog," + Statement);
    Utilities->PerformanceFile << Statement.c_str() << '\n';
    Utilities->PerformanceFile.flush(); //added at v2.13.0
    PerformanceLogBox->Lines->Add(Statement);
    Utilities->CallLogPop(1479);
}

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

void __fastcall TPerfLogForm::FormResize(TObject *Sender)
{
    PerformanceLogBox->Top = 0; //relative to form
    PerformanceLogBox->Left = 0;
    PerformanceLogBox->Width = PerfLogForm->Width - 18; //form has to be 8 wider than content to display content correctly + 10 added as above for c++Builder v11.3 at v2.20.0
    PerformanceLogBox->Height = PerfLogForm->Height - 43; //to allow for title bar   + 10 added as above for c++Builder v11.3 at v2.20.0
}
//---------------------------------------------------------------------------