GpStructuredStorage file    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~sqli.vtd  sqliForm.vtdMsqliFormName.vtd. sqliStep.vtdH sqliStepFile.vtd 8sqliStepStr.vtd 6sqliStepStrEvent.vtd sqliVar.vtd  sqliVer.vtdsqliReports.vtdacKeyacNamed acIsDebugacType acVarInINI acAutoStart acAutoClose acEndMessageacLocalization2acFormNameAuthoracActive anVersion acLogType acInstCoded anUserChg anUserIns adTimeChg adTimeIns acNoteacCompiledScriptDEMO013Add node to treeFAFFFTRT0BOB acKey acFormName2 acDocType acObjectName2acType acKeyShortCut2acTabSheetName2 anUserChg anUserIns adTimeChg adTimeIns acFormTypeDEMO013PotNalDRfBRfB1 acFormName2acName2acKeyanNoacViewacSetOfacDescracReportacFileCreateTableanFileDelimiter acFileNameacFileTableName acFileDest acFileType acFileTypeXML acShowIfEmptyacTitleButtons anTitleLinesanBeginFromRecord anUserChg anUserIns adTimeChg adTimeIns acCharSet2 acStyleSheet acUnitName2 acNewThreadacDFMacPAS acSQLExport2acSQLExpacNoteDEMO013GPFAENFϋBTfB windows-1250 AresProjectFQProgram AresProject; uses sysutils, classes, forms, dialogs, cxTl; var n, n2: TcxTreeListNode; begin //showmessage(ownerForm.FindComponent('dlfcTreeView1').className); if ownerForm.FindComponent('dlfcTreeView1') <> nil then begin //first we add somenthing to the end n := TcxTreeList(ownerForm.FindComponent('dlfcTreeView1')).add; n.values[0] := 'My New record'; n.values[1] := 'tsDokumenti'; //here we set which page on page control we should focus //add child n := n.addChild; n.values[0] := 'My Child'; n.values[1] := 'tsIzplacilo'; //here we set which page on page control we should focus //we add some record inside //first we have to find where to insert n2 := TcxTreeList(ownerForm.FindComponent('dlfcTreeView1')).items[5]; n := TcxTreeList(ownerForm.FindComponent('dlfcTreeView1')).insert(n2, nil); n.values[0] := 'Something inserted...'; n.values[1] := 'tsPotovanje'; //here we set which page on page control we should focus end; end. DEMO013GFFAENFBTfB windows-1250FForm1F}object Form1: TForm Tag = 99 Left = 414 Top = 509 Caption = 'Form1' ClientHeight = 206 ClientWidth = 312 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object _evsaver: TEventCom end end unit FForm1; interface uses Forms, Controls, StdCtrls, SysUtils, Classes, Graphics, dlcomponents, Dialogs; type TForm1 = class(TarForm) private public constructor Create(AOwner: TComponent); override; end; var Form1: TForm1; implementation constructor TForm1.Create(AOwner: TComponent); begin inherited Create(AOwner); ares.AssignObjectsToForm('FForm1',Self); end; end. acKeyanNoanSeqNoacHField2acHType anHLengthanHDecacPField2acPTypeanPLegthanPDec acPFormat acPSeparator anUserChg anUserIns adTimeChg adTimeIns acKeyanNoanSeqNo acFieldName2 anFieldSize acFieldTitleacFieldReadOnly acEditType acFieldConst anUserChg anUserIns adTimeIns adTimeChg acFieldFormatacFieldDefault acKeyanNo acDataEventacDataReturnValue acKeyAndNo anUserChg anUserIns adTimeChg adTimeIns acKey acWhereKeyanNo acFieldName acParamVar acFieldType acFieldREQacFieldCaption2 acDefaultExpacDefaultValue acLookUpSQL acOperator acVarHint2 acAddApostrof anUserChg anUserIns adTimeChg adTimeIns acPrtCrit ACKEY ANVERSIONANNOACSQLEXPACNOTE ADTIMECHG ANUSERCHG ADTIMEINS ANUSERINSACREPORTACLANGIDACLOCALIZATION2 ACFORMNAMEdACNAMEdACDEFAULTPRINTER ACPREVIEWANMAXPRSTLEVELACSUBSTITUTESIGNACPRINTIFEMPTY ACPRINTTOTEXT ANNOOFCOPY ACORDERBY ACREGUSERCODEACACTIVE ACKEYSHORTCUT2 ANUSERINS ADTIMEINS ANUSERCHG ADTIMECHG ACTEXT1ACTEXT2ACTEXT3ACNOTE ACREPORTDATA