| Class tbackbase (unit bi_edits) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure CMFontChanged(var Msg: TMessage);
procedure CustomBounds(ALeft,ATop,AWidth,AHeight,PaneW,PaneH: Integer);
procedure drawborder;
function GetBorderStyle: TBorderStyle;
function GetEditCtrl: TPublicEdit;
procedure getfadedbackground;
function GetHideSel: Boolean;
function GetText: String;
procedure MemoClick(Sender: TObject);
procedure MemoDblClick(Sender: TObject);
procedure MemoDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure MemoDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure MemoEndDrag(Sender, Target: TObject; X, Y: Integer);
procedure MemoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure MemoKeyPress(Sender: TObject; var Key: Char);
procedure MemoKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure MemoMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
procedure MemoMouseMove(Sender: TObject; Shift: TShiftState;X,Y: Integer);
procedure MemoMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure OnCaretTimer(Sender: TObject);
procedure Paint;
procedure PaintSelLine(var XPos: Integer; const YPos: Integer;
var Line: String; const StrLen: Integer);
procedure PostCreate;
procedure SelectBrush;
procedure SetBackBMP(BMP: tbitmap);
procedure SetBorderStyle(Value: TBorderStyle);
procedure setfadecolor(Value:tcolor);
procedure SetHideSel(Value: Boolean);
procedure SetName(const Value: TComponentName);
procedure SetOnChange(Value: TNotifyEvent);
procedure SetText(const Value: String);
procedure ShowMemoCaret(Show: Boolean);
procedure WMCommand(var Msg: TWMCommand);
procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd);
procedure CMMouseEnter(var Message: TMessage);
procedure CMMouseLeave(var Message: TMessage);
procedure setborder(value:TBorderStyleExt);
procedure setcolor(value:tcolor);
Procedure SetFillMode(Value:tfillmode);| Properties |
property Bitmap : tbitmap
property Border : TBorderStyleExt
property Brush :
property Color : tcolor
property DragCursor :
property DragMode :
property Enabled :
property FadeColor : tcolor
property FillStyle : tfillmode
property Font :
property HideSelection : Boolean
property PopupMenu :
property SelectionBrush : TBrush
property TabOrder :
property TabStop :
property BorderStyle : TBorderStyle| Events |
event OnChange : TNotifyEvent
event OnClick : TNotifyEvent
event OnDblClick : TNotifyEvent
event OnDragDrop : TDragDropEvent
event OnDragOver : TDragOverEvent
event OnEndDrag : TEndDragEvent
event OnEnter :
event OnExit :
event OnKeyDown : TKeyEvent
event OnKeyPress : TKeyPressEvent
event OnKeyUp : TKeyEvent
event OnMouseDown : TMouseEvent
event OnMouseMove : TMouseMoveEvent
event OnMouseUp : TMouseEvent| Variables |
bars : tscrollstyle;
caretposback : tpoint;
CharCount : LongInt;
FBackBMP : TBitmap;
FBackBuf : TBitmap;
fborder : TBorderStyleExt;
fcolor : tcolor;
ffadecolor : tcolor;
FFillMode : tfillmode;
finternalimage : TBitmap;
FLastCaretPos : TPoint;
FMemoCaretVisible : Boolean;
FMemoMouseDown : Boolean;
FOnChange : TNotifyEvent;
FOnClick : TNotifyEvent;
FOnDblClick : TNotifyEvent;
FOnDragDrop : TDragDropEvent;
FOnDragOver : TDragOverEvent;
FOnEndDrag : TEndDragEvent;
FOnKeyDown : TKeyEvent;
FOnKeyPress : TKeyPressEvent;
FOnKeyUp : TKeyEvent;
FOnMouseDown : TMouseEvent;
FOnMouseMove : TMouseMoveEvent;
FOnMouseUp : TMouseEvent;
FPane : TMemoPane;
FSelectionBrush : TBrush;
FShowSel : Boolean;
insel : Boolean;
inside : boolean;
SelEnd : LongInt;
SelStart : LongInt;
xoffset : integer;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure CMFontChanged(var Msg: TMessage);
procedure CustomBounds(ALeft,ATop,AWidth,AHeight,PaneW,PaneH: Integer);
procedure drawborder;ffadecolor;
function GetBorderStyle: TBorderStyle;
function GetEditCtrl: TPublicEdit;
procedure getfadedbackground;
function GetHideSel: Boolean;
function GetText: String;
procedure MemoClick(Sender: TObject);
procedure MemoDblClick(Sender: TObject);
procedure MemoDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure MemoDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure MemoEndDrag(Sender, Target: TObject; X, Y: Integer);
procedure MemoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure MemoKeyPress(Sender: TObject; var Key: Char);
procedure MemoKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure MemoMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
procedure MemoMouseMove(Sender: TObject; Shift: TShiftState;X,Y: Integer);
procedure MemoMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure OnCaretTimer(Sender: TObject);no two carets in dif lines
procedure Paint;
procedure PaintSelLine(var XPos: Integer; const YPos: Integer;
var Line: String; const StrLen: Integer);
procedure PostCreate;
procedure SelectBrush;
procedure SetBackBMP(BMP: tbitmap);
procedure SetBorderStyle(Value: TBorderStyle);
procedure setfadecolor(Value:tcolor);
procedure SetHideSel(Value: Boolean);
procedure SetName(const Value: TComponentName);
procedure SetOnChange(Value: TNotifyEvent);
procedure SetText(const Value: String);
procedure ShowMemoCaret(Show: Boolean);
procedure WMCommand(var Msg: TWMCommand);
procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd);don't want to have 2 carets in a line, but i confess this is a really sick workaround
procedure CMMouseEnter(var Message: TMessage);
procedure CMMouseLeave(var Message: TMessage);
procedure setborder(value:TBorderStyleExt);
procedure setcolor(value:tcolor);
Procedure SetFillMode(Value:tfillmode);if GetEditCtrl.BorderStyle = bsNone then XYOff := 0 else XYOff := 1;
| Properties |
property Bitmap : tbitmap
property Border : TBorderStyleExt
property Brush :
property Color : tcolor
property DragCursor :
property DragMode :
property Enabled :
property FadeColor : tcolor
property FillStyle : tfillmode
property Font :
property HideSelection : Boolean
property PopupMenu :
property SelectionBrush : TBrush
property TabOrder :
property TabStop :
property BorderStyle : TBorderStyle| Events |
event OnChange : TNotifyEvent
event OnClick : TNotifyEvent
event OnDblClick : TNotifyEvent
event OnDragDrop : TDragDropEvent
event OnDragOver : TDragOverEvent
event OnEndDrag : TEndDragEvent
event OnEnter :
event OnExit :
event OnKeyDown : TKeyEvent
event OnKeyPress : TKeyPressEvent
event OnKeyUp : TKeyEvent
event OnMouseDown : TMouseEvent
event OnMouseMove : TMouseMoveEvent
event OnMouseUp : TMouseEvent| Variables |
bars : tscrollstyle;
caretposback : tpoint;
CharCount : LongInt;
FBackBMP : TBitmap;
FBackBuf : TBitmap;
fborder : TBorderStyleExt;
fcolor : tcolor;
ffadecolor : tcolor;
FFillMode : tfillmode;
finternalimage : TBitmap;
FLastCaretPos : TPoint;
FMemoCaretVisible : Boolean;
FMemoMouseDown : Boolean;
FOnChange : TNotifyEvent;
FOnClick : TNotifyEvent;
FOnDblClick : TNotifyEvent;
FOnDragDrop : TDragDropEvent;
FOnDragOver : TDragOverEvent;
FOnEndDrag : TEndDragEvent;
FOnKeyDown : TKeyEvent;
FOnKeyPress : TKeyPressEvent;
FOnKeyUp : TKeyEvent;
FOnMouseDown : TMouseEvent;
FOnMouseMove : TMouseMoveEvent;
FOnMouseUp : TMouseEvent;
FPane : TMemoPane;
FSelectionBrush : TBrush;
FShowSel : Boolean;
insel : Boolean;
inside : boolean;
SelEnd : LongInt;
SelStart : LongInt;
xoffset : integer;