Ignore:
Timestamp:
Jan 12, 2010, 3:30:13 PM (15 years ago)
Author:
Kevin Toppenberg
Message:

Added button to turn Colored Tabs off

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

Legend:

Unmodified
Added
Removed

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

    r654 r667  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 12/28/2009 9:26:13 PM from Type Library described below.
     15// File generated on 1/12/2010 1:11:24 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

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

    r660 r667  
    11[Closed Files]
    2 File_0=SourceModule,'c:\program files\borland\delphi7\source\vcl\ComCtrls.pas',0,1,8808,1,8828,0,0
    3 File_1=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\variants.pas',0,1,740,1,747,0,0
    4 File_2=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\EmbeddedED\EmbeddedED.pas',0,1,3123,1,3130,0,0
     2File_0=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\variants.pas',0,1,740,1,747,0,0
     3File_1=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\EmbeddedED\EmbeddedED.pas',0,1,3123,1,3130,0,0
    54
    65[Modules]
    7 Module0=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fWebTab.pas
    8 Module1=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
    9 Module2=P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncounterFrame.pas
    10 Module3=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
    11 Module4=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
    12 Module5=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas
    13 Module6=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
    14 Module7=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    15 Module8=c:\program files\borland\delphi7\source\vcl\Menus.pas
    16 Module9=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
    17 Module10=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
    18 Module11=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
    19 Module12=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    20 Module13=P:\vista\tmg-cprs\CPRS-Chart\fReports.pas
    21 Module14=c:\program files\borland\delphi7\source\vcl\Controls.pas
    22 Module15=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas
    23 Module16=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas
    24 Module17=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\TMGHTML2.pas
    25 Module18=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    26 Count=19
     6Module0=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
     7Module1=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
     8Module2=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas
     9Module3=P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncounterFrame.pas
     10Module4=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
     11Module5=c:\program files\borland\delphi7\source\vcl\Menus.pas
     12Module6=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
     13Module7=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
     14Module8=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
     15Module9=c:\program files\borland\delphi7\source\rtl\common\classes.pas
     16Module10=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
     17Module11=P:\vista\tmg-cprs\CPRS-Chart\fReports.pas
     18Module12=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fWebTab.pas
     19Module13=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
     20Module14=c:\program files\borland\delphi7\source\vcl\Forms.pas
     21Module15=c:\program files\borland\delphi7\source\vcl\Graphics.pas
     22Module16=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
     23Module17=c:\program files\borland\delphi7\source\vcl\Controls.pas
     24Module18=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas
     25Module19=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas
     26Module20=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\TMGHTML2.pas
     27Module21=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     28Count=22
    2729EditWindowCount=1
    2830TypeLibWindowCount=1
    2931
     32[P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas]
     33ModuleType=SourceModule
     34FormState=1
     35FormOnTop=1
     36
     37[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
     38ModuleType=SourceModule
     39FormState=1
     40FormOnTop=0
     41
     42[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas]
     43ModuleType=SourceModule
     44FormState=0
     45FormOnTop=0
     46
     47[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncounterFrame.pas]
     48ModuleType=SourceModule
     49FormState=1
     50FormOnTop=0
     51
     52[c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas]
     53ModuleType=SourceModule
     54FormState=0
     55FormOnTop=0
     56
     57[c:\program files\borland\delphi7\source\vcl\Menus.pas]
     58ModuleType=SourceModule
     59FormState=0
     60FormOnTop=0
     61
     62[c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
     63ModuleType=SourceModule
     64FormState=0
     65FormOnTop=0
     66
     67[P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas]
     68ModuleType=SourceModule
     69FormState=0
     70FormOnTop=0
     71
     72[P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas]
     73ModuleType=SourceModule
     74FormState=0
     75FormOnTop=0
     76
     77[c:\program files\borland\delphi7\source\rtl\common\classes.pas]
     78ModuleType=SourceModule
     79FormState=0
     80FormOnTop=0
     81
     82[P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas]
     83ModuleType=SourceModule
     84FormState=0
     85FormOnTop=0
     86
     87[P:\vista\tmg-cprs\CPRS-Chart\fReports.pas]
     88ModuleType=SourceModule
     89FormState=0
     90FormOnTop=0
     91
    3092[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fWebTab.pas]
    3193ModuleType=SourceModule
    … …  
    3395FormOnTop=0
    3496
    35 [P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    36 ModuleType=SourceModule
    37 FormState=0
    38 FormOnTop=0
    39 
    40 [P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncounterFrame.pas]
    41 ModuleType=SourceModule
    42 FormState=0
    43 FormOnTop=1
    44 
    45 [P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas]
     97[c:\program files\borland\delphi7\source\vcl\ComCtrls.pas]
     98ModuleType=SourceModule
     99FormState=0
     100FormOnTop=0
     101
     102[c:\program files\borland\delphi7\source\vcl\Forms.pas]
     103ModuleType=SourceModule
     104FormState=0
     105FormOnTop=0
     106
     107[c:\program files\borland\delphi7\source\vcl\Graphics.pas]
    46108ModuleType=SourceModule
    47109FormState=0
    … …  
    50112[P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas]
    51113ModuleType=SourceModule
    52 FormState=1
    53 FormOnTop=0
    54 
    55 [P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas]
    56 ModuleType=SourceModule
    57 FormState=1
    58 FormOnTop=0
    59 
    60 [C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas]
    61 ModuleType=SourceModule
    62 FormState=0
    63 FormOnTop=0
    64 
    65 [c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas]
    66 ModuleType=SourceModule
    67 FormState=0
    68 FormOnTop=0
    69 
    70 [c:\program files\borland\delphi7\source\vcl\Menus.pas]
    71 ModuleType=SourceModule
    72 FormState=0
    73 FormOnTop=0
    74 
    75 [c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
    76 ModuleType=SourceModule
    77 FormState=0
    78 FormOnTop=0
    79 
    80 [P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas]
    81 ModuleType=SourceModule
    82 FormState=0
    83 FormOnTop=0
    84 
    85 [P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas]
    86 ModuleType=SourceModule
    87 FormState=0
    88 FormOnTop=0
    89 
    90 [c:\program files\borland\delphi7\source\rtl\common\classes.pas]
    91 ModuleType=SourceModule
    92 FormState=0
    93 FormOnTop=0
    94 
    95 [P:\vista\tmg-cprs\CPRS-Chart\fReports.pas]
    96 ModuleType=SourceModule
    97114FormState=0
    98115FormOnTop=0
    … …  
    131148FormOnTop=0
    132149
     150[P:\vista\tmg-cprs\CPRS-Chart\dShared.pas]
     151FormState=0
     152FormOnTop=0
     153
    133154[P:\vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
    134155FormState=0
    … …  
    139160FormOnTop=0
    140161
    141 [P:\vista\tmg-cprs\CPRS-Chart\dShared.pas]
    142 FormState=0
    143 FormOnTop=0
    144 
    145162[EditWindow0]
    146 ViewCount=19
    147 CurrentView=9
     163ViewCount=22
     164CurrentView=8
    148165View0=0
    149166View1=1
    … …  
    165182View17=17
    166183View18=18
     184View19=19
     185View20=20
     186View21=21
    167187CodeExplorer=CodeExplorer@EditWindow0
    168188MessageView=MessageView@EditWindow0
    169189Create=1
    170190Visible=1
    171 State=0
    172 Left=66
    173 Top=138
    174 Width=902
    175 Height=607
    176 MaxLeft=-1
    177 MaxTop=-1
    178 ClientWidth=894
    179 ClientHeight=573
    180 LeftPanelSize=140
     191State=2
     192Left=221
     193Top=132
     194Width=803
     195Height=591
     196MaxLeft=-4
     197MaxTop=108
     198MaxWidth=1032
     199MaxHeight=664
     200ClientWidth=1024
     201ClientHeight=630
     202LeftPanelSize=0
    181203LeftPanelClients=CodeExplorer@EditWindow0
    182 LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
     204LeftPanelData=00000400010000000C000000436F64654578706C6F726572000000000000000000000000000000000001000000000000000000000000FFFFFFFF
    183205RightPanelSize=0
    184 BottomPanelSize=226
    185 BottomPanelClients=MessageView@EditWindow0,WatchWindow
    186 BottomPanelData=0000040000000000E200000000000000017E030000000000000100000000860000000B0000004D657373616765566965770100000000E20000000B000000576174636857696E646F77FFFFFFFF
     206BottomPanelSize=245
     207BottomPanelClients=DockSite1,MessageView@EditWindow0
     208BottomPanelData=00000400010000000B0000004D65737361676556696577F50000000000000001000400000000000001000000002A000000000000000100000002F50000000000000002000000000004000009000000446F636B53697465310200000000000400000B0000004D65737361676556696577FFFFFFFF
    187209
    188210[View0]
    189211Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    190212CursorX=1
    191 CursorY=1
    192 TopLine=1
     213CursorY=366
     214TopLine=357
    193215LeftCol=1
    194216
    … …  
    218240CursorX=1
    219241CursorY=347
    220 TopLine=339
     242TopLine=324
    221243LeftCol=1
    222244
    … …  
    224246Module=c:\program files\borland\delphi7\source\vcl\Controls.pas
    225247CursorX=1
    226 CursorY=4706
    227 TopLine=4698
     248CursorY=6245
     249TopLine=6231
    228250LeftCol=1
    229251
    … …  
    237259[View7]
    238260Module=P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncounterFrame.pas
    239 CursorX=30
    240 CursorY=432
    241 TopLine=424
     261CursorX=42
     262CursorY=369
     263TopLine=361
    242264LeftCol=1
    243265
    244266[View8]
    245267Module=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
    246 CursorX=28
    247 CursorY=1112
    248 TopLine=1106
     268CursorX=1
     269CursorY=1511
     270TopLine=1502
    249271LeftCol=1
    250272
    251273[View9]
     274Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
     275CursorX=60
     276CursorY=354
     277TopLine=347
     278LeftCol=1
     279
     280[View10]
     281Module=c:\program files\borland\delphi7\source\vcl\Graphics.pas
     282CursorX=1
     283CursorY=2325
     284TopLine=2317
     285LeftCol=1
     286
     287[View11]
     288Module=c:\program files\borland\delphi7\source\vcl\Forms.pas
     289CursorX=1
     290CursorY=2974
     291TopLine=2961
     292LeftCol=1
     293
     294[View12]
     295Module=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
     296CursorX=1
     297CursorY=4197
     298TopLine=4188
     299LeftCol=1
     300
     301[View13]
    252302Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fWebTab.pas
    253303CursorX=10
    … …  
    256306LeftCol=1
    257307
    258 [View10]
     308[View14]
    259309Module=P:\vista\tmg-cprs\CPRS-Chart\fReports.pas
    260310CursorX=33
    … …  
    263313LeftCol=1
    264314
    265 [View11]
     315[View15]
    266316Module=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
    267317CursorX=22
    … …  
    270320LeftCol=1
    271321
    272 [View12]
     322[View16]
    273323Module=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    274324CursorX=1
    275 CursorY=4214
    276 TopLine=4202
    277 LeftCol=1
    278 
    279 [View13]
     325CursorY=3986
     326TopLine=3974
     327LeftCol=1
     328
     329[View17]
    280330Module=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
    281331CursorX=1
    … …  
    284334LeftCol=1
    285335
    286 [View14]
     336[View18]
    287337Module=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
    288338CursorX=1
    … …  
    291341LeftCol=1
    292342
    293 [View15]
     343[View19]
    294344Module=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
    295345CursorX=1
    296 CursorY=10701
    297 TopLine=10693
    298 LeftCol=1
    299 
    300 [View16]
     346CursorY=11719
     347TopLine=11704
     348LeftCol=1
     349
     350[View20]
    301351Module=c:\program files\borland\delphi7\source\vcl\Menus.pas
    302352CursorX=1
    … …  
    305355LeftCol=1
    306356
    307 [View17]
     357[View21]
    308358Module=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    309359CursorX=1
    310 CursorY=16177
    311 TopLine=16169
    312 LeftCol=1
    313 
    314 [View18]
    315 Module=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
    316 CursorX=1
    317 CursorY=1479
    318 TopLine=1468
     360CursorY=4343
     361TopLine=4331
    319362LeftCol=1
    320363
    … …  
    343386Visible=1
    344387State=0
    345 Left=12
    346 Top=134
    347 Width=882
    348 Height=92
    349 MaxLeft=-1
    350 MaxTop=-1
    351 ClientWidth=882
    352 ClientHeight=92
    353 TBDockHeight=92
     388Left=0
     389Top=0
     390Width=1004
     391Height=216
     392MaxLeft=-1
     393MaxTop=-1
     394ClientWidth=1004
     395ClientHeight=216
     396TBDockHeight=264
    354397LRDockWidth=421
    355398Dockable=1
    356399
    357400[Breakpoints]
    358 Count=10
     401Count=12
    359402Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\rCover.pas',315,'',0,1,'',1,0,0,'',1,'','',''
    360403Breakpoint1='P:\vista\tmg-cprs\TMG_Extra\HTMLEdit\EmbeddedED\EmbeddedED.pas',1516,'',0,1,'',1,0,0,'',1,'','',''
    … …  
    367410Breakpoint8='P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas',293,'',0,1,'',1,0,0,'',1,'','',''
    368411Breakpoint9='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',3692,'',0,1,'',1,0,0,'',1,'','',''
     412Breakpoint10='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1059,'',0,1,'',1,0,0,'',1,'','',''
     413Breakpoint11='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1076,'',0,1,'',1,0,0,'',1,'','',''
    369414
    370415[AddressBreakpoints]
    … …  
    374419Create=1
    375420Visible=1
    376 State=2
    377 Left=170
    378 Top=3
    379 Width=854
     421State=0
     422Left=0
     423Top=0
     424Width=1024
    380425Height=112
    381426MaxLeft=-1
    382427MaxTop=-1
    383 MaxWidth=1032
    384 MaxHeight=112
    385 ClientWidth=1024
     428ClientWidth=1016
    386429ClientHeight=78
    387430
    … …  
    390433Visible=0
    391434State=0
    392 Left=198
    393 Top=142
    394 Width=689
    395 Height=561
    396 MaxLeft=-1
    397 MaxTop=-1
    398 ClientWidth=681
    399 ClientHeight=535
     435Left=31
     436Top=128
     437Width=454
     438Height=568
     439MaxLeft=-1
     440MaxTop=-1
     441ClientWidth=446
     442ClientHeight=542
    400443TBDockHeight=408
    401 LRDockWidth=623
     444LRDockWidth=140
    402445Dockable=1
    403446
    … …  
    422465Visible=0
    423466State=0
    424 Left=0
    425 Top=39
    426 Width=800
    427 Height=561
    428 MaxLeft=-1
    429 MaxTop=-1
    430 ClientWidth=792
    431 ClientHeight=527
    432 DumpPane=87
     467Left=78
     468Top=201
     469Width=731
     470Height=488
     471MaxLeft=-1
     472MaxTop=-1
     473ClientWidth=723
     474ClientHeight=454
     475DumpPane=79
    433476DisassemblyPane=187
    434477RegisterPane=231
    … …  
    439482Visible=0
    440483State=0
    441 Left=53
    442 Top=123
     484Left=98
     485Top=122
    443486Width=156
    444487Height=84
    … …  
    454497Left=0
    455498Top=0
    456 Width=326
    457 Height=427
    458 MaxLeft=-1
    459 MaxTop=-1
    460 ClientWidth=326
    461 ClientHeight=427
    462 TBDockHeight=527
    463 LRDockWidth=250
    464 Dockable=1
    465 SplitPos=128
     499Width=262
     500Height=540
     501MaxLeft=-1
     502MaxTop=-1
     503ClientWidth=262
     504ClientHeight=540
     505TBDockHeight=492
     506LRDockWidth=190
     507Dockable=1
     508SplitPos=114
    466509ArrangeBy=Name
    467 SelectedItem=Caption
    468 ExpandedItems=Anchors,Options
     510SelectedItem=Action
     511ExpandedItems=CalColors,EdgeBorders,Options
    469512HiddenCategories=Legacy
    470513
    … …  
    473516Visible=0
    474517State=0
    475 Left=-744
    476 Top=207
     518Left=20
     519Top=265
    477520Width=737
    478521Height=350
    … …  
    484527LRDockWidth=737
    485528Dockable=1
    486 Column0Width=178
     529Column0Width=100
    487530Column1Width=75
    488531Column2Width=200
    … …  
    495538Visible=0
    496539State=0
    497 Left=363
    498 Top=83
    499 Width=420
    500 Height=412
    501 MaxLeft=-1
    502 MaxTop=-1
    503 ClientWidth=412
    504 ClientHeight=386
    505 TBDockHeight=355
    506 LRDockWidth=233
     540Left=55
     541Top=390
     542Width=443
     543Height=350
     544MaxLeft=-1
     545MaxTop=-1
     546ClientWidth=435
     547ClientHeight=324
     548TBDockHeight=411
     549LRDockWidth=155
    507550Dockable=1
    508551
    … …  
    533576Left=0
    534577Top=0
    535 Width=326
    536 Height=427
    537 MaxLeft=-1
    538 MaxTop=-1
    539 ClientWidth=326
    540 ClientHeight=427
    541 TBDockHeight=527
    542 LRDockWidth=250
     578Width=262
     579Height=540
     580MaxLeft=-1
     581MaxTop=-1
     582ClientWidth=262
     583ClientHeight=540
     584TBDockHeight=175
     585LRDockWidth=108
    543586Dockable=1
    544587
    545588[DebugLogView]
    546589Create=1
    547 Visible=0
    548 State=0
    549 Left=431
    550 Top=254
    551 Width=417
    552 Height=291
    553 MaxLeft=-1
    554 MaxTop=-1
    555 ClientWidth=409
    556 ClientHeight=265
     590Visible=1
     591State=0
     592Left=0
     593Top=0
     594Width=1004
     595Height=216
     596MaxLeft=-1
     597MaxTop=-1
     598ClientWidth=1004
     599ClientHeight=216
    557600TBDockHeight=291
    558601LRDockWidth=417
    … …  
    603646Visible=0
    604647State=0
    605 Left=310
    606 Top=284
     648Left=307
     649Top=281
    607650Width=457
    608651Height=250
    … …  
    653696[CodeExplorer@EditWindow0]
    654697Create=1
    655 Visible=1
     698Visible=0
    656699State=0
    657700Left=0
    658701Top=12
    659702Width=140
    660 Height=332
     703Height=383
    661704MaxLeft=-1
    662705MaxTop=-1
    663706ClientWidth=140
    664 ClientHeight=332
     707ClientHeight=383
    665708TBDockHeight=305
    666709LRDockWidth=140
    … …  
    669712[MessageView@EditWindow0]
    670713Create=1
    671 Visible=1
    672 State=0
    673 Left=12
     714Visible=0
     715State=0
     716Left=376
    674717Top=0
    675 Width=882
    676 Height=130
    677 MaxLeft=-1
    678 MaxTop=-1
    679 ClientWidth=882
    680 ClientHeight=130
    681 TBDockHeight=130
     718Width=648
     719Height=245
     720MaxLeft=-1
     721MaxTop=-1
     722ClientWidth=648
     723ClientHeight=245
     724TBDockHeight=245
    682725LRDockWidth=443
    683726Dockable=1
    684727
    685728[DockHosts]
    686 DockHostCount=1
     729DockHostCount=2
    687730
    688731[DockSite0]
    … …  
    691734Visible=1
    692735State=0
    693 Left=12
    694 Top=118
    695 Width=342
    696 Height=482
    697 MaxLeft=-1
    698 MaxTop=-1
    699 ClientWidth=334
    700 ClientHeight=456
    701 TBDockHeight=539
    702 LRDockWidth=258
     736Left=2
     737Top=121
     738Width=278
     739Height=595
     740MaxLeft=-1
     741MaxTop=-1
     742ClientWidth=270
     743ClientHeight=569
     744TBDockHeight=552
     745LRDockWidth=272
    703746Dockable=1
    704747TabPosition=0
    … …  
    706749TabDockClients=PropertyInspector,ObjectTree
    707750
     751[DockSite1]
     752DockSiteType=1
     753Create=1
     754Visible=1
     755State=0
     756Left=12
     757Top=0
     758Width=1012
     759Height=245
     760MaxLeft=-1
     761MaxTop=-1
     762ClientWidth=1012
     763ClientHeight=245
     764TBDockHeight=245
     765LRDockWidth=283
     766Dockable=1
     767TabPosition=0
     768ActiveTab=Watch List
     769TabDockClients=WatchWindow,DebugLogView
     770

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

    r654 r667  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 12/28/2009 9:26:13 PM from Type Library described below.
     15// File generated on 1/12/2010 1:11:24 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

  • cprs/branches/tmg-cprs/CPRS-Chart/Encounter/fEncounterFrame.dfm

    r496 r667  
    11object frmEncounterFrame: TfrmEncounterFrame
    2   Left = 290
    3   Top = 108
     2  Left = 272
     3  Top = 219
    44  Width = 640
    55  Height = 451
    … …  
    5959    Height = 22
    6060    Align = alTop
     61    Font.Charset = DEFAULT_CHARSET
     62    Font.Color = clBlack
     63    Font.Height = -11
     64    Font.Name = 'MS Sans Serif'
     65    Font.Style = []
     66    ParentFont = False
    6167    TabOrder = 2
    6268    OnChange = TabControlChange

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

    r541 r667  
    11object frmOptionsOther: TfrmOptionsOther
    2   Left = 298
    3   Top = 189
     2  Left = 517
     3  Top = 143
    44  Hint = 'Use system default settings'
    55  HelpContext = 9110
    … …  
    380380  object cbEnableTabColors: TCheckBox
    381381    Left = 9
    382     Top = 110
     382    Top = 102
    383383    Width = 169
    384384    Height = 17
    385385    Caption = 'Enable Custom Tab Colors'
    386386    Checked = True
    387     Enabled = False
    388387    State = cbChecked
    389388    TabOrder = 26
    390     Visible = False
    391389    OnClick = cbEnableTabColorsClick
    392390  end

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

    r541 r667  
    199199procedure TfrmOptionsOther.FormCreate(Sender: TObject);
    200200begin
     201  cbEnableTabColors.checked := uTabColorsEnabled;
    201202  FStartDT  := 0;
    202203  FStopDT   := 0;
    … …  
    351352//kt added
    352353begin
    353   uTabColorsEnabled := cbEnableTabColors.Checked;
    354   cboTabColors.Enabled    := uTabColorsEnabled;
    355   lblEditTabColor.Enabled := uTabColorsEnabled;
    356   lblTabColors.Enabled    := uTabColorsEnabled;
    357   pnlShowColor.Enabled    := uTabColorsEnabled;
     354  uTabColorsEnabled := cbEnableTabColors.Checked;          //elh 01/12/10
     355  frmFrame.tabPage.OwnerDraw := cbEnableTabColors.Checked; //elh 01/12/10
     356  //cboTabColors.Enabled    := uTabColorsEnabled;
     357  //lblEditTabColor.Enabled := uTabColorsEnabled;
     358  //lblTabColors.Enabled    := uTabColorsEnabled;
     359  //pnlShowColor.Enabled    := uTabColorsEnabled;
    358360end;
    359361

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

    r490 r667  
    11object frmFrame: TfrmFrame
    2   Left = 280
    3   Top = 183
     2  Left = 164
     3  Top = 193
    44  Width = 684
    55  Height = 487
    … …  
    626626      Align = alBottom
    627627      Font.Charset = DEFAULT_CHARSET
    628       Font.Color = clWindowText
     628      Font.Color = clBlack
    629629      Font.Height = -12
    630630      Font.Name = 'MS Sans Serif'

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

    r541 r667  
    976976  //kt replace later... CreateTab(CT_IMAGES,   'Images');   //kt  8/19/05
    977977  LoadTabColors(CPRSChartINI,uTabColorsList);  //kt added 8/8/08
    978 
     978  TabPage.OwnerDraw := uTabColorsEnabled;
    979979  ShowHideChartTabMenus(mnuViewChart);
    980980  //  We defer calling LoadUserPreferences to UMInitiate, so that the font sizing
    … …  
    36403640//  NF_FLAGGED_OI_EXP_INPT          : AlertType := 'Flagged Orderable Item (INPT)';  <-- original line.  //kt 7/17/2007
    36413641    NF_FLAGGED_OI_EXP_INPT          : AlertType := DKLangConstW('fFrame_Flagged_Orderable_Item_xINPTx'); //kt added 7/17/2007
    3642 //  NF_FLAGGED_OI_EXP_OUTPT         : AlertType := 'Flagged Orderable Item (OUTPT)';  <-- original line.  //kt 7/17/2007
    3643     NF_FLAGGED_OI_EXP_OUTPT         : AlertType := DKLangConstW('fFrame_Flagged_Orderable_Item_xOUTPTx'); //kt added 7/17/2007
     3642//  NF_FLAGGED_OI_EXP_OUTPT         : AlertType := 'Flagged Orderable Item (OUTPT)';  <-- original line.  //kt2 7/17/2007
     3643    NF_FLAGGED_OI_EXP_OUTPT         : AlertType := DKLangConstW('fFrame_Flagged_Orderable_Item_xOUTPTx'); //kt2 added 7/17/2007
    36443644  else
    36453645    Exit;
    … …  
    49894989    //this isn't working... This is not what I want.  Fix later...
    49904990    //For now, uTabColorsEnabled should always be TRUE.
    4991     Control.Canvas.FillRect(Rect);
     4991    //Control.Canvas.FillRect(Rect);   //elh   we will try to alter the OwnerDraw property here
     4992    //TabPage.OwnerDraw := uTabColorsEnabled;
    49924993  end;
    49934994end;
    … …  
    50445045
    50455046  begin
     5047  //NOTE: Something in this function is causing MS Vista to not
     5048  //show tab text. I am commenting a few items to test at home on
     5049  //a 64-bit Vista machine.    //elh  01-11-10
    50465050    oRect    := Rect;
    50475051    inactiveColor := Darken(Color,75);  //75%
    … …  
    50545058    end;
    50555059
    5056     Control.Canvas.Font.Name := 'Tahoma';
     5060    Control.Canvas.Font.Name := 'Tahoma';  //Test4
    50575061    if Active then begin
    5058       Control.Canvas.Font.Style := Control.Canvas.Font.Style + [fsBold];
    5059       Control.Canvas.Font.Color := clBlack
     5062      Control.Canvas.Font.Style := Control.Canvas.Font.Style + [fsBold];  //Test3
     5063      Control.Canvas.Font.Color := clBlack    //Test1
    50605064    end else begin
    5061       Control.Canvas.Font.Style := Control.Canvas.Font.Style - [fsBold];
     5065      Control.Canvas.Font.Style := Control.Canvas.Font.Style - [fsBold];  //Test3
    50625066      //Control.Canvas.Font.Color := clBlack
    5063       Control.Canvas.Font.Color := clWhite;
    5064     end;
    5065 
     5067      Control.Canvas.Font.Color := clWhite;   //Test1
     5068    end;
     5069   
    50665070    if (TabControl.TabPosition = tpLeft) or (TabControl.TabPosition = tpRight) then begin
    50675071
    … …  
    50995103
    51005104    if Active then begin
    5101       Control.Canvas.Brush.Color := Color;
     5105      Control.Canvas.Brush.Color := Color;  //Test2
    51025106    end else begin
    5103       Control.Canvas.Brush.Color := inactiveColor;
     5107      Control.Canvas.Brush.Color := inactiveColor;  //Test2
    51045108    end;
    51055109    Control.Canvas.FillRect(Rect);
Note: See TracChangeset for help on using the changeset viewer.