GpStructuredStorage file    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€�‚ƒ„…†‡ˆ‰Š‹Œ�Ž��‘’“”•–—˜™š›œ�žŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿsqli.vtd¸ sqliForm.vtdõsqliFormName.vtd. sqliStep.vtd9sqliStepFile.vtd 8sqliStepStr.vtd 6sqliStepStrEvent.vtd· sqliVar.vtd… sqliVer.vtd¨sqliReports.vtdacKeyacNamed acIsDebugacType acVarInINI acAutoStart acAutoClose acEndMessageacLocalization2acFormNameAuthoracActive anVersion acLogType acInstCoded anUserChg anUserIns adTimeChg adTimeIns anOldVersion acIsLocalizedacRunOnInstall acRunOnUpdate acRunOnDeleteacNoteacCompiledScriptDEMO016Localization testFAFFFTRT0®l8ÏÌB€©|8ÏÌBð¿TFFF acKey acFormName2 acDocType acObjectName2acType acKeyShortCut2acTabSheetName2 anUserChg anUserIns adTimeChg adTimeIns acFormType acFormName2acName2acKeyanNoacViewacSetOfacDescrÿacReportacFileCreateTableanFileDelimiter acFileNameÿacFileTableNameÿ acFileDest acFileType acFileTypeXML acShowIfEmptyacTitleButtons anTitleLinesanBeginFromRecord anUserChg anUserIns adTimeChg adTimeIns acCharSet2 acStyleSheetÿ acUnitNamed acNewThreadacDFMacPAS acSQLExport2acSQLExpacNoteDEMO016GPFÿÿÿÿAENFõƒ8ÏÌB windows-1250 AresProjectF½program AresProject; uses SysUtils, Classes, Forms, Dialogs, FForm1; begin Form1 := TForm1.Create(Ares); try form1.showmodal; finally form1.free; end; end. DEMO016GFFÿÿÿÿAENF€c¿‚8ÏÌB windows-1250FForm1F­ object Form1: TForm Tag = 99 Left = 210 Top = 257 Caption = 'Form1' ClientHeight = 213 ClientWidth = 312 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 dlcxLabeledComboBox1: TdlcxLabeledComboBox Left = 16 Top = 20 AutoSize = False Properties.Items.Strings = ( 'HR' 'BG') Properties.ReadOnly = False Style.BorderStyle = ebsFlat Style.Color = 15065304 Style.LookAndFeel.Kind = lfFlat Style.LookAndFeel.NativeStyle = False Style.Shadow = False Style.ButtonStyle = btsSimple Style.ButtonTransparency = ebtAlways Style.PopupBorderStyle = epbsDefault 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 = 0 Text = 'HR' LabelPosition = lpoLeft LabelSpacing = 3 LabelVisible = True EditLabel.Left = 10 EditLabel.Top = 22 EditLabel.Width = 3 EditLabel.Height = 13 EditLabel.FocusControl = dlcxLabeledComboBox1 EditLabel.Transparent = True ComponentSize = csSmall Templatable = False ReadOnly = False Height = 18 Width = 121 end object dlcxButton1: TdlcxButton Left = 162 Top = 17 Width = 75 Height = 25 Cancel = False Caption = 'Localize' ComponentSize = csSmall Templatable = False Default = False ModalResult = 0 TabOrder = 1 ImmediatePopUp = False end object dlcxLabel1: TdlcxLabel Left = 32 Top = 115 Caption = 'dlcxLabel1' ComponentSize = csSmall Templatable = False end object dlcxButton2: TdlcxButton Left = 28 Top = 140 Width = 75 Height = 25 Cancel = False Caption = 'dlcxButton2' ComponentSize = csSmall Templatable = False Default = False ModalResult = 0 TabOrder = 3 ImmediatePopUp = False end object _evsaver: TEventCom events = 'dlcxButton1.OnClick=dlcxButton1Click'#13#10'dlcxButton2.OnClick=dlcxBu' + 'tton2Click'#13#10 end end unit FForm1; interface uses Forms, Controls, StdCtrls, SysUtils, Classes, Graphics, dlComponents, Dialogs; type TForm1 = class(TarForm) dlcxLabeledComboBox1: TdlcxLabeledComboBox; dlcxButton1: TdlcxButton; dlcxLabel1: TdlcxLabel; dlcxButton2: TdlcxButton; procedure dlcxButton2Click(Sender: TObject); procedure dlcxButton1Click(Sender: TObject); private public constructor Create(AOwner: TComponent); override; end; var Form1: TForm1; defLoc: string = 'HR'; implementation constructor TForm1.Create(AOwner: TComponent); begin inherited Create(AOwner); Ares.AssignObjectsToForm('FForm1',Self); dlcxLabeledComboBox1 := FindComponent('dlcxLabeledComboBox1'); dlcxButton1 := FindComponent('dlcxButton1'); dlcxLabel1 := FindComponent('dlcxLabel1'); dlcxButton2 := FindComponent('dlcxButton2'); dlcxButton2.OnClick := dlcxButton2Click; dlcxButton1.OnClick := dlcxButton1Click; end; procedure TForm1.dlcxButton1Click(Sender: TObject); begin defLoc := dlcxLabeledComboBox1.text; ares.LocalizeForm(self, defLoc); end; procedure TForm1.dlcxButton2Click(Sender: TObject); begin showmessage(ares.GetLocalizedString('ShowmessageTest', defLoc)); end; end. acKeyanNoanSeqNoacHField2acHType anHLengthanHDecacPField2acPTypeanPLegthanPDec acPFormat acPSeparator anUserChg anUserIns adTimeChg adTimeIns acKeyanNoanSeqNo acFieldName2 anFieldSize acFieldTitleacFieldReadOnly acEditType acFieldConstÿ anUserChg anUserIns adTimeIns adTimeChg acFieldFormatÿacFieldDefaultÿ acKeyanNo acDataEventacDataReturnValue acKeyAndNo anUserChg anUserIns adTimeChg adTimeIns acKey acWhereKeyanNo acFieldName acParamVar acFieldType acFieldREQacFieldCaption2 acDefaultExpacDefaultValue acLookUpSQLÿ acOperator acVarHint2 acAddApostrof anUserChg anUserIns adTimeChg adTimeIns acPrtCrit ACKEY ANVERSIONANNOACSQLEXP ACNOTEÐ ADTIMECHG ANUSERCHG ADTIMEINS ANUSERINSACREPORTACLANGIDACLOCALIZATION2 ACFORMNAMEdACNAMEdACDEFAULTPRINTERÿ ACPREVIEWANMAXPRSTLEVELACSUBSTITUTESIGNACPRINTIFEMPTY ACPRINTTOTEXT ANNOOFCOPY ACORDERBYÐ ACREGUSERCODEACACTIVE ACKEYSHORTCUT2 ANUSERINS ADTIMEINS ANUSERCHG ADTIMECHG ACTEXT1èACTEXT2èACTEXT3èACNOTEè ACREPORTDATA