Pārlūkot izejas kodu

remove hiding table management on modification
modified: TurboBird.lpi
modified: tablemanage.pas

Motaz Abdel Azeem 13 gadi atpakaļ
vecāks
revīzija
b17a75c3f9
2 mainītis faili ar 56 papildinājumiem un 56 dzēšanām
  1. 55 51
      TurboBird.lpi
  2. 1 5
      tablemanage.pas

+ 55 - 51
TurboBird.lpi

@@ -594,8 +594,8 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="12"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="303"/>
-        <CursorPos X="53" Y="310"/>
+        <TopLine Value="105"/>
+        <CursorPos X="3" Y="112"/>
         <UsageCount Value="155"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -990,123 +990,127 @@
         <Loaded Value="True"/>
       </Unit101>
     </Units>
-    <JumpHistory Count="29" HistoryIndex="28">
+    <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="newtable.pas"/>
-        <Caret Line="228" Column="3" TopLine="225"/>
+        <Caret Line="156" Column="1" TopLine="146"/>
       </Position1>
       <Position2>
         <Filename Value="newtable.pas"/>
-        <Caret Line="227" Column="3" TopLine="224"/>
+        <Caret Line="186" Column="56" TopLine="171"/>
       </Position2>
       <Position3>
         <Filename Value="newtable.pas"/>
-        <Caret Line="226" Column="3" TopLine="223"/>
+        <Caret Line="23" Column="1" TopLine="8"/>
       </Position3>
       <Position4>
         <Filename Value="newtable.pas"/>
-        <Caret Line="225" Column="3" TopLine="222"/>
+        <Caret Line="147" Column="1" TopLine="143"/>
       </Position4>
       <Position5>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="224" Column="3" TopLine="221"/>
+        <Filename Value="newgen.pas"/>
+        <Caret Line="79" Column="32" TopLine="70"/>
       </Position5>
       <Position6>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="223" Column="3" TopLine="220"/>
+        <Filename Value="newgen.pas"/>
+        <Caret Line="56" Column="3" TopLine="54"/>
       </Position6>
       <Position7>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="201" Column="1" TopLine="176"/>
+        <Filename Value="newgen.pas"/>
+        <Caret Line="55" Column="3" TopLine="53"/>
       </Position7>
       <Position8>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="114" Column="1" TopLine="99"/>
+        <Filename Value="newgen.pas"/>
+        <Caret Line="54" Column="3" TopLine="52"/>
       </Position8>
       <Position9>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="116" Column="1" TopLine="101"/>
+        <Filename Value="newgen.pas"/>
+        <Caret Line="53" Column="3" TopLine="51"/>
       </Position9>
       <Position10>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="156" Column="1" TopLine="146"/>
+        <Filename Value="newgen.pas"/>
+        <Caret Line="89" Column="3" TopLine="87"/>
       </Position10>
       <Position11>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="186" Column="56" TopLine="171"/>
+        <Filename Value="newgen.pas"/>
+        <Caret Line="149" Column="1" TopLine="109"/>
       </Position11>
       <Position12>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="23" Column="1" TopLine="8"/>
+        <Filename Value="newgen.pas"/>
+        <Caret Line="81" Column="1" TopLine="58"/>
       </Position12>
       <Position13>
-        <Filename Value="newtable.pas"/>
-        <Caret Line="147" Column="1" TopLine="143"/>
+        <Filename Value="newgen.pas"/>
+        <Caret Line="88" Column="1" TopLine="75"/>
       </Position13>
       <Position14>
         <Filename Value="newgen.pas"/>
-        <Caret Line="79" Column="32" TopLine="70"/>
+        <Caret Line="94" Column="30" TopLine="79"/>
       </Position14>
       <Position15>
         <Filename Value="newgen.pas"/>
-        <Caret Line="56" Column="3" TopLine="54"/>
+        <Caret Line="28" Column="1" TopLine="13"/>
       </Position15>
       <Position16>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="55" Column="3" TopLine="53"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1196" Column="1" TopLine="1179"/>
       </Position16>
       <Position17>
         <Filename Value="newgen.pas"/>
