Ignore:
Timestamp:
Sep 17, 2008, 3:28:02 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

new RPC broker

Location:
cprs/branches/tmg-cprs/CPRS-Chart
Files:
1 deleted
7 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/tmg-cprs/CPRS-Chart/Accessibility_TLB.pas

    r489 r490  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 9/11/2008 6:22:25 PM from Type Library described below.
     15// File generated on 9/11/2008 8:30:56 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dpr

    r489 r490  
    335335    end;
    336336    //Application.Title := DKLangConstW('STestMessage'); //kt 7-1-09
    337     Application.Title := 'CPRS - Patient Chart';  //kt 7-1-09 <-- original line
     337    Application.Title := 'CPRS - Patient Chart';  //kt 7-1-09 <-- original line restored
    338338    Application.HelpFile := 'cprs.hlp';
    339339    Application.CreateForm(TdmodShared, dmodShared);
    … …  
    351351    Application.Run;
    352352  end;
    353   {$IFDEF USE_SKINS}
    354   if SkinManager <> nil then SkinManager.Active := false;  //turn off before destroying forms...
    355   {$ENDIF}
    356353end.

  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dsk

    r489 r490  
    1212
    1313[Modules]
    14 Module0=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    15 Module1=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
    16 Module2=c:\program files\borland\delphi7\source\vcl\Forms.pas
    17 Module3=c:\program files\borland\delphi7\source\vcl\Controls.pas
    18 Module4=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
    19 Module5=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    20 Module6=P:\vista\tmg-cprs\CPRS-Chart\fDCSumm.pas
    21 Module7=c:\program files\borland\delphi7\source\rtl\Win\Windows.pas
    22 Module8=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
    23 Module9=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
    24 Module10=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
    25 Module11=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
    26 Module12=c:\program files\borland\delphi7\source\rtl\Sys\SysInit.pas
    27 Module13=P:\vista\tmg-cprs\CPRS-Chart\fPrintList.pas
    28 Count=14
     14Module0=c:\program files\borland\delphi7\source\vcl\Forms.pas
     15Module1=P:\vista\tmg-cprs\CPRSChart.ini
     16Module2=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
     17Module3=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
     18Module4=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
     19Module5=P:\vista\tmg-cprs\CPRS-Chart\fPrintList.pas
     20Module6=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     21Module7=c:\program files\borland\delphi7\source\rtl\Win\Messages.pas
     22Module8=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
     23Module9=c:\program files\borland\delphi7\source\vcl\Controls.pas
     24Module10=c:\program files\borland\delphi7\source\rtl\common\classes.pas
     25Module11=c:\program files\borland\delphi7\source\rtl\Win\Windows.pas
     26Module12=P:\vista\tmg-cprs\CPRS-Chart\fDCSumm.pas
     27Module13=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
     28Module14=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
     29Module15=c:\program files\borland\delphi7\source\rtl\Sys\SysInit.pas
     30Count=16
    2931EditWindowCount=1
    3032TypeLibWindowCount=1
    3133
     34[c:\program files\borland\delphi7\source\vcl\Forms.pas]
     35ModuleType=SourceModule
     36FormState=0
     37FormOnTop=0
     38
     39[P:\vista\tmg-cprs\CPRSChart.ini]
     40ModuleType=SourceModule
     41FormState=0
     42FormOnTop=0
     43
     44[P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]
     45ModuleType=SourceModule
     46FormState=1
     47FormOnTop=0
     48
     49[P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
     50ModuleType=SourceModule
     51FormState=1
     52FormOnTop=0
     53
     54[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas]
     55ModuleType=SourceModule
     56FormState=1
     57FormOnTop=0
     58
     59[P:\vista\tmg-cprs\CPRS-Chart\fPrintList.pas]
     60ModuleType=SourceModule
     61FormState=0
     62FormOnTop=0
     63
     64[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
     65ModuleType=SourceModule
     66FormState=0
     67FormOnTop=0
     68
     69[c:\program files\borland\delphi7\source\rtl\Win\Messages.pas]
     70ModuleType=SourceModule
     71FormState=0
     72FormOnTop=0
     73
     74[c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
     75ModuleType=SourceModule
     76FormState=0
     77FormOnTop=0
     78
     79[c:\program files\borland\delphi7\source\vcl\Controls.pas]
     80ModuleType=SourceModule
     81FormState=0
     82FormOnTop=0
     83
    3284[c:\program files\borland\delphi7\source\rtl\common\classes.pas]
    3385ModuleType=SourceModule
    … …  
    3587FormOnTop=0
    3688
    37 [P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    38 ModuleType=SourceModule
    39 FormState=1
    40 FormOnTop=0
    41 
    42 [c:\program files\borland\delphi7\source\vcl\Forms.pas]
    43 ModuleType=SourceModule
    44 FormState=0
    45 FormOnTop=0
    46 
    47 [c:\program files\borland\delphi7\source\vcl\Controls.pas]
    48 ModuleType=SourceModule
    49 FormState=0
    50 FormOnTop=0
    51 
    52 [c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
    53 ModuleType=SourceModule
    54 FormState=0
    55 FormOnTop=0
    56 
    57 [P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
     89[c:\program files\borland\delphi7\source\rtl\Win\Windows.pas]
    5890ModuleType=SourceModule
    5991FormState=0
    … …  
    6597FormOnTop=0
    6698
    67 [c:\program files\borland\delphi7\source\rtl\Win\Windows.pas]
    68 ModuleType=SourceModule
    69 FormState=0
    70 FormOnTop=0
    71 
    72 [P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas]
    73 ModuleType=SourceModule
    74 FormState=1
    75 FormOnTop=0
    76 
    77 [P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
    78 ModuleType=SourceModule
    79 FormState=1
     99[c:\program files\borland\delphi7\source\vcl\ComCtrls.pas]
     100ModuleType=SourceModule
     101FormState=0
    80102FormOnTop=0
    81103
    … …  
    85107FormOnTop=0
    86108
    87 [c:\program files\borland\delphi7\source\vcl\ComCtrls.pas]
    88 ModuleType=SourceModule
    89 FormState=0
    90 FormOnTop=0
    91 
    92109[c:\program files\borland\delphi7\source\rtl\Sys\SysInit.pas]
    93110ModuleType=SourceModule
    … …  
    95112FormOnTop=0
    96113
    97 [P:\vista\tmg-cprs\CPRS-Chart\fPrintList.pas]
    98 ModuleType=SourceModule
    99 FormState=0
    100 FormOnTop=0
    101 
    102114[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
    103115FormState=0
    … …  
    108120FormOnTop=0
    109121
     122[P:\vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
     123FormState=0
     124FormOnTop=0
     125
     126[P:\vista\tmg-cprs\CPRS-Chart\fPage.pas]
     127FormState=0
     128FormOnTop=0
     129
    110130[P:\vista\tmg-cprs\CPRS-Chart\fAutoSz.pas]
    111131FormState=0
    112132FormOnTop=0
    113133
    114 [P:\vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
    115 FormState=0
    116 FormOnTop=0
    117 
    118 [P:\vista\tmg-cprs\CPRS-Chart\fPage.pas]
    119 FormState=0
    120 FormOnTop=0
    121 
    122134[EditWindow0]
    123 ViewCount=14
    124 CurrentView=10
     135ViewCount=16
     136CurrentView=12
    125137View0=0
    126138View1=1
    … …  
    137149View12=12
    138150View13=13
     151View14=14
     152View15=15
    139153CodeExplorer=CodeExplorer@EditWindow0
    140154MessageView=MessageView@EditWindow0
    … …  
    142156Visible=1
    143157State=0
    144 Left=271
    145 Top=128
    146 Width=719
     158Left=212
     159Top=132
     160Width=780
    147161Height=588
    148162MaxLeft=-1
    149163MaxTop=-1
    150 ClientWidth=711
     164ClientWidth=772
    151165ClientHeight=554
    152166LeftPanelSize=0
    … …  
    154168LeftPanelData=00000400010000000C000000436F64654578706C6F726572000000000000000000000000000000000001000000000000000000000000FFFFFFFF
    155169RightPanelSize=0
    156 BottomPanelSize=0
     170BottomPanelSize=187
    157171BottomPanelClients=MessageView@EditWindow0
    158 BottomPanelData=00000400010000000B0000004D65737361676556696577C7020000000000000255000000000000000100000000000000000000000001000000000103000000000000010000000001030000000000000100000000C70200000B0000004D65737361676556696577FFFFFFFF
     172BottomPanelData=0000040000000000040300000000000002BB000000000000000100000000000000000000000001000000000103000000000000010000000001030000000000000100000000C7020000000000000100000000040300000B0000004D65737361676556696577FFFFFFFF
    159173
    160174[View0]
    161175Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    162176CursorX=1
    163 CursorY=351
    164 TopLine=334
     177CursorY=12
     178TopLine=1
    165179LeftCol=1
    166180
    167181[View1]
    168182Module=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
    169 CursorX=17
    170 CursorY=572
    171 TopLine=553
     183CursorX=15
     184CursorY=1238
     185TopLine=1225
    172186LeftCol=1
    173187
    … …  
    180194
    181195[View3]
     196Module=P:\vista\tmg-cprs\CPRSChart.ini
     197CursorX=1
     198CursorY=23
     199TopLine=6
     200LeftCol=1
     201
     202[View4]
    182203Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
    183204CursorX=1
    184 CursorY=454
    185 TopLine=451
    186 LeftCol=1
    187 
    188 [View4]
     205CursorY=321
     206TopLine=310
     207LeftCol=1
     208
     209[View5]
    189210Module=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
    190 CursorX=1
    191 CursorY=8638
    192 TopLine=8623
    193 LeftCol=1
    194 
    195 [View5]
     211CursorX=25
     212CursorY=8394
     213TopLine=8380
     214LeftCol=1
     215
     216[View6]
    196217Module=c:\program files\borland\delphi7\source\rtl\Sys\SysInit.pas
    197218CursorX=1
    … …  
    200221LeftCol=1
    201222
    202 [View6]
     223[View7]
    203224Module=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
    204 CursorX=1
    205 CursorY=301
    206 TopLine=287
    207 LeftCol=1
    208 
    209 [View7]
     225CursorX=29
     226CursorY=123
     227TopLine=115
     228LeftCol=1
     229
     230[View8]
    210231Module=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
    211232CursorX=1
    … …  
    214235LeftCol=1
    215236
    216 [View8]
     237[View9]
    217238Module=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
    218239CursorX=1
    … …  
    221242LeftCol=1
    222243
    223 [View9]
     244[View10]
    224245Module=c:\program files\borland\delphi7\source\vcl\Controls.pas
    225246CursorX=1
    226247CursorY=6369
    227 TopLine=6343
    228 LeftCol=1
    229 
    230 [View10]
     248TopLine=6355
     249LeftCol=1
     250
     251[View11]
    231252Module=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    232253CursorX=1
    233 CursorY=5707
    234 TopLine=5693
    235 LeftCol=1
    236 
    237 [View11]
     254CursorY=6351
     255TopLine=6337
     256LeftCol=1
     257
     258[View12]
    238259Module=c:\program files\borland\delphi7\source\vcl\Forms.pas
    239 CursorX=29
    240 CursorY=6866
    241 TopLine=6858
    242 LeftCol=1
    243 
    244 [View12]
     260CursorX=1
     261CursorY=4781
     262TopLine=4767
     263LeftCol=1
     264
     265[View13]
     266Module=c:\program files\borland\delphi7\source\rtl\Win\Messages.pas
     267CursorX=1
     268CursorY=13
     269TopLine=28
     270LeftCol=1
     271
     272[View14]
    245273Module=P:\vista\tmg-cprs\CPRS-Chart\fDCSumm.pas
    246274CursorX=1
    … …  
    249277LeftCol=1
    250278
    251 [View13]
     279[View15]
    252280Module=c:\program files\borland\delphi7\source\rtl\Win\Windows.pas
    253281CursorX=1
    … …  
    271299
    272300[Watches]
    273 Count=9
     301Count=10
    274302Watch0='Control',256,0,18,1,0,'Watches'
    275303Watch1='TabIndex',256,0,18,1,0,'Watches'
    … …  
    281309Watch7='FOnException',8,0,18,1,0,'Watches'
    282310Watch8='E',16,0,18,1,0,'Watches'
     311Watch9='actiontype',256,0,18,1,0,'Watches'
    283312
    284313[WatchWindow]
    … …  
    286315WatchShowColumnHeaders=1
    287316Create=1
    288 Visible=1
     317Visible=0
    289318State=0
    290319Left=26
    … …  
    301330
    302331[Breakpoints]
    303 Count=7
    304 Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr',354,'',0,1,'',1,0,0,'',1,'','',''
    305 Breakpoint1='P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas',942,'',0,1,'',1,0,0,'',1,'','',''
    306 Breakpoint2='c:\program files\borland\delphi7\source\vcl\Controls.pas',6243,'',0,1,'',1,0,0,'',1,'','',''
    307 Breakpoint3='c:\program files\borland\delphi7\source\vcl\Forms.pas',6998,'',0,1,'',1,0,0,'',1,'','',''
    308 Breakpoint4='c:\program files\borland\delphi7\source\vcl\Forms.pas',7000,'',0,1,'',1,0,0,'',1,'','',''
    309 Breakpoint5='c:\program files\borland\delphi7\source\vcl\Forms.pas',6982,'',0,1,'',1,0,0,'',1,'','',''
    310 Breakpoint6='P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas',606,'',0,1,'',1,0,0,'',1,'','',''
     332Count=1
     333Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas',944,'',0,1,'',1,0,0,'',1,'','',''
    311334
    312335[AddressBreakpoints]
    … …  
    362385Visible=0
    363386State=0
    364 Left=3
    365 Top=199
     387Left=287
     388Top=137
    366389Width=800
    367390Height=561
    … …  
    405428SplitPos=128
    406429ArrangeBy=Name
    407 SelectedItem=OnException
     430SelectedItem=Name
    408431ExpandedItems=Anchors
    409432HiddenCategories=Legacy
    … …  
    433456[CallStackWindow]
    434457Create=1
    435 Visible=1
    436 State=0
    437 Left=35
    438 Top=431
     458Visible=0
     459State=0
     460Left=13
     461Top=158
    439462Width=502
    440463Height=295
    … …  
    609632[MessageView@EditWindow0]
    610633Create=1
    611 Visible=0
     634Visible=1
    612635State=0
    613636Left=12
    614637Top=0
    615 Width=699
    616 Height=85
    617 MaxLeft=-1
    618 MaxTop=-1
    619 ClientWidth=699
    620 ClientHeight=85
    621 TBDockHeight=85
     638Width=760
     639Height=187
     640MaxLeft=-1
     641MaxTop=-1
     642ClientWidth=760
     643ClientHeight=187
     644TBDockHeight=187
    622645LRDockWidth=443
    623646Dockable=1

  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart_TLB.pas

    r489 r490  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 9/11/2008 6:22:25 PM from Type Library described below.
     15// File generated on 9/11/2008 8:30:56 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

  • cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.pas

    r489 r490  
    238238      with frmOptions do
    239239      begin
     240        cbSkinAtStartup.Checked := frmFrame.SkinAtStartup;
    240241        with pagOptions do
    241242        begin
    … …  
    318319      end;
    319320    finally
     321      frmFrame.SkinAtStartup := frmOptions.cbSkinAtStartup.Checked;
    320322      frmOptions.Release;
    321323    end;

  • cprs/branches/tmg-cprs/CPRS-Chart/fFrame.dfm

    r489 r490  
    10481048  object AppEvents: TApplicationEvents
    10491049    OnActivate = AppEventsActivate
    1050     OnException = AppException
    10511050    OnShortCut = AppEventsShortCut
    10521051    Left = 336

  • cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas

    r489 r490  
    603603    Close;
    604604  end
    605   else if E.Message = 'Cannot focus a disabled or invisible window' then begin
    606     i := 1; // do nothing
     605  else if (E is EInvalidOperation) then     //kt 9/11/08
     606  begin
     607    if E.Message = 'Cannot focus a disabled or invisible window' then begin
     608      i := 1; // do nothing
     609    end
     610    else Application.ShowException(E);
    607611  end
    608612  else Application.ShowException(E);
Note: See TracChangeset for help on using the changeset viewer.