Changeset 610 for cprs/branches

Timestamp:

Nov 27, 2009, 4:05:03 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Allow user-definable splash.jpg image

Location:

cprs/branches/GUI-config

Files:

• AboutU.dcu (modified) ( previous)
• BDK32/Source/AddServer.dcu (modified) ( previous)
• BDK32/Source/CCOW_const.dcu (modified) ( previous)
• BDK32/Source/Hash.dcu (modified) ( previous)
• BDK32/Source/Loginfrm.dcu (modified) ( previous)
• BDK32/Source/MFunStr.dcu (modified) ( previous)
• BDK32/Source/RpcConf1.dcu (modified) ( previous)
• BDK32/Source/RpcSlogin.dcu (modified) ( previous)
• BDK32/Source/RpcbErr.dcu (modified) ( previous)
• BDK32/Source/SelDiv.dcu (modified) ( previous)
• BDK32/Source/SgnonCnf.dcu (modified) ( previous)
• BDK32/Source/TRPCB.dcu (modified) ( previous)
• BDK32/Source/VCEdit.dcu (modified) ( previous)
• BDK32/Source/VERGENCECONTEXTORLib_TLB.dcu (modified) ( previous)
• BDK32/Source/XWBRich20.dcu (modified) ( previous)
• BDK32/Source/XWBut1.dcu (modified) ( previous)
• BDK32/Source/ccowrpcbroker.dcu (modified) ( previous)
• BDK32/Source/fDebugInfo.dcu (modified) ( previous)
• BDK32/Source/fRPCBErrMsg.dcu (modified) ( previous)
• BDK32/Source/fSgnonDlg.dcu (modified) ( previous)
• BDK32/Source/frmSignonMessage.dcu (modified) ( previous)
• BDK32/Source/rpcnet.dcu (modified) ( previous)
• BDK32/Source/wsockc.dcu (modified) ( previous)
• BatchAddU.dcu (modified) ( previous)
• CPRS-Lib/ORCtrls.dcu (modified) ( previous)
• CPRS-Lib/ORFn.dcu (modified) ( previous)
• CPRS-Lib/ORNet.dcu (modified) ( previous)
• CPRS-Lib/ORNet.pas (modified) (1 diff)
• CPRS-Lib/uAccessAPI.dcu (modified) ( previous)
• CreateTemplateU.dcu (modified) ( previous)
• DebugU.dcu (modified) ( previous)
• EditTextU.dcu (modified) ( previous)
• FMErrorU.dcu (modified) ( previous)
• GUI_Config.dof (modified) (1 diff)
• GUI_Config.dsk (modified) (17 diffs)
• GUI_Config.exe (modified) ( previous)
• LookupU.dcu (modified) ( previous)
• MainU.dcu (modified) ( previous)
• MainU.dfm (modified) (44 diffs)
• PleaseWaitU.dcu (modified) ( previous)
• PostU.dcu (modified) ( previous)
• SelDateTimeU.dcu (modified) ( previous)
• SetSelU.dcu (modified) ( previous)
• SkinFormU.dcu (modified) ( previous)
• SubfilesU.dcu (modified) ( previous)
• frmSplash.dcu (modified) ( previous)
• frmSplash.dfm (modified) (3 diffs)
• frmSplash.pas (modified) (2 diffs)
• resources/Splash0.jpg (added)
• resources/Thumbs.db (modified) ( previous)
• resources/Vista_Config3-splash.jpg (added)

cprs/branches/GUI-config/CPRS-Lib/ORNet.pas

@@ -501 +501 @@
   RPCLastCall := 'No RPCs called';
   uCallList := TList.Create;
-  uMaxCalls := 10;
+  uMaxCalls := 150;  //kt 10
   uShowRPCs := False;
 

cprs/branches/GUI-config/GUI_Config.dof

@@ -101 +101 @@
 UsePackages=0
 [Parameters]
-RunParams=CCOW=disable
+RunParams=s=102.168.3.99 p=9210 CCOW=disable
 HostApplication=
 Launcher=

cprs/branches/GUI-config/GUI_Config.dsk

@@ -1 +1 @@
 [Closed Files]
