Class THexDump (unit HexDump)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

THexDump


Functions

destructor Destroy;


procedure CreateParams(var Params: TCreateParams);


procedure KeyDown(var Key: Word; Shift: TShiftState);

Event Overrides

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure AdjustScrollBars;


procedure CalcPaintParams;

Painting Related

procedure CMCtl3DChanged(var Message: TMessage);


procedure CMEnter(var Message: TCMGotFocus);


procedure CMExit(var Message: TCMLostFocus);


procedure CMFontChanged(var Message: TMessage);

VCL Command Messages

function GetFileColor(Index: Integer): TColor;


procedure InvalidateLineMarker;

- 1

function LineAddr(Index: Longint): PChar;


function LineChars(Index: Longint; MaxLen: Integer): PChar;


function LineData(Index: Longint): PChar;


function ScrollIntoView: Boolean;


procedure SetAddress(Value: Pointer);


procedure SetBorder(Value: TBorderStyle);

Property Set/Get Routines

procedure SetCurrentLine(Value: Longint);


procedure SetDataSize(Value: Longint);


procedure SetFileColor(Index: Integer; Value: TColor);


procedure SetRelativeAddress(Value: Boolean);


procedure SetScroll(Value: Longint);


procedure SetShowAddress(Value: Boolean);


procedure SetShowCharacters(Value: Boolean);


procedure SetShowLineMarker(Value: Boolean);


procedure SetTopLine(Value: Longint);


procedure WMGetDlgCode(var Message: TWMGetDlgCode);


procedure WMSize(var Message: TWMSize);

Windows Messages

procedure WMVScroll(var Message: TWMVScroll);


Properties

property AddressColor : TColor


property Align :


property AnsiCharColor : TColor


property Border : TBorderStyle


property Color :


property Ctl3D :


property Font :


property HexDataColor : TColor


property ParentColor :


property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property RelativeAddress : Boolean


property ShowAddress : Boolean


property ShowCharacters : Boolean


property ShowHint :


property ShowLineMarker : Boolean


property TabOrder :


property TabStop :


property Visible :


property Address : Pointer


property CurrentLine : Longint


property DataSize : Longint


property LineCount : Longint


Events

event OnClick :


event OnDblClick :


event OnEnter :


event OnExit :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FActive : Boolean;


FAddress : Pointer;


FBorder : TBorderStyle;


FBytesPerLine : Integer;


FCurrentLine : Longint;


FDataSize : Longint;


FFileColors : array[0..2] of TColor;


FHexData : THexStrArray;


FItemHeight : Integer;


FItemWidth : Integer;


FLineAddr : array[0..15] of Char;


FLineChars : array[0..MAXDIGITS] of Char;


FLineCount : Longint;


FRelativeAddress : Boolean;


FShowAddress : Boolean;


FShowCharacters : Boolean;


FShowLineMarker : Boolean;


FTopLine : Longint;


FVisibleLines : Integer;



Constructors


constructor Create(AOwner: TComponent);

THexDump


Functions


destructor Destroy;


procedure CreateParams(var Params: TCreateParams);


procedure KeyDown(var Key: Word; Shift: TShiftState);

Event Overrides


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure AdjustScrollBars;


procedure CalcPaintParams;

Painting Related


procedure CMCtl3DChanged(var Message: TMessage);


procedure CMEnter(var Message: TCMGotFocus);


procedure CMExit(var Message: TCMLostFocus);


procedure CMFontChanged(var Message: TMessage);

VCL Command Messages


function GetFileColor(Index: Integer): TColor;


procedure InvalidateLineMarker;

- 1


function LineAddr(Index: Longint): PChar;


function LineChars(Index: Longint; MaxLen: Integer): PChar;


function LineData(Index: Longint): PChar;


function ScrollIntoView: Boolean;


procedure SetAddress(Value: Pointer);


procedure SetBorder(Value: TBorderStyle);

Property Set/Get Routines


procedure SetCurrentLine(Value: Longint);


procedure SetDataSize(Value: Longint);


procedure SetFileColor(Index: Integer; Value: TColor);


procedure SetRelativeAddress(Value: Boolean);


procedure SetScroll(Value: Longint);


procedure SetShowAddress(Value: Boolean);


procedure SetShowCharacters(Value: Boolean);


procedure SetShowLineMarker(Value: Boolean);


procedure SetTopLine(Value: Longint);


procedure WMGetDlgCode(var Message: TWMGetDlgCode);


procedure WMSize(var Message: TWMSize);

Windows Messages


procedure WMVScroll(var Message: TWMVScroll);


Properties


property AddressColor : TColor


property Align :


property AnsiCharColor : TColor


property Border : TBorderStyle


property Color :


property Ctl3D :


property Font :


property HexDataColor : TColor


property ParentColor :


property ParentCtl3D :


property ParentShowHint :


property PopupMenu :


property RelativeAddress : Boolean


property ShowAddress : Boolean


property ShowCharacters : Boolean


property ShowHint :


property ShowLineMarker : Boolean


property TabOrder :


property TabStop :


property Visible :


property Address : Pointer


property CurrentLine : Longint


property DataSize : Longint


property LineCount : Longint


Events


event OnClick :


event OnDblClick :


event OnEnter :


event OnExit :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FActive : Boolean;


FAddress : Pointer;


FBorder : TBorderStyle;


FBytesPerLine : Integer;


FCurrentLine : Longint;


FDataSize : Longint;


FFileColors : array[0..2] of TColor;


FHexData : THexStrArray;


FItemHeight : Integer;


FItemWidth : Integer;


FLineAddr : array[0..15] of Char;


FLineChars : array[0..MAXDIGITS] of Char;


FLineCount : Longint;


FRelativeAddress : Boolean;


FShowAddress : Boolean;


FShowCharacters : Boolean;


FShowLineMarker : Boolean;


FTopLine : Longint;


FVisibleLines : Integer;