| Class TFrmEventsDemo (unit cm_even) |
TForm
| Constructors |
| Functions |
procedure btnFileClick(Sender: TObject);
procedure cbxChange(Sender: TObject);
procedure cbxDrawClick(Sender: TObject);
procedure cbxDrawKeyClick(Sender: TObject);
procedure cbxFontChange(Sender: TObject);
procedure ColorMemo1Draw(Sender: TObject; FromPos: PChar;
var A: array of TKeyDescr; var ItemsCount: Integer);
procedure ColorMemo1DrawKey(Canvas: TCanvas; const PKey: String;
Rect: TRect; KColor: TColor);
procedure eSearchExit(Sender: TObject);
procedure eSearchKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure LoadIt;| Properties |
| Events |
| Variables |
btnFile : TButton;
cbxBold : TCheckBox;
cbxDraw : TCheckBox;
cbxDrawKey : TCheckBox;
cbxFont : TComboBox;
cbxItalic : TCheckBox;
cbxUnderline : TCheckBox;
ColorMemo1 : TColorMemo;
eFile : TEdit;
eSearch : TEdit;
gbxDraw : TGroupBox;
Label13 : TLabel;
lblFonts : TLabel;
lblSearch : TLabel;
ODlg : TOpenDialog;
pnlDrawKey : TPanel;| Constructors |
| Functions |
procedure btnFileClick(Sender: TObject);
procedure cbxChange(Sender: TObject);
procedure cbxDrawClick(Sender: TObject);
procedure cbxDrawKeyClick(Sender: TObject);
procedure cbxFontChange(Sender: TObject);
procedure ColorMemo1Draw(Sender: TObject; FromPos: PChar;
var A: array of TKeyDescr; var ItemsCount: Integer);
procedure ColorMemo1DrawKey(Canvas: TCanvas; const PKey: String;
Rect: TRect; KColor: TColor);
procedure eSearchExit(Sender: TObject);
procedure eSearchKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure LoadIt;Public declarations
| Properties |
| Events |
| Variables |
btnFile : TButton;
cbxBold : TCheckBox;
cbxDraw : TCheckBox;
cbxDrawKey : TCheckBox;
cbxFont : TComboBox;
cbxItalic : TCheckBox;
cbxUnderline : TCheckBox;
ColorMemo1 : TColorMemo;
eFile : TEdit;
eSearch : TEdit;
gbxDraw : TGroupBox;
Label13 : TLabel;
lblFonts : TLabel;
lblSearch : TLabel;
ODlg : TOpenDialog;
pnlDrawKey : TPanel;