-File_0=SourceModule,'P:\Vista\GUI-config\CPRS-Lib\ORNet.pas',0,1,358,1,330,0,0
-File_1=SourceModule,'P:\vista\GUI-config\SkinFormU.pas',0,1,113,24,124,0,0
-File_2=SourceModule,'P:\vista\GUI-config\frmSplash.pas',0,1,1,1,1,1,0
-File_3=SourceModule,'P:\vista\GUI-config\AboutU.pas',0,1,107,1,108,1,0
-File_4=SourceModule,'P:\vista\GUI-config\BDK32\Source\TRPCB.pas',0,1,1045,1,1059,0,0
-File_5=SourceModule,'P:\vista\GUI-config\CreateTemplateU.pas',0,1,140,11,145,0,0
-File_6=SourceModule,'P:\vista\GUI-config\SetSelU.pas',0,1,1,1,1,1,0
+File_0=SourceModule,'P:\vista\GUI-config\AboutU.pas',0,1,107,1,108,1,0
+File_1=SourceModule,'P:\vista\GUI-config\BDK32\Source\TRPCB.pas',0,1,1045,1,1059,0,0
+File_2=SourceModule,'P:\vista\GUI-config\CreateTemplateU.pas',0,1,140,11,145,0,0
+File_3=SourceModule,'P:\vista\GUI-config\SetSelU.pas',0,1,1,1,1,1,0
 
 [Modules]
-Module0=P:\vista\GUI-config\GUI_Config.dpr
-Module1=P:\vista\GUI-config\BDK32\Source\wsockc.pas
-Module2=P:\vista\GUI-config\MainU.pas
-Module3=P:\vista\GUI-config\BDK32\Source\ccowrpcbroker.pas
-Module4=P:\vista\GUI-config\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas
-Module5=c:\program files\borland\delphi7\source\vcl\OleCtrls.pas
-Count=6
+Module0=P:\vista\GUI-config\MainU.pas
+Module1=P:\vista\GUI-config\GUI_Config.dpr
+Module2=P:\vista\GUI-config\BDK32\Source\wsockc.pas
+Module3=P:\vista\GUI-config\frmSplash.pas
+Module4=P:\Vista\GUI-config\CPRS-Lib\ORNet.pas
+Module5=P:\vista\GUI-config\SkinFormU.pas
+Module6=P:\vista\GUI-config\PostU.pas
+Module7=P:\vista\GUI-config\BDK32\Source\ccowrpcbroker.pas
+Module8=c:\program files\borland\delphi7\source\vcl\OleCtrls.pas
+Module9=P:\vista\GUI-config\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas
+Count=10
 EditWindowCount=1
 
