TATBinHex

type TATBinHex = class(TCustomControl)

protected

  procedure DblClick; override;

  procedure DoOnResize; override;

  procedure Paint; override;

  procedure WMGetDlgCode(); message;

  procedure WMEraseBkgnd(); message;

  procedure WMVScroll(); message;

  procedure WMHScroll(); message;

  procedure KeyDown(); override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure CreateParams(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function Open();

  function OpenStream();

  function IncreaseFontSize();

  procedure CopyToClipboard();

  property SelStart: Int64; [r]

  property SelLength: Int64; [r]

  property SelText: AnsiString; [r]

  property SelTextW: WideString; [r]

  procedure SetSelection();

  procedure Scroll();

  procedure SelectAll;

  procedure SelectNone();

  procedure Print();

  property PosPercent: Integer; [rw]

  property PosOffset: Int64; [rw]

  property MsgCopy: string; [w]

  property MsgCopyHex: string; [w]

  property MsgSelectLine: string; [w]

  property MsgSelectAll: string; [w]

  property MaxLengths []: Integer; [rw]

  property MaxClipboardDataSizeMb: Integer; [rw]

  property FileName: WideString; [r]

  property FileSize: Int64; [r]

  property FileUnicodeFormat: TATUnicodeFormat; [r]

  property FileReadOK: Boolean; [r]

published

  property Align;

  property Anchors;

  property BorderSpacing;

  property BorderStyle;

  property Font;

  property ParentColor;

  property TabOrder;

  property FontOEM: TFont; [rw]

  property Mode: TATBinHexMode; [rw]

  property TextEncoding: TATEncoding; [rw]

  property TextWidth: Integer; [rw]

  property TextWidthHex: Integer; [rw]

  property TextWidthFit: Boolean; [rw]

  property TextWidthFitHex: Boolean; [rw]

  property TextWrap: Boolean; [rw]

  property TextColorHex: TColor; [rw]

  property TextColorHex2: TColor; [rw]

  property TextColorHexBack: TColor; [rw]

  property TextColorLines: TColor; [rw]

  property TextColorError: TColor; [rw]

  property TextSearchIndentVert: Integer; [rw]

  property TextSearchIndentHorz: Integer; [rw]

  property TextTabSize: Integer; [rw]

  property TextPopupCommands: TATPopupCommands; [rw]

  property ScrollPageSize: Boolean; [rw]

  property OnSelectionChange: TNotifyEvent; [rw]

end;

TATBinHex

TObject