Check if Rule/user box is empty in new table

	modified:   TurboBird.lpi
	modified:   newtable.lfm
	modified:   newtable.lrs
	modified:   newtable.pas

TurboBird.lpi

@@ -55,15 +55,16 @@
         <PackageName Value="LCL"/>
       </Item5>
     </RequiredPackages>
-    <Units Count="106">
+    <Units Count="107">
       <Unit0>
         <Filename Value="TurboBird.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="TurboBird"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="30" Y="7"/>
+        <TopLine Value="58"/>
+        <CursorPos X="1" Y="84"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -120,7 +121,7 @@
         <UnitName Value="QueryWindow"/>
         <EditorIndex Value="8"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
+        <TopLine Value="527"/>
         <CursorPos X="42" Y="556"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
@@ -200,11 +201,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="NewTable"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="5"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="98"/>
-        <CursorPos X="1" Y="122"/>
+        <TopLine Value="102"/>
+        <CursorPos X="67" Y="115"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -1022,127 +1022,139 @@
         <CursorPos X="63" Y="24"/>
         <UsageCount Value="10"/>
       </Unit105>
+      <Unit106>
+        <Filename Value="procmod.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="fmProcMod"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="ProcMod"/>
+        <WindowIndex Value="0"/>
+        <TopLine Value="1"/>
+        <CursorPos X="1" Y="1"/>
+        <UsageCount Value="20"/>
+      </Unit106>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="newtable.pas"/>
-        <Caret Line="259" Column="7" TopLine="250"/>
+        <Caret Line="36" Column="34" TopLine="18"/>
       </Position1>
       <Position2>
         <Filename Value="newtable.pas"/>
-        <Caret Line="41" Column="56" TopLine="28"/>
+        <Caret Line="121" Column="34" TopLine="103"/>
       </Position2>
       <Position3>
         <Filename Value="newtable.pas"/>
-        <Caret Line="304" Column="15" TopLine="296"/>
+        <Caret Line="201" Column="48" TopLine="189"/>
       </Position3>
       <Position4>
         <Filename Value="newtable.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Caret Line="204" Column="15" TopLine="190"/>
       </Position4>
       <Position5>
         <Filename Value="newtable.pas"/>
-        <Caret Line="36" Column="34" TopLine="18"/>
+        <Caret Line="303" Column="15" TopLine="283"/>
       </Position5>
       <Position6>
         <Filename Value="newtable.pas"/>
-        <Caret Line="121" Column="34" TopLine="103"/>
+        <Caret Line="299" Column="36" TopLine="292"/>
       </Position6>
       <Position7>
         <Filename Value="newtable.pas"/>
-        <Caret Line="201" Column="48" TopLine="189"/>
+        <Caret Line="140" Column="3" TopLine="136"/>
       </Position7>
       <Position8>
         <Filename Value="newtable.pas"/>
-        <Caret Line="204" Column="15" TopLine="190"/>
+        <Caret Line="301" Column="32" TopLine="291"/>
       </Position8>
       <Position9>
         <Filename Value="newtable.pas"/>
-        <Caret Line="303" Column="15" TopLine="283"/>
+        <Caret Line="203" Column="8" TopLine="189"/>
       </Position9>
       <Position10>
         <Filename Value="newtable.pas"/>
-        <Caret Line="299" Column="36" TopLine="292"/>
+        <Caret Line="140" Column="1" TopLine="136"/>
       </Position10>
       <Position11>
         <Filename Value="newtable.pas"/>
-        <Caret Line="140" Column="3" TopLine="136"/>
+        <Caret Line="296" Column="22" TopLine="277"/>
       </Position11>
       <Position12>
         <Filename Value="newtable.pas"/>
-        <Caret Line="301" Column="32" TopLine="291"/>
+        <Caret Line="142" Column="23" TopLine="136"/>
       </Position12>
       <Position13>
         <Filename Value="newtable.pas"/>
-        <Caret Line="203" Column="8" TopLine="189"/>
+        <Caret Line="208" Column="53" TopLine="200"/>
       </Position13>
       <Position14>
         <Filename Value="newtable.pas"/>
-        <Caret Line="140" Column="1" TopLine="136"/>
+        <Caret Line="214" Column="9" TopLine="194"/>
       </Position14>
       <Position15>
         <Filename Value="newtable.pas"/>
-        <Caret Line="296" Column="22" TopLine="277"/>
+        <Caret Line="140" Column="3" TopLine="136"/>
       </Position15>
       <Position16>
         <Filename Value="newtable.pas"/>
-        <Caret Line="142" Column="23" TopLine="136"/>
+        <Caret Line="333" Column="3" TopLine="330"/>
       </Position16>
       <Position17>
         <Filename Value="newtable.pas"/>
