Class TStringsViewer (unit Strngvwr)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure Clear;


procedure CopyToClipboard;


procedure CutToClipboard;

CTRL+C,CTRL+X

procedure SelectAll;


destructor Destroy;


procedure Loaded;


procedure Paint;


procedure Clicked(Sender: TObject);


procedure DblClicked(Sender: TObject);


procedure GraphicMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure GraphicMouseMove(Sender: TObject;Shift: TShiftState; X, Y: Integer);


procedure GraphicMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure HScrollBarEnter(Sender: Tobject);


procedure KeyDown(Sender: TObject;var Key: word;Shift: TShiftState);


procedure KeyPressed(Sender: TObject;var Key: char);


procedure KeyUp(Sender: TObject;var Key: word;Shift: TShiftState);


procedure PaintCanvas(Sender: TObject);


procedure SetColor(c: TColor);


procedure SetFont(f: TFont);


procedure SetLines(l: TSVStrings);


procedure StringsChanged(Sender: TObject);


procedure VScrollBarClick(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);

draw link

Properties

property Align :


property Color : TColor


property Font : TFont


property HelpContext :


property Hint :


property Lines : TSVStrings


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


Events

event OnChange : TNotifyEvent


event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown : TKeyEvent


event OnKeyPress : TKeyPressEvent


event OnKeyUp : TKeyEvent


event OnLinkClicked : TSVLinkEvent


event OnMouseDown : TMouseEvent


event OnMouseMove : TMouseMoveEvent


event OnMouseUp : TMouseEvent


Variables

Modified : Boolean;


CanMark : Boolean;


FColor : TColor;


fdx : integer;


fdy : integer;


FFont : TFont;


FLines : TSVStrings;


FOnChange : TNotifyEvent;


FOnClick : TNotifyEvent;


FOnDblClick : TNotifyEvent;


FonKeyDown : TKeyEvent;


FOnKeyPress : TKeyPressEvent;


FOnKeyUp : TKeyEvent;


FOnLink : TSVLinkEvent;


FOnMouseDown : TMouseEvent;


FOnMouseMove : TMouseMoveEvent;


FOnMouseUp : TMouseEvent;


Graphic : TSVCanvas;


HScrollBar : TScrollBar;


Links : array[1..1000] of TSVLinkPtr;


Marked : Boolean;


Marking : Boolean;


Mkc0 : integer;


Mkc1 : integer;


MkL0 : integer;


MkL1 : integer;


NumLinks : integer;


Panel : TPanel;


VScrollBar : TScrollBar;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure Clear;


procedure CopyToClipboard;


procedure CutToClipboard;

CTRL+C,CTRL+X


procedure SelectAll;


destructor Destroy;


procedure Loaded;


procedure Paint;


procedure Clicked(Sender: TObject);


procedure DblClicked(Sender: TObject);


procedure GraphicMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure GraphicMouseMove(Sender: TObject;Shift: TShiftState; X, Y: Integer);


procedure GraphicMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure HScrollBarEnter(Sender: Tobject);


procedure KeyDown(Sender: TObject;var Key: word;Shift: TShiftState);


procedure KeyPressed(Sender: TObject;var Key: char);


procedure KeyUp(Sender: TObject;var Key: word;Shift: TShiftState);


procedure PaintCanvas(Sender: TObject);


procedure SetColor(c: TColor);


procedure SetFont(f: TFont);


procedure SetLines(l: TSVStrings);


procedure StringsChanged(Sender: TObject);


procedure VScrollBarClick(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);

draw link


Properties


property Align :


property Color : TColor


property Font : TFont


property HelpContext :


property Hint :


property Lines : TSVStrings


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


Events


event OnChange : TNotifyEvent


event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown : TKeyEvent


event OnKeyPress : TKeyPressEvent


event OnKeyUp : TKeyEvent


event OnLinkClicked : TSVLinkEvent


event OnMouseDown : TMouseEvent


event OnMouseMove : TMouseMoveEvent


event OnMouseUp : TMouseEvent


Variables


Modified : Boolean;


CanMark : Boolean;


FColor : TColor;


fdx : integer;


fdy : integer;


FFont : TFont;


FLines : TSVStrings;


FOnChange : TNotifyEvent;


FOnClick : TNotifyEvent;


FOnDblClick : TNotifyEvent;


FonKeyDown : TKeyEvent;


FOnKeyPress : TKeyPressEvent;


FOnKeyUp : TKeyEvent;


FOnLink : TSVLinkEvent;


FOnMouseDown : TMouseEvent;


FOnMouseMove : TMouseMoveEvent;


FOnMouseUp : TMouseEvent;


Graphic : TSVCanvas;


HScrollBar : TScrollBar;


Links : array[1..1000] of TSVLinkPtr;


Marked : Boolean;


Marking : Boolean;


Mkc0 : integer;


Mkc1 : integer;


MkL0 : integer;


MkL1 : integer;


NumLinks : integer;


Panel : TPanel;


VScrollBar : TScrollBar;