Class TScrollableTreeView (unit SCTree)

Inherits from

TTreeView

-------------------------------------------------------------------------} { COMPONENT : TSCROLLABLETREEVIEW } { ================ } { GOAL : Defines the basic methods for a future DBTreeview. Just } { : add the scrollable capability. } { MAIN INFOS : } {-------------------------------------------------------------------------

Constructors


Constructor Create( AOwner : TComponent );



Functions

Procedure Compute_TreeMoves( X, Y : Integer );

b = boolean

-------------------------------------------------------------------------} { GOAL : Initializes AUTOSCROLL } { : } { IN/OUT : in AOwner = Parent } { SIDE EFFECT : } {-------------------------------------------------------------------------


Procedure MouseMove( Shift : TShiftState; X, Y : Integer ) ;

--------------------------------------------------------------------} { Near an edge means at a maximum of half a line, i-e half the pixels} { of the current font.

Properties

property AutoScroll : Boolean


Events

Variables

bAutoScroll : Boolean;



Constructors


Constructor Create( AOwner : TComponent );


Functions


Procedure Compute_TreeMoves( X, Y : Integer );

b = boolean

-------------------------------------------------------------------------} { GOAL : Initializes AUTOSCROLL } { : } { IN/OUT : in AOwner = Parent } { SIDE EFFECT : } {-------------------------------------------------------------------------


Procedure MouseMove( Shift : TShiftState; X, Y : Integer ) ;

--------------------------------------------------------------------} { Near an edge means at a maximum of half a line, i-e half the pixels} { of the current font. } {--------------------------------------------------------------------


Properties


property AutoScroll : Boolean


Events


Variables


bAutoScroll : Boolean;