TfpgBaseEdit

type TfpgBaseEdit = class(TfpgWidget)

protected

  FFont: TfpgFont;

  FSideMargin: Integer;

  FHeightMargin: Integer;

  FMouseDragPos: Integer;

  FSelStart: Integer;

  FSelOffset: Integer;

  FCursorPos: Integer;

  FCursorPx: Integer;

  FTextOffset: Integer;

  FDrawOffset: Integer;

  FVisibleText: TfpgString;

  FVisSelStartPx: Integer;

  FVisSelEndPx: Integer;

  function GetMarginAdjustment; virtual;

  procedure DrawSelection; virtual;

  procedure DoOnChange; virtual;

  procedure ShowDefaultPopupMenu(); virtual;

  procedure HandlePaint; override;

  procedure HandleResize(); override;

  procedure HandleKeyChar(); override;

  procedure HandleKeyPress(); override;

  procedure HandleLMouseDown(); override;

  procedure HandleRMouseDown(); override;

  procedure HandleRMouseUp(); override;

  procedure HandleMouseMove(); override;

  procedure HandleDoubleClick(); override;

  procedure HandleMouseEnter; override;

  procedure HandleMouseExit; override;

  procedure HandleSetFocus; override;

  procedure HandleKillFocus; override;

  procedure HandleHide; override;

  function GetDrawText;

  property AutoSelect: Boolean; [rw]

  property AutoSize: Boolean; [rw]

  property BorderStyle: TfpgEditBorderStyle; [rw]

  property FontDesc: String; [rw]

  property HideSelection: Boolean; [rw]

  property IgnoreMouseCursor: Boolean; [rw]

  property MaxLength: Integer; [rw]

  property PasswordMode: Boolean; [rw]

  property PopupMenu: TfpgPopupMenu; [rw]

  property ReadOnly: Boolean; [rw]

  property Text: String; [rw]

  property OnChange: TNotifyEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  function SelectionText;

  function GetClientRect; override;

  procedure SelectAll;

  procedure Clear;

  procedure ClearSelection;

  procedure CopyToClipboard;

  procedure CutToClipboard;

  procedure InsertAtCursorPos();

  procedure PasteFromClipboard;

  property Font: TfpgFont; [r]

  property SideMargin: Integer; [rw]

  property HeightMargin: Integer; [rw]

end;

TfpgBaseEdit

TfpgWidget

TObject