Unit DBTreeView98 |
////////////////////////////////////////////////////////////////////////////// DBTREEVIEW98 // ////////////////////////////////////////////////////////////////////////////// Virtual DB Tree view for D3 // * Icons, Hottracking, new CustomDraw implementation, ... and more // ////////////////////////////////////////////////////////////////////////////// Version 1.81 Beta // Date de création : 24/06/1997 // Date dernière modification : 30/07/1997 // ////////////////////////////////////////////////////////////////////////////// Jean-Luc Mattei // jlucm@club-internet.fr // ////////////////////////////////////////////////////////////////////////////// IMPORTANT NOTICE : // // // This program is FreeWare // // Please do not release modified versions of this source code. // If you've made any changes that you think should have been there, // feel free to submit them to me at jlucm@club-internet.fr // ////////////////////////////////////////////////////////////////////////////// NOTES : // // * CheckBoxes will be implemented in the future // * flicks too much when scrolled // ////////////////////////////////////////////////////////////////////////////// REVISIONS : // // V 0.50 : * Added field type validation // * Added GetColor (utilcolr.pas) color index compatible with // Borland's TColorGrid // V 0.60 : // * All error messages are constants now // Two langages supported french (define FRANCAIS) & english // (define ENGLISH) (not very hard to add more and to // correct english) // thanks to Glen Verran he reminds me that french // isn't universal:) // * Lookup removed and replaced by Locate // * Icon Field Name is no more absolutely needed // V 0.70 : // * Property Tooltips published. // V 0.80 : // * Some bugs removed // * Table cursor follows selection // V 0.90 : // * OnAskForColor and OnAskForIcon events Added // V 1.00 : // * If RegistryKey empty it uses Constantes Keys for Dynamic // Registery // V 1.81 : * Unified Version Number with DBListView // // * FullRowSelect Property // * function GetChildren have been renamed GetItemChild // ////////////////////////////////////////////////////////////////////////////// {$DEFINE FRANCAIS} {$DEFINE ENGLISH
Classes |
TCustomDBTreeView -
TDBTreeView -
TTreeViewDataLink -
Functions |
Register -
Types |
TDBTVAskForColor
TDBTVAskForIcon
TDBTVChangedEvent
TDBTVChangingEvent
TDBTVCollapsingEvent
TDBTVCompareEvent
TDBTVEditedEvent
TDBTVEditingEvent
TDBTVExpandedEvent
TDBTVExpandingEvent
TSortType
Constants |
Variables |
Functions |
Types |
TDBTVAskForColor = function(Sender: TObject; ItemCode: Longint): TColor of object
TDBTVAskForIcon = function(Sender: TObject; ItemCode: Longint; Expanded: Boolean): Integer of object
TDBTVChangedEvent = procedure(Sender: TObject; Node: HTreeItem) of object
TDBTVChangingEvent = procedure(Sender: TObject; Node: HTreeItem; var AllowChange: Boolean) of object
TDBTVCollapsingEvent = procedure(Sender: TObject; Node: HTreeItem; var AllowCollapse: Boolean) of object
TDBTVCompareEvent = procedure(Sender: TObject; Node1, Node2: HTreeItem; Data: Integer; var Compare: Integer) of object
TDBTVEditedEvent = procedure(Sender: TObject; Node: HTreeItem; var S: string) of object
TDBTVEditingEvent = procedure(Sender: TObject; Node: HTreeItem; var AllowEdit: Boolean) of object
TDBTVExpandedEvent = procedure(Sender: TObject; Node: HTreeItem) of object
TDBTVExpandingEvent = procedure(Sender: TObject; Node: HTreeItem; var AllowExpansion: Boolean) of object
TSortType = (stNone, stData, stText, stBoth);
Constants |
Variables |