Cosmetic

TurboBird.lpi

@@ -275,6 +275,7 @@
         <Filename Value="neweditfield.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="fmNewEditField"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="NewEditField"/>
       </Unit22>

neweditfield.lfm

@@ -1,7 +1,7 @@
 object fmNewEditField: TfmNewEditField
-  Left = 639
+  Left = 442
   Height = 336
-  Top = 391
+  Top = 254
   Width = 320
   ActiveControl = edFieldName
   BorderIcons = [biSystemMenu]
@@ -11,68 +11,68 @@ object fmNewEditField: TfmNewEditField
   ClientWidth = 320
   OnClose = FormClose
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.2.2.0'
   object Label1: TLabel
-    Left = 10
-    Height = 18
+    Left = 8
+    Height = 13
     Top = 14
-    Width = 77
+    Width = 52
     Caption = 'Field Name'
     ParentColor = False
   end
   object Label2: TLabel
     Left = 8
-    Height = 18
+    Height = 13
     Top = 48
-    Width = 69
+    Width = 49
     Caption = 'Field Type'
     ParentColor = False
   end
   object Label3: TLabel
-    Left = 10
-    Height = 18
+    Left = 8
+    Height = 13
     Top = 81
-    Width = 28
+    Width = 19
     Caption = 'Size'
     ParentColor = False
   end
   object Label4: TLabel
-    Left = 10
-    Height = 18
+    Left = 8
+    Height = 13
     Top = 116
-    Width = 77
+    Width = 53
     Caption = 'Field Order'
     ParentColor = False
   end
   object Label5: TLabel
     Left = 8
-    Height = 18
+    Height = 13
     Top = 192
-    Width = 92
+    Width = 64
     Caption = 'Default Value'
     ParentColor = False
   end
   object edFieldName: TEdit
     Left = 101
-    Height = 27
+    Height = 21
     Top = 12
     Width = 139
     TabOrder = 0
   end
   object cbType: TComboBox
     Left = 101
-    Height = 31
+    Height = 21
     Top = 40
     Width = 139
     Color = 16249563
-    ItemHeight = 0
+    ItemHeight = 13
     OnChange = cbTypeChange
     Style = csDropDownList
     TabOrder = 1
   end
   object seSize: TSpinEdit
     Left = 101
-    Height = 27
+    Height = 21
     Top = 77
     Width = 50
     MaxValue = 10000
@@ -80,9 +80,9 @@ object fmNewEditField: TfmNewEditField
   end
   object cxAllowNull: TCheckBox
     Left = 8
-    Height = 22
+    Height = 17
     Top = 152
-    Width = 92
+    Width = 65
     Caption = 'Allow Null'
     Checked = True
     State = cbChecked
@@ -100,7 +100,7 @@ object fmNewEditField: TfmNewEditField
   end
   object seOrder: TSpinEdit
     Left = 101
-    Height = 27
+    Height = 21
     Top = 112
     Width = 50
     MaxValue = 10000
@@ -109,22 +109,22 @@ object fmNewEditField: TfmNewEditField
   end
   object edDefault: TEdit
     Left = 112
-    Height = 27
+    Height = 21
     Top = 186
     Width = 116
     TabOrder = 6
   end
   object Label6: TLabel
-    Left = 10
-    Height = 18
+    Left = 8
+    Height = 13
     Top = 232
-    Width = 115
+    Width = 78
     Caption = 'Field Description'
     ParentColor = False
   end
   object edDescription: TEdit
-    Left = 10
-    Height = 27
+    Left = 8
+    Height = 21
     Top = 250
     Width = 294
     TabOrder = 7

neweditfield.lrs

