Class tbackbase (unit bi_edits)

Inherits from

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;

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.

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;