-        <Caret Line="54" Column="3" TopLine="52"/>
+        <Caret Line="118" Column="1" TopLine="95"/>
       </Position17>
       <Position18>
         <Filename Value="newgen.pas"/>
-        <Caret Line="53" Column="3" TopLine="51"/>
+        <Caret Line="117" Column="27" TopLine="98"/>
       </Position18>
       <Position19>
         <Filename Value="newgen.pas"/>
-        <Caret Line="89" Column="3" TopLine="87"/>
+        <Caret Line="47" Column="21" TopLine="31"/>
       </Position19>
       <Position20>
         <Filename Value="newgen.pas"/>
-        <Caret Line="149" Column="1" TopLine="109"/>
+        <Caret Line="46" Column="21" TopLine="30"/>
       </Position20>
       <Position21>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="81" Column="1" TopLine="58"/>
+        <Filename Value="tablemanage.pas"/>
+        <Caret Line="310" Column="53" TopLine="303"/>
       </Position21>
       <Position22>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="88" Column="1" TopLine="75"/>
+        <Filename Value="tablemanage.pas"/>
+        <Caret Line="112" Column="3" TopLine="105"/>
       </Position22>
       <Position23>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="94" Column="30" TopLine="79"/>
+        <Filename Value="tablemanage.pas"/>
+        <Caret Line="299" Column="76" TopLine="297"/>
       </Position23>
       <Position24>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="28" Column="1" TopLine="13"/>
+        <Filename Value="tablemanage.pas"/>
+        <Caret Line="136" Column="3" TopLine="131"/>
       </Position24>
       <Position25>
-        <Filename Value="main.pas"/>
-        <Caret Line="1196" Column="1" TopLine="1179"/>
+        <Filename Value="tablemanage.pas"/>
+        <Caret Line="363" Column="3" TopLine="358"/>
       </Position25>
       <Position26>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="118" Column="1" TopLine="95"/>
+        <Filename Value="tablemanage.pas"/>
+        <Caret Line="246" Column="3" TopLine="242"/>
       </Position26>
       <Position27>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="117" Column="27" TopLine="98"/>
+        <Filename Value="tablemanage.pas"/>
+        <Caret Line="203" Column="3" TopLine="202"/>
       </Position27>
       <Position28>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="47" Column="21" TopLine="31"/>
+        <Filename Value="tablemanage.pas"/>
+        <Caret Line="149" Column="3" TopLine="147"/>
       </Position28>
       <Position29>
-        <Filename Value="newgen.pas"/>
-        <Caret Line="46" Column="21" TopLine="30"/>
+        <Filename Value="tablemanage.pas"/>
+        <Caret Line="292" Column="1" TopLine="270"/>
       </Position29>
+      <Position30>
+        <Filename Value="tablemanage.pas"/>
+        <Caret Line="169" Column="3" TopLine="164"/>
+      </Position30>
     </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>

+ 1 - 5
tablemanage.pas

@@ -288,16 +288,12 @@ begin
   fmNewConstraint.laTable.Caption:= fTableName;
   fmNewConstraint.Caption:= 'New Constraint for : ' + fTableName;
   if fmNewConstraint.ShowModal = mrOK then
-  begin
-    Hide;
     fmNewConstraint.QWindow.OnCommit:= bbRefreshConstraint.OnClick;
-  end;
 end;
 
 procedure TfmTableManage.bbNewTriggerClick(Sender: TObject);
 begin
-  if fmMain.CreateNewTrigger(fdbIndex, fTableName, bbRefreshTriggers.OnClick) then
-    Hide;
+  fmMain.CreateNewTrigger(fdbIndex, fTableName, bbRefreshTriggers.OnClick);
 end;
 
 procedure TfmTableManage.bbRefreshClick(Sender: TObject);