TKCustomHexEditor

type TKCustomHexEditor = class(TKCustomControl)

protected

  FInUpdateScrollRange: Boolean;

  procedure AddUndoCaretPos();

  procedure AddUndoByte();

  procedure AddUndoBytes();

  procedure AddUndoString();

  procedure BeginUndoGroup();

  procedure BufferChanged;

  function CanScroll(); virtual;

  procedure ClearChar();

  procedure ClearDigitSelection;

  procedure ClearString();

  procedure CreateParams(); override;

  procedure CreateWnd; override;

  procedure DestroyWnd; override;

  procedure DoChange; virtual;

  function DoMouseWheel(); override;

  procedure EditAreaChanged; virtual;

  procedure EndUndoGroup;

  procedure FontChange(); virtual;

  function GetPageHorz; virtual;

  function HasFocus; virtual;

  procedure HideEditorCaret; virtual;

  procedure InsertChar();

  procedure InsertString();

  function InternalGetSelAvail; override;

  procedure InternalMoveLeft; virtual;

  procedure InternalMoveRight; virtual;

  procedure LateUpdate(); override;

  procedure KeyDown(); override;

  procedure KeyPress(); override;

  procedure MeasurePages(); override;

  procedure ModifyScrollBar();

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure PaintToCanvas(); override;

  procedure PaintLines(); virtual;

  procedure PaintPage; override;

  procedure SafeSetFocus;

  procedure SelectionChanged();

  procedure ScrollBy();

  procedure ScrollTo(); virtual;

  function SetMouseCursor(); override;

  procedure ShowEditorCaret; virtual;

  procedure UndoChange();

  procedure UpdateEditorCaret(); virtual;

  procedure UpdateCharMetrics; virtual;

  procedure UpdateMouseCursor; virtual;

  procedure UpdateScrollRange; virtual;

  procedure UpdateSelEnd(); virtual;

  procedure UpdateSize; override;

  property Buffer: PBytes; [rw]

  property RedoList: TKHexEditorChangeList; [r]

  property Size: Int64; [rw]

  property States: TKHexEditorStates; [rw]

  property UndoList: TKHexEditorChangeList; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Append();

  procedure Assign(); override;

  function CaretInView;

  procedure Clear;

  procedure ClearUndo;

  function CommandEnabled(); virtual;

  function ExecuteCommand(); virtual;

  function GetAreaDimensions; virtual;

  function GetCharMapping;

  function GetClientHeightChars; virtual;

  function GetClientWidthChars; virtual;

  function GetModifiedClientRect; virtual;

  function GetMaxLeftChar(); virtual;

  function GetMaxTopLine(); virtual;

  function GetRealSelEnd;

  function GetRealSelStart;

  procedure LoadFromFile();

  procedure LoadFromStream();

  procedure PaintToCanvasEx();

  function PointToSel(); virtual;

  procedure SaveToFile();

  procedure SaveToStream();

  function SelAvail;

  function SelectionValid(); virtual;

  function SelToPoint(); virtual;

  procedure SetCharMapping();

  procedure SetKeyMapping();

  procedure ValidateSelection(); virtual;

  property AddressCursor: TCursor; [rw]

  property AddressMode: TKHexEditorAddressMode; [rw]

  property AddressOffset: Integer; [rw]

  property AddressPrefix: string; [rws]

  property AddressSize: Integer; [rw]

  property AreaSpacing: Integer; [rw]

  property CaretPos: TKHexEditorSelection; [r]

  property CaretVisible: Boolean; [r]

  property CharWidth: Integer; [r]

  property CharSpacing: Integer; [rw]

  property CharHeight: Integer; [r]

  property ClipboardFormat: Word; [r]

  property Colors: TKHexEditorColors; [rw]

  property CommandKey []: TKEditKey; [rw]

  property Data: TDataSize; [rw]

  property DigitGrouping: Integer; [rw]

  property DisabledDrawStyle: TKEditDisabledDrawStyle; [rw]

  property DrawStyles: TKHexEditorDrawStyles; [rws]

  property EditArea: TKHexEditorArea; [rw]

  property Empty: Boolean; [r]

  property FirstVisibleIndex: Integer; [r]

  property InsertMode: Boolean; [r]

  property KeyMapping: TKEditKeyMapping; [r]

  property LastVisibleIndex: Integer; [r]

  property LeftChar: Integer; [rw]

  property LineCount: Int64; [r]

  property LineHeightPercent: Integer; [rw]

  property Lines []: TDataSize; [rw]

  property LineSize: Integer; [rw]

  property Modified: Boolean; [rw]

  property Options: TKEditOptions; [rws]

  property ReadOnly: Boolean; [rw]

  property ScrollBars: TScrollStyle; [rw]

  property ScrollSpeed: Cardinal; [rw]

  property SelEnd: TKHexEditorSelection; [rw]

  property SelLength: TKHexEditorSelection; [rw]

  property SelStart: TKHexEditorSelection; [rw]

  property SelText: TKHexEditorSelText; [r]

  property TopLine: Int64; [rw]

  property UndoLimit: Integer; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnDropFiles: TKEditDropFilesEvent; [rw]

  property OnReplaceText: TKEditReplaceTextEvent; [rw]

end;

TKCustomHexEditor

TKCustomControl

TObject