GpStructuredStorage file    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~sqli.vtd sqliForm.vtdsqliFormName.vtd. sqliStep.vtdvsqliStepFile.vtd 8sqliStepStr.vtd 6sqliStepStrEvent.vtd sqliVar.vtd sqliVer.vtdsqliReports.vtdacKeyacNamed acIsDebugacType acVarInINI acAutoStart acAutoClose acEndMessageacLocalization2acFormNameAuthoracActive anVersion acLogType acInstCoded anUserChg anUserIns adTimeChg adTimeIns anOldVersion acIsLocalizedacRunOnInstall acRunOnUpdate acRunOnDeleteacNoteacCompiledScriptDEMO015 Version testFAFFFTRT0Dp8Bsr=.BFTTT acKey acFormName2 acDocType acObjectName2acType acKeyShortCut2acTabSheetName2 anUserChg anUserIns adTimeChg adTimeIns acFormType acFormName2acName2acKeyanNoacViewacSetOfacDescracReportacFileCreateTableanFileDelimiter acFileNameacFileTableName acFileDest acFileType acFileTypeXML acShowIfEmptyacTitleButtons anTitleLinesanBeginFromRecord anUserChg anUserIns adTimeChg adTimeIns acCharSet2 acStyleSheet acUnitNamed acNewThreadacDFMacPAS acSQLExport2acSQLExpacNoteDEMO015GPFAENF8B windows-1250 AresProjectFprogram AresProject; uses SysUtils, Classes, Forms, Dialogs, FForm1; begin case Ares.RunType of rtyNone: showmessage('rtyNone'); rtyRun: showmessage('rtyRun'); rtyDebug: showmessage('We run this from Ares'); rtyInstall: Ares.ExecSQLVer(1); rtyUpdate: begin with TForm1.create(nil) do begin showmodal; free; end; end; rtyDelete: showmessage('Do somenthing on delete'); end; end. DEMO015GFFAENFg->.B windows-1250FForm1F object Form1: TForm Tag = 99 Left = 455 Top = 233 ActiveControl = dlcxWizardWelcomePage1 Caption = 'Form1' ClientHeight = 271 ClientWidth = 408 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object dlcxWizard1: TdlcxWizard Left = 0 Top = 0 Width = 408 Height = 271 ActivePage = dlcxWizardWelcomePage1 ButtonBarHeight = 42 ButtonStart.Caption = 'Na za'#269'etno stran' ButtonStart.NumGlyphs = 1 ButtonStart.Width = 85 ButtonLast.Caption = 'Na zadnjo stran' ButtonLast.NumGlyphs = 1 ButtonLast.Width = 85 ButtonBack.Caption = '< Nazaj' ButtonBack.NumGlyphs = 1 ButtonBack.Width = 75 ButtonNext.Caption = '&Naprej >' ButtonNext.NumGlyphs = 1 ButtonNext.Width = 75 ButtonFinish.Caption = '&Zaklju'#269'ek' ButtonFinish.NumGlyphs = 1 ButtonFinish.Width = 75 ButtonCancel.Caption = 'Prekli'#269'i' ButtonCancel.NumGlyphs = 1 ButtonCancel.ModalResult = 2 ButtonCancel.Width = 75 ButtonHelp.Caption = 'Pomo'#269 ButtonHelp.NumGlyphs = 1 ButtonHelp.Width = 75 ShowRouteMap = False Color = 15131095 ExplicitLeft = 60 ExplicitTop = 31 ExplicitWidth = 0 ExplicitHeight = 0 DesignSize = ( 408 271) object dlcxWizardWelcomePage1: TdlcxWizardWelcomePage Header.Title.Color = clNone Header.Title.Text = 'Update Wizard' Header.Title.Anchors = [akLeft, akTop, akRight] Header.Title.Font.Charset = DEFAULT_CHARSET Header.Title.Font.Color = clWindowText Header.Title.Font.Height = -16 Header.Title.Font.Name = 'Tahoma' Header.Title.Font.Style = [fsBold] Header.Subtitle.Color = clNone Header.Subtitle.Text = 'Podnaslov' Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom] Header.Subtitle.Font.Charset = DEFAULT_CHARSET Header.Subtitle.Font.Color = clWindowText Header.Subtitle.Font.Height = -11 Header.Subtitle.Font.Name = 'Tahoma' Header.Subtitle.Font.Style = [] Panel.Color = 15131095 Caption = 'dlcxWizardWelcomePage1' ExplicitWidth = 0 ExplicitHeight = 0 end end object _evsaver: TEventCom end end |unit FForm1; interface uses Forms, Controls, StdCtrls, SysUtils, Classes, Graphics, dlComponents, Dialogs; type TForm1 = class(TarForm) dlcxWizard1: TdlcxWizard; dlcxWizardWelcomePage1: TdlcxWizardWelcomePage; 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); dlcxWizard1 := FindComponent('dlcxWizard1'); dlcxWizardWelcomePage1 := FindComponent('dlcxWizardWelcomePage1'); end; end. DEMO015GMFAENF"@.B windows-12502F~3 Izvajam korak 2 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