GpStructuredStorage file    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~sqli.vtd& sqliForm.vtdsqliFormName.vtd. sqliStep.vtdsqliStepFile.vtd8sqliStepStr.vtd6sqliStepStrEvent.vtd sqliVar.vtd sqliVer.vtdsqliReports.vtdacKeyacNamed acIsDebugacType acVarInINI acAutoStart acAutoClose acEndMessageacLocalization2acFormNameAuthoracActive anVersion acLogType acInstCoded anUserChg anUserIns adTimeChg adTimeIns acNoteacCompiledScriptEDU0016Diferent form types...FAFFFTRT0VB`=B acKey acFormName2 acDocType acObjectName2acType acKeyShortCut2acTabSheetName2 anUserChg anUserIns adTimeChg adTimeIns acFormType acFormName2acName2acKeyanNoacViewacSetOfacDescracReportacFileCreateTableanFileDelimiter acFileNameacFileTableName acFileDest acFileType acFileTypeXML acShowIfEmptyacTitleButtons anTitleLinesanBeginFromRecord anUserChg anUserIns adTimeChg adTimeIns acCharSet2 acStyleSheet acUnitName2 acNewThreadacDFMacPAS acSQLExport2acSQLExpacNoteEDU0016GPFAENFޡcBTfB windows-1250 AresProjectFProgram AresProject; uses sysutils, classes, forms, dialogs, FForm1, FForm2, FForm3; begin //this is "MDI" thype of form with TForm2.create(application) do begin formType := ftChild; show; end; //this is also "MDI" thype of form, but with pantheon DB Controls with TForm3.create(application) do begin formType := ftChild; show; end; //this is normal form, form style fsStayOnTop with TForm1.create(application) do begin formStyle := fsStayOnTop; show; end; end. EDU0016GFFAENFfGBTfB windows-1250FForm1FHobject Form1: TForm Tag = 99 Left = 208 Top = 253 Caption = 'Form1' ClientHeight = 271 ClientWidth = 450 Color = clSkyBlue Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False Position = poDesigned PixelsPerInch = 96 TextHeight = 13 object dlcxLabel1: TdlcxLabel Left = 66 Top = 116 Caption = 'This is stay on top form. Close it first.' ParentFont = False Style.Font.Charset = DEFAULT_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -21 Style.Font.Name = 'Tahoma' Style.Font.Style = [] Style.IsFontAssigned = True ComponentSize = csSmall Templatable = False end object _evsaver: TEventCom end end unit FForm1; interface uses Forms, Controls, StdCtrls, SysUtils, Classes, Graphics, dlcomponents, Dialogs; type TForm1 = class(TarForm) dlcxLabel1: TdlcxLabel; 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); dlcxLabel1 := FindComponent('dlcxLabel1'); end; end. EDU0016GFFAENFGBTfB windows-1250FForm2Fobject Form2: TForm Tag = 99 Left = 208 Top = 253 Caption = 'Form2' ClientHeight = 206 ClientWidth = 312 Color = clRed Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesigned PixelsPerInch = 96 TextHeight = 13 object _evsaver: TEventCom end end unit FForm2; interface uses Forms, Controls, StdCtrls, SysUtils, Classes, Graphics, dlcomponents, Dialogs; type TForm2 = class(TarForm) private public constructor Create(AOwner: TComponent); override; end; var Form2: TForm2; implementation constructor TForm2.Create(AOwner: TComponent); begin inherited Create(AOwner); ares.AssignObjectsToForm('FForm2',Self); end; end. EDU0016GFFAENF?PHBTfB windows-1250FForm3F&object Form3: TForm Tag = 99 Left = 208 Top = 253 Caption = 'Form3' ClientHeight = 206 ClientWidth = 660 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesigned PixelsPerInch = 96 TextHeight = 13 object dlcxLabeledDBTextEdit1: TdlcxLabeledDBTextEdit Left = 121 Top = 15 AutoSize = False DataBinding.DataField = 'acIdent' DataBinding.DataSource = DataSource1 Style.BorderStyle = ebsFlat Style.Color = 15065304 Style.LookAndFeel.Kind = lfFlat Style.LookAndFeel.NativeStyle = False Style.Shadow = False StyleDisabled.LookAndFeel.Kind = lfFlat StyleDisabled.LookAndFeel.NativeStyle = False StyleFocused.Color = 14347503 StyleFocused.LookAndFeel.Kind = lfFlat StyleFocused.LookAndFeel.NativeStyle = False StyleHot.LookAndFeel.Kind = lfFlat StyleHot.LookAndFeel.NativeStyle = False TabOrder = 2 LabelPosition = lpoLeft LabelSpacing = 3 LabelVisible = True EditLabel.Left = 92 EditLabel.Top = 18 EditLabel.Width = 26 EditLabel.Height = 13 EditLabel.Caption = 'Ident' EditLabel.FocusControl = dlcxLabeledDBTextEdit1 EditLabel.Transparent = True ComponentSize = csSmall Templatable = False Caption = 'Ident' ReadOnly = False Height = 19 Width = 121 end object _evsaver: TEventCom end object DataSource1: TDataSource DataSet = dlDataset1 Left = 278 Top = 56 end object dlDataset1: TdlDataset SQL.Strings = ( 'select * from the_setItem') AutoCalcFields = False Cached = False LocateInsert = False Editable = True RequestLive = False QueryRecCount = False DetailDelay = 0 LocalMasterDetail = False StrictUpdate = False TrimFixedChar = True TrimVarChar = True AddRowidToSQL = False ORACompatibility = True Left = 316 Top = 56 end end unit FForm3; interface uses Forms, Controls, StdCtrls, SysUtils, Classes, Graphics, dlcomponents, Dialogs, db, dlDatabase; type TForm3 = class(TarDBForm) DataSource1 : TDataSource; dlDataset1 : TdlDataset; dlcxLabeledDBTextEdit1: TdlcxLabeledDBTextEdit; private public constructor Create(AOwner: TComponent); override; end; var Form3: TForm3; implementation constructor TForm3.Create(AOwner: TComponent); var n: TNavigator3; begin inherited Create(AOwner); ares.AssignObjectsToForm('FForm3',Self); //we show all buttons TdlcxButton(FindComponent('bHelp')).visible := true; TdlcxButton(FindComponent('bTemplate')).visible := true; TdlcxButton(FindComponent('bWizard')).visible := true; TdlcxButton(FindComponent('bPrint')).visible := true; TdlcxButton(FindComponent('bXML')).visible := true; DataSource1 := FindComponent('DataSource1'); dlDataset1 := FindComponent('dlDataset1'); dlcxLabeledDBTextEdit1 := FindComponent('dlcxLabeledDBTextEdit1'); n := Tnavigator3(FindComponent('bMenuDBNavigator')); n.DataSource := DataSource1; n.lookupTable := dlDataset1; n.lookup_Field := 'acIdent'; dlDataset1.active := true; 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