From b081929c4ebb1ed900302827f5508af3c25006bc Mon Sep 17 00:00:00 2001 From: mattias Date: Thu, 3 Dec 2009 23:26:55 +0000 Subject: [PATCH] fixed example adrbook, require package tdbf git-svn-id: trunk@22952 - --- examples/address_book/addrbook.lpi | 35 ++-- examples/address_book/addrbook.lpr | 2 +- examples/address_book/frmmain.lfm | 177 +++++++++--------- examples/address_book/frmmain.lrs | 290 ++++++++++++++--------------- examples/address_book/frmmain.pas | 2 +- 5 files changed, 247 insertions(+), 259 deletions(-) diff --git a/examples/address_book/addrbook.lpi b/examples/address_book/addrbook.lpi index f16d05a691..f7ebfbf854 100644 --- a/examples/address_book/addrbook.lpi +++ b/examples/address_book/addrbook.lpi @@ -1,18 +1,17 @@ - - + + + - - <ActiveEditorIndexAtStart Value="0"/> </General> <PublishOptions> <Version Value="2"/> @@ -26,43 +25,33 @@ <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> </local> </RunParams> - <RequiredPackages Count="1"> + <RequiredPackages Count="2"> <Item1> + <PackageName Value="DBFLaz"/> + <MinVersion Minor="1" Release="1" Valid="True"/> + </Item1> + <Item2> <PackageName Value="LCL"/> <MinVersion Major="1" Valid="True"/> - </Item1> + </Item2> </RequiredPackages> <Units Count="2"> <Unit0> <Filename Value="addrbook.lpr"/> <IsPartOfProject Value="True"/> <UnitName Value="addrbook"/> - <CursorPos X="1" Y="30"/> - <TopLine Value="1"/> - <UsageCount Value="32"/> </Unit0> <Unit1> <Filename Value="frmmain.pas"/> - <ComponentName Value="MainForm"/> <IsPartOfProject Value="True"/> - <ResourceFilename Value="frmmain.lrs"/> + <ComponentName Value="MainForm"/> + <ResourceBaseClass Value="Form"/> <UnitName Value="frmmain"/> - <CursorPos X="13" Y="19"/> - <TopLine Value="1"/> - <EditorIndex Value="0"/> - <UsageCount Value="32"/> - <Loaded Value="True"/> </Unit1> </Units> </ProjectOptions> <CompilerOptions> - <Version Value="5"/> - <SearchPaths> - <SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/> - </SearchPaths> - <CodeGeneration> - <Generate Value="Faster"/> - </CodeGeneration> + <Version Value="8"/> <Linking> <Options> <Win32> diff --git a/examples/address_book/addrbook.lpr b/examples/address_book/addrbook.lpr index ea261073e8..c8809b4016 100644 --- a/examples/address_book/addrbook.lpr +++ b/examples/address_book/addrbook.lpr @@ -23,7 +23,7 @@ program addrbook; {$mode objfpc}{$H+} uses - Interfaces, frmmain, Forms; + Interfaces, frmmain, Forms, DBFLaz; begin Application.Initialize; diff --git a/examples/address_book/frmmain.lfm b/examples/address_book/frmmain.lfm index a3e3e213ac..19dbe99d92 100644 --- a/examples/address_book/frmmain.lfm +++ b/examples/address_book/frmmain.lfm @@ -1,21 +1,24 @@ object MainForm: TMainForm - Left = 279 + Left = 484 Height = 522 - Top = 165 + Top = 273 Width = 734 HorzScrollBar.Page = 733 VertScrollBar.Page = 491 - ActiveControl = GDBA + ActiveControl = PTop Caption = 'Addressbook' - ClientHeight = 492 + ClientHeight = 497 ClientWidth = 734 Font.Height = -13 Font.Name = 'MS Sans Serif' Menu = MMain OnClose = FormClose OnCloseQuery = FormCloseQuery + LCLVersion = '0.9.29' object PTop: TPanel + Left = 0 Height = 33 + Top = 0 Width = 734 Align = alTop BevelOuter = bvLowered @@ -37,7 +40,8 @@ object MainForm: TMainForm end end object GDBA: TDBGrid - Height = 199 + Left = 0 + Height = 204 Top = 33 Width = 734 Align = alClient @@ -92,17 +96,15 @@ object MainForm: TMainForm FieldName = 'WWW' end> DataSource = DSAddress - FixedColor = clBtnFace - Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] - OptionsExtra = [dgeAutoColumns, dgeCheckboxColumn] - ParentColor = False ReadOnly = True TabOrder = 1 - TabStop = True + TitleFont.Height = -13 + TitleFont.Name = 'MS Sans Serif' end object PBottom: TPanel + Left = 0 Height = 260 - Top = 232 + Top = 237 Width = 734 Align = alBottom BevelOuter = bvLowered @@ -112,244 +114,244 @@ object MainForm: TMainForm TabOrder = 2 object LELastName: TLabel Left = 8 - Height = 17 + Height = 19 Top = 8 - Width = 89 + Width = 61 Alignment = taRightJustify Caption = '&Last name' - Color = clNone FocusControl = ELastName Layout = tlCenter ParentColor = False end object LEFirstName: TLabel Left = 8 - Height = 17 - Top = 32 - Width = 89 + Height = 19 + Top = 34 + Width = 62 Alignment = taRightJustify Caption = '&First name' - Color = clNone FocusControl = EFirstName Layout = tlCenter ParentColor = False end object LEStreet: TLabel Left = 8 - Height = 17 + Height = 19 Top = 64 - Width = 56 + Width = 37 Alignment = taRightJustify Caption = '&Street' - Color = clNone FocusControl = EStreet Layout = tlCenter ParentColor = False end object LEZip: TLabel Left = 8 - Height = 17 - Top = 88 - Width = 34 + Height = 19 + Top = 92 + Width = 23 Alignment = taRightJustify Caption = '&Zip' - Color = clNone FocusControl = EZip Layout = tlCenter ParentColor = False end object LETown: TLabel Left = 264 - Height = 17 - Top = 88 - Width = 52 + Height = 19 + Top = 90 + Width = 35 Alignment = taRightJustify Caption = 'T&own' - Color = clNone FocusControl = ETown Layout = tlCenter ParentColor = False end object LETelephone: TLabel Left = 8 - Height = 17 - Top = 144 - Width = 88 + Height = 19 + Top = 145 + Width = 58 Alignment = taRightJustify Caption = '&Telephone' - Color = clNone FocusControl = ETelephone Layout = tlCenter ParentColor = False end object LECountry: TLabel Left = 8 - Height = 17 - Top = 112 - Width = 69 + Height = 19 + Top = 115 + Width = 46 Alignment = taRightJustify Caption = 'Countr&y' - Color = clNone FocusControl = ECountry Layout = tlCenter ParentColor = False end object LEFax: TLabel Left = 288 - Height = 17 - Top = 144 - Width = 39 + Height = 19 + Top = 145 + Width = 26 Alignment = taRightJustify Caption = 'Fa&x' - Color = clNone FocusControl = EFax Layout = tlCenter ParentColor = False end object LEMobile: TLabel Left = 472 - Height = 17 - Top = 144 - Width = 58 + Height = 19 + Top = 145 + Width = 39 Alignment = taRightJustify Caption = '&Mobile' - Color = clNone FocusControl = EMobile Layout = tlCenter ParentColor = False end object LEEmail: TLabel Left = 8 - Height = 17 + Height = 19 Top = 176 - Width = 52 + Width = 34 Alignment = taRightJustify Caption = '&Email' - Color = clNone FocusControl = EEmail Layout = tlCenter ParentColor = False end object LEWWW: TLabel Left = 8 - Height = 17 + Height = 19 Top = 200 - Width = 57 + Width = 38 Alignment = taRightJustify Caption = '&WWW' - Color = clNone FocusControl = EWWW Layout = tlCenter ParentColor = False end object ELastName: TDBEdit Left = 160 - Height = 24 + Height = 28 Top = 8 Width = 361 DataField = 'LastName' DataSource = DSAddress - ParentColor = False + CharCase = ecNormal + MaxLength = 0 TabOrder = 0 end object EFirstName: TDBEdit Left = 160 - Height = 24 - Top = 32 + Height = 28 + Top = 35 Width = 361 DataField = 'FirstName' DataSource = DSAddress - ParentColor = False + CharCase = ecNormal + MaxLength = 0 TabOrder = 1 end object EStreet: TDBEdit Left = 160 - Height = 24 - Top = 64 + Height = 28 + Top = 62 Width = 361 DataField = 'Street' DataSource = DSAddress - ParentColor = False + CharCase = ecNormal + MaxLength = 0 TabOrder = 2 end object EZip: TDBEdit Left = 160 - Height = 24 - Top = 88 + Height = 28 + Top = 89 Width = 89 DataField = 'Zip' DataSource = DSAddress - ParentColor = False + CharCase = ecNormal + MaxLength = 0 TabOrder = 3 end object ECountry: TDBEdit Left = 160 - Height = 24 - Top = 112 + Height = 28 + Top = 116 Width = 361 DataField = 'Country' DataSource = DSAddress - ParentColor = False + CharCase = ecNormal + MaxLength = 0 TabOrder = 5 end object EWWW: TDBEdit Left = 160 - Height = 24 - Top = 200 + Height = 28 + Top = 203 Width = 361 DataField = 'WWW' DataSource = DSAddress - ParentColor = False + CharCase = ecNormal + MaxLength = 0 TabOrder = 10 end object ETelephone: TDBEdit Left = 160 - Height = 24 + Height = 28 Top = 144 Width = 121 DataField = 'Telephone' DataSource = DSAddress - ParentColor = False + CharCase = ecNormal + MaxLength = 0 TabOrder = 6 end object EFax: TDBEdit Left = 336 - Height = 24 + Height = 28 Top = 144 Width = 121 DataField = 'Fax' DataSource = DSAddress - ParentColor = False + CharCase = ecNormal + MaxLength = 0 TabOrder = 7 end object EMobile: TDBEdit Left = 520 - Height = 24 + Height = 28 Top = 144 Width = 121 DataField = 'Mobile' DataSource = DSAddress - ParentColor = False + CharCase = ecNormal + MaxLength = 0 TabOrder = 8 end object EEmail: TDBEdit Left = 160 - Height = 24 + Height = 28 Top = 176 Width = 361 DataField = 'Email' DataSource = DSAddress - ParentColor = False + CharCase = ecNormal + MaxLength = 0 TabOrder = 9 end object ETown: TDBEdit Left = 320 - Height = 24 - Top = 88 + Height = 28 + Top = 89 Width = 201 DataField = 'Town' DataSource = DSAddress - ParentColor = False + CharCase = ecNormal + MaxLength = 0 TabOrder = 4 end end @@ -426,8 +428,8 @@ object MainForm: TMainForm end end object ALMain: TActionList - left = 64 - top = 112 + left = 135 + top = 72 object ANew: TAction Caption = '&New' HelpType = htKeyword @@ -541,21 +543,20 @@ object MainForm: TMainForm IndexDefs = <> StoreDefs = True TableLevel = 4 + FilterOptions = [] AfterInsert = DBAAfterInsert - left = 96 - top = 112 + left = 215 + top = 72 end object SDDBA: TSaveDialog - Title = 'Save file as' DefaultExt = '.dbf' Filter = 'DBF files|*.dbf|All files|*.*' FilterIndex = 0 Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing] - left = 96 + left = 135 top = 144 end object ODDBA: TOpenDialog - Title = 'Open existing file' DefaultExt = '.dbf' Filter = 'DBF files|*.dbf|All files|*.*' FilterIndex = 0 @@ -565,7 +566,7 @@ object MainForm: TMainForm end object DSAddress: TDatasource DataSet = DBA - left = 128 - top = 112 + left = 290 + top = 72 end end diff --git a/examples/address_book/frmmain.lrs b/examples/address_book/frmmain.lrs index aa7f6b61a7..e3ff4f4e18 100644 --- a/examples/address_book/frmmain.lrs +++ b/examples/address_book/frmmain.lrs @@ -1,152 +1,150 @@ -{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei } +{ This is an automatically generated lazarus resource file } LazarusResources.Add('TMainForm','FORMDATA',[ - 'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#23#1#6'Height'#3#10#2#3'Top'#3#165#0 + 'TPF0'#9'TMainForm'#8'MainForm'#4'Left'#3#228#1#6'Height'#3#10#2#3'Top'#3#17#1 +#5'Width'#3#222#2#18'HorzScrollBar.Page'#3#221#2#18'VertScrollBar.Page'#3#235 - +#1#13'ActiveControl'#7#4'GDBA'#7'Caption'#6#11'Addressbook'#12'ClientHeight' - +#3#236#1#11'ClientWidth'#3#222#2#11'Font.Height'#2#243#9'Font.Name'#6#13'MS ' + +#1#13'ActiveControl'#7#4'PTop'#7'Caption'#6#11'Addressbook'#12'ClientHeight' + +#3#241#1#11'ClientWidth'#3#222#2#11'Font.Height'#2#243#9'Font.Name'#6#13'MS ' +'Sans Serif'#4'Menu'#7#5'MMain'#7'OnClose'#7#9'FormClose'#12'OnCloseQuery'#7 - +#14'FormCloseQuery'#0#6'TPanel'#4'PTop'#6'Height'#2'!'#5'Width'#3#222#2#5'Al' - +'ign'#7#5'alTop'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'!'#11'Clie' - +'ntWidth'#3#222#2#11'FullRepaint'#8#8'TabOrder'#2#0#0#12'TDBNavigator'#12'DB' - +'Navigator1'#4'Left'#3#200#1#6'Height'#2#25#3'Top'#2#4#5'Width'#3#4#1#7'Anch' - +'ors'#11#5'akTop'#7'akRight'#0#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2 - +#25#11'ClientWidth'#3#4#1#10'DataSource'#7#9'DSAddress'#8'TabOrder'#2#0#0#0#0 - +#7'TDBGrid'#4'GDBA'#6'Height'#3#199#0#3'Top'#2'!'#5'Width'#3#222#2#5'Align'#7 - +#8'alClient'#5'Color'#7#7'clWhite'#7'Columns'#14#1#13'Title.Caption'#6#10'Fi' - +'rst name'#5'Width'#2'u'#9'FieldName'#6#9'FirstName'#0#1#13'Title.Caption'#6 - +#9'Last name'#5'Width'#2''#9'FieldName'#6#8'LastName'#0#1#13'Title.Caption' - +#6#7'Street '#5'Width'#3#131#0#9'FieldName'#6#6'Street'#0#1#13'Title.Caption' - +#6#4'Zip '#9'FieldName'#6#3'Zip'#0#1#13'Title.Caption'#6#5'Town '#5'Width'#2 - +'d'#9'FieldName'#6#4'Town'#0#1#13'Title.Caption'#6#8'Country '#9'FieldName'#6 - +#7'Country'#0#1#13'Title.Caption'#6#10'Telephone '#9'FieldName'#6#9'Telephon' - +'e'#0#1#13'Title.Caption'#6#4'Fax '#9'FieldName'#6#3'Fax'#0#1#13'Title.Capti' - +'on'#6#7'Mobile '#9'FieldName'#6#6'Mobile'#0#1#13'Title.Caption'#6#6'Email ' - +#9'FieldName'#6#5'Email'#0#1#13'Title.Caption'#6#4'WWW '#9'FieldName'#6#3'WW' - +'W'#0#0#10'DataSource'#7#9'DSAddress'#10'FixedColor'#7#9'clBtnFace'#7'Option' - +'s'#11#9'dgEditing'#8'dgTitles'#11'dgIndicator'#14'dgColumnResize'#12'dgColu' - +'mnMove'#10'dgColLines'#10'dgRowLines'#6'dgTabs'#21'dgAlwaysShowSelection'#15 - +'dgConfirmDelete'#14'dgCancelOnExit'#0#12'OptionsExtra'#11#14'dgeAutoColumns' - +#17'dgeCheckboxColumn'#0#11'ParentColor'#8#8'ReadOnly'#9#8'TabOrder'#2#1#7'T' - +'abStop'#9#0#0#6'TPanel'#7'PBottom'#6'Height'#3#4#1#3'Top'#3#232#0#5'Width'#3 - +#222#2#5'Align'#7#8'alBottom'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight' - +#3#4#1#11'ClientWidth'#3#222#2#11'FullRepaint'#8#8'TabOrder'#2#2#0#6'TLabel' - +#10'LELastName'#4'Left'#2#8#6'Height'#2#17#3'Top'#2#8#5'Width'#2'Y'#9'Alignm' - +'ent'#7#14'taRightJustify'#7'Caption'#6#10'&Last name'#5'Color'#7#6'clNone' - +#12'FocusControl'#7#9'ELastName'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0 - +#0#6'TLabel'#11'LEFirstName'#4'Left'#2#8#6'Height'#2#17#3'Top'#2' '#5'Width' - +#2'Y'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#11'&First name'#5'Color' - +#7#6'clNone'#12'FocusControl'#7#10'EFirstName'#6'Layout'#7#8'tlCenter'#11'Pa' - +'rentColor'#8#0#0#6'TLabel'#8'LEStreet'#4'Left'#2#8#6'Height'#2#17#3'Top'#2 - +'@'#5'Width'#2'8'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#7'&Street'#5 - +'Color'#7#6'clNone'#12'FocusControl'#7#7'EStreet'#6'Layout'#7#8'tlCenter'#11 - +'ParentColor'#8#0#0#6'TLabel'#5'LEZip'#4'Left'#2#8#6'Height'#2#17#3'Top'#2'X' - +#5'Width'#2'"'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#4'&Zip'#5'Colo' - +'r'#7#6'clNone'#12'FocusControl'#7#4'EZip'#6'Layout'#7#8'tlCenter'#11'Parent' - +'Color'#8#0#0#6'TLabel'#6'LETown'#4'Left'#3#8#1#6'Height'#2#17#3'Top'#2'X'#5 - +'Width'#2'4'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#5'T&own'#5'Color' - +#7#6'clNone'#12'FocusControl'#7#5'ETown'#6'Layout'#7#8'tlCenter'#11'ParentCo' - +'lor'#8#0#0#6'TLabel'#11'LETelephone'#4'Left'#2#8#6'Height'#2#17#3'Top'#3#144 - +#0#5'Width'#2'X'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#10'&Telephon' - +'e'#5'Color'#7#6'clNone'#12'FocusControl'#7#10'ETelephone'#6'Layout'#7#8'tlC' - +'enter'#11'ParentColor'#8#0#0#6'TLabel'#9'LECountry'#4'Left'#2#8#6'Height'#2 - +#17#3'Top'#2'p'#5'Width'#2'E'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6 - +#8'Countr&y'#5'Color'#7#6'clNone'#12'FocusControl'#7#8'ECountry'#6'Layout'#7 - +#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#5'LEFax'#4'Left'#3' '#1#6'Heigh' - +'t'#2#17#3'Top'#3#144#0#5'Width'#2''''#9'Alignment'#7#14'taRightJustify'#7'C' - +'aption'#6#4'Fa&x'#5'Color'#7#6'clNone'#12'FocusControl'#7#4'EFax'#6'Layout' - +#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#8'LEMobile'#4'Left'#3#216#1#6 - +'Height'#2#17#3'Top'#3#144#0#5'Width'#2':'#9'Alignment'#7#14'taRightJustify' - +#7'Caption'#6#7'&Mobile'#5'Color'#7#6'clNone'#12'FocusControl'#7#7'EMobile'#6 - +'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#7'LEEmail'#4'Left'#2#8 - +#6'Height'#2#17#3'Top'#3#176#0#5'Width'#2'4'#9'Alignment'#7#14'taRightJustif' - +'y'#7'Caption'#6#6'&Email'#5'Color'#7#6'clNone'#12'FocusControl'#7#6'EEmail' + +#14'FormCloseQuery'#10'LCLVersion'#6#6'0.9.29'#0#6'TPanel'#4'PTop'#4'Left'#2 + +#0#6'Height'#2'!'#3'Top'#2#0#5'Width'#3#222#2#5'Align'#7#5'alTop'#10'BevelOu' + +'ter'#7#9'bvLowered'#12'ClientHeight'#2'!'#11'ClientWidth'#3#222#2#11'FullRe' + +'paint'#8#8'TabOrder'#2#0#0#12'TDBNavigator'#12'DBNavigator1'#4'Left'#3#200#1 + +#6'Height'#2#25#3'Top'#2#4#5'Width'#3#4#1#7'Anchors'#11#5'akTop'#7'akRight'#0 + +#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2#25#11'ClientWidth'#3#4#1#10'D' + +'ataSource'#7#9'DSAddress'#8'TabOrder'#2#0#0#0#0#7'TDBGrid'#4'GDBA'#4'Left'#2 + +#0#6'Height'#3#204#0#3'Top'#2'!'#5'Width'#3#222#2#5'Align'#7#8'alClient'#5'C' + +'olor'#7#7'clWhite'#7'Columns'#14#1#13'Title.Caption'#6#10'First name'#5'Wid' + +'th'#2'u'#9'FieldName'#6#9'FirstName'#0#1#13'Title.Caption'#6#9'Last name'#5 + +'Width'#2#127#9'FieldName'#6#8'LastName'#0#1#13'Title.Caption'#6#7'Street '#5 + +'Width'#3#131#0#9'FieldName'#6#6'Street'#0#1#13'Title.Caption'#6#4'Zip '#9'F' + +'ieldName'#6#3'Zip'#0#1#13'Title.Caption'#6#5'Town '#5'Width'#2'd'#9'FieldNa' + +'me'#6#4'Town'#0#1#13'Title.Caption'#6#8'Country '#9'FieldName'#6#7'Country' + +#0#1#13'Title.Caption'#6#10'Telephone '#9'FieldName'#6#9'Telephone'#0#1#13'T' + +'itle.Caption'#6#4'Fax '#9'FieldName'#6#3'Fax'#0#1#13'Title.Caption'#6#7'Mob' + +'ile '#9'FieldName'#6#6'Mobile'#0#1#13'Title.Caption'#6#6'Email '#9'FieldNam' + +'e'#6#5'Email'#0#1#13'Title.Caption'#6#4'WWW '#9'FieldName'#6#3'WWW'#0#0#10 + +'DataSource'#7#9'DSAddress'#8'ReadOnly'#9#8'TabOrder'#2#1#16'TitleFont.Heigh' + +'t'#2#243#14'TitleFont.Name'#6#13'MS Sans Serif'#0#0#6'TPanel'#7'PBottom'#4 + +'Left'#2#0#6'Height'#3#4#1#3'Top'#3#237#0#5'Width'#3#222#2#5'Align'#7#8'alBo' + +'ttom'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#3#4#1#11'ClientWidth'#3 + +#222#2#11'FullRepaint'#8#8'TabOrder'#2#2#0#6'TLabel'#10'LELastName'#4'Left'#2 + +#8#6'Height'#2#19#3'Top'#2#8#5'Width'#2'='#9'Alignment'#7#14'taRightJustify' + +#7'Caption'#6#10'&Last name'#12'FocusControl'#7#9'ELastName'#6'Layout'#7#8't' + +'lCenter'#11'ParentColor'#8#0#0#6'TLabel'#11'LEFirstName'#4'Left'#2#8#6'Heig' + +'ht'#2#19#3'Top'#2'"'#5'Width'#2'>'#9'Alignment'#7#14'taRightJustify'#7'Capt' + +'ion'#6#11'&First name'#12'FocusControl'#7#10'EFirstName'#6'Layout'#7#8'tlCe' + +'nter'#11'ParentColor'#8#0#0#6'TLabel'#8'LEStreet'#4'Left'#2#8#6'Height'#2#19 + +#3'Top'#2'@'#5'Width'#2'%'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#7 + +'&Street'#12'FocusControl'#7#7'EStreet'#6'Layout'#7#8'tlCenter'#11'ParentCol' + +'or'#8#0#0#6'TLabel'#5'LEZip'#4'Left'#2#8#6'Height'#2#19#3'Top'#2'\'#5'Width' + +#2#23#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#4'&Zip'#12'FocusControl' + +#7#4'EZip'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#6'LETown' + +#4'Left'#3#8#1#6'Height'#2#19#3'Top'#2'Z'#5'Width'#2'#'#9'Alignment'#7#14'ta' + +'RightJustify'#7'Caption'#6#5'T&own'#12'FocusControl'#7#5'ETown'#6'Layout'#7 + +#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#11'LETelephone'#4'Left'#2#8#6'H' + +'eight'#2#19#3'Top'#3#145#0#5'Width'#2':'#9'Alignment'#7#14'taRightJustify'#7 + +'Caption'#6#10'&Telephone'#12'FocusControl'#7#10'ETelephone'#6'Layout'#7#8't' + +'lCenter'#11'ParentColor'#8#0#0#6'TLabel'#9'LECountry'#4'Left'#2#8#6'Height' + +#2#19#3'Top'#2's'#5'Width'#2'.'#9'Alignment'#7#14'taRightJustify'#7'Caption' + +#6#8'Countr&y'#12'FocusControl'#7#8'ECountry'#6'Layout'#7#8'tlCenter'#11'Par' + +'entColor'#8#0#0#6'TLabel'#5'LEFax'#4'Left'#3' '#1#6'Height'#2#19#3'Top'#3 + +#145#0#5'Width'#2#26#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#4'Fa&x' + +#12'FocusControl'#7#4'EFax'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6 + +'TLabel'#8'LEMobile'#4'Left'#3#216#1#6'Height'#2#19#3'Top'#3#145#0#5'Width'#2 + +''''#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#7'&Mobile'#12'FocusContr' + +'ol'#7#7'EMobile'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#7 + +'LEEmail'#4'Left'#2#8#6'Height'#2#19#3'Top'#3#176#0#5'Width'#2'"'#9'Alignmen' + +'t'#7#14'taRightJustify'#7'Caption'#6#6'&Email'#12'FocusControl'#7#6'EEmail' +#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#5'LEWWW'#4'Left'#2#8 - +#6'Height'#2#17#3'Top'#3#200#0#5'Width'#2'9'#9'Alignment'#7#14'taRightJustif' - +'y'#7'Caption'#6#4'&WWW'#5'Color'#7#6'clNone'#12'FocusControl'#7#4'EWWW'#6'L' - +'ayout'#7#8'tlCenter'#11'ParentColor'#8#0#0#7'TDBEdit'#9'ELastName'#4'Left'#3 - ,#160#0#6'Height'#2#24#3'Top'#2#8#5'Width'#3'i'#1#9'DataField'#6#8'LastName' - +#10'DataSource'#7#9'DSAddress'#11'ParentColor'#8#8'TabOrder'#2#0#0#0#7'TDBEd' - +'it'#10'EFirstName'#4'Left'#3#160#0#6'Height'#2#24#3'Top'#2' '#5'Width'#3'i' - +#1#9'DataField'#6#9'FirstName'#10'DataSource'#7#9'DSAddress'#11'ParentColor' - +#8#8'TabOrder'#2#1#0#0#7'TDBEdit'#7'EStreet'#4'Left'#3#160#0#6'Height'#2#24#3 - +'Top'#2'@'#5'Width'#3'i'#1#9'DataField'#6#6'Street'#10'DataSource'#7#9'DSAdd' - +'ress'#11'ParentColor'#8#8'TabOrder'#2#2#0#0#7'TDBEdit'#4'EZip'#4'Left'#3#160 - +#0#6'Height'#2#24#3'Top'#2'X'#5'Width'#2'Y'#9'DataField'#6#3'Zip'#10'DataSou' - +'rce'#7#9'DSAddress'#11'ParentColor'#8#8'TabOrder'#2#3#0#0#7'TDBEdit'#8'ECou' - +'ntry'#4'Left'#3#160#0#6'Height'#2#24#3'Top'#2'p'#5'Width'#3'i'#1#9'DataFiel' - +'d'#6#7'Country'#10'DataSource'#7#9'DSAddress'#11'ParentColor'#8#8'TabOrder' - +#2#5#0#0#7'TDBEdit'#4'EWWW'#4'Left'#3#160#0#6'Height'#2#24#3'Top'#3#200#0#5 - +'Width'#3'i'#1#9'DataField'#6#3'WWW'#10'DataSource'#7#9'DSAddress'#11'Parent' - +'Color'#8#8'TabOrder'#2#10#0#0#7'TDBEdit'#10'ETelephone'#4'Left'#3#160#0#6'H' - +'eight'#2#24#3'Top'#3#144#0#5'Width'#2'y'#9'DataField'#6#9'Telephone'#10'Dat' - +'aSource'#7#9'DSAddress'#11'ParentColor'#8#8'TabOrder'#2#6#0#0#7'TDBEdit'#4 - +'EFax'#4'Left'#3'P'#1#6'Height'#2#24#3'Top'#3#144#0#5'Width'#2'y'#9'DataFiel' - +'d'#6#3'Fax'#10'DataSource'#7#9'DSAddress'#11'ParentColor'#8#8'TabOrder'#2#7 - +#0#0#7'TDBEdit'#7'EMobile'#4'Left'#3#8#2#6'Height'#2#24#3'Top'#3#144#0#5'Wid' - +'th'#2'y'#9'DataField'#6#6'Mobile'#10'DataSource'#7#9'DSAddress'#11'ParentCo' - +'lor'#8#8'TabOrder'#2#8#0#0#7'TDBEdit'#6'EEmail'#4'Left'#3#160#0#6'Height'#2 - +#24#3'Top'#3#176#0#5'Width'#3'i'#1#9'DataField'#6#5'Email'#10'DataSource'#7#9 - +'DSAddress'#11'ParentColor'#8#8'TabOrder'#2#9#0#0#7'TDBEdit'#5'ETown'#4'Left' - +#3'@'#1#6'Height'#2#24#3'Top'#2'X'#5'Width'#3#201#0#9'DataField'#6#4'Town'#10 - +'DataSource'#7#9'DSAddress'#11'ParentColor'#8#8'TabOrder'#2#4#0#0#0#9'TMainM' - +'enu'#5'MMain'#4'left'#2'@'#3'top'#2'H'#0#9'TMenuItem'#5'MFile'#7'Caption'#6 - +#5'&File'#0#9'TMenuItem'#5'MINew'#6'Action'#7#4'ANew'#7'OnClick'#7#11'ANewEx' - +'ecute'#0#0#9'TMenuItem'#6'MIOpen'#6'Action'#7#5'AOpen'#7'OnClick'#7#12'AOpe' - +'nExecute'#0#0#9'TMenuItem'#7'MIClose'#6'Action'#7#6'AClose'#7'OnClick'#7#13 - +'ACloseExecute'#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#6 - +'MIQuit'#6'Action'#7#5'AQuit'#7'OnClick'#7#12'AQuitExecute'#0#0#0#9'TMenuIte' - +'m'#7'Record1'#7'Caption'#6#7'&Record'#0#9'TMenuItem'#7'MIFirst'#6'Action'#7 - +#6'AFirst'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#6'MILAst'#6'Action' - +#7#5'ALast'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#7'MIPrior'#6'Acti' - +'on'#7#6'APrior'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#6'MINext'#6 - +'Action'#7#5'ANext'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#2'N2'#7'C' - +'aption'#6#1'-'#0#0#9'TMenuItem'#8'MIInsert'#6'Action'#7#7'AInsert'#7'OnClic' - +'k'#7#12'DoDataAction'#0#0#9'TMenuItem'#6'MIEdit'#6'Action'#7#5'AEdit'#7'OnC' - +'lick'#7#12'DoDataAction'#0#0#9'TMenuItem'#8'MIDelete'#6'Action'#7#7'ADelete' - +#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#6'MIPost'#6'Action'#7#5'APos' - +'t'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#8'MICancel'#6'Action'#7#7 - +'ACancel'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#9'MIRefresh'#6'Acti' - +'on'#7#8'ARefresh'#7'OnClick'#7#12'DoDataAction'#0#0#0#0#11'TActionList'#6'A' - +'LMain'#4'left'#2'@'#3'top'#2'p'#0#7'TAction'#4'ANew'#7'Caption'#6#4'&New'#8 - +'HelpType'#7#9'htKeyword'#9'OnExecute'#7#11'ANewExecute'#0#0#7'TAction'#5'AO' - +'pen'#7'Caption'#6#5'&Open'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'AOp' - +'enExecute'#8'ShortCut'#3'O@'#0#0#7'TAction'#6'AClose'#7'Caption'#6#6'&Close' - +#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#13'ACloseExecute'#8'OnUpdate'#7#12 - +'ACloseUpdate'#0#0#7'TAction'#5'AQuit'#7'Caption'#6#5'&Quit'#8'HelpType'#7#9 - +'htKeyword'#9'OnExecute'#7#12'AQuitExecute'#8'ShortCut'#3'Q@'#0#0#7'TAction' - +#6'AFirst'#8'Category'#6#7'Dataset'#7'Caption'#6#6'&First'#8'HelpType'#7#9'h' - +'tKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#8'Short' - +'Cut'#3'F@'#0#0#7'TAction'#6'APrior'#3'Tag'#2#1#8'Category'#6#7'Dataset'#7'C' - +'aption'#6#6'&Prior'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataActi' - +'on'#8'OnUpdate'#7#8'DataOpen'#0#0#7'TAction'#5'ANext'#3'Tag'#2#2#8'Category' - +#6#7'Dataset'#7'Caption'#6#5'&Next'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7 - +#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#0#0#7'TAction'#5'ALast'#3'Tag'#2 - +#3#8'Category'#6#7'Dataset'#7'Caption'#6#5'&Last'#8'HelpType'#7#9'htKeyword' - +#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#8'ShortCut'#3'L@' - +#0#0#7'TAction'#7'AInsert'#3'Tag'#2#4#8'Category'#6#7'Dataset'#7'Caption'#6#7 - +'&Insert'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpd' - +'ate'#7#8'DataOpen'#8'ShortCut'#3'N@'#0#0#7'TAction'#7'ADelete'#3'Tag'#2#5#8 - +'Category'#6#7'Dataset'#7'Caption'#6#7'&Delete'#8'HelpType'#7#9'htKeyword'#9 - +'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#16'HaveDataNotEmpty'#8'ShortCut' - ,#3'D@'#0#0#7'TAction'#5'AEdit'#3'Tag'#2#6#8'Category'#6#7'Dataset'#7'Caption' - +#6#5'&Edit'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnU' - +'pdate'#7#16'HaveDataNotEmpty'#8'ShortCut'#2'q'#0#0#7'TAction'#5'APost'#3'Ta' - +'g'#2#7#8'Category'#6#7'Dataset'#7'Caption'#6#5'P&ost'#8'HelpType'#7#9'htKey' - +'word'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#10'InEditMode'#8'ShortC' - +'ut'#3'S@'#0#0#7'TAction'#7'ACancel'#3'Tag'#2#8#8'Category'#6#7'Dataset'#7'C' - +'aption'#6#7'&Cancel'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAct' - +'ion'#8'OnUpdate'#7#10'InEditMode'#0#0#7'TAction'#8'ARefresh'#8'Category'#6#7 - +'Dataset'#7'Caption'#6#8'&Refresh'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7 - +#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#8'ShortCut'#2't'#0#0#0#4'TDbf'#3 - +'DBA'#9'IndexDefs'#14#0#9'StoreDefs'#9#10'TableLevel'#2#4#11'AfterInsert'#7 - +#14'DBAAfterInsert'#4'left'#2'`'#3'top'#2'p'#0#0#11'TSaveDialog'#5'SDDBA'#5 - +'Title'#6#12'Save file as'#10'DefaultExt'#6#4'.dbf'#6'Filter'#6#29'DBF files' - +'|*.dbf|All files|*.*'#11'FilterIndex'#2#0#7'Options'#11#14'ofHideReadOnly' - +#15'ofPathMustExist'#14'ofEnableSizing'#0#4'left'#2'`'#3'top'#3#144#0#0#0#11 - +'TOpenDialog'#5'ODDBA'#5'Title'#6#18'Open existing file'#10'DefaultExt'#6#4 - +'.dbf'#6'Filter'#6#29'DBF files|*.dbf|All files|*.*'#11'FilterIndex'#2#0#7'O' - +'ptions'#11#14'ofHideReadOnly'#15'ofFileMustExist'#14'ofEnableSizing'#0#4'le' - +'ft'#2'@'#3'top'#3#144#0#0#0#11'TDatasource'#9'DSAddress'#7'DataSet'#7#3'DBA' - +#4'left'#3#128#0#3'top'#2'p'#0#0#0 + +#6'Height'#2#19#3'Top'#3#200#0#5'Width'#2'&'#9'Alignment'#7#14'taRightJustif' + +'y'#7'Caption'#6#4'&WWW'#12'FocusControl'#7#4'EWWW'#6'Layout'#7#8'tlCenter' + +#11'ParentColor'#8#0#0#7'TDBEdit'#9'ELastName'#4'Left'#3#160#0#6'Height'#2#28 + +#3'Top'#2#8#5'Width'#3'i'#1#9'DataField'#6#8'LastName'#10'DataSource'#7#9'DS' + +'Address'#8'CharCase'#7#8'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2#0#0#0#7'T' + +'DBEdit'#10'EFirstName'#4'Left'#3#160#0#6'Height'#2#28#3'Top'#2'#'#5'Width'#3 + +'i'#1#9'DataField'#6#9'FirstName'#10'DataSource'#7#9'DSAddress'#8'CharCase'#7 + +#8'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2#1#0#0#7'TDBEdit'#7'EStreet'#4'Le' + ,'ft'#3#160#0#6'Height'#2#28#3'Top'#2'>'#5'Width'#3'i'#1#9'DataField'#6#6'Str' + +'eet'#10'DataSource'#7#9'DSAddress'#8'CharCase'#7#8'ecNormal'#9'MaxLength'#2 + +#0#8'TabOrder'#2#2#0#0#7'TDBEdit'#4'EZip'#4'Left'#3#160#0#6'Height'#2#28#3'T' + +'op'#2'Y'#5'Width'#2'Y'#9'DataField'#6#3'Zip'#10'DataSource'#7#9'DSAddress'#8 + +'CharCase'#7#8'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2#3#0#0#7'TDBEdit'#8'E' + +'Country'#4'Left'#3#160#0#6'Height'#2#28#3'Top'#2't'#5'Width'#3'i'#1#9'DataF' + +'ield'#6#7'Country'#10'DataSource'#7#9'DSAddress'#8'CharCase'#7#8'ecNormal'#9 + +'MaxLength'#2#0#8'TabOrder'#2#5#0#0#7'TDBEdit'#4'EWWW'#4'Left'#3#160#0#6'Hei' + +'ght'#2#28#3'Top'#3#203#0#5'Width'#3'i'#1#9'DataField'#6#3'WWW'#10'DataSourc' + +'e'#7#9'DSAddress'#8'CharCase'#7#8'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2 + +#10#0#0#7'TDBEdit'#10'ETelephone'#4'Left'#3#160#0#6'Height'#2#28#3'Top'#3#144 + +#0#5'Width'#2'y'#9'DataField'#6#9'Telephone'#10'DataSource'#7#9'DSAddress'#8 + +'CharCase'#7#8'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2#6#0#0#7'TDBEdit'#4'E' + +'Fax'#4'Left'#3'P'#1#6'Height'#2#28#3'Top'#3#144#0#5'Width'#2'y'#9'DataField' + +#6#3'Fax'#10'DataSource'#7#9'DSAddress'#8'CharCase'#7#8'ecNormal'#9'MaxLengt' + +'h'#2#0#8'TabOrder'#2#7#0#0#7'TDBEdit'#7'EMobile'#4'Left'#3#8#2#6'Height'#2 + +#28#3'Top'#3#144#0#5'Width'#2'y'#9'DataField'#6#6'Mobile'#10'DataSource'#7#9 + +'DSAddress'#8'CharCase'#7#8'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2#8#0#0#7 + +'TDBEdit'#6'EEmail'#4'Left'#3#160#0#6'Height'#2#28#3'Top'#3#176#0#5'Width'#3 + +'i'#1#9'DataField'#6#5'Email'#10'DataSource'#7#9'DSAddress'#8'CharCase'#7#8 + +'ecNormal'#9'MaxLength'#2#0#8'TabOrder'#2#9#0#0#7'TDBEdit'#5'ETown'#4'Left'#3 + +'@'#1#6'Height'#2#28#3'Top'#2'Y'#5'Width'#3#201#0#9'DataField'#6#4'Town'#10 + +'DataSource'#7#9'DSAddress'#8'CharCase'#7#8'ecNormal'#9'MaxLength'#2#0#8'Tab' + +'Order'#2#4#0#0#0#9'TMainMenu'#5'MMain'#4'left'#2'@'#3'top'#2'H'#0#9'TMenuIt' + +'em'#5'MFile'#7'Caption'#6#5'&File'#0#9'TMenuItem'#5'MINew'#6'Action'#7#4'AN' + +'ew'#7'OnClick'#7#11'ANewExecute'#0#0#9'TMenuItem'#6'MIOpen'#6'Action'#7#5'A' + +'Open'#7'OnClick'#7#12'AOpenExecute'#0#0#9'TMenuItem'#7'MIClose'#6'Action'#7 + +#6'AClose'#7'OnClick'#7#13'ACloseExecute'#0#0#9'TMenuItem'#2'N1'#7'Caption'#6 + +#1'-'#0#0#9'TMenuItem'#6'MIQuit'#6'Action'#7#5'AQuit'#7'OnClick'#7#12'AQuitE' + +'xecute'#0#0#0#9'TMenuItem'#7'Record1'#7'Caption'#6#7'&Record'#0#9'TMenuItem' + +#7'MIFirst'#6'Action'#7#6'AFirst'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuI' + +'tem'#6'MILAst'#6'Action'#7#5'ALast'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMe' + +'nuItem'#7'MIPrior'#6'Action'#7#6'APrior'#7'OnClick'#7#12'DoDataAction'#0#0#9 + +'TMenuItem'#6'MINext'#6'Action'#7#5'ANext'#7'OnClick'#7#12'DoDataAction'#0#0 + +#9'TMenuItem'#2'N2'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#8'MIInsert'#6'Action' + +#7#7'AInsert'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#6'MIEdit'#6'Act' + +'ion'#7#5'AEdit'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#8'MIDelete'#6 + +'Action'#7#7'ADelete'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#6'MIPos' + +'t'#6'Action'#7#5'APost'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuItem'#8'MI' + +'Cancel'#6'Action'#7#7'ACancel'#7'OnClick'#7#12'DoDataAction'#0#0#9'TMenuIte' + +'m'#9'MIRefresh'#6'Action'#7#8'ARefresh'#7'OnClick'#7#12'DoDataAction'#0#0#0 + +#0#11'TActionList'#6'ALMain'#4'left'#3#135#0#3'top'#2'H'#0#7'TAction'#4'ANew' + +#7'Caption'#6#4'&New'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#11'ANewExecu' + +'te'#0#0#7'TAction'#5'AOpen'#7'Caption'#6#5'&Open'#8'HelpType'#7#9'htKeyword' + +#9'OnExecute'#7#12'AOpenExecute'#8'ShortCut'#3'O@'#0#0#7'TAction'#6'AClose'#7 + +'Caption'#6#6'&Close'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#13'ACloseExe' + +'cute'#8'OnUpdate'#7#12'ACloseUpdate'#0#0#7'TAction'#5'AQuit'#7'Caption'#6#5 + +'&Quit'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'AQuitExecute'#8'ShortCu' + +'t'#3'Q@'#0#0#7'TAction'#6'AFirst'#8'Category'#6#7'Dataset'#7'Caption'#6#6'&' + +'First'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdat' + +'e'#7#8'DataOpen'#8'ShortCut'#3'F@'#0#0#7'TAction'#6'APrior'#3'Tag'#2#1#8'Ca' + +'tegory'#6#7'Dataset'#7'Caption'#6#6'&Prior'#8'HelpType'#7#9'htKeyword'#9'On' + +'Execute'#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#0#0#7'TAction'#5'ANex' + +'t'#3'Tag'#2#2#8'Category'#6#7'Dataset'#7'Caption'#6#5'&Next'#8'HelpType'#7#9 + +'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#0#0#7 + +'TAction'#5'ALast'#3'Tag'#2#3#8'Category'#6#7'Dataset'#7'Caption'#6#5'&Last' + +#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#8 + +'DataOpen'#8'ShortCut'#3'L@'#0#0#7'TAction'#7'AInsert'#3'Tag'#2#4#8'Category' + +#6#7'Dataset'#7'Caption'#6#7'&Insert'#8'HelpType'#7#9'htKeyword'#9'OnExecute' + +#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#8'ShortCut'#3'N@'#0#0#7'TActio' + +'n'#7'ADelete'#3'Tag'#2#5#8'Category'#6#7'Dataset'#7'Caption'#6#7'&Delete'#8 + +'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#16'H' + +'aveDataNotEmpty'#8'ShortCut'#3'D@'#0#0#7'TAction'#5'AEdit'#3'Tag'#2#6#8'Cat' + +'egory'#6#7'Dataset'#7'Caption'#6#5'&Edit'#8'HelpType'#7#9'htKeyword'#9'OnEx' + ,'ecute'#7#12'DoDataAction'#8'OnUpdate'#7#16'HaveDataNotEmpty'#8'ShortCut'#2 + +'q'#0#0#7'TAction'#5'APost'#3'Tag'#2#7#8'Category'#6#7'Dataset'#7'Caption'#6 + +#5'P&ost'#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpd' + +'ate'#7#10'InEditMode'#8'ShortCut'#3'S@'#0#0#7'TAction'#7'ACancel'#3'Tag'#2#8 + +#8'Category'#6#7'Dataset'#7'Caption'#6#7'&Cancel'#8'HelpType'#7#9'htKeyword' + +#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#10'InEditMode'#0#0#7'TAction' + +#8'ARefresh'#8'Category'#6#7'Dataset'#7'Caption'#6#8'&Refresh'#8'HelpType'#7 + +#9'htKeyword'#9'OnExecute'#7#12'DoDataAction'#8'OnUpdate'#7#8'DataOpen'#8'Sh' + +'ortCut'#2't'#0#0#0#4'TDbf'#3'DBA'#9'IndexDefs'#14#0#9'StoreDefs'#9#10'Table' + +'Level'#2#4#13'FilterOptions'#11#0#11'AfterInsert'#7#14'DBAAfterInsert'#4'le' + +'ft'#3#215#0#3'top'#2'H'#0#0#11'TSaveDialog'#5'SDDBA'#10'DefaultExt'#6#4'.db' + +'f'#6'Filter'#6#29'DBF files|*.dbf|All files|*.*'#11'FilterIndex'#2#0#7'Opti' + +'ons'#11#14'ofHideReadOnly'#15'ofPathMustExist'#14'ofEnableSizing'#0#4'left' + +#3#135#0#3'top'#3#144#0#0#0#11'TOpenDialog'#5'ODDBA'#10'DefaultExt'#6#4'.dbf' + +#6'Filter'#6#29'DBF files|*.dbf|All files|*.*'#11'FilterIndex'#2#0#7'Options' + +#11#14'ofHideReadOnly'#15'ofFileMustExist'#14'ofEnableSizing'#0#4'left'#2'@' + +#3'top'#3#144#0#0#0#11'TDatasource'#9'DSAddress'#7'DataSet'#7#3'DBA'#4'left' + +#3'"'#1#3'top'#2'H'#0#0#0 ]); diff --git a/examples/address_book/frmmain.pas b/examples/address_book/frmmain.pas index a66b9bc388..2c298935f0 100644 --- a/examples/address_book/frmmain.pas +++ b/examples/address_book/frmmain.pas @@ -23,7 +23,7 @@ unit frmmain; interface uses - Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Dbf, Grids, DBGrids, DBCtrls, ExtCtrls, ActnList, Menus, StdCtrls,lresources;