-        <Caret Line="208" Column="53" TopLine="200"/>
+        <Caret Line="149" Column="9" TopLine="136"/>
       </Position17>
       <Position18>
         <Filename Value="newtable.pas"/>
-        <Caret Line="214" Column="9" TopLine="194"/>
+        <Caret Line="28" Column="15" TopLine="20"/>
       </Position18>
       <Position19>
         <Filename Value="newtable.pas"/>
-        <Caret Line="140" Column="3" TopLine="136"/>
+        <Caret Line="148" Column="5" TopLine="136"/>
       </Position19>
       <Position20>
         <Filename Value="newtable.pas"/>
-        <Caret Line="333" Column="3" TopLine="330"/>
+        <Caret Line="313" Column="1" TopLine="301"/>
       </Position20>
       <Position21>
         <Filename Value="newtable.pas"/>
-        <Caret Line="149" Column="9" TopLine="136"/>
+        <Caret Line="310" Column="18" TopLine="301"/>
       </Position21>
       <Position22>
         <Filename Value="newtable.pas"/>
-        <Caret Line="28" Column="15" TopLine="20"/>
+        <Caret Line="311" Column="18" TopLine="302"/>
       </Position22>
       <Position23>
         <Filename Value="newtable.pas"/>
-        <Caret Line="148" Column="5" TopLine="136"/>
+        <Caret Line="312" Column="18" TopLine="303"/>
       </Position23>
       <Position24>
         <Filename Value="newtable.pas"/>
-        <Caret Line="313" Column="1" TopLine="301"/>
+        <Caret Line="313" Column="18" TopLine="304"/>
       </Position24>
       <Position25>
         <Filename Value="newtable.pas"/>
-        <Caret Line="310" Column="18" TopLine="301"/>
+        <Caret Line="139" Column="108" TopLine="115"/>
       </Position25>
       <Position26>
         <Filename Value="newtable.pas"/>
-        <Caret Line="311" Column="18" TopLine="302"/>
+        <Caret Line="241" Column="3" TopLine="235"/>
       </Position26>
       <Position27>
         <Filename Value="newtable.pas"/>
-        <Caret Line="312" Column="18" TopLine="303"/>
+        <Caret Line="122" Column="1" TopLine="98"/>
       </Position27>
       <Position28>
         <Filename Value="newtable.pas"/>
-        <Caret Line="313" Column="18" TopLine="304"/>
+        <Caret Line="308" Column="3" TopLine="308"/>
       </Position28>
       <Position29>
         <Filename Value="newtable.pas"/>
-        <Caret Line="139" Column="108" TopLine="115"/>
+        <Caret Line="252" Column="3" TopLine="246"/>
       </Position29>
       <Position30>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="241" Column="3" TopLine="235"/>
+        <Filename Value="TurboBird.lpr"/>
+        <Caret Line="24" Column="23" TopLine="13"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>

newtable.lfm

@@ -162,13 +162,11 @@ object fmNewTable: TfmNewTable
     Width = 161
     Anchors = [akLeft, akBottom]
     ItemHeight = 0
-    ItemIndex = 0
     Items.Strings = (
       'Full'
       'Read '
       'Insert'
     )
     TabOrder = 8
-    Text = 'Full'
   end
 end

newtable.lrs

@@ -45,6 +45,6 @@ LazarusResources.Add('TfmNewTable','FORMDATA',[
   +#251#1#5'Width'#2'^'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#13'P'
   +'ermission to'#11'ParentColor'#8#0#0#9'TComboBox'#12'cbRolesUsers'#4'Left'#3
   +'x'#1#6'Height'#2#29#3'Top'#3#240#1#5'Width'#3#161#0#7'Anchors'#11#6'akLeft'
-  +#8'akBottom'#0#10'ItemHeight'#2#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#4'F'
-  +'ull'#6#5'Read '#6#6'Insert'#0#8'TabOrder'#2#8#4'Text'#6#4'Full'#0#0#0
+  +#8'akBottom'#0#10'ItemHeight'#2#0#13'Items.Strings'#1#6#4'Full'#6#5'Read '#6
+  +#6'Insert'#0#8'TabOrder'#2#8#0#0#0
 ]);

newtable.pas

@@ -112,7 +112,7 @@ begin
   Result:= Result + ');' + #10;
 
   // Permission
-  if cxGrantPermission.Checked then
+  if cxGrantPermission.Checked and (Trim(cbRolesUsers.Text) <> '') then
   begin
     case cbPermission.ItemIndex of
       0: Result:= Result + 'grant All on ' + edNewTable.Text + ' to ' + cbRolesUsers.Text + ';';