Changeset 493 for cprs/branches/GUI-config/MainU.pas

Timestamp:

Sep 17, 2008, 5:49:40 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

adding new RPC broker

File:

• cprs/branches/GUI-config/MainU.pas (modified) (11 diffs)

cprs/branches/GUI-config/MainU.pas

@@ -24 +24 @@
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
-  *)   
+  *)
 
 interface
@@ -32 +32 @@
   Dialogs, StdCtrls, StrUtils,
   ORNet, ORFn, ComCtrls, ToolWin, Grids, ORCtrls, ExtCtrls, Buttons,
-  AppEvnts, Menus, ImgList, 
-  {$IFDEF USE_SKINS} 
-  ipSkinManager, 
+  AppEvnts, Menus, ImgList,
+  {$IFDEF USE_SKINS}
+  ipSkinManager,
   {$ENDIF}
+  Trpcb,
   ValEdit;
 
@@ -45 +46 @@
     IENS      : string;
     oldValue,newValue : string;
-  end;  
+  end;
 
   TGridInfo = class;  //forward declaration
@@ -207 +208 @@
     CachedWPField : TStringList;
     FVisibleGridIdx : integer;
-    procedure ShowDebugClick(Sender: TObject);    
+    procedure ShowDebugClick(Sender: TObject);
     function FindParam(Param : string) : string;
     function GetCurrentUserName : string;
@@ -281 +282 @@
 
 uses
-  frmSplash, Trpcb  , LookupU, SubfilesU, SetSelU, SelDateTimeU, PostU,
+  frmSplash, {Trpcb,}  LookupU, SubfilesU, SetSelU, SelDateTimeU, PostU,
   FMErrorU, AboutU, PleaseWaitU, EditTextU, CreateTemplateU, SkinFormU,
   BatchAddU, DebugU;
@@ -290 +291 @@
 
   procedure TMainForm.Initialize;
-  var tempMenu,tempSubMenu : TMenuItem;    
+  var tempMenu,tempSubMenu : TMenuItem;
   begin
     DebugMode := (FindParam('debug')='enable');
@@ -299 +300 @@
       tempMenu.OnClick := ShowDebugClick;
       FileMenu.Add(tempMenu);
-    end;  
-    {$IFDEF USE_SKINS} 
+    end else begin
+      DebugForm.Hide;
+    end;
+    {$IFDEF USE_SKINS}
     DebugForm.Memo.Lines.Add('Adding Menus');
     tempMenu := TMenuItem.Create(MainMenu);
@@ -307 +310 @@
     tempSubMenu.Caption := '&Change Skin';
     tempSubMenu.OnClick := ChangeSkinClick;
-    tempMenu.Add(tempSubMenu);   
+    tempMenu.Add(tempSubMenu);
     MainMenu.Items.Add(tempMenu);
     {$ENDIF}
@@ -313 +316 @@
     DebugForm.Memo.Lines.Add('Showing Splash');
     SplashForm.show;
-  
+
     FLoadingGrid := false;
     SettingsFiles := TStringList.Create;
@@ -320 +323 @@
     CurrentPatientData := TStringList.Create;
     CurrentAnyFileData := TStringList.Create;
-    
+
     DataForGrid := TStringList.Create;  //will own GridInfo objects.
     CachedHelp := TStringList.Create;
-    CachedHelpIdx := TStringList.Create;  
-    CachedWPField := TStringList.Create;  
-  
+    CachedHelpIdx := TStringList.Create;
+    CachedWPField := TStringList.Create;
+
     DebugForm.Memo.Lines.Add('Adding Grid Info');
     AddGridInfo(BasicUsersGrid,CurrentUserData,true,LoadUserData,'200',btnUsersApply,btnUsersRevert);
-    AddGridInfo(AdvancedUsersGrid,CurrentUserData,false,LoadUserData,'200',btnUsersApply,btnUsersRevert);    
+    AddGridInfo(AdvancedUsersGrid,CurrentUserData,false,LoadUserData,'200',btnUsersApply,btnUsersRevert);
     AddGridInfo(BasicSettingsGrid,CurrentSettingsData,true,GetSettingsInfo,'',btnSettingsApply,btnSettingsRevert);
-    AddGridInfo(AdvancedSettingsGrid,CurrentSettingsData,false,GetSettingsInfo,'',btnSettingsApply,btnSettingsRevert);      
+    AddGridInfo(AdvancedSettingsGrid,CurrentSettingsData,false,GetSettingsInfo,'',btnSettingsApply,btnSettingsRevert);
     AddGridInfo(BasicPatientGrid,CurrentPatientData,true,GetPatientInfo,'2',btnPatientApply,btnPatientRevert);
     AddGridInfo(AdvancedPatientGrid,CurrentPatientData,false,GetPatientInfo,'2',btnPatientApply,btnPatientRevert);
@@ -336 +339 @@
 
     MainForm.Visible := false;
+
     DebugForm.Memo.Lines.Add('Trying to connect to server');
     if not ORNet.ConnectToServer(RPC_CONTEXT) then begin
       DebugForm.Memo.Lines.Add('Failed connection.  Closing.');
-      Close; 
+      Close;
       Exit;
     end;