+[P:\vista\GUI-config\MainU.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
 [P:\vista\GUI-config\GUI_Config.dpr]
 ModuleType=SourceModule
@@ -28 +34 @@
 FormOnTop=0
 
-[P:\vista\GUI-config\MainU.pas]
-ModuleType=SourceModule
-FormState=1
+[P:\vista\GUI-config\frmSplash.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[P:\Vista\GUI-config\CPRS-Lib\ORNet.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[P:\vista\GUI-config\SkinFormU.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[P:\vista\GUI-config\PostU.pas]
+ModuleType=SourceModule
+FormState=0
 FormOnTop=0
 
@@ -38 +59 @@
 FormOnTop=0
 
+[c:\program files\borland\delphi7\source\vcl\OleCtrls.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
 [P:\vista\GUI-config\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas]
 ModuleType=SourceModule
@@ -43 +69 @@
 FormOnTop=0
 
-[c:\program files\borland\delphi7\source\vcl\OleCtrls.pas]
-ModuleType=SourceModule
-FormState=0
-FormOnTop=0
-
 [C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
 FormState=0
@@ -53 +74 @@
 
 [EditWindow0]
-ViewCount=6
-CurrentView=5
+ViewCount=10
+CurrentView=3
 View0=0
 View1=1
@@ -61 +82 @@
 View4=4
 View5=5
+View6=6
+View7=7
+View8=8
+View9=9
 CodeExplorer=CodeExplorer@EditWindow0
 MessageView=MessageView@EditWindow0
@@ -66 +91 @@
 Visible=1
 State=0
-Left=22
-Top=121
-Width=927
-Height=648
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=919
-ClientHeight=614
-LeftPanelSize=218
+Left=199
+Top=157
+Width=775
+Height=552
+MaxLeft=-782
+MaxTop=261
+ClientWidth=767
+ClientHeight=518
+LeftPanelSize=0
 LeftPanelClients=CodeExplorer@EditWindow0
-LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
+LeftPanelData=00000400010000000C000000436F64654578706C6F726572000000000000000000000000000000000001000000000000000000000000FFFFFFFF
 RightPanelSize=0
 BottomPanelSize=155
 BottomPanelClients=MessageView@EditWindow0
-BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
+BottomPanelData=0000040000000000FF02000000000000029B00000000000000010000000000000000000000000100000000FF0200000B0000004D65737361676556696577FFFFFFFF
 
 [View0]
@@ -105 +130 @@
 [View3]
 Module=P:\vista\GUI-config\MainU.pas
-CursorX=3
-CursorY=36
-TopLine=23
+CursorX=1
+CursorY=210
+TopLine=202
 LeftCol=1
 
 [View4]
+Module=P:\vista\GUI-config\PostU.pas
+CursorX=62
+CursorY=10
+TopLine=34
+LeftCol=1
+
+[View5]
+Module=P:\vista\GUI-config\SkinFormU.pas
+CursorX=16
+CursorY=95
+TopLine=87
+LeftCol=1
+
+[View6]
+Module=P:\Vista\GUI-config\CPRS-Lib\ORNet.pas
+CursorX=1
+CursorY=310
+TopLine=1
+LeftCol=1
+
+[View7]
+Module=P:\vista\GUI-config\frmSplash.pas
+CursorX=1
+CursorY=1
+TopLine=1
+LeftCol=1
+
+[View8]
 Module=P:\vista\GUI-config\BDK32\Source\wsockc.pas
 CursorX=1
@@ -117 +170 @@
 LeftCol=1
 
-[View5]
+[View9]
 Module=P:\vista\GUI-config\GUI_Config.dpr
 CursorX=1
 CursorY=66
-TopLine=55
+TopLine=46
 LeftCol=1
 
@@ -150 +203 @@
 
 [Breakpoints]
-Count=2
+Count=3
 Breakpoint0='P:\vista\GUI-config\MainU.pas',990,'',0,1,'',1,0,0,'',1,'','',''
 Breakpoint1='P:\vista\GUI-config\MainU.pas',1879,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint2='P:\vista\GUI-config\MainU.pas',345,'',0,1,'',1,0,0,'',1,'','',''
 
 [AddressBreakpoints]
@@ -165 +219 @@
 Width=1024
 Height=112
-MaxLeft=-4
-MaxTop=-4
+MaxLeft=-1
+MaxTop=-1
 MaxWidth=1032
 MaxHeight=112
@@ -240 +294 @@
 Left=0
 Top=0
-Width=206
-Height=411
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=206
-ClientHeight=411
+Width=158
+Height=309
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=158
+ClientHeight=309
 TBDockHeight=527
 LRDockWidth=250
@@ -251 +305 @@
 SplitPos=73
 ArrangeBy=Name
-SelectedItem=Caption
+SelectedItem=
 ExpandedItems=Anchors,Menu,Options
 HiddenCategories=Legacy
@@ -319 +373 @@
 Left=0
 Top=0
-Width=206
-Height=411
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=206
-ClientHeight=411
+Width=158
+Height=309
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=158
+ClientHeight=309
 TBDockHeight=527
 LRDockWidth=250
@@ -439 +493 @@
 [CodeExplorer@EditWindow0]
 Create=1
-Visible=1
+Visible=0
 State=0
 Left=0
 Top=12
 Width=218
-Height=444
+Height=461
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=218
-ClientHeight=444
+ClientHeight=461
 TBDockHeight=305
 LRDockWidth=218
@@ -459 +513 @@
 Left=12
 Top=0
-Width=907
+Width=755
 Height=155
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=907
+ClientWidth=755
 ClientHeight=155
 TBDockHeight=155
@@ -477 +531 @@
 Visible=1
 State=0
-Left=3
-Top=152
-Width=222
-Height=466
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=214
-ClientHeight=440
+Left=36
+Top=157
+Width=174
+Height=364
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=166
+ClientHeight=338
 TBDockHeight=539
 LRDockWidth=258

cprs/branches/GUI-config/MainU.dfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 63
-  Top = 33
-  Width = 861
-  Height = 706
+  Left = -750
+  Top = 194
+  Width = 673
+  Height = 552
   Caption = 'WorldVistA Configuration Utility'
   Color = 14405057
@@ -46 +46 @@
     Left = 0
     Top = 0
-    Width = 853
-    Height = 652
+    Width = 665
+    Height = 498
     ActivePage = tsPatients
     Align = alClient
@@ -60 +60 @@
         Left = 177
         Top = 0
-        Height = 624
+        Height = 470
         ResizeStyle = rsUpdate
       end
@@ -67 +67 @@
         Top = 0
         Width = 177
-        Height = 624
+        Height = 470
         Align = alLeft
         BevelOuter = bvNone
@@ -76 +76 @@
           Top = 0
           Width = 177
-          Height = 589
+          Height = 435
           Hint = 'Select User to Edit'
           Align = alClient
@@ -98 +98 @@
         object Panel5: TPanel
           Left = 0
-          Top = 589
+          Top = 435
           Width = 177
           Height = 35
@@ -198 +198 @@
         Left = 180
         Top = 0
-        Width = 665
-        Height = 624
+        Width = 477
+        Height = 470
         Align = alClient
         BevelOuter = bvNone
@@ -207 +207 @@
           Left = 0
           Top = 0
-          Width = 665
-          Height = 593
+          Width = 477
+          Height = 439
           ActivePage = tsBasicPage
           Align = alClient
@@ -269 +269 @@
         object ButtonPanel: TPanel
           Left = 0
-          Top = 593
-          Width = 665
+          Top = 439
+          Width = 477
           Height = 31
           Align = alBottom
@@ -277 +277 @@
           TabOrder = 1
           DesignSize = (
-            665
+            477
             31)
           object btnUsersApply: TBitBtn
-            Left = 584
+            Left = 396
             Top = 3
             Width = 75
@@ -317 +317 @@
           end
           object btnUsersRevert: TBitBtn
-            Left = 500
+            Left = 312
             Top = 4
             Width = 75
@@ -362 +362 @@
         Left = 0
         Top = 0
-        Width = 845
-        Height = 624
+        Width = 657
+        Height = 470
         Align = alClient
         BevelOuter = bvNone
@@ -371 +371 @@
           Left = 177
           Top = 0
-          Height = 624
+          Height = 470
           ResizeStyle = rsUpdate
         end
@@ -377 +377 @@
           Left = 180
           Top = 0
-          Width = 665
-          Height = 624
+          Width = 477
+          Height = 470
           Align = alClient
           BevelOuter = bvNone
@@ -386 +386 @@
             Left = 0
             Top = 0
-            Width = 665
-            Height = 593
+            Width = 477
+            Height = 439
             ActivePage = tsBasicSettings
             Align = alClient
@@ -448 +448 @@
           object Panel3: TPanel
             Left = 0
-            Top = 593
-            Width = 665
+            Top = 439
+            Width = 477
             Height = 31
             Align = alBottom
@@ -456 +456 @@
             TabOrder = 1
             DesignSize = (
-              665
+              477
               31)
             object btnSettingsApply: TBitBtn
-              Left = 584
+              Left = 396
               Top = 3
               Width = 75
@@ -496 +496 @@
             end
             object btnSettingsRevert: TBitBtn
-              Left = 500
+              Left = 312
               Top = 4
               Width = 75
@@ -538 +538 @@
           Top = 0
           Width = 177
-          Height = 624
+          Height = 470
           Align = alLeft
           BevelOuter = bvNone
@@ -547 +547 @@
             Top = 0
             Width = 177
-            Height = 589
+            Height = 435
             Hint = 'Select User to Edit'
             Align = alClient
@@ -569 +569 @@
           object Panel6: TPanel
             Left = 0
-            Top = 589
+            Top = 435
             Width = 177
             Height = 35
@@ -586 +586 @@
         Left = 0
         Top = 0
-        Width = 845
-        Height = 624
+        Width = 657
+        Height = 470
         Align = alClient
         BevelOuter = bvNone
@@ -595 +595 @@
           Left = 177
           Top = 0
-          Height = 624
+          Height = 470
           ResizeStyle = rsUpdate
         end
@@ -601 +601 @@
           Left = 180
           Top = 0
-          Width = 665
-          Height = 624
+          Width = 477
+          Height = 470
           Align = alClient
           BevelOuter = bvNone
@@ -610 +610 @@
             Left = 0
             Top = 0
-            Width = 665
-            Height = 593
+            Width = 477
+            Height = 439
             ActivePage = tsAdvancedPatients
             Align = alClient
@@ -650 +650 @@
                 Left = 0
                 Top = 0
-                Width = 657
-                Height = 565
+                Width = 469
+                Height = 411
                 Cursor = crHandPoint
                 Hint = 'Edit User Fields Here'
@@ -673 +673 @@
           object Panel9: TPanel
             Left = 0
-            Top = 593
-            Width = 665
+            Top = 439
+            Width = 477
             Height = 31
             Align = alBottom
@@ -681 +681 @@
             TabOrder = 1
             DesignSize = (
-              665
+              477
               31)
             object btnPatientApply: TBitBtn
-              Left = 584
+              Left = 396
               Top = 3
               Width = 75
@@ -721 +721 @@
             end
             object btnPatientRevert: TBitBtn
-              Left = 500
+              Left = 312
               Top = 4
               Width = 75
@@ -763 +763 @@
           Top = 0
           Width = 177
-          Height = 624
+          Height = 470
           Align = alLeft
           BevelOuter = bvNone
@@ -770 +770 @@
           object Panel11: TPanel
             Left = 0
-            Top = 589
+            Top = 435
             Width = 177
             Height = 35
@@ -868 +868 @@
             Top = 0
             Width = 177
-            Height = 589
+            Height = 435
             Style = orcsSimple
             Align = alClient
@@ -901 +901 @@
         Left = 0
         Top = 0
-        Width = 845
-        Height = 624
+        Width = 657
+        Height = 470
         Align = alClient
         BevelOuter = bvNone
@@ -910 +910 @@
           Left = 177
           Top = 0
-          Height = 624
+          Height = 470
           ResizeStyle = rsUpdate
         end
@@ -916 +916 @@
           Left = 180
           Top = 0
-          Width = 665
-          Height = 624
+          Width = 477
+          Height = 470
           Align = alClient
           BevelOuter = bvNone
@@ -925 +925 @@
             Left = 0
             Top = 0
-            Width = 665
-            Height = 593
+            Width = 477
+            Height = 439
             ActivePage = TabSheet2
             Align = alClient
@@ -964 +964 @@
           object Panel14: TPanel
             Left = 0
-            Top = 593
-            Width = 665
+            Top = 439
+            Width = 477
             Height = 31
             Align = alBottom
@@ -971 +971 @@
             TabOrder = 1
             DesignSize = (
-              665
+              477
               31)
             object btnAdvancedApply: TBitBtn
-              Left = 584
+              Left = 396
               Top = 3
               Width = 75
@@ -1011 +1011 @@
             end
             object btnAdvancedRevert: TBitBtn
-              Left = 500
+              Left = 312
               Top = 4
               Width = 75
@@ -1053 +1053 @@
           Top = 0
           Width = 177
-          Height = 624
+          Height = 470
           Align = alLeft
           BevelOuter = bvNone
@@ -1060 +1060 @@
           object BotLeftAdvBtnPanel: TPanel
             Left = 0
-            Top = 589
+            Top = 435
             Width = 177
             Height = 35
@@ -1112 +1112 @@
             Top = 0
             Width = 177
-            Height = 589
+            Height = 435
             Align = alClient
             BevelOuter = bvNone
@@ -1181 +1181 @@
               Top = 204
               Width = 177
-              Height = 385
+              Height = 231
               Align = alClient
               BevelOuter = bvNone
@@ -1205 +1205 @@
                 Top = 13
                 Width = 177
-                Height = 372
+                Height = 218
                 Style = orcsSimple
                 Align = alClient

cprs/branches/GUI-config/frmSplash.dfm

@@ -1 +1 @@
 object SplashForm: TSplashForm
-  Left = 315
-  Top = 163
+  Left = 255
+  Top = 123
   BorderStyle = bsNone
   Caption = 'SplashForm'
-  ClientHeight = 298
+  ClientHeight = 299
   ClientWidth = 400
   Color = clBtnFace
@@ -14 +14 @@
   OldCreateOrder = False
   Position = poScreenCenter
+  OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
@@ -20 +21 @@
     Top = 0
     Width = 400
-    Height = 298
+    Height = 299
     Align = alClient
     Picture.Data = {

cprs/branches/GUI-config/frmSplash.pas

@@ -35 +35 @@
     Image1: TImage;
     procedure Image1Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
@@ -53 +54 @@
 end;
 
+procedure TSplashForm.FormCreate(Sender: TObject);
+var  FileName : string;
+begin
+  FileName := ExtractFilePath(ParamStr(0))+ 'splash.jpg';
+  if FileExists(FileName) then begin
+    Image1.Picture.LoadFromFile(FileName);
+  end;
+  Self.Width := Image1.Picture.Width;
+  Self.Height := Image1.Picture.Height;
+  Self.Left:=(Screen.Width - Self.Width) div 2;
+  Self.Top := (Screen.Height - Self.Height) div 2;
+end;
+
 end.