Ignore:
Timestamp:
Aug 8, 2008, 8:34:55 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Added Colorful Tabs, Changable Tab positions, Demographics translation enabled

Location:
cprs/branches/tmg-cprs/CPRS-Chart
Files:
10 edited

Legend:

Unmodified
Added
Removed

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

    r472 r473  
    1212
    1313[Modules]
    14 Module0=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
    15 Module1=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    16 Module2=P:\Vista\tmg-cprs\CPRS-Chart\TMG_Extra\fWebTab.pas
    17 Module3=P:\Vista\tmg-cprs\CPRS-Chart\fCover.pas
    18 Module4=P:\Vista\tmg-cprs\CPRS-Chart\Orders\fODBase.pas
    19 Module5=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
    20 Module6=P:\Vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas
    21 Module7=P:\Vista\tmg-cprs\CPRS-Chart\fImages.pas
    22 Module8=P:\Vista\tmg-cprs\CPRS-Chart\uConst.pas
    23 Module9=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    24 Count=10
     14Module0=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
     15Module1=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
     16Module2=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
     17Module3=c:\program files\borland\delphi7\source\vcl\Controls.pas
     18Module4=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
     19Module5=P:\Vista\killthis.txt
     20Module6=c:\program files\borland\delphi7\source\rtl\common\classes.pas
     21Module7=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     22Count=8
    2523EditWindowCount=1
    2624TypeLibWindowCount=1
    2725
     26[P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
     27ModuleType=SourceModule
     28FormState=1
     29FormOnTop=0
     30
     31[c:\program files\borland\delphi7\source\vcl\StdCtrls.pas]
     32ModuleType=SourceModule
     33FormState=0
     34FormOnTop=0
     35
     36[c:\program files\borland\delphi7\source\vcl\ComCtrls.pas]
     37ModuleType=SourceModule
     38FormState=0
     39FormOnTop=0
     40
     41[c:\program files\borland\delphi7\source\vcl\Controls.pas]
     42ModuleType=SourceModule
     43FormState=0
     44FormOnTop=0
     45
    2846[P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    2947ModuleType=SourceModule
    3048FormState=1
    31 FormOnTop=1
    32 
    33 [c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas]
    34 ModuleType=SourceModule
    35 FormState=0
    36 FormOnTop=0
    37 
    38 [P:\Vista\tmg-cprs\CPRS-Chart\TMG_Extra\fWebTab.pas]
    39 ModuleType=SourceModule
    40 FormState=1
    41 FormOnTop=0
    42 
    43 [P:\Vista\tmg-cprs\CPRS-Chart\fCover.pas]
    44 ModuleType=SourceModule
    45 FormState=0
    46 FormOnTop=0
    47 
    48 [P:\Vista\tmg-cprs\CPRS-Chart\Orders\fODBase.pas]
    49 ModuleType=SourceModule
    50 FormState=0
    51 FormOnTop=0
    52 
    53 [C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas]
    54 ModuleType=SourceModule
    55 FormState=0
    56 FormOnTop=0
    57 
    58 [P:\Vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas]
    59 ModuleType=SourceModule
    60 FormState=1
    61 FormOnTop=0
    62 
    63 [P:\Vista\tmg-cprs\CPRS-Chart\fImages.pas]
    64 ModuleType=SourceModule
    65 FormState=0
    66 FormOnTop=0
    67 
    68 [P:\Vista\tmg-cprs\CPRS-Chart\uConst.pas]
     49FormOnTop=0
     50
     51[P:\Vista\killthis.txt]
     52ModuleType=SourceModule
     53FormState=0
     54FormOnTop=0
     55
     56[c:\program files\borland\delphi7\source\rtl\common\classes.pas]
    6957ModuleType=SourceModule
    7058FormState=0
    … …  
    8472FormOnTop=0
    8573
    86 [P:\Vista\tmg-cprs\CPRS-Chart\fPage.pas]
    87 FormState=0
    88 FormOnTop=0
    89 
    90 [P:\Vista\tmg-cprs\CPRS-Chart\fAutoSz.pas]
    91 FormState=0
    92 FormOnTop=0
    93 
    9474[EditWindow0]
    95 ViewCount=10
     75ViewCount=8
    9676CurrentView=2
    9777View0=0
    … …  
    10383View6=6
    10484View7=7
    105 View8=8
    106 View9=9
    10785CodeExplorer=CodeExplorer@EditWindow0
    10886MessageView=MessageView@EditWindow0
    … …  
    11088Visible=1
    11189State=0
    112 Left=195
    113 Top=125
    114 Width=813
    115 Height=583
    116 MaxLeft=-1
    117 MaxTop=-1
    118 ClientWidth=805
    119 ClientHeight=549
     90Left=213
     91Top=128
     92Width=777
     93Height=588
     94MaxLeft=-1
     95MaxTop=-1
     96ClientWidth=769
     97ClientHeight=554
    12098LeftPanelSize=0
    12199LeftPanelClients=CodeExplorer@EditWindow0
    … …  
    124102BottomPanelSize=0
    125103BottomPanelClients=MessageView@EditWindow0
    126 BottomPanelData=00000400010000000B0000004D65737361676556696577000000000000000000000000000000000001000000000000000000000000FFFFFFFF
     104BottomPanelData=00000400010000000B0000004D657373616765566965770103000000000000025500000000000000010000000000000000000000000100000000010300000B0000004D65737361676556696577FFFFFFFF
    127105
    128106[View0]
    129107Module=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    130 CursorX=20
    131 CursorY=7
    132 TopLine=1
    133 LeftCol=1
    134 
    135 [View1]
    136 Module=P:\Vista\tmg-cprs\CPRS-Chart\uConst.pas
    137 CursorX=16
    138 CursorY=407
    139 TopLine=398
    140 LeftCol=1
    141 
    142 [View2]
    143 Module=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
    144 CursorX=1
    145 CursorY=3695
    146 TopLine=3672
    147 LeftCol=1
    148 
    149 [View3]
    150 Module=P:\Vista\tmg-cprs\CPRS-Chart\TMG_Extra\fWebTab.pas
    151108CursorX=1
    152109CursorY=1
    … …  
    154111LeftCol=1
    155112
     113[View1]
     114Module=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
     115CursorX=13
     116CursorY=3755
     117TopLine=3745
     118LeftCol=1
     119
     120[View2]
     121Module=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
     122CursorX=1
     123CursorY=301
     124TopLine=287
     125LeftCol=1
     126
     127[View3]
     128Module=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
     129CursorX=1
     130CursorY=2785
     131TopLine=2771
     132LeftCol=1
     133
    156134[View4]
    157 Module=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    158 CursorX=1
    159 CursorY=4343
    160 TopLine=4317
     135Module=P:\Vista\killthis.txt
     136CursorX=1
     137CursorY=157
     138TopLine=135
    161139LeftCol=1
    162140
    163141[View5]
    164 Module=P:\Vista\tmg-cprs\CPRS-Chart\fCover.pas
    165 CursorX=1
    166 CursorY=654
    167 TopLine=640
     142Module=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
     143CursorX=1
     144CursorY=4460
     145TopLine=4436
    168146LeftCol=1
    169147
    170148[View6]
    171 Module=P:\Vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas
    172 CursorX=19
    173 CursorY=59
    174 TopLine=55
     149Module=c:\program files\borland\delphi7\source\vcl\Controls.pas
     150CursorX=1
     151CursorY=6161
     152TopLine=6145
    175153LeftCol=1
    176154
    177155[View7]
    178 Module=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
    179 CursorX=1
    180 CursorY=1479
    181 TopLine=1465
    182 LeftCol=1
    183 
    184 [View8]
    185 Module=P:\Vista\tmg-cprs\CPRS-Chart\Orders\fODBase.pas
    186 CursorX=1
    187 CursorY=1458
    188 TopLine=1444
    189 LeftCol=1
    190 
    191 [View9]
    192 Module=P:\Vista\tmg-cprs\CPRS-Chart\fImages.pas
    193 CursorX=19
    194 CursorY=845
    195 TopLine=831
     156Module=c:\program files\borland\delphi7\source\rtl\common\classes.pas
     157CursorX=1
     158CursorY=2825
     159TopLine=2817
    196160LeftCol=1
    197161
    … …  
    201165State=0
    202166Left=200
    203 Top=123
     167Top=115
    204168Width=639
    205169Height=453
    … …  
    211175
    212176[Watches]
    213 Count=2
    214 Watch0='frmPtSel',256,0,18,1,0,'Watches'
    215 Watch1='FName',256,0,18,1,0,'Watches'
     177Count=6
     178Watch0='Control',256,0,18,1,0,'Watches'
     179Watch1='TabIndex',256,0,18,1,0,'Watches'
     180Watch2='FCount',256,0,18,1,0,'Watches'
     181Watch3='pageControl',16,0,18,1,0,'Watches'
     182Watch4='ALabel',256,0,18,1,0,'Watches'
     183Watch5='colorIndex',256,0,18,1,0,'Watches'
    216184
    217185[WatchWindow]
    … …  
    219187WatchShowColumnHeaders=1
    220188Create=1
    221 Visible=1
    222 State=0
    223 Left=83
    224 Top=518
    225 Width=784
    226 Height=230
    227 MaxLeft=-1
    228 MaxTop=-1
    229 ClientWidth=776
    230 ClientHeight=204
    231 TBDockHeight=204
    232 LRDockWidth=426
     189Visible=0
     190State=0
     191Left=26
     192Top=330
     193Width=885
     194Height=260
     195MaxLeft=-1
     196MaxTop=-1
     197ClientWidth=877
     198ClientHeight=234
     199TBDockHeight=234
     200LRDockWidth=421
    233201Dockable=1
    234202
    235203[Breakpoints]
    236 Count=8
    237 Breakpoint0='C:\Program Files\VISTA\BDK32\Source\fPtAdd.pas',467,'',0,1,'',1,0,0,'',1,'','',''
    238 Breakpoint1='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fFrame.pas',4826,'',0,1,'',1,0,0,'',1,'','',''
    239 Breakpoint2='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\TMG_Extra\fPtAdd.pas',164,'',0,1,'',1,0,0,'',1,'','',''
    240 Breakpoint3='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\Orders\fODBase.pas',1270,'',0,1,'',1,0,0,'',1,'','',''
    241 Breakpoint4='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fFrame.pas',1098,'',0,1,'',1,0,0,'',1,'','',''
    242 Breakpoint5='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtSel.pas',510,'',0,1,'',1,0,0,'',1,'','',''
    243 Breakpoint6='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtSel.pas',501,'',0,1,'',1,0,0,'',1,'','',''
    244 Breakpoint7='P:\Vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas',285,'',0,1,'',1,0,0,'',1,'','',''
     204Count=0
    245205
    246206[AddressBreakpoints]
    … …  
    252212State=0
    253213Left=0
    254 Top=9
    255 Width=1024
     214Top=1
     215Width=981
    256216Height=112
    257217MaxLeft=-1
    258218MaxTop=-1
    259 ClientWidth=1016
     219ClientWidth=973
    260220ClientHeight=78
    261221
    … …  
    264224Visible=0
    265225State=0
    266 Left=213
    267 Top=185
    268 Width=587
    269 Height=462
    270 MaxLeft=-1
    271 MaxTop=-1
    272 ClientWidth=579
    273 ClientHeight=436
    274 TBDockHeight=489
    275 LRDockWidth=719
     226Left=198
     227Top=142
     228Width=689
     229Height=561
     230MaxLeft=-1
     231MaxTop=-1
     232ClientWidth=681
     233ClientHeight=535
     234TBDockHeight=408
     235LRDockWidth=623
    276236Dockable=1
    277237
    278238[Components]
    279 Left=240
    280 Top=237
     239Left=308
     240Top=167
    281241Width=183
    282 Height=235
     242Height=266
    283243Create=1
    284244Visible=0
    … …  
    287247MaxTop=-1
    288248ClientWidth=175
    289 ClientHeight=209
     249ClientHeight=240
    290250TBDockHeight=235
    291251LRDockWidth=183
    … …  
    296256Visible=0
    297257State=0
    298 Left=177
    299 Top=142
     258Left=0
     259Top=12
    300260Width=800
    301 Height=565
     261Height=561
    302262MaxLeft=-1
    303263MaxTop=-1
    304264ClientWidth=792
    305 ClientHeight=531
    306 DumpPane=79
    307 DisassemblyPane=264
     265ClientHeight=527
     266DumpPane=87
     267DisassemblyPane=187
    308268RegisterPane=231
    309 FlagPane=104
     269FlagPane=64
    310270
    311271[AlignmentPalette]
    … …  
    313273Visible=0
    314274State=0
    315 Left=200
    316 Top=114
     275Left=53
     276Top=123
    317277Width=156
    318278Height=84
    … …  
    326286Visible=1
    327287State=0
    328 Left=2
    329 Top=124
    330 Width=194
    331 Height=591
    332 MaxLeft=-1
    333 MaxTop=-1
    334 ClientWidth=186
    335 ClientHeight=565
    336 TBDockHeight=553
    337 LRDockWidth=209
    338 Dockable=1
    339 SplitPos=101
     288Left=0
     289Top=0
     290Width=242
     291Height=484
     292MaxLeft=-1
     293MaxTop=-1
     294ClientWidth=242
     295ClientHeight=484
     296TBDockHeight=527
     297LRDockWidth=250
     298Dockable=1
     299SplitPos=128
    340300ArrangeBy=Name
    341 SelectedItem=TabPosition
     301SelectedItem=OnChange
    342302ExpandedItems=Anchors
    343 HiddenCategories=
     303HiddenCategories=Legacy
    344304
    345305[BreakpointWindow]
    … …  
    347307Visible=0
    348308State=0
    349 Left=143
    350 Top=285
     309Left=31
     310Top=201
    351311Width=737
    352 Height=370
     312Height=350
    353313MaxLeft=-1
    354314MaxTop=-1
    355315ClientWidth=729
    356 ClientHeight=344
     316ClientHeight=324
    357317TBDockHeight=197
    358318LRDockWidth=737
    … …  
    367327[CallStackWindow]
    368328Create=1
    369 Visible=0
    370 State=0
    371 Left=32
    372 Top=435
    373 Width=469
    374 Height=294
    375 MaxLeft=-1
    376 MaxTop=-1
    377 ClientWidth=461
    378 ClientHeight=268
    379 TBDockHeight=294
    380 LRDockWidth=469
     329Visible=1
     330State=0
     331Left=42
     332Top=403
     333Width=874
     334Height=210
     335MaxLeft=-1
     336MaxTop=-1
     337ClientWidth=866
     338ClientHeight=184
     339TBDockHeight=355
     340LRDockWidth=233
    381341Dockable=1
    382342
    … …  
    403363[ObjectTree]
    404364Create=1
    405 Visible=0
    406 State=0
    407 Left=173
    408 Top=21
    409 Width=318
    410 Height=379
    411 MaxLeft=-1
    412 MaxTop=-1
    413 ClientWidth=310
    414 ClientHeight=353
    415 TBDockHeight=553
    416 LRDockWidth=190
     365Visible=1
     366State=0
     367Left=0
     368Top=0
     369Width=242
     370Height=484
     371MaxLeft=-1
     372MaxTop=-1
     373ClientWidth=242
     374ClientHeight=484
     375TBDockHeight=527
     376LRDockWidth=250
    417377Dockable=1
    418378
    … …  
    477437Visible=0
    478438State=0
    479 Left=306
    480 Top=280
     439Left=310
     440Top=284
    481441Width=457
    482442Height=250
    … …  
    532492Top=12
    533493Width=140
    534 Height=537
     494Height=351
    535495MaxLeft=-1
    536496MaxTop=-1
    537497ClientWidth=140
    538 ClientHeight=537
     498ClientHeight=351
    539499TBDockHeight=305
    540500LRDockWidth=140
    … …  
    547507Left=12
    548508Top=0
    549 Width=793
    550 Height=213
    551 MaxLeft=-1
    552 MaxTop=-1
    553 ClientWidth=793
    554 ClientHeight=213
    555 TBDockHeight=213
     509Width=757
     510Height=85
     511MaxLeft=-1
     512MaxTop=-1
     513ClientWidth=757
     514ClientHeight=85
     515TBDockHeight=85
    556516LRDockWidth=443
    557517Dockable=1
    558518
    559519[DockHosts]
    560 DockHostCount=0
    561 
     520DockHostCount=1
     521
     522[DockSite0]
     523DockSiteType=1
     524Create=1
     525Visible=1
     526State=0
     527Left=8
     528Top=128
     529Width=258
     530Height=539
     531MaxLeft=-1
     532MaxTop=-1
     533ClientWidth=250
     534ClientHeight=513
     535TBDockHeight=539
     536LRDockWidth=258
     537Dockable=1
     538TabPosition=0
     539ActiveTab=Object Inspector
     540TabDockClients=PropertyInspector,ObjectTree
     541

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

    r472 r473  
    1212
    1313[Modules]
    14 Module0=P:\Vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas
    15 Module1=P:\Vista\tmg-cprs\CPRS-Chart\fImages.pas
    16 Module2=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
    17 Module3=P:\Vista\tmg-cprs\CPRS-Chart\uConst.pas
    18 Module4=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    19 Count=5
     14Module0=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
     15Module1=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
     16Module2=c:\program files\borland\delphi7\source\rtl\common\classes.pas
     17Module3=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     18Count=4
    2019EditWindowCount=1
    2120TypeLibWindowCount=1
    2221
    23 [P:\Vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas]
     22[P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    2423ModuleType=SourceModule
    2524FormState=1
    2625FormOnTop=0
    2726
    28 [P:\Vista\tmg-cprs\CPRS-Chart\fImages.pas]
     27[c:\program files\borland\delphi7\source\vcl\ComCtrls.pas]
    2928ModuleType=SourceModule
    3029FormState=0
    3130FormOnTop=0
    3231
    33 [P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    34 ModuleType=SourceModule
    35 FormState=0
    36 FormOnTop=0
    37 
    38 [P:\Vista\tmg-cprs\CPRS-Chart\uConst.pas]
     32[c:\program files\borland\delphi7\source\rtl\common\classes.pas]
    3933ModuleType=SourceModule
    4034FormState=0
    … …  
    4640FormOnTop=0
    4741
    48 [C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
     42[C:\Documents and Settings\e.hagood.TMG\Desktop\DelphiSkins\Examples\FreeformSkin\ProjectGroup1.bpg]
    4943FormState=0
    5044FormOnTop=0
    … …  
    5448FormOnTop=0
    5549
    56 [P:\Vista\tmg-cprs\CPRS-Chart\fPage.pas]
    57 FormState=0
    58 FormOnTop=0
    59 
    60 [P:\Vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
    61 FormState=0
    62 FormOnTop=0
    63 
    64 [P:\Vista\tmg-cprs\CPRS-Chart\fAutoSz.pas]
    65 FormState=0
    66 FormOnTop=0
    67 
    6850[EditWindow0]
    69 ViewCount=5
    70 CurrentView=3
     51ViewCount=4
     52CurrentView=1
    7153View0=0
    7254View1=1
    7355View2=2
    7456View3=3
    75 View4=4
    7657CodeExplorer=CodeExplorer@EditWindow0
    7758MessageView=MessageView@EditWindow0
    … …  
    7960Visible=1
    8061State=0
    81 Left=195
    82 Top=125
    83 Width=813
    84 Height=583
    85 MaxLeft=-1
    86 MaxTop=-1
    87 ClientWidth=805
    88 ClientHeight=549
     62Left=213
     63Top=128
     64Width=777
     65Height=588
     66MaxLeft=-1
     67MaxTop=-1
     68ClientWidth=769
     69ClientHeight=554
    8970LeftPanelSize=0
    9071LeftPanelClients=CodeExplorer@EditWindow0
    … …  
    9778[View0]
    9879Module=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    99 CursorX=20
    100 CursorY=7
     80CursorX=1
     81CursorY=1
    10182TopLine=1
    10283LeftCol=1
    10384
    10485[View1]
    105 Module=P:\Vista\tmg-cprs\CPRS-Chart\uConst.pas
    106 CursorX=16
    107 CursorY=407
    108 TopLine=398
     86Module=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
     87CursorX=65
     88CursorY=4864
     89TopLine=4847
    10990LeftCol=1
    11091
    11192[View2]
    112 Module=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
     93Module=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
    11394CursorX=1
    114 CursorY=4826
    115 TopLine=4812
     95CursorY=5129
     96TopLine=5115
    11697LeftCol=1
    11798
    11899[View3]
    119 Module=P:\Vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas
    120 CursorX=9
    121 CursorY=77
    122 TopLine=55
     100Module=c:\program files\borland\delphi7\source\rtl\common\classes.pas
     101CursorX=1
     102CursorY=2825
     103TopLine=2817
    123104LeftCol=1
    124105
    125 [View4]
    126 Module=P:\Vista\tmg-cprs\CPRS-Chart\fImages.pas
    127 CursorX=19
    128 CursorY=845
    129 TopLine=831
    130 LeftCol=1
    131 
    132106[TypeLibEditWindow0]
    133107Create=1
    … …  
    135109State=0
    136110Left=200
    137 Top=123
     111Top=115
    138112Width=639
    139113Height=453
    … …  
    145119
    146120[Watches]
    147 Count=2
    148 Watch0='frmPtSel',256,0,18,1,0,'Watches'
    149 Watch1='FName',256,0,18,1,0,'Watches'
     121Count=4
     122Watch0='Control',256,0,18,1,0,'Watches'
     123Watch1='TabIndex',256,0,18,1,0,'Watches'
     124Watch2='FCount',256,0,18,1,0,'Watches'
     125Watch3='pageControl',16,0,18,1,0,'Watches'
    150126
    151127[WatchWindow]
    … …  
    155131Visible=1
    156132State=0
    157 Left=83
    158 Top=518
    159 Width=784
    160 Height=230
    161 MaxLeft=-1
    162 MaxTop=-1
    163 ClientWidth=776
    164 ClientHeight=204
    165 TBDockHeight=204
    166 LRDockWidth=426
     133Left=184
     134Top=555
     135Width=885
     136Height=260
     137MaxLeft=-1
     138MaxTop=-1
     139ClientWidth=877
     140ClientHeight=234
     141TBDockHeight=234
     142LRDockWidth=421
    167143Dockable=1
    168144
    169145[Breakpoints]
    170 Count=14
    171 Breakpoint0='C:\Program Files\VISTA\BDK32\Source\fPtAdd.pas',467,'',0,1,'',1,0,0,'',1,'','',''
    172 Breakpoint1='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fFrame.pas',4826,'',0,1,'',1,0,0,'',1,'','',''
    173 Breakpoint2='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\TMG_Extra\fPtAdd.pas',164,'',0,1,'',1,0,0,'',1,'','',''
    174 Breakpoint3='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\Orders\fODBase.pas',1270,'',0,1,'',1,0,0,'',1,'','',''
    175 Breakpoint4='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fFrame.pas',1021,'',0,1,'',1,0,0,'',1,'','',''
    176 Breakpoint5='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fFrame.pas',1098,'',0,1,'',1,0,0,'',1,'','',''
    177 Breakpoint6='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fCover.pas',850,'',0,1,'',1,0,0,'',1,'','',''
    178 Breakpoint7='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fCover.pas',885,'',0,1,'',1,0,0,'',1,'','',''
    179 Breakpoint8='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fCover.pas',654,'',0,1,'',1,0,0,'',1,'','',''
    180 Breakpoint9='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fCover.pas',660,'',0,1,'',1,0,0,'',1,'','',''
    181 Breakpoint10='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fCover.pas',674,'',0,1,'',1,0,0,'',1,'','',''
    182 Breakpoint11='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtSel.pas',510,'',0,1,'',1,0,0,'',1,'','',''
    183 Breakpoint12='P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtSel.pas',501,'',0,1,'',1,0,0,'',1,'','',''
    184 Breakpoint13='P:\Vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas',285,'',0,1,'',1,0,0,'',1,'','',''
     146Count=1
     147Breakpoint0='P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas',4848,'',0,1,'',1,0,0,'',1,'','',''
    185148
    186149[AddressBreakpoints]
    … …  
    192155State=0
    193156Left=0
    194 Top=9
    195 Width=1024
     157Top=1
     158Width=800
    196159Height=112
    197160MaxLeft=-1
    198161MaxTop=-1
    199 ClientWidth=1016
     162ClientWidth=792
    200163ClientHeight=78
    201164
    … …  
    204167Visible=0
    205168State=0
    206 Left=213
    207 Top=185
    208 Width=587
    209 Height=462
    210 MaxLeft=-1
    211 MaxTop=-1
    212 ClientWidth=579
    213 ClientHeight=436
    214 TBDockHeight=489
    215 LRDockWidth=719
     169Left=198
     170Top=142
     171Width=689
     172Height=561
     173MaxLeft=-1
     174MaxTop=-1
     175ClientWidth=681
     176ClientHeight=535
     177TBDockHeight=408
     178LRDockWidth=623
    216179Dockable=1
    217180
    218181[Components]
    219 Left=240
    220 Top=237
     182Left=308
     183Top=167
    221184Width=183
    222 Height=235
     185Height=266
    223186Create=1
    224187Visible=0
    … …  
    227190MaxTop=-1
    228191ClientWidth=175
    229 ClientHeight=209
     192ClientHeight=240
    230193TBDockHeight=235
    231194LRDockWidth=183
    … …  
    236199Visible=0
    237200State=0
    238 Left=177
    239 Top=142
     201Left=0
     202Top=12
    240203Width=800
    241 Height=565
     204Height=561
    242205MaxLeft=-1
    243206MaxTop=-1
    244207ClientWidth=792
    245 ClientHeight=531
    246 DumpPane=79
    247 DisassemblyPane=264
     208ClientHeight=527
     209DumpPane=87
     210DisassemblyPane=187
    248211RegisterPane=231
    249 FlagPane=104
     212FlagPane=64
    250213
    251214[AlignmentPalette]
    … …  
    253216Visible=0
    254217State=0
    255 Left=200
    256 Top=114
     218Left=53
     219Top=123
    257220Width=156
    258221Height=84
    … …  
    266229Visible=1
    267230State=0
    268 Left=2
    269 Top=124
    270 Width=181
    271 Height=591
    272 MaxLeft=-1
    273 MaxTop=-1
    274 ClientWidth=173
    275 ClientHeight=565
    276 TBDockHeight=367
    277 LRDockWidth=209
    278 Dockable=1
    279 SplitPos=80
     231Left=0
     232Top=0
     233Width=242
     234Height=484
     235MaxLeft=-1
     236MaxTop=-1
     237ClientWidth=242
     238ClientHeight=484
     239TBDockHeight=527
     240LRDockWidth=250
     241Dockable=1
     242SplitPos=128
    280243ArrangeBy=Name
    281 SelectedItem=Name
     244SelectedItem=OwnerDraw
    282245ExpandedItems=Anchors
    283 HiddenCategories=
     246HiddenCategories=Legacy
    284247
    285248[BreakpointWindow]
    … …  
    287250Visible=0
    288251State=0
    289 Left=143
    290 Top=285
     252Left=31
     253Top=201
    291254Width=737
    292 Height=197
     255Height=350
    293256MaxLeft=-1
    294257MaxTop=-1
    295258ClientWidth=729
    296 ClientHeight=171
     259ClientHeight=324
    297260TBDockHeight=197
    298261LRDockWidth=737
    … …  
    307270[CallStackWindow]
    308271Create=1
    309 Visible=0
    310 State=0
    311 Left=32
    312 Top=435
    313 Width=469
    314 Height=294
    315 MaxLeft=-1
    316 MaxTop=-1
    317 ClientWidth=461
    318 ClientHeight=268
    319 TBDockHeight=294
    320 LRDockWidth=469
     272Visible=1
     273State=0
     274Left=42
     275Top=403
     276Width=874
     277Height=210
     278MaxLeft=-1
     279MaxTop=-1
     280ClientWidth=866
     281ClientHeight=184
     282TBDockHeight=355
     283LRDockWidth=233
    321284Dockable=1
    322285
    … …  
    343306[ObjectTree]
    344307Create=1
    345 Visible=0
    346 State=0
    347 Left=413
    348 Top=391
    349 Width=318
    350 Height=379
    351 MaxLeft=-1
    352 MaxTop=-1
    353 ClientWidth=310
    354 ClientHeight=353
    355 TBDockHeight=248
    356 LRDockWidth=190
     308Visible=1
     309State=0
     310Left=0
     311Top=0
     312Width=242
     313Height=484
     314MaxLeft=-1
     315MaxTop=-1
     316ClientWidth=242
     317ClientHeight=484
     318TBDockHeight=527
     319LRDockWidth=250
    357320Dockable=1
    358321
    … …  
    417380Visible=0
    418381State=0
    419 Left=306
    420 Top=280
     382Left=310
     383Top=284
    421384Width=457
    422385Height=250
    … …  
    472435Top=12
    473436Width=140
    474 Height=537
     437Height=351
    475438MaxLeft=-1
    476439MaxTop=-1
    477440ClientWidth=140
    478 ClientHeight=537
     441ClientHeight=351
    479442TBDockHeight=305
    480443LRDockWidth=140
    … …  
    487450Left=12
    488451Top=0
    489 Width=793
    490 Height=213
    491 MaxLeft=-1
    492 MaxTop=-1
    493 ClientWidth=793
    494 ClientHeight=213
    495 TBDockHeight=213
     452Width=757
     453Height=85
     454MaxLeft=-1
     455MaxTop=-1
     456ClientWidth=757
     457ClientHeight=85
     458TBDockHeight=85
    496459LRDockWidth=443
    497460Dockable=1
    498461
    499462[DockHosts]
    500 DockHostCount=0
    501 
     463DockHostCount=1
     464
     465[DockSite0]
     466DockSiteType=1
     467Create=1
     468Visible=1
     469State=0
     470Left=8
     471Top=128
     472Width=258
     473Height=539
     474MaxLeft=-1
     475MaxTop=-1
     476ClientWidth=250
     477ClientHeight=513
     478TBDockHeight=539
     479LRDockWidth=258
     480Dockable=1
     481TabPosition=0
     482ActiveTab=Object Inspector
     483TabDockClients=PropertyInspector,ObjectTree
     484

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

    r453 r473  
    8686      Height = 323
    8787      HelpContext = 9999
    88       ActivePage = tsLanguage
     88      ActivePage = tsCoverSheet
    8989      Align = alClient
    9090      TabOrder = 0
    … …  
    17531753  end
    17541754  object DKLanguageController1: TDKLanguageController
    1755     Left = 136
    1756     Top = 240
     1755    Left = 80
     1756    Top = 280
    17571757    LangData = {
    17581758      0A0066726D4F7074696F6E73010200000001000000070043617074696F6E0200

  • cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsOther.dfm

    r453 r473  
    11object frmOptionsOther: TfrmOptionsOther
    2   Left = 341
    3   Top = 96
     2  Left = 298
     3  Top = 189
    44  Hint = 'Use system default settings'
    55  HelpContext = 9110
    … …  
    99  Caption = 'Other Parameters'
    1010  ClientHeight = 436
    11   ClientWidth = 329
     11  ClientWidth = 391
    1212  Color = clBtnFace
    1313  Font.Charset = DEFAULT_CHARSET
    … …  
    2626  object lblMedsTab: TLabel
    2727    Left = 7
    28     Top = 121
    29     Width = 135
    30     Height = 26
     28    Top = 168
     29    Width = 178
     30    Height = 17
    3131    Hint = 'Set date ranges for displaying medication orders on Meds tab.'
    3232    Caption = 'Set date range for Meds tab display:'
    … …  
    4444  object Bevel1: TBevel
    4545    Left = 1
    46     Top = 110
    47     Width = 327
    48     Height = 2
     46    Top = 150
     47    Width = 392
     48    Height = 3
    4949  end
    5050  object lblEncAppts: TLabel
    … …  
    6262    Left = 1
    6363    Top = 256
    64     Width = 327
     64    Width = 392
    6565    Height = 2
     66  end
     67  object Label1: TLabel
     68    Left = 232
     69    Top = 27
     70    Width = 106
     71    Height = 13
     72    Caption = 'Select Tab Positioning'
     73  end
     74  object Label2: TLabel
     75    Left = 8
     76    Top = 104
     77    Width = 83
     78    Height = 13
     79    Caption = 'Adjust Tab Colors'
     80  end
     81  object Label3: TLabel
     82    Left = 232
     83    Top = 104
     84    Width = 138
     85    Height = 13
     86    Caption = '(Click box below to edit color)'
    6687  end
    6788  object pnlBottom: TPanel
    6889    Left = 0
    6990    Top = 403
    70     Width = 329
     91    Width = 391
    7192    Height = 33
    7293    HelpContext = 9110
    … …  
    7899      Left = 0
    79100      Top = 0
    80       Width = 329
     101      Width = 391
    81102      Height = 2
    82103      Align = alTop
    … …  
    108129  object stStart: TStaticText
    109130    Left = 7
    110     Top = 151
     131    Top = 191
    111132    Width = 55
    112133    Height = 17
    … …  
    115136  end
    116137  object stStop: TStaticText
    117     Left = 7
    118     Top = 207
     138    Left = 199
     139    Top = 191
    119140    Width = 55
    120141    Height = 17
    … …  
    124145  object dtStart: TORDateBox
    125146    Left = 7
    126     Top = 170
    127     Width = 187
     147    Top = 210
     148    Width = 178
    128149    Height = 21
    129150    TabOrder = 4
    … …  
    135156  end
    136157  object dtStop: TORDateBox
    137     Left = 8
    138     Top = 225
     158    Left = 200
     159    Top = 209
    139160    Width = 186
    140161    Height = 21
    … …  
    148169    Left = 8
    149170    Top = 6
    150     Width = 52
     171    Width = 62
    151172    Height = 17
    152173    Caption = 'Chart tabs'
     174    Font.Charset = DEFAULT_CHARSET
     175    Font.Color = clWindowText
     176    Font.Height = -11
     177    Font.Name = 'MS Sans Serif'
     178    Font.Style = [fsBold]
     179    ParentFont = False
    153180    TabOrder = 0
    154181  end
    155182  object cboTab: TORComboBox
    156183    Left = 8
    157     Top = 51
     184    Top = 43
    158185    Width = 217
    159186    Height = 21
    … …  
    180207  object chkLastTab: TCheckBox
    181208    Left = 8
    182     Top = 82
    183     Width = 312
     209    Top = 74
     210    Width = 233
    184211    Height = 21
    185212    HelpContext = 9112
    … …  
    313340    OnClick = btnEncDefaultsClick
    314341  end
     342  object TabPositionComboBox: TComboBox
     343    Left = 232
     344    Top = 43
     345    Width = 145
     346    Height = 21
     347    ItemHeight = 13
     348    ItemIndex = 0
     349    TabOrder = 23
     350    Text = 'Tabs on BOTTOM'
     351    OnChange = TabPositionComboBoxChange
     352    Items.Strings = (
     353      'Tabs on BOTTOM'
     354      'Tabs on TOP'
     355      'Tabs on LEFT'
     356      'Tabs on RIGHT')
     357  end
     358  object pnlShowColor: TPanel
     359    Left = 232
     360    Top = 120
     361    Width = 145
     362    Height = 22
     363    BevelInner = bvLowered
     364    TabOrder = 24
     365    OnClick = pnlShowColorClick
     366  end
     367  object cboTabColors: TComboBox
     368    Left = 8
     369    Top = 120
     370    Width = 217
     371    Height = 21
     372    ItemHeight = 13
     373    ItemIndex = 0
     374    TabOrder = 25
     375    Text = ' '
     376    OnChange = cboTabColorsChange
     377    Items.Strings = (
     378      ' ')
     379  end
    315380  object DKLanguageController1: TDKLanguageController
    316381    Left = 152
    317     Top = 224
     382    Top = 8
    318383    LangData = {
    319384      0F0066726D4F7074696F6E734F74686572010300000002000000070043617074
    320       696F6E03000000080048656C7046696C6501000000040048696E74011B000000
     385      696F6E03000000080048656C7046696C6501000000040048696E740122000000
    321386      0A006C626C4D656473546162010200000005000000070043617074696F6E0400
    322387      0000040048696E740006006C626C546162010100000006000000070043617074
    … …  
    342407      6E000E00737453746F70456E6341707074730101000000190000000700436170
    343408      74696F6E000E0062746E456E6344656661756C747301010000001A0000000700
    344       43617074696F6E00}
     409      43617074696F6E001300546162506F736974696F6E436F6D626F426F78010200
     410      00001C00000005004974656D731B0000000400546578740006004C6162656C31
     411      01010000001D000000070043617074696F6E0006004C6162656C320101000000
     412      1E000000070043617074696F6E000C00706E6C53686F77436F6C6F7200000B00
     413      436F6C6F724469616C6F67000006004C6162656C3301010000001F0000000700
     414      43617074696F6E000C0063626F546162436F6C6F72730000}
     415  end
     416  object ColorDialog: TColorDialog
     417    Left = 192
     418    Top = 8
    345419  end
    346420end

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

    r453 r473  
    3939    btnEncDefaults: TButton;
    4040    DKLanguageController1: TDKLanguageController;
     41    TabPositionComboBox: TComboBox;
     42    Label1: TLabel;
     43    Label2: TLabel;
     44    pnlShowColor: TPanel;
     45    ColorDialog: TColorDialog;
     46    Label3: TLabel;
     47    cboTabColors: TComboBox;
    4148    procedure FormShow(Sender: TObject);
    4249    procedure btnOKClick(Sender: TObject);
    … …  
    5057    procedure txtEncStopExit(Sender: TObject);
    5158    procedure btnEncDefaultsClick(Sender: TObject);
     59    procedure TabPositionComboBoxChange(Sender: TObject);
     60    procedure cboTabColorsChange(Sender: TObject);
     61    procedure pnlShowColorClick(Sender: TObject);
    5262  private
    5363    { Private declarations }
    … …  
    6676  ENC_MAX_LIMIT = 999;
    6777
    68  
     78
    6979procedure DialogOptionsOther(topvalue, leftvalue, fontsize: integer; var actiontype: Integer);
     80procedure SetTabPosition(Position : TTabPosition);
    7081
    7182implementation
    … …  
    7485
    7586uses
    76   rOptions, uOptions, rCore, rSurgery, uConst, fMeds;
     87  rOptions, uOptions, rCore, rSurgery, uConst, fMeds, fFrame;
    7788
    7889procedure DialogOptionsOther(topvalue, leftvalue, fontsize: integer; var actiontype: Integer);
    … …  
    110121  values, tab: string;
    111122begin
    112   cboTab.Items.Assign(rpcGetOtherTabs);
     123  cboTabColors.Items.Assign(uTabColorsList);  //kt added8808
     124  cboTabColors.ItemIndex := 0;      //kt
     125  cboTab.Items.Assign(rpcGetOtherTabs);   //kt
     126 cboTabColorsChange(nil);   //kt
    113127//if (cboTab.Items.IndexOf('Surgery') > -1) and (not ShowSurgeryTab) then  <-- original line.  //kt 8/8/2007
    114128  if (cboTab.Items.IndexOf(DKLangConstW('fOptionsOther_Surgery')) > -1) and (not ShowSurgeryTab) then //kt added 8/8/2007
    … …  
    282296end;
    283297
     298procedure TfrmOptionsOther.TabPositionComboBoxChange(Sender: TObject);
     299//kt added 8/8/08
     300begin
     301  Case TabPositionComboBox.ItemIndex of
     302    0 : SetTabPosition(tpBottom);
     303    1 : SetTabPosition(tpTop);
     304    2 : SetTabPosition(tpLeft);
     305    3 : SetTabPosition(tpRight);
     306  end; {case}
     307end;
     308
     309procedure SetTabPosition(Position : TTabPosition);
     310//kt added 8/8/08
     311begin
     312  frmFrame.tabPage.TabPosition := Position;
     313  Case Position of
     314    tpBottom : frmFrame.tabPage.Align := alBottom;
     315    tpTop: frmFrame.tabPage.Align := alTop;
     316    tpLeft: frmFrame.tabPage.Align := alLeft;
     317    tpRight : frmFrame.tabPage.Align := alRight;
     318  end; {case}
     319end;
     320
     321
     322procedure TfrmOptionsOther.cboTabColorsChange(Sender: TObject);
     323var color : TColor;
     324    selIndex : integer;
     325begin
     326  selIndex := cboTabColors.ItemIndex;
     327  if selIndex < 0 then exit;
     328  color := TColor(cboTabColors.Items.Objects[selIndex]);
     329  pnlShowColor.Color := color;
     330end;
     331
     332procedure TfrmOptionsOther.pnlShowColorClick(Sender: TObject);
     333//kt added 8/8/08
     334var s : string;
     335    selIndex : integer;
     336begin
     337  if ColorDialog.Execute then begin
     338    pnlShowColor.Color := ColorDialog.Color;
     339    selIndex := cboTabColors.ItemIndex;
     340    if selIndex < 0 then exit;
     341    cboTabColors.Items.Objects[selIndex] := pointer(ColorDialog.Color);
     342    uTabColorsList.Objects[selIndex] := pointer(ColorDialog.Color);
     343  end;
     344end;
     345
    284346end.

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.dfm

    r453 r473  
    542542    end
    543543  end
     544  object DKLanguageController1: TDKLanguageController
     545    Left = 257
     546    Top = 10
     547    LangData = {
     548      0D0066726D507444656D6F45646974010100000001000000070043617074696F
     549      6E013400000005004F4B42746E010100000002000000070043617074696F6E00
     550      090043616E63656C42746E010100000003000000070043617074696F6E000800
     551      4170706C7942746E010100000004000000070043617074696F6E000B00506167
     552      65436F6E74726F6C00000C0044656D6F54616253686565740101000000050000
     553      00070043617074696F6E000A004C4E616D654C6162656C010100000006000000
     554      070043617074696F6E000A00464E616D654C6162656C01010000000700000007
     555      0043617074696F6E000A004D4E616D654C6162656C0101000000080000000700
     556      43617074696F6E001100436F6D62696E65644E616D654C6162656C0101000000
     557      09000000070043617074696F6E000B005072656669784C6162656C0101000000
     558      0A000000070043617074696F6E000B005375666669784C6162656C0101000000
     559      0B000000070043617074696F6E000800444F424C6162656C01010000000C0000
     560      00070043617074696F6E000A0053534E756D4C6162656C01010000000D000000
     561      070043617074696F6E0008005365784C6162656C01010000000E000000070043
     562      617074696F6E000B004465677265654C6162656C01010000000F000000070043
     563      617074696F6E001000436F6D62696E65644E616D6545646974000009004C4E61
     564      6D654564697400000900464E616D6545646974000009004D4E616D6545646974
     565      00000A005072656669784564697400000A005375666669784564697400000700
     566      444F42456469740000090053534E756D4564697400000D00416C69617347726F
     567      7570426F78010100000010000000070043617074696F6E000E00416C6961734E
     568      616D654C6162656C010100000011000000070043617074696F6E000F00416C69
     569      617353534E756D4C6162656C010100000012000000070043617074696F6E000D
     570      00416C696173436F6D626F426F7801010000001300000005004974656D73000D
     571      00416C6961734E616D654564697400000C00416C69617353534E456469740000
     572      0B0044656C416C69617342746E010100000014000000070043617074696F6E00
     573      0B00416464416C69617342746E010100000015000000070043617074696F6E00
     574      0F004164647265737347726F7570426F78010100000016000000070043617074
     575      696F6E000900436974794C6162656C010100000017000000070043617074696F
     576      6E0009005A6970344C6162656C010100000018000000070043617074696F6E00
     577      11005374617274696E67446174654C6162656C01010000001900000007004361
     578      7074696F6E000F00456E64696E67446174654C6162656C01010000001A000000
     579      070043617074696F6E000B00416464726573735247727001020000001B000000
     580      070043617074696F6E1C00000005004974656D73001000416464726573734C69
     581      6E65314564697400001000416464726573734C696E6532456469740000100041
     582      6464726573734C696E65334564697400000800436974794564697400000D0053
     583      74617465436F6D626F426F7801020000001E00000005004974656D731D000000
     584      0400546578740008005A6970344564697400000C004261644164647265737343
     585      4201010000001F000000070043617074696F6E000C0054656D70416374697665
     586      4342010100000020000000070043617074696F6E000B0050686F6E654E756D47
     587      7270010200000021000000070043617074696F6E2200000005004974656D7300
     588      0C0050686F6E654E756D45646974010100000023000000040054657874001000
     589      5374617274696E67446174654564697400000E00456E64696E67446174654564
     590      697400000C00436F6E6641637469766543420101000000240000000700436170
     591      74696F6E000B00536578436F6D626F426F780102000000260000000500497465
     592      6D7325000000040054657874000A00446567726565456469740000}
     593  end
    544594end

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.pas

    r453 r473  
    66uses
    77  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    8   Dialogs, ComCtrls, StdCtrls, ExtCtrls;
     8  Dialogs, ComCtrls, StdCtrls, ExtCtrls, DKLang;
    99
    1010type
    … …  
    119119    DegreeLabel: TLabel;
    120120    AddAliasBtn: TButton;
     121    DKLanguageController1: TDKLanguageController;
    121122    procedure AliasComboBoxChange(Sender: TObject);
    122123    procedure FormCreate(Sender: TObject);

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

    r472 r473  
    11object frmFrame: TfrmFrame
    22  Left = 280
    3   Top = 141
     3  Top = 183
    44  Width = 684
    55  Height = 487
    … …  
    630630      Font.Name = 'MS Sans Serif'
    631631      Font.Style = []
     632      OwnerDraw = True
    632633      ParentFont = False
    633634      TabOrder = 1
    634635      TabPosition = tpBottom
    635636      OnChange = tabPageChange
     637      OnDrawTab = tabPageDrawTab
    636638      OnMouseUp = tabPageMouseUp
    637639    end

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

    r472 r473  
    250250    procedure mnuViewInformationClick(Sender: TObject);
    251251    procedure EditDemographicsClick(Sender: TObject);
     252    procedure tabPageDrawTab(Control: TCustomTabControl; TabIndex: Integer;
     253      const Rect: TRect; Active: Boolean);
    252254  private
    253255    //kt Begin Mod (change Consts to Vars) 7/17/2007
    … …  
    319321    procedure ClearPatient;
    320322    procedure ChangeFont(NewFontSize: Integer);
     323    procedure LoadTabColors(INIFile : TIniFile; ColorsList : TStringList);  //kt added 8/8/08
     324    procedure SaveTabColors(INIFile : TIniFile; ColorsList : TStringList);
    321325    //procedure CreateTab(var AnInstance: TObject; AClass: TClass; ATabID: integer; ALabel: string);
    322326    procedure CreateTab(ATabID: integer; ALabel: string);
    … …  
    361365    procedure HandleCCOWError(AMessage: string);
    362366    procedure SetupVars;
     367    procedure DrawTab(Control: TCustomTabControl; TabIndex: Integer;
     368                      const Rect: TRect; Color : TColor; Active: Boolean); //kt added 8/8/08
    363369  public
    364370    EnduringPtSelSplitterPos: integer;
    … …  
    393399  frmFrame: TfrmFrame;
    394400  uTabList: TStringList;
     401  uTabColorsList : TStringList;  //kt added 8/8/08
    395402  uRemoteType : string;
    396403  FlaggedPTList: TStringList;
    … …  
    424431  , CCOW_const
    425432  {$ENDIF}
    426   , fPtDemoEdit;
     433  , fPtDemoEdit
     434  , fOptionsOther;
    427435
    428436var                                 //  RV 05/11/04
    … …  
    720728  i : integer;  //kt added 6/29/07
    721729  CPRSChartINI: TINIFile;  //elh 6/23/08
     730  tempPosition : TTabPosition; //kt
    722731begin
    723732  //kt 6/29/07  Begin modification -------------------
    … …  
    800809  Application.OnDeActivate := AppDeActivated;
    801810
    802   // load language ini settings
     811  // load language ini settings   //elh added
    803812  CPRSChartINI := TINIFile.Create(ExtractFilePath(ParamStr(0)) + 'CPRSChart.ini');  // Read from INI  elh  6/23/08
    804813  LangManager.LanguageID := CPRSChartINI.ReadInteger('Options','Language',1033);
    805   CPRSChartINI.Free;
     814  tempPosition := TTabPosition(CPRSChartINI.ReadInteger('TAB_POSITION','Tab Location',0));
     815  if tempPosition > tpRight then tempPosition := tpBottom;
     816  fOptionsOther.SetTabPosition(tempPosition);
     817  //kt -- end mod --
    806818
    807819  //frmFrame.Caption := TX_IN_USE + MixedCase(User.Name) + '  (' + RPCBrokerV.Server + ')';  //kt added
    808820  //frmFrame.RenameTabs;  //Resets names of tabs to correct translation  //kt
    809  
    810821
    811822  // create initial core objects
    … …  
    897908  RemoteReports := TRemoteReportList.Create;
    898909  uTabList := TStringList.Create;
     910  uTabColorsList := TStringList.Create;  //kt added 8/8/08
    899911  FlaggedPTList := TStringList.Create;
    900912  HasFlag  := False;
    … …  
    934946  end;
    935947  //kt replace later... CreateTab(CT_IMAGES,   'Images');   //kt  8/19/05
     948  LoadTabColors(CPRSChartINI,uTabColorsList);  //kt added 8/8/08
    936949
    937950  ShowHideChartTabMenus(mnuViewChart);
    … …  
    971984//  if WindowState = wsMinimized then WindowState := wsNormal;
    972985  SetFormMonitoring(true);
     986  CPRSChartINI.Free;  //kt added 8/8/08
    973987end;
    974988
    … …  
    10661080  if URL='<!HIDE!>' then begin
    10671081    SetATabVisibility(ATabID, false);
    1068   end else begin
     1082  end else if URL<>'<!NOCHANGE!>' then begin
    10691083    SetATabVisibility(ATabID, true, TabLabel);
    10701084    tempFrmWebTab := TfrmWebTab(frmWebTabs[WebTabNum-1]);
    … …  
    11451159procedure TfrmFrame.FormDestroy(Sender: TObject);
    11461160{ free core objects used by CPRS }
     1161var
     1162  CPRSChartINI: TINIFile;  //kt 8/8/08
     1163
    11471164begin
    11481165  Application.OnActivate := FOldActivate;
    … …  
    11501167  FNextButtonBitmap.Free;
    11511168  uTabList.Free;
     1169  //kt --- 8/8/08 start mod ---
     1170  CPRSChartINI := TINIFile.Create(ExtractFilePath(ParamStr(0)) + 'CPRSChart.ini');
     1171  CPRSChartINI.WriteInteger('Options','Language',LangManager.LanguageID);
     1172  SaveTabColors(CPRSChartINI,uTabColorsList);
     1173  uTabColorsList.Free;
     1174  CPRSChartINI.WriteInteger('TAB_POSITION','Tab Location',integer(tabPage.TabPosition));
     1175  //kt --- end mod ---
     1176
    11521177  FlaggedPTList.Free;
    11531178  RemoteSites.Free;
    … …  
    37183743      tabPage.Tabs.Add(ALabel);
    37193744    end;
     3745  if uTabColorsList.IndexOf(ALabel) < 0 then                    //kt added 8/8/08
     3746    uTabColorsList.Add(ALabel);  //will put colors in later...  //kt
     3747end;
     3748
     3749procedure TfrmFrame.LoadTabColors(INIFile : TIniFile; ColorsList : TStringList);
     3750//kt added 8/8/08  Entire function
     3751var i : integer;
     3752    sValue : string;
     3753    value : longword;
     3754begin
     3755  value :=0;
     3756  for i := 0 to ColorsList.Count-1 do begin
     3757    sValue := INIFile.ReadString('TAB_COLORS',ColorsList.Strings[i],IntToStr($00FFFF));
     3758    try
     3759      value := StrToInt(sValue)
     3760    except
     3761      on EConvertError do value := $00FFFF;
     3762    end;
     3763    ColorsList.Objects[i] := pointer(value);
     3764  end;
     3765end;
     3766
     3767procedure TfrmFrame.SaveTabColors(INIFile : TIniFile; ColorsList : TStringList);
     3768//kt added 8/8/08  Entire function
     3769var i : integer;
     3770begin
     3771  for i := 0 to ColorsList.Count-1 do begin
     3772    INIFile.WriteInteger('TAB_COLORS',ColorsList.Strings[i],longword(ColorsList.Objects[i]));
     3773  end;
    37203774end;
    37213775
    … …  
    48304884
    48314885procedure TfrmFrame.EditDemographicsClick(Sender: TObject);
    4832 //kt added Function 12/15/07, 6/6/08 
     4886//kt added Function 12/15/07, 6/6/08
    48334887var  EditResult: integer;
    48344888begin
    … …  
    48374891end;
    48384892
     4893procedure TfrmFrame.tabPageDrawTab(Control: TCustomTabControl; TabIndex: Integer;
     4894                                   const Rect: TRect; Active: Boolean);
     4895var ALabel : string;
     4896    colorIndex : Integer;
     4897    color : TColor;
     4898begin
     4899  ALabel := TTabControl(Control).Tabs[TabIndex];
     4900  colorIndex := uTabColorsList.IndexOf(ALabel);
     4901  if colorIndex < 0 then color := clYellow
     4902  else color := TColor(uTabColorsList.Objects[colorIndex]);
     4903  DrawTab(Control,TabIndex,Rect,color,Active);
     4904end;
     4905
     4906procedure TfrmFrame.DrawTab(Control: TCustomTabControl; TabIndex: Integer;
     4907                           const Rect: TRect; Color : TColor; Active: Boolean);
     4908  var
     4909    oRect         : TRect;
     4910    sCaption,temp : String;
     4911    iTop          : Integer;
     4912    iLeft         : Integer;
     4913    i             : integer;
     4914    TabControl    : TTabControl;
     4915    lf            : TLogFont;  //Windows native font structure
     4916    tf            : TFont;
     4917    Degrees       : integer;
     4918    inactiveColor     : TColor;
     4919
     4920    (*
     4921    function DecRed(Color : TColor; Amount : byte) : TColor;
     4922    var red : longWord;
     4923    begin
     4924      red := (Color and $0000FF);
     4925      if red > Amount then red := red - Amount
     4926      else red := 0;
     4927      Result := (Color and $FFFF00) or red;
     4928    end;
     4929
     4930    function DecGreen(Color : TColor; Amount : byte) : TColor;
     4931    var green : longWord;
     4932    begin
     4933      green := (Color and $00FF00);
     4934      green := green shr 8;
     4935      if green > Amount then green := green - Amount
     4936      else green := 0;
     4937      green := green shl 8;
     4938      Result := (Color and $FF00FF) or green;
     4939    end;
     4940
     4941    function DecBlue(Color : TColor; Amount : byte) : TColor;
     4942    var blue : longWord;
     4943    begin
     4944      blue := (Color and $FF0000);
     4945      blue := blue shr 16;
     4946      if blue > Amount then blue := blue - Amount
     4947      else blue := 0;
     4948      blue := blue shl 16;
     4949      Result := (Color and $00FFFF) or blue;
     4950    end;
     4951
     4952   function Darken(Color : TColor; Amount : byte) : TColor;
     4953   begin
     4954     result:= DecRed(Color, Amount);
     4955     result := DecBlue(result,Amount);
     4956     result := DecGreen(result,Amount);
     4957   end;
     4958   *)
     4959
     4960  var
     4961    DecAmount : Byte;
     4962
     4963  begin
     4964    oRect    := Rect;
     4965    //DecAmount := 50;
     4966    //inactiveColor := Darken(Color,DecAmount);
     4967    inactiveColor := Color;
     4968
     4969    TabControl := TTabControl(Control);
     4970    if TabControl.Tabs.Count=0 then exit;
     4971    sCaption := TabControl.Tabs.Strings[TabIndex];
     4972    for i := 1 to length(temp) do begin
     4973      if temp[i] <> '&' then sCaption := sCaption + temp[i];
     4974    end;
     4975
     4976    Control.Canvas.Font.Name := 'Tahoma';
     4977    if Active then Control.Canvas.Font.Style := Control.Canvas.Font.Style + [fsBold];
     4978    if Active then Control.Canvas.Font.Color := clBlack
     4979    else Control.Canvas.Font.Color := clWhite;
     4980
     4981    if (TabControl.TabPosition = tpLeft) or (TabControl.TabPosition = tpRight) then begin
     4982
     4983      if (TabControl.TabPosition = tpLeft) then begin
     4984        iTop     := Rect.Bottom-4;
     4985        if Active then iTop := iTop - 2;
     4986        iLeft    := Rect.Left + 1;
     4987        Degrees  := 90;
     4988      end else begin
     4989        iTop     := Rect.Top  + 4;
     4990        if Active then iTop := iTop + 2;
     4991        iLeft    := Rect.Right - 2;
     4992        Degrees  := 270;
     4993      end;
     4994      tf := TFont.Create;
     4995      try
     4996        tf.Assign(Control.Canvas.Font);
     4997        GetObject(tf.Handle, sizeof(lf), @lf);
     4998        lf.lfEscapement := 10 * Degrees;  //degrees of desired rotation
     4999        lf.lfHeight := Control.Canvas.Font.Height - 2;
     5000        tf.Handle := CreateFontIndirect(lf);
     5001        Control.Canvas.Font.Assign(tf);
     5002      finally
     5003        tf.Free;
     5004      end;
     5005
     5006    end else begin
     5007      iTop     := Rect.Top  + ((Rect.Bottom - Rect.Top  - Control.Canvas.TextHeight(sCaption)) div 2) + 1;
     5008      iLeft    := Rect.Left + ((Rect.Right  - Rect.Left - Control.Canvas.TextWidth (sCaption)) div 2) + 1;
     5009    end;
     5010
     5011    if Active then begin
     5012      //Control.Canvas.Brush.Color := TColor($0000FFFF);  //Bright yellow
     5013      Control.Canvas.Brush.Color := Color;
     5014      Control.Canvas.FillRect(Rect);
     5015    end else begin
     5016      //Control.Canvas.Brush.Color := TColor($000079EFE8);  //dull yellow
     5017      Control.Canvas.Brush.Color := inactiveColor;
     5018      Control.Canvas.FillRect(Rect);
     5019    end;
     5020    Control.Canvas.TextOut(iLeft,iTop,sCaption);
     5021  end;
     5022
     5023
     5024
     5025
    48395026initialization
    48405027
Note: See TracChangeset for help on using the changeset viewer.