Class TTracerForm (unit MsgTracer)

Inherits from

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);

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;



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;