Examples/dblookup: Fix compilation.

git-svn-id: trunk@65316 -

examples/database/dblookup/project1.lpi

@@ -1,10 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="10"/>
+    <Version Value="12"/>
     <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
     </General>
@@ -17,14 +19,12 @@
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
-      <IgnoreBinaries Value="False"/>
-      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
-      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
     </PublishOptions>
     <RunParams>
-      <local>
+      <FormatVersion Value="2"/>
-        <FormatVersion Value="1"/>
+      <Modes Count="1">
-      </local>
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
     <RequiredPackages Count="3">
       <Item1>

examples/database/dblookup/project1.lpr

@@ -13,6 +13,7 @@ uses
 {$R *.res}
 
 begin
+  Application.Title:='';
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.Run;

examples/database/dblookup/unit1.lfm

@@ -8,7 +8,7 @@ object Form1: TForm1
   ClientHeight = 439
   ClientWidth = 554
   OnShow = FormShow
-  LCLVersion = '0.9.31'
+  LCLVersion = '2.3.0.0'
   object DBGrid1: TDBGrid
     Left = 0
     Height = 171
@@ -17,7 +17,7 @@ object Form1: TForm1
     Align = alTop
     Color = clWindow
     Columns = <>
-    DataSource = Datasource1
+    DataSource = DataSource1
     TabOrder = 0
   end
   object DBGrid2: TDBGrid
@@ -28,7 +28,7 @@ object Form1: TForm1
     Align = alClient
     Color = clWindow
     Columns = <>
-    DataSource = Datasource2
+    DataSource = DataSource2
     TabOrder = 1
   end
   object Splitter1: TSplitter
@@ -52,15 +52,15 @@ object Form1: TForm1
     TabOrder = 3
     object DBLookupComboBox1: TDBLookupComboBox
       Left = 120
-      Height = 21
+      Height = 23
       Top = 66
       Width = 100
       DataField = 'ID_MONTH'
-      DataSource = Datasource2
+      DataSource = DataSource2
       KeyField = 'ID'
       ListField = 'MTH_NAME'
       ListFieldIndex = 0
-      ListSource = Datasource1
+      ListSource = DataSource1
       LookupCache = False
       Style = csDropDownList
       TabOrder = 0
@@ -71,11 +71,11 @@ object Form1: TForm1
       Top = 2
       Width = 100
       DataField = 'ID_MONTH'
-      DataSource = Datasource2
+      DataSource = DataSource2
       KeyField = 'ID'
       ListField = 'MTH_NAME'
       ListFieldIndex = 0
-      ListSource = Datasource1
+      ListSource = DataSource1
       LookupCache = False
       TabOrder = 1
     end
@@ -85,7 +85,7 @@ object Form1: TForm1
       Top = 2
       Width = 100
       DataField = 'MONTH_NA'
-      DataSource = Datasource2
+      DataSource = DataSource2
       ListField = 'MTH_NAME'
       ListFieldIndex = 0
       LookupCache = False
@@ -93,11 +93,11 @@ object Form1: TForm1
     end
     object DBLookupComboBox2: TDBLookupComboBox
       Left = 360
-      Height = 21
+      Height = 23
       Top = 66
       Width = 100
       DataField = 'MONTH_NA'
-      DataSource = Datasource2
+      DataSource = DataSource2
       ListField = 'MTH_NAME'
       ListFieldIndex = 0
       LookupCache = False
@@ -113,16 +113,6 @@ object Form1: TForm1
     Align = alBottom
     ResizeAnchor = akBottom
   end
-  object Datasource1: TDatasource
-    DataSet = Dbf1
-    left = 184
-    top = 40
-  end
-  object Datasource2: TDatasource
-    DataSet = Dbf2
-    left = 184
-    top = 176
-  end
   object Dbf1: TDbf
     FilePath = '.\data\'
     IndexDefs = <    
@@ -135,8 +125,8 @@ object Form1: TForm1
     TableName = 'months.dbf'
     TableLevel = 3
     FilterOptions = []
-    left = 144
+    Left = 144
-    top = 40
+    Top = 40
     object Dbf1ID: TLongintField
       DisplayWidth = 10
       FieldKind = fkData
@@ -192,8 +182,8 @@ object Form1: TForm1
     TableName = 'lookerup.dbf'
     TableLevel = 3
     FilterOptions = []
-    left = 144
+    Left = 144
-    top = 176
+    Top = 176
     object Dbf2ID: TLongintField
       DisplayWidth = 6
       FieldKind = fkData
@@ -252,4 +242,14 @@ object Form1: TForm1
       Size = 18
     end
   end
+  object DataSource1: TDataSource
+    DataSet = Dbf1
+    Left = 227
+    Top = 40
+  end
+  object DataSource2: TDataSource
+    DataSet = Dbf2
+    Left = 227
+    Top = 176
+  end
 end

examples/database/dblookup/unit1.pas

@@ -12,8 +12,8 @@ type
   { TForm1 }
 
   TForm1 = class(TForm)
-    Datasource1: TDatasource;
+    DataSource1: TDataSource;
-    Datasource2: TDatasource;
+    DataSource2: TDataSource;
     Dbf1: TDbf;
     Dbf1ID: TLongintField;
     Dbf1LANG: TStringField;