Changeset 611


Ignore:
Timestamp:
Nov 27, 2009, 4:58:08 PM (15 years ago)
Author:
Kevin Toppenberg
Message:

Allow user-definable splash.jpg image

Location:
cprs/branches/GUI-config
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • cprs/branches/GUI-config/AboutU.dfm

    r542 r611  
    155155    Left = 0
    156156    Top = 0
    157     Width = 500
     157    Width = 501
    158158    Height = 400
    159159    Picture.Data = {
     
    11471147    Font.Style = []
    11481148    Lines.Strings = (
    1149       'WorldVistA Configuration Utility, v1.10'
     1149      'VistA Configuration Utility, v1.11'
    11501150      '(c) 12/2008; Released under LGPL'
    11511151      'Programmed by:  Kevin Toppenberg & Eddie Hagood')
  • cprs/branches/GUI-config/AboutU.pas

    r476 r611  
    9797
    9898  procedure TAboutForm.FormShow(Sender: TObject);
     99  var  FileName : string;
    99100  begin
     101    FileName := ExtractFilePath(ParamStr(0))+ 'splash.jpg';
     102    if FileExists(FileName) then begin
     103      Image1.Picture.LoadFromFile(FileName);
     104    end;
     105    Image1.Width := Image1.Picture.Width;
     106    Image1.Height := Image1.Picture.Height;
     107    Self.Width := Image1.Picture.Width;
     108    Self.Height := Image1.Picture.Height + Memo1.Height + 35;  //not sure why 35 extra needed...
     109    Self.Left:=(Screen.Width - Self.Width) div 2;
     110    Self.Top := (Screen.Height - Self.Height) div 2;
    100111    MainForm.Hide;
     112
    101113    Timer1.Enabled := true;
    102114    FadeIn := true;
  • cprs/branches/GUI-config/GUI_Config.dof

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

    r610 r611  
    11[Closed Files]
    2 File_0=SourceModule,'P:\vista\GUI-config\AboutU.pas',0,1,107,1,108,1,0
    3 File_1=SourceModule,'P:\vista\GUI-config\BDK32\Source\TRPCB.pas',0,1,1045,1,1059,0,0
    4 File_2=SourceModule,'P:\vista\GUI-config\CreateTemplateU.pas',0,1,140,11,145,0,0
    5 File_3=SourceModule,'P:\vista\GUI-config\SetSelU.pas',0,1,1,1,1,1,0
     2File_0=SourceModule,'P:\vista\GUI-config\PostU.pas',0,1,34,62,10,0,0
     3File_1=SourceModule,'P:\vista\GUI-config\SkinFormU.pas',0,1,87,16,95,0,0
     4File_2=SourceModule,'P:\vista\GUI-config\BDK32\Source\wsockc.pas',0,1,1468,71,1476,0,0
     5File_3=SourceModule,'P:\Vista\GUI-config\CPRS-Lib\ORNet.pas',0,1,1,1,310,0,0
     6File_4=SourceModule,'c:\program files\borland\delphi7\source\vcl\OleCtrls.pas',0,1,85,27,96,0,0
     7File_5=SourceModule,'P:\vista\GUI-config\BDK32\Source\ccowrpcbroker.pas',0,1,44,29,45,0,0
     8File_6=SourceModule,'P:\vista\GUI-config\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas',0,1,1104,11,1110,0,0
     9File_7=SourceModule,'P:\vista\GUI-config\BDK32\Source\TRPCB.pas',0,1,1045,1,1059,0,0
     10File_8=SourceModule,'P:\vista\GUI-config\CreateTemplateU.pas',0,1,140,11,145,0,0
     11File_9=SourceModule,'P:\vista\GUI-config\SetSelU.pas',0,1,1,1,1,1,0
    612
    713[Modules]
    8 Module0=P:\vista\GUI-config\MainU.pas
    9 Module1=P:\vista\GUI-config\GUI_Config.dpr
    10 Module2=P:\vista\GUI-config\BDK32\Source\wsockc.pas
    11 Module3=P:\vista\GUI-config\frmSplash.pas
    12 Module4=P:\Vista\GUI-config\CPRS-Lib\ORNet.pas
    13 Module5=P:\vista\GUI-config\SkinFormU.pas
    14 Module6=P:\vista\GUI-config\PostU.pas
    15 Module7=P:\vista\GUI-config\BDK32\Source\ccowrpcbroker.pas
    16 Module8=c:\program files\borland\delphi7\source\vcl\OleCtrls.pas
    17 Module9=P:\vista\GUI-config\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas
    18 Count=10
     14Module0=P:\vista\GUI-config\AboutU.pas
     15Module1=P:\vista\GUI-config\frmSplash.pas
     16Module2=P:\vista\GUI-config\MainU.pas
     17Module3=P:\vista\GUI-config\GUI_Config.dpr
     18Count=4
    1919EditWindowCount=1
     20
     21[P:\vista\GUI-config\AboutU.pas]
     22ModuleType=SourceModule
     23FormState=1
     24FormOnTop=0
     25
     26[P:\vista\GUI-config\frmSplash.pas]
     27ModuleType=SourceModule
     28FormState=1
     29FormOnTop=0
    2030
    2131[P:\vista\GUI-config\MainU.pas]
    2232ModuleType=SourceModule
    2333FormState=0
    24 FormOnTop=0
     34FormOnTop=1
    2535
    2636[P:\vista\GUI-config\GUI_Config.dpr]
     
    2939FormOnTop=0
    3040
    31 [P:\vista\GUI-config\BDK32\Source\wsockc.pas]
    32 ModuleType=SourceModule
    33 FormState=0
    34 FormOnTop=0
    35 
    36 [P:\vista\GUI-config\frmSplash.pas]
    37 ModuleType=SourceModule
    38 FormState=0
    39 FormOnTop=0
    40 
    41 [P:\Vista\GUI-config\CPRS-Lib\ORNet.pas]
    42 ModuleType=SourceModule
    43 FormState=0
    44 FormOnTop=0
    45 
    46 [P:\vista\GUI-config\SkinFormU.pas]
    47 ModuleType=SourceModule
    48 FormState=0
    49 FormOnTop=0
    50 
    51 [P:\vista\GUI-config\PostU.pas]
    52 ModuleType=SourceModule
    53 FormState=0
    54 FormOnTop=0
    55 
    56 [P:\vista\GUI-config\BDK32\Source\ccowrpcbroker.pas]
    57 ModuleType=SourceModule
    58 FormState=0
    59 FormOnTop=0
    60 
    61 [c:\program files\borland\delphi7\source\vcl\OleCtrls.pas]
    62 ModuleType=SourceModule
    63 FormState=0
    64 FormOnTop=0
    65 
    66 [P:\vista\GUI-config\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas]
    67 ModuleType=SourceModule
    68 FormState=0
    69 FormOnTop=0
    70 
    7141[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
    7242FormState=0
     
    7444
    7545[EditWindow0]
    76 ViewCount=10
    77 CurrentView=3
     46ViewCount=4
     47CurrentView=1
    7848View0=0
    7949View1=1
    8050View2=2
    8151View3=3
    82 View4=4
    83 View5=5
    84 View6=6
    85 View7=7
    86 View8=8
    87 View9=9
    8852CodeExplorer=CodeExplorer@EditWindow0
    8953MessageView=MessageView@EditWindow0
     
    10367LeftPanelData=00000400010000000C000000436F64654578706C6F726572000000000000000000000000000000000001000000000000000000000000FFFFFFFF
    10468RightPanelSize=0
    105 BottomPanelSize=155
     69BottomPanelSize=0
    10670BottomPanelClients=MessageView@EditWindow0
    107 BottomPanelData=0000040000000000FF02000000000000029B00000000000000010000000000000000000000000100000000FF0200000B0000004D65737361676556696577FFFFFFFF
     71BottomPanelData=00000400010000000B0000004D65737361676556696577FF02000000000000029B00000000000000010000000000000000000000000100000000FF0200000B0000004D65737361676556696577FFFFFFFF
    10872
    10973[View0]
    110 Module=P:\vista\GUI-config\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas
    111 CursorX=11
    112 CursorY=1110
    113 TopLine=1104
    114 LeftCol=1
    115 
    116 [View1]
    117 Module=c:\program files\borland\delphi7\source\vcl\OleCtrls.pas
    118 CursorX=27
    119 CursorY=96
    120 TopLine=85
    121 LeftCol=1
    122 
    123 [View2]
    124 Module=P:\vista\GUI-config\BDK32\Source\ccowrpcbroker.pas
    125 CursorX=29
    126 CursorY=45
    127 TopLine=44
    128 LeftCol=1
    129 
    130 [View3]
    13174Module=P:\vista\GUI-config\MainU.pas
    13275CursorX=1
    133 CursorY=210
    134 TopLine=202
     76CursorY=1658
     77TopLine=1656
    13578LeftCol=1
    13679
    137 [View4]
    138 Module=P:\vista\GUI-config\PostU.pas
    139 CursorX=62
    140 CursorY=10
    141 TopLine=34
     80[View1]
     81Module=P:\vista\GUI-config\AboutU.pas
     82CursorX=21
     83CursorY=110
     84TopLine=98
    14285LeftCol=1
    14386
    144 [View5]
    145 Module=P:\vista\GUI-config\SkinFormU.pas
    146 CursorX=16
    147 CursorY=95
    148 TopLine=87
    149 LeftCol=1
    150 
    151 [View6]
    152 Module=P:\Vista\GUI-config\CPRS-Lib\ORNet.pas
    153 CursorX=1
    154 CursorY=310
    155 TopLine=1
    156 LeftCol=1
    157 
    158 [View7]
     87[View2]
    15988Module=P:\vista\GUI-config\frmSplash.pas
    16089CursorX=1
    161 CursorY=1
    162 TopLine=1
     90CursorY=67
     91TopLine=56
    16392LeftCol=1
    16493
    165 [View8]
    166 Module=P:\vista\GUI-config\BDK32\Source\wsockc.pas
    167 CursorX=1
    168 CursorY=1479
    169 TopLine=1468
    170 LeftCol=1
    171 
    172 [View9]
     94[View3]
    17395Module=P:\vista\GUI-config\GUI_Config.dpr
    17496CursorX=1
     
    203125
    204126[Breakpoints]
    205 Count=3
     127Count=2
    206128Breakpoint0='P:\vista\GUI-config\MainU.pas',990,'',0,1,'',1,0,0,'',1,'','',''
    207129Breakpoint1='P:\vista\GUI-config\MainU.pas',1879,'',0,1,'',1,0,0,'',1,'','',''
    208 Breakpoint2='P:\vista\GUI-config\MainU.pas',345,'',0,1,'',1,0,0,'',1,'','',''
    209130
    210131[AddressBreakpoints]
     
    294215Left=0
    295216Top=0
    296 Width=158
    297 Height=309
    298 MaxLeft=-1
    299 MaxTop=-1
    300 ClientWidth=158
    301 ClientHeight=309
     217Width=250
     218Height=522
     219MaxLeft=-1
     220MaxTop=-1
     221ClientWidth=250
     222ClientHeight=522
    302223TBDockHeight=527
    303224LRDockWidth=250
     
    305226SplitPos=73
    306227ArrangeBy=Name
    307 SelectedItem=
     228SelectedItem=Name
    308229ExpandedItems=Anchors,Menu,Options
    309230HiddenCategories=Legacy
     
    373294Left=0
    374295Top=0
    375 Width=158
    376 Height=309
    377 MaxLeft=-1
    378 MaxTop=-1
    379 ClientWidth=158
    380 ClientHeight=309
     296Width=250
     297Height=522
     298MaxLeft=-1
     299MaxTop=-1
     300ClientWidth=250
     301ClientHeight=522
    381302TBDockHeight=527
    382303LRDockWidth=250
     
    509430[MessageView@EditWindow0]
    510431Create=1
    511 Visible=1
     432Visible=0
    512433State=0
    513434Left=12
     
    531452Visible=1
    532453State=0
    533 Left=36
    534 Top=157
    535 Width=174
    536 Height=364
    537 MaxLeft=-1
    538 MaxTop=-1
    539 ClientWidth=166
    540 ClientHeight=338
     454Left=12
     455Top=139
     456Width=266
     457Height=577
     458MaxLeft=-1
     459MaxTop=-1
     460ClientWidth=258
     461ClientHeight=551
    541462TBDockHeight=539
    542463LRDockWidth=258
Note: See TracChangeset for help on using the changeset viewer.