Changeset 610 for cprs


Ignore:
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:
2 added
49 edited

Legend:

Unmodified
Added
Removed
  • cprs/branches/GUI-config/CPRS-Lib/ORNet.pas

    r492 r610  
    501501  RPCLastCall := 'No RPCs called';
    502502  uCallList := TList.Create;
    503   uMaxCalls := 10;
     503  uMaxCalls := 150;  //kt 10
    504504  uShowRPCs := False;
    505505
  • cprs/branches/GUI-config/GUI_Config.dof

    r544 r610  
    101101UsePackages=0
    102102[Parameters]
    103 RunParams=CCOW=disable
     103RunParams=s=102.168.3.99 p=9210 CCOW=disable
    104104HostApplication=
    105105Launcher=
  • cprs/branches/GUI-config/GUI_Config.dsk

    r544 r610  
    11[Closed Files]
    2 File_0=SourceModule,'P:\Vista\GUI-config\CPRS-Lib\ORNet.pas',0,1,358,1,330,0,0
    3 File_1=SourceModule,'P:\vista\GUI-config\SkinFormU.pas',0,1,113,24,124,0,0
    4 File_2=SourceModule,'P:\vista\GUI-config\frmSplash.pas',0,1,1,1,1,1,0
    5 File_3=SourceModule,'P:\vista\GUI-config\AboutU.pas',0,1,107,1,108,1,0
    6 File_4=SourceModule,'P:\vista\GUI-config\BDK32\Source\TRPCB.pas',0,1,1045,1,1059,0,0
    7 File_5=SourceModule,'P:\vista\GUI-config\CreateTemplateU.pas',0,1,140,11,145,0,0
    8 File_6=SourceModule,'P:\vista\GUI-config\SetSelU.pas',0,1,1,1,1,1,0
     2File_0=SourceModule,'P:\vista\GUI-config\AboutU.pas',0,1,107,1,108,1,0
     3File_1=SourceModule,'P:\vista\GUI-config\BDK32\Source\TRPCB.pas',0,1,1045,1,1059,0,0
     4File_2=SourceModule,'P:\vista\GUI-config\CreateTemplateU.pas',0,1,140,11,145,0,0
     5File_3=SourceModule,'P:\vista\GUI-config\SetSelU.pas',0,1,1,1,1,1,0
    96
    107[Modules]
    11 Module0=P:\vista\GUI-config\GUI_Config.dpr
    12 Module1=P:\vista\GUI-config\BDK32\Source\wsockc.pas
    13 Module2=P:\vista\GUI-config\MainU.pas
    14 Module3=P:\vista\GUI-config\BDK32\Source\ccowrpcbroker.pas
    15 Module4=P:\vista\GUI-config\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas
    16 Module5=c:\program files\borland\delphi7\source\vcl\OleCtrls.pas
    17 Count=6
     8Module0=P:\vista\GUI-config\MainU.pas
     9Module1=P:\vista\GUI-config\GUI_Config.dpr
     10Module2=P:\vista\GUI-config\BDK32\Source\wsockc.pas
     11Module3=P:\vista\GUI-config\frmSplash.pas
     12Module4=P:\Vista\GUI-config\CPRS-Lib\ORNet.pas
     13Module5=P:\vista\GUI-config\SkinFormU.pas
     14Module6=P:\vista\GUI-config\PostU.pas
     15Module7=P:\vista\GUI-config\BDK32\Source\ccowrpcbroker.pas
     16Module8=c:\program files\borland\delphi7\source\vcl\OleCtrls.pas
     17Module9=P:\vista\GUI-config\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas
     18Count=10
    1819EditWindowCount=1
    1920
     21[P:\vista\GUI-config\MainU.pas]
     22ModuleType=SourceModule
     23FormState=0
     24FormOnTop=0
     25
    2026[P:\vista\GUI-config\GUI_Config.dpr]
    2127ModuleType=SourceModule
     
    2834FormOnTop=0
    2935
    30 [P:\vista\GUI-config\MainU.pas]
    31 ModuleType=SourceModule
    32 FormState=1
     36[P:\vista\GUI-config\frmSplash.pas]
     37ModuleType=SourceModule
     38FormState=0
     39FormOnTop=0
     40
     41[P:\Vista\GUI-config\CPRS-Lib\ORNet.pas]
     42ModuleType=SourceModule
     43FormState=0
     44FormOnTop=0
     45
     46[P:\vista\GUI-config\SkinFormU.pas]
     47ModuleType=SourceModule
     48FormState=0
     49FormOnTop=0
     50
     51[P:\vista\GUI-config\PostU.pas]
     52ModuleType=SourceModule
     53FormState=0
    3354FormOnTop=0
    3455
     
    3859FormOnTop=0
    3960
     61[c:\program files\borland\delphi7\source\vcl\OleCtrls.pas]
     62ModuleType=SourceModule
     63FormState=0
     64FormOnTop=0
     65
    4066[P:\vista\GUI-config\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas]
    4167ModuleType=SourceModule
     
    4369FormOnTop=0
    4470
    45 [c:\program files\borland\delphi7\source\vcl\OleCtrls.pas]
    46 ModuleType=SourceModule
    47 FormState=0
    48 FormOnTop=0
    49 
    5071[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
    5172FormState=0
     
    5374
    5475[EditWindow0]
    55 ViewCount=6
    56 CurrentView=5
     76ViewCount=10
     77CurrentView=3
    5778View0=0
    5879View1=1
     
    6182View4=4
    6283View5=5
     84View6=6
     85View7=7
     86View8=8
     87View9=9
    6388CodeExplorer=CodeExplorer@EditWindow0
    6489MessageView=MessageView@EditWindow0
     
    6691Visible=1
    6792State=0
    68 Left=22
    69 Top=121
    70 Width=927
    71 Height=648
    72 MaxLeft=-1
    73 MaxTop=-1
    74 ClientWidth=919
    75 ClientHeight=614
    76 LeftPanelSize=218
     93Left=199
     94Top=157
     95Width=775
     96Height=552
     97MaxLeft=-782
     98MaxTop=261
     99ClientWidth=767
     100ClientHeight=518
     101LeftPanelSize=0
    77102LeftPanelClients=CodeExplorer@EditWindow0
    78 LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
     103LeftPanelData=00000400010000000C000000436F64654578706C6F726572000000000000000000000000000000000001000000000000000000000000FFFFFFFF
    79104RightPanelSize=0
    80105BottomPanelSize=155
    81106BottomPanelClients=MessageView@EditWindow0
    82 BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
     107BottomPanelData=0000040000000000FF02000000000000029B00000000000000010000000000000000000000000100000000FF0200000B0000004D65737361676556696577FFFFFFFF
    83108
    84109[View0]
     
    105130[View3]
    106131Module=P:\vista\GUI-config\MainU.pas
    107 CursorX=3
    108 CursorY=36
    109 TopLine=23
     132CursorX=1
     133CursorY=210
     134TopLine=202
    110135LeftCol=1
    111136
    112137[View4]
     138Module=P:\vista\GUI-config\PostU.pas
     139CursorX=62
     140CursorY=10
     141TopLine=34
     142LeftCol=1
     143
     144[View5]
     145Module=P:\vista\GUI-config\SkinFormU.pas
     146CursorX=16
     147CursorY=95
     148TopLine=87
     149LeftCol=1
     150
     151[View6]
     152Module=P:\Vista\GUI-config\CPRS-Lib\ORNet.pas
     153CursorX=1
     154CursorY=310
     155TopLine=1
     156LeftCol=1
     157
     158[View7]
     159Module=P:\vista\GUI-config\frmSplash.pas
     160CursorX=1
     161CursorY=1
     162TopLine=1
     163LeftCol=1
     164
     165[View8]
    113166Module=P:\vista\GUI-config\BDK32\Source\wsockc.pas
    114167CursorX=1
     
    117170LeftCol=1
    118171
    119 [View5]
     172[View9]
    120173Module=P:\vista\GUI-config\GUI_Config.dpr
    121174CursorX=1
    122175CursorY=66
    123 TopLine=55
     176TopLine=46
    124177LeftCol=1
    125178
     
    150203
    151204[Breakpoints]
    152 Count=2
     205Count=3
    153206Breakpoint0='P:\vista\GUI-config\MainU.pas',990,'',0,1,'',1,0,0,'',1,'','',''
    154207Breakpoint1='P:\vista\GUI-config\MainU.pas',1879,'',0,1,'',1,0,0,'',1,'','',''
     208Breakpoint2='P:\vista\GUI-config\MainU.pas',345,'',0,1,'',1,0,0,'',1,'','',''
    155209
    156210[AddressBreakpoints]
     
    165219Width=1024
    166220Height=112
    167 MaxLeft=-4
    168 MaxTop=-4
     221MaxLeft=-1
     222MaxTop=-1
    169223MaxWidth=1032
    170224MaxHeight=112
     
    240294Left=0
    241295Top=0
    242 Width=206
    243 Height=411
    244 MaxLeft=-1
    245 MaxTop=-1
    246 ClientWidth=206
    247 ClientHeight=411
     296Width=158
     297Height=309
     298MaxLeft=-1
     299MaxTop=-1
     300ClientWidth=158
     301ClientHeight=309
    248302TBDockHeight=527
    249303LRDockWidth=250
     
    251305SplitPos=73
    252306ArrangeBy=Name
    253 SelectedItem=Caption
     307SelectedItem=
    254308ExpandedItems=Anchors,Menu,Options
    255309HiddenCategories=Legacy
     
    319373Left=0
    320374Top=0
    321 Width=206
    322 Height=411
    323 MaxLeft=-1
    324 MaxTop=-1
    325 ClientWidth=206
    326 ClientHeight=411
     375Width=158
     376Height=309
     377MaxLeft=-1
     378MaxTop=-1
     379ClientWidth=158
     380ClientHeight=309
    327381TBDockHeight=527
    328382LRDockWidth=250
     
    439493[CodeExplorer@EditWindow0]
    440494Create=1
    441 Visible=1
     495Visible=0
    442496State=0
    443497Left=0
    444498Top=12
    445499Width=218
    446 Height=444
     500Height=461
    447501MaxLeft=-1
    448502MaxTop=-1
    449503ClientWidth=218
    450 ClientHeight=444
     504ClientHeight=461
    451505TBDockHeight=305
    452506LRDockWidth=218
     
    459513Left=12
    460514Top=0
    461 Width=907
     515Width=755
    462516Height=155
    463517MaxLeft=-1
    464518MaxTop=-1
    465 ClientWidth=907
     519ClientWidth=755
    466520ClientHeight=155
    467521TBDockHeight=155
     
    477531Visible=1
    478532State=0
    479 Left=3
    480 Top=152
    481 Width=222
    482 Height=466
    483 MaxLeft=-1
    484 MaxTop=-1
    485 ClientWidth=214
    486 ClientHeight=440
     533Left=36
     534Top=157
     535Width=174
     536Height=364
     537MaxLeft=-1
     538MaxTop=-1
     539ClientWidth=166
     540ClientHeight=338
    487541TBDockHeight=539
    488542LRDockWidth=258
  • cprs/branches/GUI-config/MainU.dfm

    r542 r610  
    11object MainForm: TMainForm
    2   Left = 63
    3   Top = 33
    4   Width = 861
    5   Height = 706
     2  Left = -750
     3  Top = 194
     4  Width = 673
     5  Height = 552
    66  Caption = 'WorldVistA Configuration Utility'
    77  Color = 14405057
     
    4646    Left = 0
    4747    Top = 0
    48     Width = 853
    49     Height = 652
     48    Width = 665
     49    Height = 498
    5050    ActivePage = tsPatients
    5151    Align = alClient
     
    6060        Left = 177
    6161        Top = 0
    62         Height = 624
     62        Height = 470
    6363        ResizeStyle = rsUpdate
    6464      end
     
    6767        Top = 0
    6868        Width = 177
    69         Height = 624
     69        Height = 470
    7070        Align = alLeft
    7171        BevelOuter = bvNone
     
    7676          Top = 0
    7777          Width = 177
    78           Height = 589
     78          Height = 435
    7979          Hint = 'Select User to Edit'
    8080          Align = alClient
     
    9898        object Panel5: TPanel
    9999          Left = 0
    100           Top = 589
     100          Top = 435
    101101          Width = 177
    102102          Height = 35
     
    198198        Left = 180
    199199        Top = 0
    200         Width = 665
    201         Height = 624
     200        Width = 477
     201        Height = 470
    202202        Align = alClient
    203203        BevelOuter = bvNone
     
    207207          Left = 0
    208208          Top = 0
    209           Width = 665
    210           Height = 593
     209          Width = 477
     210          Height = 439
    211211          ActivePage = tsBasicPage
    212212          Align = alClient
     
    269269        object ButtonPanel: TPanel
    270270          Left = 0
    271           Top = 593
    272           Width = 665
     271          Top = 439
     272          Width = 477
    273273          Height = 31
    274274          Align = alBottom
     
    277277          TabOrder = 1
    278278          DesignSize = (
    279             665
     279            477
    280280            31)
    281281          object btnUsersApply: TBitBtn
    282             Left = 584
     282            Left = 396
    283283            Top = 3
    284284            Width = 75
     
    317317          end
    318318          object btnUsersRevert: TBitBtn
    319             Left = 500
     319            Left = 312
    320320            Top = 4
    321321            Width = 75
     
    362362        Left = 0
    363363        Top = 0
    364         Width = 845
    365         Height = 624
     364        Width = 657
     365        Height = 470
    366366        Align = alClient
    367367        BevelOuter = bvNone
     
    371371          Left = 177
    372372          Top = 0
    373           Height = 624
     373          Height = 470
    374374          ResizeStyle = rsUpdate
    375375        end
     
    377377          Left = 180
    378378          Top = 0
    379           Width = 665
    380           Height = 624
     379          Width = 477
     380          Height = 470
    381381          Align = alClient
    382382          BevelOuter = bvNone
     
    386386            Left = 0
    387387            Top = 0
    388             Width = 665
    389             Height = 593
     388            Width = 477
     389            Height = 439
    390390            ActivePage = tsBasicSettings
    391391            Align = alClient
     
    448448          object Panel3: TPanel
    449449            Left = 0
    450             Top = 593
    451             Width = 665
     450            Top = 439
     451            Width = 477
    452452            Height = 31
    453453            Align = alBottom
     
    456456            TabOrder = 1
    457457            DesignSize = (
    458               665
     458              477
    459459              31)
    460460            object btnSettingsApply: TBitBtn
    461               Left = 584
     461              Left = 396
    462462              Top = 3
    463463              Width = 75
     
    496496            end
    497497            object btnSettingsRevert: TBitBtn
    498               Left = 500
     498              Left = 312
    499499              Top = 4
    500500              Width = 75
     
    538538          Top = 0
    539539          Width = 177
    540           Height = 624
     540          Height = 470
    541541          Align = alLeft
    542542          BevelOuter = bvNone
     
    547547            Top = 0
    548548            Width = 177
    549             Height = 589
     549            Height = 435
    550550            Hint = 'Select User to Edit'
    551551            Align = alClient
     
    569569          object Panel6: TPanel
    570570            Left = 0
    571             Top = 589
     571            Top = 435
    572572            Width = 177
    573573            Height = 35
     
    586586        Left = 0
    587587        Top = 0
    588         Width = 845
    589         Height = 624
     588        Width = 657
     589        Height = 470
    590590        Align = alClient
    591591        BevelOuter = bvNone
     
    595595          Left = 177
    596596          Top = 0
    597           Height = 624
     597          Height = 470
    598598          ResizeStyle = rsUpdate
    599599        end
     
    601601          Left = 180
    602602          Top = 0
    603           Width = 665
    604           Height = 624
     603          Width = 477
     604          Height = 470
    605605          Align = alClient
    606606          BevelOuter = bvNone
     
    610610            Left = 0
    611611            Top = 0
    612             Width = 665
    613             Height = 593
     612            Width = 477
     613            Height = 439
    614614            ActivePage = tsAdvancedPatients
    615615            Align = alClient
     
    650650                Left = 0
    651651                Top = 0
    652                 Width = 657
    653                 Height = 565
     652                Width = 469
     653                Height = 411
    654654                Cursor = crHandPoint
    655655                Hint = 'Edit User Fields Here'
     
    673673          object Panel9: TPanel
    674674            Left = 0
    675             Top = 593
    676             Width = 665
     675            Top = 439
     676            Width = 477
    677677            Height = 31
    678678            Align = alBottom
     
    681681            TabOrder = 1
    682682            DesignSize = (
    683               665
     683              477
    684684              31)
    685685            object btnPatientApply: TBitBtn
    686               Left = 584
     686              Left = 396
    687687              Top = 3
    688688              Width = 75
     
    721721            end
    722722            object btnPatientRevert: TBitBtn
    723               Left = 500
     723              Left = 312
    724724              Top = 4
    725725              Width = 75
     
    763763          Top = 0
    764764          Width = 177
    765           Height = 624
     765          Height = 470
    766766          Align = alLeft
    767767          BevelOuter = bvNone
     
    770770          object Panel11: TPanel
    771771            Left = 0
    772             Top = 589
     772            Top = 435
    773773            Width = 177
    774774            Height = 35
     
    868868            Top = 0
    869869            Width = 177
    870             Height = 589
     870            Height = 435
    871871            Style = orcsSimple
    872872            Align = alClient
     
    901901        Left = 0
    902902        Top = 0
    903         Width = 845
    904         Height = 624
     903        Width = 657
     904        Height = 470
    905905        Align = alClient
    906906        BevelOuter = bvNone
     
    910910          Left = 177
    911911          Top = 0
    912           Height = 624
     912          Height = 470
    913913          ResizeStyle = rsUpdate
    914914        end
     
    916916          Left = 180
    917917          Top = 0
    918           Width = 665
    919           Height = 624
     918          Width = 477
     919          Height = 470
    920920          Align = alClient
    921921          BevelOuter = bvNone
     
    925925            Left = 0
    926926            Top = 0
    927             Width = 665
    928             Height = 593
     927            Width = 477
     928            Height = 439
    929929            ActivePage = TabSheet2
    930930            Align = alClient
     
    964964          object Panel14: TPanel
    965965            Left = 0
    966             Top = 593
    967             Width = 665
     966            Top = 439
     967            Width = 477
    968968            Height = 31
    969969            Align = alBottom
     
    971971            TabOrder = 1
    972972            DesignSize = (
    973               665
     973              477
    974974              31)
    975975            object btnAdvancedApply: TBitBtn
    976               Left = 584
     976              Left = 396
    977977              Top = 3
    978978              Width = 75
     
    10111011            end
    10121012            object btnAdvancedRevert: TBitBtn
    1013               Left = 500
     1013              Left = 312
    10141014              Top = 4
    10151015              Width = 75
     
    10531053          Top = 0
    10541054          Width = 177
    1055           Height = 624
     1055          Height = 470
    10561056          Align = alLeft
    10571057          BevelOuter = bvNone
     
    10601060          object BotLeftAdvBtnPanel: TPanel
    10611061            Left = 0
    1062             Top = 589
     1062            Top = 435
    10631063            Width = 177
    10641064            Height = 35
     
    11121112            Top = 0
    11131113            Width = 177
    1114             Height = 589
     1114            Height = 435
    11151115            Align = alClient
    11161116            BevelOuter = bvNone
     
    11811181              Top = 204
    11821182              Width = 177
    1183               Height = 385
     1183              Height = 231
    11841184              Align = alClient
    11851185              BevelOuter = bvNone
     
    12051205                Top = 13
    12061206                Width = 177
    1207                 Height = 372
     1207                Height = 218
    12081208                Style = orcsSimple
    12091209                Align = alClient
  • cprs/branches/GUI-config/frmSplash.dfm

    r542 r610  
    11object SplashForm: TSplashForm
    2   Left = 315
    3   Top = 163
     2  Left = 255
     3  Top = 123
    44  BorderStyle = bsNone
    55  Caption = 'SplashForm'
    6   ClientHeight = 298
     6  ClientHeight = 299
    77  ClientWidth = 400
    88  Color = clBtnFace
     
    1414  OldCreateOrder = False
    1515  Position = poScreenCenter
     16  OnCreate = FormCreate
    1617  PixelsPerInch = 96
    1718  TextHeight = 13
     
    2021    Top = 0
    2122    Width = 400
    22     Height = 298
     23    Height = 299
    2324    Align = alClient
    2425    Picture.Data = {
  • cprs/branches/GUI-config/frmSplash.pas

    r476 r610  
    3535    Image1: TImage;
    3636    procedure Image1Click(Sender: TObject);
     37    procedure FormCreate(Sender: TObject);
    3738  private
    3839    { Private declarations }
     
    5354end;
    5455
     56procedure TSplashForm.FormCreate(Sender: TObject);
     57var  FileName : string;
     58begin
     59  FileName := ExtractFilePath(ParamStr(0))+ 'splash.jpg';
     60  if FileExists(FileName) then begin
     61    Image1.Picture.LoadFromFile(FileName);
     62  end;
     63  Self.Width := Image1.Picture.Width;
     64  Self.Height := Image1.Picture.Height;
     65  Self.Left:=(Screen.Width - Self.Width) div 2;
     66  Self.Top := (Screen.Height - Self.Height) div 2;
     67end;
     68
    5569end.
    5670
Note: See TracChangeset for help on using the changeset viewer.