Class TFrmEventsDemo (unit cm_even)

Inherits from

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;

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;



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;