IDR/StringInfo.cpp at main · sarog/IDR · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "StringInfo.h"
#include "Misc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFStringInfo_11011981 *FStringInfo_11011981;
//---------------------------------------------------------------------------
__fastcall TFStringInfo_11011981::TFStringInfo_11011981(TComponent *Owner)
    : TForm(Owner) {}

//---------------------------------------------------------------------------
void __fastcall TFStringInfo_11011981::FormKeyDown(TObject *Sender,
                                                   WORD &Key, TShiftState Shift) {
    if (Key == VK_ESCAPE) ModalResult = mrCancel;
}

//---------------------------------------------------------------------------
void __fastcall TFStringInfo_11011981::FormCreate(TObject *Sender) {
    ScaleForm(this);
}

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