GpStructuredStorage file    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~sqli.vtd  sqliForm.vtdsqliFormName.vtd. sqliStep.vtd!sqliStepFile.vtd8sqliStepStr.vtd6sqliStepStrEvent.vtd sqliVar.vtd sqliVer.vtdsqliReports.vtdacKeyacNamed acIsDebugacType acVarInINI acAutoStart acAutoClose acEndMessageacLocalization2acFormNameAuthoracActive anVersion acLogType acInstCoded anUserChg anUserIns adTimeChg adTimeIns acNoteacCompiledScriptDEMO010Web browser testFAFFFTRT0qVB8VB 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 acSQLExport2acSQLExpacNoteDEMO010GPFAENFcBTfB windows-1250 AresProjectF//Demo with TWebBrowser component //Last change 2007-12-16 by matejg Program AresProject; uses sysutils, classes, forms, dialogs, FForm1; begin Form1 := TForm1.create(ares); ares.run; end. DEMO010GFFAENFOBTfB windows-1250FForm1Fobject Form1: TForm Tag = 99 Left = 208 Top = 240 Caption = 'Form1' ClientHeight = 206 ClientWidth = 608 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 dlcxPanel1: TdlcxPanel Left = 0 Top = 0 Width = 608 Height = 41 Align = alTop Alignment = taLeftJustify BorderStyle = bsNone BorderSize = 1 BorderColor3D = clWhite Border3D = False BorderColor = clGray Color = 15065304 ColorTo = 15065304 ComponentSize = csSmall Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Options = [] ParentColor = False PanelType = ptNone TabOrder = 0 Templatable = False Transparent = False HeaderVisible = False HeaderColor = 15065304 HeaderColorTo = 15065304 HeaderHeight = 0 HeaderFont.Charset = DEFAULT_CHARSET HeaderFont.Color = clWindowText HeaderFont.Height = -11 HeaderFont.Name = 'Tahoma' HeaderFont.Style = [] HeaderAlignment = taLeftJustify HeaderPanelType = ptNone HotColor = clBlack HotColorTo = clBlack CheckedColor = clBlack CheckedColorTo = clBlack Checked = False ExplicitLeft = 6 ExplicitWidth = 185 DesignSize = ( 608 41) object dlcxButton1: TdlcxButton Left = 527 Top = 5 Width = 75 Height = 25 Anchors = [akTop] Cancel = False Caption = 'Go' ComponentSize = csSmall Templatable = False Default = False ModalResult = 0 NumGlyphs = 96 TabOrder = 0 ImmediatePopUp = False end object EdAddress: TdlcxLabeledTextEdit Left = 196 Top = 7 Anchors = [akLeft, akTop, akRight] AutoSize = False Properties.ReadOnly = False 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 = 1 LabelPosition = lpoLeft LabelSpacing = 3 LabelVisible = True EditLabel.Left = 154 EditLabel.Top = 10 EditLabel.Width = 39 EditLabel.Height = 13 EditLabel.Caption = 'Address' EditLabel.FocusControl = EdAddress EditLabel.Transparent = True ComponentSize = csSmall Templatable = False Caption = 'Address' ReadOnly = False Height = 19 Width = 318 end object dlcxButton2: TdlcxButton Left = 9 Top = 5 Width = 51 Height = 25 Cancel = False Caption = 'Back' ComponentSize = csSmall Templatable = False Default = False ModalResult = 0 NumGlyphs = 240 TabOrder = 2 ImmediatePopUp = False end object dlcxButton3: TdlcxButton Left = 66 Top = 5 Width = 52 Height = 25 Cancel = False Caption = 'Refresh' ComponentSize = csSmall Templatable = False Default = False ModalResult = 0 NumGlyphs = 128 TabOrder = 3 ImmediatePopUp = False end end object dlcxPanel2: TdlcxPanel Left = 0 Top = 41 Width = 608 Height = 165 Align = alClient Alignment = taLeftJustify BorderStyle = bsNone BorderSize = 1 BorderColor3D = clWhite Border3D = False BorderColor = clGray Color = 15065304 ColorTo = 15065304 ComponentSize = csSmall Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Options = [] ParentColor = False PanelType = ptNone TabOrder = 1 Templatable = False Transparent = False HeaderVisible = False HeaderColor = 15065304 HeaderColorTo = 15065304 HeaderHeight = 0 HeaderFont.Charset = DEFAULT_CHARSET HeaderFont.Color = clWindowText HeaderFont.Height = -11 HeaderFont.Name = 'Tahoma' HeaderFont.Style = [] HeaderAlignment = taLeftJustify HeaderPanelType = ptNone HotColor = clBlack HotColorTo = clBlack CheckedColor = clBlack CheckedColorTo = clBlack Checked = False end object _evsaver: TEventCom events = 'OnResize=FormResize'#13#10'dlcxButton1.OnClick=dlcxButton1Click'#13#10'dlcxB' + 'utton2.OnClick=dlcxButton2Click'#13#10'dlcxButton3.OnClick=dlcxButton3' + 'Click'#13#10 end end unit FForm1; interface uses Forms, Controls, StdCtrls, SysUtils, Classes, Graphics, dlcomponents, Dialogs, OleCtrls; type TForm1 = class(TarForm) Form1: TForm; dlcxPanel1: TdlcxPanel; dlcxPanel2: TdlcxPanel; dlcxButton1: TdlcxButton; EdAddress: TdlcxLabeledTextEdit; dlcxButton2: TdlcxButton; dlcxButton3: TdlcxButton; procedure dlcxButton3Click(Sender: TObject); procedure dlcxButton2Click(Sender: TObject); procedure dlcxButton1Click(Sender: TObject); procedure FormResize(Sender: TObject); private wb: TwebBrowser; public constructor Create(AOwner: TComponent); override; end; var Form1: TForm1; implementation constructor TForm1.Create(AOwner: TComponent); begin inherited Create(AOwner); ares.AssignObjectsToForm('FForm1',Self); Form1 := FindComponent('Form1'); dlcxPanel1 := FindComponent('dlcxPanel1'); dlcxPanel2 := FindComponent('dlcxPanel2'); OnResize := FormResize; //becouse TwebBrowser is not VCL component, we have special procedure //to create it and set parent. wb := CreateWebBrowser(self, dlcxPanel2); dlcxButton1 := FindComponent('dlcxButton1'); EdAddress := FindComponent('EdAddress'); dlcxButton1 := FindComponent('dlcxButton1'); dlcxButton2 := FindComponent('dlcxButton2'); dlcxButton3 := FindComponent('dlcxButton3'); dlcxButton2.OnClick := dlcxButton2Click; dlcxButton3.OnClick := dlcxButton3Click; dlcxButton1.OnClick := dlcxButton1Click; EdAddress.text := 'http://www.datalab.eu'; with wb do begin width := dlcxPanel2.width; height := dlcxPanel2.height; dlcxButton1Click(nil); end; end; procedure TForm1.FormResize(Sender: TObject); begin //we have to resize it manualy. wb.width := dlcxPanel2.width; wb.height := dlcxPanel2.height; end; procedure TForm1.dlcxButton1Click(Sender: TObject); begin wb.navigate(EdAddress.text); end; procedure TForm1.dlcxButton2Click(Sender: TObject); begin wb.Goback; end; procedure TForm1.dlcxButton3Click(Sender: TObject); begin wb.refresh; 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