@@ -1,32 +1,34 @@
+{ This is an automatically generated lazarus resource file }
+
 LazarusResources.Add('TfmNewEditField','FORMDATA',[
-  'TPF0'#15'TfmNewEditField'#14'fmNewEditField'#4'Left'#3#127#2#6'Height'#3'P'#1
-  +#3'Top'#3#135#1#5'Width'#3'@'#1#13'ActiveControl'#7#11'edFieldName'#11'Borde'
+  'TPF0'#15'TfmNewEditField'#14'fmNewEditField'#4'Left'#3#186#1#6'Height'#3'P'#1
+  +#3'Top'#3#254#0#5'Width'#3'@'#1#13'ActiveControl'#7#11'edFieldName'#11'Borde'
   +'rIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#14
   +'fmNewEditField'#12'ClientHeight'#3'P'#1#11'ClientWidth'#3'@'#1#7'OnClose'#7
-  +#9'FormClose'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.31'#0#6
-  +'TLabel'#6'Label1'#4'Left'#2#10#6'Height'#2#18#3'Top'#2#14#5'Width'#2'M'#7'C'
-  +'aption'#6#10'Field Name'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2
-  +#8#6'Height'#2#18#3'Top'#2'0'#5'Width'#2'E'#7'Caption'#6#10'Field Type'#11'P'
-  +'arentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#10#6'Height'#2#18#3'Top'#2
-  +'Q'#5'Width'#2#28#7'Caption'#6#4'Size'#11'ParentColor'#8#0#0#6'TLabel'#6'Lab'
-  +'el4'#4'Left'#2#10#6'Height'#2#18#3'Top'#2't'#5'Width'#2'M'#7'Caption'#6#11
-  +'Field Order'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#8#6'Height'
-  +#2#18#3'Top'#3#192#0#5'Width'#2'\'#7'Caption'#6#13'Default Value'#11'ParentC'
-  +'olor'#8#0#0#5'TEdit'#11'edFieldName'#4'Left'#2'e'#6'Height'#2#27#3'Top'#2#12
+  +#9'FormClose'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.2.2.0'#0
+  +#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#14#5'Width'#2'4'#7
+  +'Caption'#6#10'Field Name'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'
+  +#2#8#6'Height'#2#13#3'Top'#2'0'#5'Width'#2'1'#7'Caption'#6#10'Field Type'#11
+  +'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#8#6'Height'#2#13#3'Top'#2
+  +'Q'#5'Width'#2#19#7'Caption'#6#4'Size'#11'ParentColor'#8#0#0#6'TLabel'#6'Lab'
+  +'el4'#4'Left'#2#8#6'Height'#2#13#3'Top'#2't'#5'Width'#2'5'#7'Caption'#6#11'F'
+  +'ield Order'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#8#6'Height'
+  +#2#13#3'Top'#3#192#0#5'Width'#2'@'#7'Caption'#6#13'Default Value'#11'ParentC'
+  +'olor'#8#0#0#5'TEdit'#11'edFieldName'#4'Left'#2'e'#6'Height'#2#21#3'Top'#2#12
   +#5'Width'#3#139#0#8'TabOrder'#2#0#0#0#9'TComboBox'#6'cbType'#4'Left'#2'e'#6
-  +'Height'#2#31#3'Top'#2'('#5'Width'#3#139#0#5'Color'#4#219#242#247#0#10'ItemH'
-  +'eight'#2#0#8'OnChange'#7#12'cbTypeChange'#5'Style'#7#14'csDropDownList'#8'T'
-  +'abOrder'#2#1#0#0#9'TSpinEdit'#6'seSize'#4'Left'#2'e'#6'Height'#2#27#3'Top'#2
-  +'M'#5'Width'#2'2'#8'MaxValue'#3#16''''#8'TabOrder'#2#2#0#0#9'TCheckBox'#11'c'
-  +'xAllowNull'#4'Left'#2#8#6'Height'#2#22#3'Top'#3#152#0#5'Width'#2'\'#7'Capti'
-  +'on'#6#10'Allow Null'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#4#0
+  +'Height'#2#21#3'Top'#2'('#5'Width'#3#139#0#5'Color'#4#219#242#247#0#10'ItemH'
+  +'eight'#2#13#8'OnChange'#7#12'cbTypeChange'#5'Style'#7#14'csDropDownList'#8
+  +'TabOrder'#2#1#0#0#9'TSpinEdit'#6'seSize'#4'Left'#2'e'#6'Height'#2#21#3'Top'
+  +#2'M'#5'Width'#2'2'#8'MaxValue'#3#16''''#8'TabOrder'#2#2#0#0#9'TCheckBox'#11
+  +'cxAllowNull'#4'Left'#2#8#6'Height'#2#17#3'Top'#3#152#0#5'Width'#2'A'#7'Capt'
+  +'ion'#6#10'Allow Null'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#4#0
   +#0#7'TBitBtn'#5'bbAdd'#4'Left'#2#10#6'Height'#2#30#3'Top'#3' '#1#5'Width'#2
   +'K'#7'Caption'#6#3'Add'#5'Color'#4#219#242#247#0#7'OnClick'#7#10'bbAddClick'
-  +#8'TabOrder'#2#5#0#0#9'TSpinEdit'#7'seOrder'#4'Left'#2'e'#6'Height'#2#27#3'T'
+  +#8'TabOrder'#2#5#0#0#9'TSpinEdit'#7'seOrder'#4'Left'#2'e'#6'Height'#2#21#3'T'
   +'op'#2'p'#5'Width'#2'2'#8'MaxValue'#3#16''''#8'TabOrder'#2#3#5'Value'#2#1#0#0
-  +#5'TEdit'#9'edDefault'#4'Left'#2'p'#6'Height'#2#27#3'Top'#3#186#0#5'Width'#2
-  +'t'#8'TabOrder'#2#6#0#0#6'TLabel'#6'Label6'#4'Left'#2#10#6'Height'#2#18#3'To'
-  +'p'#3#232#0#5'Width'#2's'#7'Caption'#6#17'Field Description'#11'ParentColor'
-  +#8#0#0#5'TEdit'#13'edDescription'#4'Left'#2#10#6'Height'#2#27#3'Top'#3#250#0
-  +#5'Width'#3'&'#1#8'TabOrder'#2#7#0#0#0
+  +#5'TEdit'#9'edDefault'#4'Left'#2'p'#6'Height'#2#21#3'Top'#3#186#0#5'Width'#2
+  +'t'#8'TabOrder'#2#6#0#0#6'TLabel'#6'Label6'#4'Left'#2#8#6'Height'#2#13#3'Top'
+  +#3#232#0#5'Width'#2'N'#7'Caption'#6#17'Field Description'#11'ParentColor'#8#0
+  +#0#5'TEdit'#13'edDescription'#4'Left'#2#8#6'Height'#2#21#3'Top'#3#250#0#5'Wi'
+  +'dth'#3'&'#1#8'TabOrder'#2#7#0#0#0
 ]);

tablemanage.pas

@@ -291,7 +291,7 @@ begin
   with fmNewEditField do
   begin
     Init(FDBIndex, FTableName, foNew, '', '', '', '', 0, 0, True, bbRefresh);
-    Caption:= 'Add new field on Table: ' + FTableName;
+    Caption:= 'Add new field to Table: ' + FTableName;
     Show;
   end;
 end;