You've already forked lazarus-ccr
aarre
applications
bindings
components
Comba_Animation
aboutcomponent
acs
beepfp
callite
chelper
chemtext
cmdline
cmdlinecfg
colorpalette
cryptini
csvdocument
epiktimer
extrasyn
fpexif
fpsound
fpspreadsheet
fractions
freetypepascal
geckoport
gradcontrols
grid_semaphor
industrialstuff
iosdesigner
iphonelazext
jujiboutils
jvcllaz
kcontrols
lazautoupdate
lazbarcodes
lazmapviewer
lclextensions
longtimer
manualdock
mbColorLib
mplayer
multithreadprocs
nvidia-widgets
onguard
orpheus
playsoundpackage
poweredby
powerpdf
rgbgraphics
richmemo
richview
rtfview
rx
scrolltext
smnetgradient
spktoolbar
svn
systools
examples
images
source
db
general
design
run
st2dbarc.pas
stastro.pas
stastrop.pas
stbarc.pas
stbarpn.pas
stbase.pas
stbcd.pas
stbits.pas
stccy.dat
stccycnv.dat
stcoll.pas
stconst.pas
stcrc.pas
stdate.pas
stdatest.pas
stdecmth.pas
stdict.pas
stdque.pas
steclpse.pas
stexpr.pas
stexpr.txt
stfin.pas
sthash.pas
stinistm.pas
stjup.pas
stjupsat.pas
stlarr.pas
stlist.pas
stmars.pas
stmath.pas
stmerc.pas
stmerge.pas
stmoney.pas
stneptun.pas
stnvbits.pas
stnvcoll.pas
stnvcont.pas
stnvdict.pas
stnvdq.pas
stnvlary.pas
stnvlist.pas
stnvlmat.pas
stnvscol.pas
stnvtree.pas
stpluto.pas
stpqueue.pas
stptrns.pas
strandom.pas
stregex.pas
stsaturn.pas
ststat.pas
ststrl.pas
ststrms.pas
ststrs.pas
sttext.pas
sttohtml.pas
sttree.pas
sttxtdat.pas
sturanus.pas
stutils.pas
stvarr.pas
stvenus.pas
include
windows_only
laz_systools.lpk
laz_systools.pas
laz_systools_all.lpg
laz_systools_design.lpk
laz_systools_design.pas
laz_systoolsdb.lpk
laz_systoolsdb.pas
laz_systoolsdb_design.lpk
laz_systoolsdb_design.pas
laz_systoolswin.lpk
laz_systoolswin.pas
laz_systoolswin_design.lpk
laz_systoolswin_design.pas
readme-orig.txt
readme.txt
readme404pre.txt
tdi
thtmlport
tparadoxdataset
tvplanit
xdev_toolkit
zlibar
zmsql
examples
image_sources
lclbindings
wst
161 lines
3.6 KiB
ObjectPascal
161 lines
3.6 KiB
ObjectPascal
![]() |
// Upgraded to Delphi 2009: Sebastian Zierer
|
||
|
|
||
|
(* ***** BEGIN LICENSE BLOCK *****
|
||
|
* Version: MPL 1.1
|
||
|
*
|
||
|
* The contents of this file are subject to the Mozilla Public License Version
|
||
|
* 1.1 (the "License"); you may not use this file except in compliance with
|
||
|
* the License. You may obtain a copy of the License at
|
||
|
* http://www.mozilla.org/MPL/
|
||
|
*
|
||
|
* Software distributed under the License is distributed on an "AS IS" basis,
|
||
|
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
||
|
* for the specific language governing rights and limitations under the
|
||
|
* License.
|
||
|
*
|
||
|
* The Original Code is TurboPower SysTools
|
||
|
*
|
||
|
* The Initial Developer of the Original Code is
|
||
|
* TurboPower Software
|
||
|
*
|
||
|
* Portions created by the Initial Developer are Copyright (C) 1996-2002
|
||
|
* the Initial Developer. All Rights Reserved.
|
||
|
*
|
||
|
* Contributor(s):
|
||
|
*
|
||
|
* ***** END LICENSE BLOCK ***** *)
|
||
|
|
||
|
{*********************************************************}
|
||
|
{* SysTools: StNVTree.pas 4.04 *}
|
||
|
{*********************************************************}
|
||
|
{* SysTools: non visual component for TStTree *}
|
||
|
{*********************************************************}
|
||
|
|
||
|
{$IFDEF FPC}
|
||
|
{$mode DELPHI}
|
||
|
{$ENDIF}
|
||
|
|
||
|
//{$I StDefine.inc}
|
||
|
|
||
|
unit StNVTree;
|
||
|
|
||
|
interface
|
||
|
|
||
|
uses
|
||
|
{$IFNDEF FPC}Windows,{$ENDIF}
|
||
|
Classes,
|
||
|
StBase, StTree, StNVCont;
|
||
|
|
||
|
type
|
||
|
TStNVTree = class(TStNVContainerBase)
|
||
|
{.Z+}
|
||
|
protected {private}
|
||
|
{property variables}
|
||
|
FContainer : TStTree; {instance of the container}
|
||
|
|
||
|
protected
|
||
|
function GetOnCompare : TStCompareEvent;
|
||
|
override;
|
||
|
function GetOnDisposeData : TStDisposeDataEvent;
|
||
|
override;
|
||
|
function GetOnLoadData : TStLoadDataEvent;
|
||
|
override;
|
||
|
function GetOnStoreData : TStStoreDataEvent;
|
||
|
override;
|
||
|
procedure SetOnCompare(Value : TStCompareEvent);
|
||
|
override;
|
||
|
procedure SetOnDisposeData(Value : TStDisposeDataEvent);
|
||
|
override;
|
||
|
procedure SetOnLoadData(Value : TStLoadDataEvent);
|
||
|
override;
|
||
|
procedure SetOnStoreData(Value : TStStoreDataEvent);
|
||
|
override;
|
||
|
|
||
|
public
|
||
|
constructor Create(AOwner : TComponent);
|
||
|
override;
|
||
|
destructor Destroy;
|
||
|
override;
|
||
|
{.Z-}
|
||
|
|
||
|
property Container : TStTree
|
||
|
read FContainer;
|
||
|
|
||
|
published
|
||
|
property OnCompare;
|
||
|
property OnDisposeData;
|
||
|
property OnLoadData;
|
||
|
property OnStoreData;
|
||
|
end;
|
||
|
|
||
|
|
||
|
implementation
|
||
|
|
||
|
{*** TStNVTree ***}
|
||
|
|
||
|
constructor TStNVTree.Create(AOwner : TComponent);
|
||
|
begin
|
||
|
inherited Create(AOwner);
|
||
|
|
||
|
{defaults}
|
||
|
|
||
|
if Classes.GetClass(TStTree.ClassName) = nil then
|
||
|
RegisterClass(TStTree);
|
||
|
if Classes.GetClass(TStTreeNode.ClassName) = nil then
|
||
|
RegisterClass(TStTreeNode);
|
||
|
|
||
|
FContainer := TStTree.Create(TStTreeNode);
|
||
|
end;
|
||
|
|
||
|
destructor TStNVTree.Destroy;
|
||
|
begin
|
||
|
FContainer.Free;
|
||
|
FContainer := nil;
|
||
|
|
||
|
inherited Destroy;
|
||
|
end;
|
||
|
|
||
|
function TStNVTree.GetOnCompare : TStCompareEvent;
|
||
|
begin
|
||
|
Result := FContainer.OnCompare;
|
||
|
end;
|
||
|
|
||
|
function TStNVTree.GetOnDisposeData : TStDisposeDataEvent;
|
||
|
begin
|
||
|
Result := FContainer.OnDisposeData;
|
||
|
end;
|
||
|
|
||
|
function TStNVTree.GetOnLoadData : TStLoadDataEvent;
|
||
|
begin
|
||
|
Result := FContainer.OnLoadData;
|
||
|
end;
|
||
|
|
||
|
function TStNVTree.GetOnStoreData : TStStoreDataEvent;
|
||
|
begin
|
||
|
Result := FContainer.OnStoreData;
|
||
|
end;
|
||
|
|
||
|
procedure TStNVTree.SetOnCompare(Value : TStCompareEvent);
|
||
|
begin
|
||
|
FContainer.OnCompare := Value;
|
||
|
end;
|
||
|
|
||
|
procedure TStNVTree.SetOnDisposeData(Value : TStDisposeDataEvent);
|
||
|
begin
|
||
|
FContainer.OnDisposeData := Value;
|
||
|
end;
|
||
|
|
||
|
procedure TStNVTree.SetOnLoadData(Value : TStLoadDataEvent);
|
||
|
begin
|
||
|
FContainer.OnLoadData := Value;
|
||
|
end;
|
||
|
|
||
|
procedure TStNVTree.SetOnStoreData(Value : TStStoreDataEvent);
|
||
|
begin
|
||
|
FContainer.OnStoreData := Value;
|
||
|
end;
|
||
|
|
||
|
|
||
|
|
||
|
end.
|