Ignore:
Timestamp:
Sep 11, 2008, 7:23:35 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Adding skin support

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

Legend:

Unmodified
Added
Removed

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

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

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

    r453 r489  
    338338    Application.HelpFile := 'cprs.hlp';
    339339    Application.CreateForm(TdmodShared, dmodShared);
    340   Application.CreateForm(TfrmFrame, frmFrame);
    341   Application.CreateForm(TfrmSearchStop, frmSearchStop);
    342   Application.CreateForm(TfrmImages, frmImages);
    343   Application.CreateForm(TUploadForm, UploadForm);
    344   Application.CreateForm(TUploadProgressForm, UploadProgressForm);
    345   Application.CreateForm(TfrmODAllergy, frmODAllergy);
    346   Application.CreateForm(TfrmDeviceSelect, frmDeviceSelect);
    347   Application.CreateForm(TfrmPtAdd, frmPtAdd);
    348   Application.CreateForm(TfrmPtDemoEdit, frmPtDemoEdit);
    349   //kt Application.CreateForm(TfrmWebTab, frmWebTab);
    350   frmSplash.Free;                               // close & free splash screen
     340    Application.CreateForm(TfrmFrame, frmFrame);
     341    Application.CreateForm(TfrmSearchStop, frmSearchStop);
     342    Application.CreateForm(TfrmImages, frmImages);
     343    Application.CreateForm(TUploadForm, UploadForm);
     344    Application.CreateForm(TUploadProgressForm, UploadProgressForm);
     345    Application.CreateForm(TfrmODAllergy, frmODAllergy);
     346    Application.CreateForm(TfrmDeviceSelect, frmDeviceSelect);
     347    Application.CreateForm(TfrmPtAdd, frmPtAdd);
     348    Application.CreateForm(TfrmPtDemoEdit, frmPtDemoEdit);
     349    //kt Application.CreateForm(TfrmWebTab, frmWebTab);
     350    frmSplash.Free;                               // close & free splash screen
    351351    Application.Run;
    352352  end;
     353  {$IFDEF USE_SKINS}
     354  if SkinManager <> nil then SkinManager.Active := false;  //turn off before destroying forms...
     355  {$ENDIF}
    353356end.

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

    r487 r489  
    11[Closed Files]
    2 File_0=SourceModule,'P:\vista\GUI-config\SkinFormU.pas',0,1,66,1,76,0,0
    3 File_1=SourceModule,'P:\vista\GUI-config\MainU.pas',0,1,1958,20,1985,0,0
     2File_0=SourceModule,'P:\vista\GUI-config\MainU.pas',0,1,2129,1,2134,1,0
     3File_1=SourceModule,'P:\vista\GUI-config\SkinFormU.pas',0,1,66,1,76,0,0
    44File_2=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Lib\ORNet.pas',0,1,348,1,359,0,0
    55File_3=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\UploadImages.pas',0,1,219,36,232,0,0
    … …  
    1212
    1313[Modules]
    14 Module0=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
     14Module0=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    1515Module1=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
    16 Module2=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
    17 Module3=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    18 Module4=c:\program files\borland\delphi7\source\vcl\Controls.pas
    19 Module5=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
    20 Module6=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
    21 Module7=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    22 Count=8
     16Module2=c:\program files\borland\delphi7\source\vcl\Forms.pas
     17Module3=c:\program files\borland\delphi7\source\vcl\Controls.pas
     18Module4=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
     19Module5=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     20Module6=P:\vista\tmg-cprs\CPRS-Chart\fDCSumm.pas
     21Module7=c:\program files\borland\delphi7\source\rtl\Win\Windows.pas
     22Module8=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
     23Module9=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
     24Module10=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
     25Module11=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
     26Module12=c:\program files\borland\delphi7\source\rtl\Sys\SysInit.pas
     27Module13=P:\vista\tmg-cprs\CPRS-Chart\fPrintList.pas
     28Count=14
    2329EditWindowCount=1
    2430TypeLibWindowCount=1
    2531
     32[c:\program files\borland\delphi7\source\rtl\common\classes.pas]
     33ModuleType=SourceModule
     34FormState=0
     35FormOnTop=0
     36
     37[P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]
     38ModuleType=SourceModule
     39FormState=1
     40FormOnTop=0
     41
     42[c:\program files\borland\delphi7\source\vcl\Forms.pas]
     43ModuleType=SourceModule
     44FormState=0
     45FormOnTop=0
     46
     47[c:\program files\borland\delphi7\source\vcl\Controls.pas]
     48ModuleType=SourceModule
     49FormState=0
     50FormOnTop=0
     51
     52[c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
     53ModuleType=SourceModule
     54FormState=0
     55FormOnTop=0
     56
     57[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
     58ModuleType=SourceModule
     59FormState=0
     60FormOnTop=0
     61
     62[P:\vista\tmg-cprs\CPRS-Chart\fDCSumm.pas]
     63ModuleType=SourceModule
     64FormState=0
     65FormOnTop=0
     66
     67[c:\program files\borland\delphi7\source\rtl\Win\Windows.pas]
     68ModuleType=SourceModule
     69FormState=0
     70FormOnTop=0
     71
     72[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas]
     73ModuleType=SourceModule
     74FormState=1
     75FormOnTop=0
     76
    2677[P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
    2778ModuleType=SourceModule
    … …  
    2980FormOnTop=0
    3081
    31 [P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    32 ModuleType=SourceModule
    33 FormState=1
    34 FormOnTop=0
    35 
    36 [P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas]
    37 ModuleType=SourceModule
    38 FormState=0
    39 FormOnTop=0
    40 
    41 [c:\program files\borland\delphi7\source\rtl\common\classes.pas]
    42 ModuleType=SourceModule
    43 FormState=0
    44 FormOnTop=0
    45 
    46 [c:\program files\borland\delphi7\source\vcl\Controls.pas]
     82[c:\program files\borland\delphi7\source\vcl\StdCtrls.pas]
    4783ModuleType=SourceModule
    4884FormState=0
    … …  
    5490FormOnTop=0
    5591
    56 [c:\program files\borland\delphi7\source\vcl\StdCtrls.pas]
    57 ModuleType=SourceModule
    58 FormState=0
    59 FormOnTop=0
    60 
    61 [P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
     92[c:\program files\borland\delphi7\source\rtl\Sys\SysInit.pas]
     93ModuleType=SourceModule
     94FormState=0
     95FormOnTop=0
     96
     97[P:\vista\tmg-cprs\CPRS-Chart\fPrintList.pas]
    6298ModuleType=SourceModule
    6399FormState=0
    … …  
    72108FormOnTop=0
    73109
     110[P:\vista\tmg-cprs\CPRS-Chart\fAutoSz.pas]
     111FormState=0
     112FormOnTop=0
     113
     114[P:\vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
     115FormState=0
     116FormOnTop=0
     117
     118[P:\vista\tmg-cprs\CPRS-Chart\fPage.pas]
     119FormState=0
     120FormOnTop=0
     121
    74122[EditWindow0]
    75 ViewCount=8
    76 CurrentView=3
     123ViewCount=14
     124CurrentView=10
    77125View0=0
    78126View1=1
    … …  
    83131View6=6
    84132View7=7
     133View8=8
     134View9=9
     135View10=10
     136View11=11
     137View12=12
     138View13=13
    85139CodeExplorer=CodeExplorer@EditWindow0
    86140MessageView=MessageView@EditWindow0
    … …  
    88142Visible=1
    89143State=0
    90 Left=213
     144Left=271
    91145Top=128
    92 Width=777
     146Width=719
    93147Height=588
    94148MaxLeft=-1
    95149MaxTop=-1
    96 ClientWidth=769
     150ClientWidth=711
    97151ClientHeight=554
    98152LeftPanelSize=0
    … …  
    102156BottomPanelSize=0
    103157BottomPanelClients=MessageView@EditWindow0
    104 BottomPanelData=00000400010000000B0000004D65737361676556696577010300000000000002550000000000000001000000000000000000000000010000000001030000000000000100000000010300000B0000004D65737361676556696577FFFFFFFF
     158BottomPanelData=00000400010000000B0000004D65737361676556696577C7020000000000000255000000000000000100000000000000000000000001000000000103000000000000010000000001030000000000000100000000C70200000B0000004D65737361676556696577FFFFFFFF
    105159
    106160[View0]
    107161Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    108162CursorX=1
    109 CursorY=1
    110 TopLine=1
     163CursorY=351
     164TopLine=334
    111165LeftCol=1
    112166
    113167[View1]
    114168Module=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
    115 CursorX=35
    116 CursorY=830
    117 TopLine=818
     169CursorX=17
     170CursorY=572
     171TopLine=553
    118172LeftCol=1
    119173
    120174[View2]
     175Module=P:\vista\tmg-cprs\CPRS-Chart\fPrintList.pas
     176CursorX=8
     177CursorY=102
     178TopLine=44
     179LeftCol=1
     180
     181[View3]
    121182Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
    122 CursorX=26
    123 CursorY=213
    124 TopLine=199
    125 LeftCol=1
    126 
    127 [View3]
     183CursorX=1
     184CursorY=454
     185TopLine=451
     186LeftCol=1
     187
     188[View4]
     189Module=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
     190CursorX=1
     191CursorY=8638
     192TopLine=8623
     193LeftCol=1
     194
     195[View5]
     196Module=c:\program files\borland\delphi7\source\rtl\Sys\SysInit.pas
     197CursorX=1
     198CursorY=365
     199TopLine=345
     200LeftCol=1
     201
     202[View6]
    128203Module=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
    129204CursorX=1
    … …  
    132207LeftCol=1
    133208
    134 [View4]
     209[View7]
    135210Module=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
    136211CursorX=1
    137 CursorY=2785
    138 TopLine=2771
    139 LeftCol=1
    140 
    141 [View5]
     212CursorY=3415
     213TopLine=3401
     214LeftCol=1
     215
     216[View8]
    142217Module=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
    143218CursorX=1
    … …  
    146221LeftCol=1
    147222
    148 [View6]
     223[View9]
    149224Module=c:\program files\borland\delphi7\source\vcl\Controls.pas
    150225CursorX=1
    151 CursorY=6161
    152 TopLine=6145
    153 LeftCol=1
    154 
    155 [View7]
     226CursorY=6369
     227TopLine=6343
     228LeftCol=1
     229
     230[View10]
    156231Module=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    157232CursorX=1
    158 CursorY=2825
    159 TopLine=2817
     233CursorY=5707
     234TopLine=5693
     235LeftCol=1
     236
     237[View11]
     238Module=c:\program files\borland\delphi7\source\vcl\Forms.pas
     239CursorX=29
     240CursorY=6866
     241TopLine=6858
     242LeftCol=1
     243
     244[View12]
     245Module=P:\vista\tmg-cprs\CPRS-Chart\fDCSumm.pas
     246CursorX=1
     247CursorY=954
     248TopLine=932
     249LeftCol=1
     250
     251[View13]
     252Module=c:\program files\borland\delphi7\source\rtl\Win\Windows.pas
     253CursorX=1
     254CursorY=30104
     255TopLine=30090
    160256LeftCol=1
    161257
    … …  
    175271
    176272[Watches]
    177 Count=6
     273Count=9
    178274Watch0='Control',256,0,18,1,0,'Watches'
    179275Watch1='TabIndex',256,0,18,1,0,'Watches'
    … …  
    182278Watch4='ALabel',256,0,18,1,0,'Watches'
    183279Watch5='colorIndex',256,0,18,1,0,'Watches'
     280Watch6='GetCapture',256,0,18,1,0,'Watches'
     281Watch7='FOnException',8,0,18,1,0,'Watches'
     282Watch8='E',16,0,18,1,0,'Watches'
    184283
    185284[WatchWindow]
    … …  
    187286WatchShowColumnHeaders=1
    188287Create=1
    189 Visible=0
     288Visible=1
    190289State=0
    191290Left=26
    … …  
    202301
    203302[Breakpoints]
    204 Count=0
     303Count=7
     304Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr',354,'',0,1,'',1,0,0,'',1,'','',''
     305Breakpoint1='P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas',942,'',0,1,'',1,0,0,'',1,'','',''
     306Breakpoint2='c:\program files\borland\delphi7\source\vcl\Controls.pas',6243,'',0,1,'',1,0,0,'',1,'','',''
     307Breakpoint3='c:\program files\borland\delphi7\source\vcl\Forms.pas',6998,'',0,1,'',1,0,0,'',1,'','',''
     308Breakpoint4='c:\program files\borland\delphi7\source\vcl\Forms.pas',7000,'',0,1,'',1,0,0,'',1,'','',''
     309Breakpoint5='c:\program files\borland\delphi7\source\vcl\Forms.pas',6982,'',0,1,'',1,0,0,'',1,'','',''
     310Breakpoint6='P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas',606,'',0,1,'',1,0,0,'',1,'','',''
    205311
    206312[AddressBreakpoints]
    … …  
    211317Visible=1
    212318State=0
    213 Left=0
    214 Top=1
     319Left=12
     320Top=16
    215321Width=981
    216322Height=112
    … …  
    256362Visible=0
    257363State=0
    258 Left=0
    259 Top=12
     364Left=3
     365Top=199
    260366Width=800
    261367Height=561
    … …  
    299405SplitPos=128
    300406ArrangeBy=Name
    301 SelectedItem=OnKeyPress
     407SelectedItem=OnException
    302408ExpandedItems=Anchors
    303409HiddenCategories=Legacy
    … …  
    329435Visible=1
    330436State=0
    331 Left=42
    332 Top=403
    333 Width=874
    334 Height=210
    335 MaxLeft=-1
    336 MaxTop=-1
    337 ClientWidth=866
    338 ClientHeight=184
     437Left=35
     438Top=431
     439Width=502
     440Height=295
     441MaxLeft=-1
     442MaxTop=-1
     443ClientWidth=494
     444ClientHeight=269
    339445TBDockHeight=355
    340446LRDockWidth=233
    … …  
    507613Left=12
    508614Top=0
    509 Width=757
     615Width=699
    510616Height=85
    511617MaxLeft=-1
    512618MaxTop=-1
    513 ClientWidth=757
     619ClientWidth=699
    514620ClientHeight=85
    515621TBDockHeight=85

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

    r487 r489  
    11[Closed Files]
    2 File_0=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Lib\ORNet.pas',0,1,348,1,359,0,0
    3 File_1=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\UploadImages.pas',0,1,219,36,232,0,0
    4 File_2=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\uConst.pas',0,1,47,10,52,0,0
    5 File_3=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtDemo.pas',0,1,1,52,82,0,0
    6 File_4=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Lib\ORCtrls.pas',0,1,2170,1,2178,0,0
    7 File_5=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtSel.pas',0,1,500,34,503,1,0
    8 File_6=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\CPRSChart.dpr',0,1,285,1,351,0,0
    9 File_7=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\TMG_Extra\fWebTab.pas',0,1,1,1,88,0,0
    10 File_8=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\system.pas',0,1,12601,1,12613,0,0
    11 File_9=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\Orders\uODBase.pas',0,1,37,1,52,0,0
     2File_0=SourceModule,'P:\vista\GUI-config\SkinFormU.pas',0,1,66,1,76,0,0
     3File_1=SourceModule,'P:\vista\GUI-config\MainU.pas',0,1,1958,20,1985,0,0
     4File_2=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Lib\ORNet.pas',0,1,348,1,359,0,0
     5File_3=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\UploadImages.pas',0,1,219,36,232,0,0
     6File_4=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\uConst.pas',0,1,47,10,52,0,0
     7File_5=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtDemo.pas',0,1,1,52,82,0,0
     8File_6=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Lib\ORCtrls.pas',0,1,2170,1,2178,0,0
     9File_7=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtSel.pas',0,1,500,34,503,1,0
     10File_8=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\CPRSChart.dpr',0,1,285,1,351,0,0
     11File_9=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\TMG_Extra\fWebTab.pas',0,1,1,1,88,0,0
    1212
    1313[Modules]
    14 Module0=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
    15 Module1=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
    16 Module2=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    17 Module3=c:\program files\borland\delphi7\source\vcl\Controls.pas
    18 Module4=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
    19 Module5=P:\Vista\killthis.txt
     14Module0=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
     15Module1=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
     16Module2=c:\program files\borland\delphi7\source\vcl\Forms.pas
     17Module3=c:\program files\borland\delphi7\source\rtl\common\classes.pas
     18Module4=c:\program files\borland\delphi7\source\vcl\Controls.pas
     19Module5=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
    2020Module6=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
    21 Module7=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    22 Count=8
     21Module7=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
     22Module8=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     23Count=9
    2324EditWindowCount=1
    2425TypeLibWindowCount=1
    2526
     27[P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
     28ModuleType=SourceModule
     29FormState=1
     30FormOnTop=0
     31
    2632[P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    2733ModuleType=SourceModule
    … …  
    2935FormOnTop=0
    3036
    31 [P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
    32 ModuleType=SourceModule
    33 FormState=1
     37[c:\program files\borland\delphi7\source\vcl\Forms.pas]
     38ModuleType=SourceModule
     39FormState=0
    3440FormOnTop=0
    3541
    … …  
    4955FormOnTop=0
    5056
    51 [P:\Vista\killthis.txt]
    52 ModuleType=SourceModule
    53 FormState=0
    54 FormOnTop=0
    55 
    5657[c:\program files\borland\delphi7\source\vcl\StdCtrls.pas]
    5758ModuleType=SourceModule
    … …  
    5960FormOnTop=0
    6061
    61 [P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
     62[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas]
     63ModuleType=SourceModule
     64FormState=0
     65FormOnTop=0
     66
     67[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
    6268ModuleType=SourceModule
    6369FormState=0
    … …  
    6874FormOnTop=0
    6975
    70 [P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb]
     76[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb]
    7177FormState=0
    7278FormOnTop=0
    7379
    7480[EditWindow0]
    75 ViewCount=8
    76 CurrentView=1
     81ViewCount=9
     82CurrentView=3
    7783View0=0
    7884View1=1
    … …  
    8389View6=6
    8490View7=7
     91View8=8
    8592CodeExplorer=CodeExplorer@EditWindow0
    8693MessageView=MessageView@EditWindow0
    … …  
    102109BottomPanelSize=0
    103110BottomPanelClients=MessageView@EditWindow0
    104 BottomPanelData=00000400010000000B0000004D6573736167655669657701030000000000000255000000000000000100000000000000000000000001000000000103000000000000FFFFFFFF
     111BottomPanelData=00000400010000000B0000004D657373616765566965770103000000000000025500000000000000010000000000000000000000000100000000010300000000000001000000000103000000000000FFFFFFFF
    105112
    106113[View0]
    107 Module=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     114Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    108115CursorX=1
    109116CursorY=1
    … …  
    113120[View1]
    114121Module=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
    115 CursorX=13
    116 CursorY=3755
    117 TopLine=3745
     122CursorX=40
     123CursorY=1004
     124TopLine=1001
    118125LeftCol=1
    119126
    120127[View2]
     128Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
     129CursorX=26
     130CursorY=213
     131TopLine=199
     132LeftCol=1
     133
     134[View3]
    121135Module=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
    122136CursorX=1
    … …  
    125139LeftCol=1
    126140
    127 [View3]
     141[View4]
    128142Module=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
    129143CursorX=1
    … …  
    132146LeftCol=1
    133147
    134 [View4]
    135 Module=P:\Vista\killthis.txt
    136 CursorX=1
    137 CursorY=157
    138 TopLine=135
    139 LeftCol=1
    140 
    141148[View5]
    142149Module=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
    … …  
    156163Module=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    157164CursorX=1
    158 CursorY=2825
    159 TopLine=2817
     165CursorY=5984
     166TopLine=5970
     167LeftCol=1
     168
     169[View8]
     170Module=c:\program files\borland\delphi7\source\vcl\Forms.pas
     171CursorX=1
     172CursorY=4781
     173TopLine=4767
    160174LeftCol=1
    161175
    … …  
    172186ClientWidth=631
    173187ClientHeight=419
    174 Module=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb
     188Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb
    175189
    176190[Watches]

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

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

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

    r487 r489  
    11object frmOptions: TfrmOptions
    2   Left = 493
    3   Top = 120
     2  Left = 303
     3  Top = 146
    44  Width = 435
    55  Height = 397
    … …  
    17781778          ParentFont = False
    17791779          TabOrder = 0
    1780           OnDblClick = btnApplyClick
     1780          OnDblClick = btnApplySkinClick
    17811781          OnKeyPress = lbSkinsKeyPress
    17821782        end

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

    r487 r489  
    901901    frmFrame.CurrentSkinFile := 'TMG_Extra\Skins\' +fileS;
    902902    frmFrame.ActivateCurrentSkin;
     903    btnApplyClick(btnOK);
    903904    {$ELSE}
    904905    MessageDlg('Use of skins has been disabled at compile time.',mtInformation,[mbOK],0);

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

    r473 r489  
    10481048  object AppEvents: TApplicationEvents
    10491049    OnActivate = AppEventsActivate
     1050    OnException = AppException
    10501051    OnShortCut = AppEventsShortCut
    10511052    Left = 336

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

    r487 r489  
    373373    EnduringPtSelSplitterPos: integer;
    374374    SkinAtStartup : boolean; //kt 9/8/08
     375    SkinChanged : boolean;  //kt 9/8/08
    375376    CurrentSkinFile : string; //kt 9/8/08
    376     {$IFDEF USE_SKINS}
    377     SkinManager : TipSkinManager;
    378     {$ENDIF}
    379377    procedure ActivateCurrentSkin; //kt 9/8/08
    380378    procedure InactivateSkin; //kt 9/8/08
    … …  
    415413  uToolsMaxed, uToolsWarned: boolean;
    416414  boolTMGPatchInstalled: boolean;     //elh   6/20/08
     415  {$IFDEF USE_SKINS}
     416  SkinManager : TipSkinManager;
     417  {$ENDIF}
    417418
    418419const
    … …  
    572573  AnAddr: Pointer;
    573574  ErrMsg: string;
     575  temp : integer;
    574576begin
    575577  Application.NormalizeTopMosts;
    … …  
    600602    FCreateProgress := FCP_FORMS;
    601603    Close;
     604  end
     605  else if E.Message = 'Cannot focus a disabled or invisible window' then begin
     606    i := 1; // do nothing
    602607  end
    603608  else Application.ShowException(E);
    … …  
    827832  SkinManager := TipSkinManager.Create(self);
    828833  {$ENDIF}
     834  SkinChanged := false;
    829835  SkinAtStartup := CPRSChartINI.ReadBool('Skin','Load At Startup',false);
    830836  CurrentSkinFile := CPRSChartINI.ReadString('Skin','Default Skin','TMG_Extra\Skins\ICQ_Longhorn_v.1.2.ipz');
    … …  
    10051011begin
    10061012  {$IFDEF USE_SKINS}
     1013  if SkinChanged = true then begin
     1014    MessageDlg('For now, skins may be changed only ONCE'+#10+#13+
     1015               'before restarting CPRS.  Thank you.',mtInformation,[mbOK],0);
     1016    exit;           
     1017  end;
     1018  SkinChanged := true;
    10071019  SkinManager.SkinFile := ExtractFilePath (Application.ExeName) + CurrentSkinFile;
    10081020  if FileExists(SkinManager.SkinFile)=false then begin
    … …  
    12201232  uTabColorsList.Free;
    12211233  CPRSChartINI.WriteInteger('TAB_POSITION','Tab Location',integer(tabPage.TabPosition));
     1234  CPRSChartINI.WriteBool('Skin','Load At Startup',SkinAtStartup);  //kt 9/11/08
    12221235  //kt --- end mod ---
    12231236
    … …  
    50685081  end;
    50695082
    5070 
    5071 
    5072 
    5073 initialization
     5083  initialization
    50745084
    50755085finalization
Note: See TracChangeset for help on using the changeset viewer.