pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Added vtbasic demo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@77 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-02-22 13:09:12 +00:00
parent a82be98ef4
commit a2f68f3eaf
24 changed files with 7375 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
components/virtualtreeview-unstable/demos/vtbasic/VTreeData.pas Normal file
View File

@ -0,0 +1,85 @@
{*********************************************************************** }
{ File: VTreeData.pas }
{ }
{ Purpose: }
{ source file to demonstrate how to get started with VT (5) }
{ <-- Basic node data class wrapped in a record allowing for --> }
{ }
{ Credits: }
{ taken + modified from example by Sven H. (h.sven@gmx.at) }
{ }
{ Module Record: }
{ }
{ Date AP Details }
{ -------- -- -------------------------------------- }
{ 05-Nov-2002 TC Created (tomc@gripsystems.com) }
{**********************************************************************}
unit VTreeData;
{$mode delphi}
{$H+}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, VirtualTrees;
type
// declare common node class
TBasicNodeData =
class
protected
FCaption : shortstring;
FID : longint;
FImageIndex : longint;
FHasChanged : boolean;
public
constructor Create( const sCaption : shortstring; const iID, iIndex: longint);
property Caption : shortstring read FCaption write FCaption;
property ID : longint read FID write FID;
property ImageIndex : longint read FImageIndex write FImageIndex;
property HasChanged : boolean read FHasChanged write FHasChanged;
end;
// declare descendant node class
TBasicNodeAddData =
class(TBasicNodeData)
protected
FJobTitle : shortstring;
FAdd1 : shortstring;
FAdd2 : shortstring;
FAdd3 : shortstring;
public
property Add1 : shortstring read FAdd1 write FAdd1;
property Add2 : shortstring read FAdd2 write FAdd2;
property Add3 : shortstring read FAdd3 write FAdd3;
property JobTitle : shortstring read FJobTitle write FJobTitle;
end;
(*--------------------------------------------------------------------------------------
This is a very simple record we use to store data in the nodes.
Since the application is responsible to manage all data including the node's caption
this record can be considered as minimal requirement in all VT applications using this
method (as opposed to a pre-defined record). Note that this also means individual nodes
can store different descendants from TBasicNodeData
--------------------------------------------------------------------------------------*)
PBasicNodeRec= ^TBasicNodeRec;
TBasicNodeRec =
record
bnd : TBasicNodeData;
end;
implementation
constructor TBasicNodeData.Create( const sCaption : shortstring; const iID, iIndex: longint);
begin
inherited Create;
FCaption := sCaption;
FID := iID;
FImageIndex := iIndex;
end;
end.