| Class TTracerForm (unit MsgTracer) |
TForm
Delphi VCL messages
| Constructors |
| Functions |
procedure btnClearClick(Sender: TObject);
procedure btnCloseClick(Sender: TObject);
procedure btnStartClick(Sender: TObject);
procedure btnStopClick(Sender: TObject);
procedure CopylParam1Click(Sender: TObject);
procedure Copymessage1Click(Sender: TObject);
procedure CopyResult1Click(Sender: TObject);
procedure CopywParam1Click(Sender: TObject);
procedure ExAllBtnClick(Sender: TObject);
procedure ExcludeBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure IncAllBtnClick(Sender: TObject);
procedure IncludeBtnClick(Sender: TObject);
procedure MsgGridDrawCell(Sender: TObject; Col, Row: Integer;
Recty: TRect; State: TGridDrawState);
procedure Stop;
function GetFirstSelection(List: TCustomListBox): Integer;
procedure HookedWndProc(var Message: TMessage);
procedure HookWndProc(AHandle: HWND);
procedure MoveSelected(List: TCustomListBox; Items: TStrings);
procedure SetButtons;
procedure SetItem(List: TListBox; Index: Integer);
procedure SetTracerComp(Value: TMessageTracer);
procedure UnHookWndProc(AHandle: HWND);| Properties |
property TracerComp : TMessageTracer| Events |
| Variables |
btnClear : TButton;
btnClose : TButton;
btnStart : TButton;
btnStop : TButton;
CopylParam1 : TMenuItem;
Copymessage1 : TMenuItem;
CopyResult1 : TMenuItem;
CopywParam1 : TMenuItem;
DstLabel : TLabel;
DstList : TListBox;
ExAllBtn : TSpeedButton;
ExcludeBtn : TSpeedButton;
ImageMsg : TImage;
ImageRest : TImage;
IncAllBtn : TSpeedButton;
IncludeBtn : TSpeedButton;
mPopup : TPopupMenu;
MsgGrid : TStringGrid;
SrcLabel : TLabel;
SrcList : TListBox;
FDefProc : Pointer;
FNewProc : Pointer;
FOnce : Boolean;
FStoped : Boolean;
FTracerComp : TMessageTracer;| Constructors |
| Functions |
procedure btnClearClick(Sender: TObject);
procedure btnCloseClick(Sender: TObject);
procedure btnStartClick(Sender: TObject);
procedure btnStopClick(Sender: TObject);
procedure CopylParam1Click(Sender: TObject);
procedure Copymessage1Click(Sender: TObject);
procedure CopyResult1Click(Sender: TObject);
procedure CopywParam1Click(Sender: TObject);
procedure ExAllBtnClick(Sender: TObject);
procedure ExcludeBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure IncAllBtnClick(Sender: TObject);
procedure IncludeBtnClick(Sender: TObject);
procedure MsgGridDrawCell(Sender: TObject; Col, Row: Integer;
Recty: TRect; State: TGridDrawState);
procedure Stop;
function GetFirstSelection(List: TCustomListBox): Integer;
procedure HookedWndProc(var Message: TMessage);
procedure HookWndProc(AHandle: HWND);
procedure MoveSelected(List: TCustomListBox; Items: TStrings);
procedure SetButtons;
procedure SetItem(List: TListBox; Index: Integer);
procedure SetTracerComp(Value: TMessageTracer);Methods
procedure UnHookWndProc(AHandle: HWND);| Properties |
property TracerComp : TMessageTracer| Events |
| Variables |
btnClear : TButton;
btnClose : TButton;
btnStart : TButton;
btnStop : TButton;
CopylParam1 : TMenuItem;
Copymessage1 : TMenuItem;
CopyResult1 : TMenuItem;
CopywParam1 : TMenuItem;
DstLabel : TLabel;
DstList : TListBox;
ExAllBtn : TSpeedButton;
ExcludeBtn : TSpeedButton;
ImageMsg : TImage;
ImageRest : TImage;
IncAllBtn : TSpeedButton;
IncludeBtn : TSpeedButton;
mPopup : TPopupMenu;
MsgGrid : TStringGrid;
SrcLabel : TLabel;
SrcList : TListBox;
FDefProc : Pointer;
FNewProc : Pointer;
FOnce : Boolean;
FStoped : Boolean;
FTracerComp : TMessageTracer;