Ignore:
Timestamp:
Jul 15, 2010, 8:02:17 PM (14 years ago)
Author:
Kevin Toppenberg
Message:

Dual sync of source code enabled: SVN + BZR

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

Legend:

Unmodified
Added
Removed

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

    r819 r877  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 7/2/2010 7:47:03 PM from Type Library described below.
     15// File generated on 7/7/2010 12:05:44 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

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

    r819 r877  
    99  TntSystem,
    1010  TntSysUtils,
    11   DKLang,  //kt NOTE: Keep this before any app form so it will do it's finalizaton section AFTER forms unload.
     11  DKLang,
    1212  fPage in 'fPage.pas' {frmPage},
    1313  fHSplit in 'fHSplit.pas' {frmHSplit},
    … …  
    357357    Application.HelpFile := 'cprs.hlp';
    358358    Application.CreateForm(TdmodShared, dmodShared);
    359     Application.CreateForm(TfrmFrame, frmFrame);
    360     //kt <--- frmImages etc created here
     359  Application.CreateForm(TfrmFrame, frmFrame);
     360  //kt <--- frmImages etc created here
    361361    if frmframe.TMGAbort = False then begin   //kt 3/25/09
    362362      Application.CreateForm(TfrmPtDocSearch, frmPtDocSearch);

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

    r820 r877  
    11[Closed Files]
    2 File_0=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrders.pas',0,1,2569,7,2577,0,0
    3 File_1=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\uConst.pas',0,1,229,3,205,0,0
    4 File_2=SourceModule,'c:\program files\borland\delphi7\source\vcl\WinHelpViewer.pas',0,1,651,1,669,0,0
    5 File_3=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas',0,1,16061,1,16069,0,0
    6 File_4=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas',0,1,523,1,527,0,0
    7 File_5=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Templates\rTemplates.pas',0,1,97,1,107,0,0
    8 File_6=SourceModule,'c:\program files\borland\delphi7\source\rtl\Win\Windows.pas',0,1,28842,1,28850,0,0
     2File_0=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas',0,1,511,1,522,0,0
     3File_1=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrders.pas',0,1,2809,1,2820,0,0
     4File_2=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\uConst.pas',0,1,241,3,252,0,0
     5File_3=SourceModule,'P:\Vista\tmg-cprs\CPRS-Lib\ORFn.pas',0,1,1378,1,1386,0,0
    96
    107[Modules]
    11 Module0=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
    12 Module1=C:\PROGRA~1\VISTA\BDK32\Source\ccowrpcbroker.pas
    13 Module2=P:\vista\tmg-cprs\CPRS-Chart\fLabs.pas
    14 Module3=c:\program files\borland\delphi7\source\vcl\Controls.pas
    15 Module4=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
    16 Module5=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
    17 Module6=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    18 Module7=c:\program files\borland\delphi7\source\vcl\Forms.pas
    19 Module8=P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas
    20 Module9=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
    21 Module10=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
    22 Module11=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
    23 Count=12
     8Module0=P:\vista\tmg-cprs\CPRS-Chart\fImages.pas
     9Module1=P:\Vista\tmg-cprs\CPRS-Lib\ORCtrls.pas
     10Module2=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\TMGHTML2.pas
     11Module3=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
     12Module4=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fImagePickExisting.pas
     13Module5=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
     14Module6=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
     15Module7=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
     16Module8=c:\program files\borland\delphi7\source\vcl\Forms.pas
     17Module9=P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas
     18Module10=P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas
     19Module11=c:\program files\borland\delphi7\source\vcl\Menus.pas
     20Module12=c:\program files\borland\delphi7\source\rtl\common\classes.pas
     21Module13=c:\program files\borland\delphi7\source\vcl\Controls.pas
     22Module14=c:\program files\borland\delphi7\source\vcl\ExtCtrls.pas
     23Module15=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
     24Module16=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
     25Module17=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
     26Module18=P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas
     27Module19=P:\Vista\tmg-cprs\CPRS-Lib\ORNet.pas
     28Module20=P:\vista\tmg-cprs\CPRS-Chart\fNoteDR.pas
     29Module21=P:\vista\tmg-cprs\CPRS-Chart\rCore.pas
     30Count=22
    2431EditWindowCount=1
    2532TypeLibWindowCount=1
    2633
     34[P:\vista\tmg-cprs\CPRS-Chart\fImages.pas]
     35ModuleType=SourceModule
     36FormState=1
     37FormOnTop=0
     38
     39[P:\Vista\tmg-cprs\CPRS-Lib\ORCtrls.pas]
     40ModuleType=SourceModule
     41FormState=0
     42FormOnTop=0
     43
     44[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\TMGHTML2.pas]
     45ModuleType=SourceModule
     46FormState=0
     47FormOnTop=0
     48
     49[P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas]
     50ModuleType=SourceModule
     51FormState=1
     52FormOnTop=0
     53
     54[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fImagePickExisting.pas]
     55ModuleType=SourceModule
     56FormState=1
     57FormOnTop=0
     58
     59[c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
     60ModuleType=SourceModule
     61FormState=0
     62FormOnTop=0
     63
     64[c:\program files\borland\delphi7\source\vcl\ComCtrls.pas]
     65ModuleType=SourceModule
     66FormState=0
     67FormOnTop=0
     68
    2769[P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    2870ModuleType=SourceModule
    … …  
    3072FormOnTop=0
    3173
    32 [C:\PROGRA~1\VISTA\BDK32\Source\ccowrpcbroker.pas]
    33 ModuleType=SourceModule
    34 FormState=0
    35 FormOnTop=0
    36 
    37 [P:\vista\tmg-cprs\CPRS-Chart\fLabs.pas]
     74[c:\program files\borland\delphi7\source\vcl\Forms.pas]
     75ModuleType=SourceModule
     76FormState=0
     77FormOnTop=0
     78
     79[P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas]
     80ModuleType=SourceModule
     81FormState=0
     82FormOnTop=0
     83
     84[P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas]
     85ModuleType=SourceModule
     86FormState=0
     87FormOnTop=0
     88
     89[c:\program files\borland\delphi7\source\vcl\Menus.pas]
     90ModuleType=SourceModule
     91FormState=0
     92FormOnTop=0
     93
     94[c:\program files\borland\delphi7\source\rtl\common\classes.pas]
    3895ModuleType=SourceModule
    3996FormState=0
    … …  
    45102FormOnTop=0
    46103
    47 [C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas]
    48 ModuleType=SourceModule
    49 FormState=0
    50 FormOnTop=0
    51 
    52 [P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas]
    53 ModuleType=SourceModule
     104[c:\program files\borland\delphi7\source\vcl\ExtCtrls.pas]
     105ModuleType=SourceModule
     106FormState=0
     107FormOnTop=0
     108
     109[c:\program files\borland\delphi7\source\vcl\StdCtrls.pas]
     110ModuleType=SourceModule
     111FormState=0
     112FormOnTop=0
     113
     114[P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas]
     115ModuleType=SourceModule
     116FormState=0
     117FormOnTop=0
     118
     119[P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas]
     120ModuleType=SourceModule
     121FormState=0
     122FormOnTop=0
     123
     124[P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas]
     125ModuleType=SourceModule
     126FormState=0
     127FormOnTop=0
     128
     129[P:\Vista\tmg-cprs\CPRS-Lib\ORNet.pas]
     130ModuleType=SourceModule
     131FormState=0
     132FormOnTop=0
     133
     134[P:\vista\tmg-cprs\CPRS-Chart\fNoteDR.pas]
     135ModuleType=SourceModule
     136FormState=0
     137FormOnTop=0
     138
     139[P:\vista\tmg-cprs\CPRS-Chart\rCore.pas]
     140ModuleType=SourceModule
     141FormState=0
     142FormOnTop=0
     143
     144[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
    54145FormState=0
    55146FormOnTop=0
    56147
    57148[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
    58 ModuleType=SourceModule
    59 FormState=0
    60 FormOnTop=0
    61 
    62 [c:\program files\borland\delphi7\source\vcl\Forms.pas]
    63 ModuleType=SourceModule
    64 FormState=0
    65 FormOnTop=0
    66 
    67 [P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas]
    68 ModuleType=SourceModule
    69 FormState=0
    70 FormOnTop=0
    71 
    72 [c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
    73 ModuleType=SourceModule
    74 FormState=0
    75 FormOnTop=0
    76 
    77 [P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas]
    78 ModuleType=SourceModule
    79 FormState=0
    80 FormOnTop=0
    81 
    82 [P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas]
    83 ModuleType=SourceModule
    84 FormState=0
    85 FormOnTop=0
    86 
    87 [C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
    88149FormState=0
    89150FormOnTop=0
    … …  
    93154FormOnTop=0
    94155
     156[P:\vista\tmg-cprs\CPRS-Chart\fPage.pas]
     157FormState=0
     158FormOnTop=0
     159
     160[P:\vista\tmg-cprs\CPRS-Chart\fAutoSz.pas]
     161FormState=0
     162FormOnTop=0
     163
    95164[P:\vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
    96165FormState=0
    97166FormOnTop=0
    98167
    99 [P:\vista\tmg-cprs\CPRS-Chart\fPage.pas]
    100 FormState=0
    101 FormOnTop=0
    102 
    103168[EditWindow0]
    104 ViewCount=12
    105 CurrentView=1
     169ViewCount=22
     170CurrentView=6
    106171View0=0
    107172View1=1
    … …  
    116181View10=10
    117182View11=11
     183View12=12
     184View13=13
     185View14=14
     186View15=15
     187View16=16
     188View17=17
     189View18=18
     190View19=19
     191View20=20
     192View21=21
    118193CodeExplorer=CodeExplorer@EditWindow0
    119194MessageView=MessageView@EditWindow0
    … …  
    121196Visible=1
    122197State=0
    123 Left=139
    124 Top=111
    125 Width=848
    126 Height=698
     198Left=80
     199Top=97
     200Width=816
     201Height=620
    127202MaxLeft=-4
    128203MaxTop=108
    129 ClientWidth=840
    130 ClientHeight=664
     204ClientWidth=808
     205ClientHeight=586
    131206LeftPanelSize=0
    132207LeftPanelClients=CodeExplorer@EditWindow0
    133208LeftPanelData=00000400010000000C000000436F64654578706C6F726572000000000000000000000000000000000001000000000000000000000000FFFFFFFF
    134209RightPanelSize=0
    135 BottomPanelSize=221
    136 BottomPanelClients=DockSite1
    137 BottomPanelData=0000040000000000480300000000000002DD000000000000000100000000770300000000000001000000004803000009000000446F636B5369746531FFFFFFFF
     210BottomPanelSize=136
     211BottomPanelClients=WatchWindow,MessageView@EditWindow0
     212BottomPanelData=0000040000000000280300000000000002880000000000000001000000007703000000000000010000000128030000000000000200000000870000000B000000576174636857696E646F770200000000880000000B0000004D65737361676556696577FFFFFFFF
    138213
    139214[View0]
    140215Module=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
    141 CursorX=59
    142 CursorY=3483
    143 TopLine=3478
     216CursorX=44
     217CursorY=2072
     218TopLine=2061
    144219LeftCol=1
    145220
    146221[View1]
    147 Module=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
    148 CursorX=42
    149 CursorY=829
    150 TopLine=817
     222Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fImagePickExisting.pas
     223CursorX=21
     224CursorY=16
     225TopLine=9
    151226LeftCol=1
    152227
    153228[View2]
    154 Module=c:\program files\borland\delphi7\source\vcl\Controls.pas
    155 CursorX=1
    156 CursorY=5991
    157 TopLine=5981
     229Module=c:\program files\borland\delphi7\source\vcl\Menus.pas
     230CursorX=1
     231CursorY=1822
     232TopLine=1811
    158233LeftCol=1
    159234
    160235[View3]
    161 Module=P:\vista\tmg-cprs\CPRS-Chart\fLabs.pas
    162 CursorX=33
    163 CursorY=2170
    164 TopLine=2164
     236Module=P:\vista\tmg-cprs\CPRS-Chart\rCore.pas
     237CursorX=1
     238CursorY=364
     239TopLine=357
    165240LeftCol=1
    166241
    167242[View4]
    168 Module=c:\program files\borland\delphi7\source\vcl\Forms.pas
    169 CursorX=1
    170 CursorY=6956
    171 TopLine=6941
     243Module=P:\vista\tmg-cprs\CPRS-Chart\fNoteDR.pas
     244CursorX=50
     245CursorY=67
     246TopLine=56
    172247LeftCol=1
    173248
    174249[View5]
    175 Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    176 CursorX=1
    177 CursorY=385
    178 TopLine=375
     250Module=P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas
     251CursorX=17
     252CursorY=417
     253TopLine=409
    179254LeftCol=1
    180255
    181256[View6]
    182 Module=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
    183 CursorX=1
    184 CursorY=433
    185 TopLine=418
     257Module=P:\vista\tmg-cprs\CPRS-Chart\fImages.pas
     258CursorX=1
     259CursorY=1543
     260TopLine=1426
    186261LeftCol=1
    187262
    188263[View7]
    189 Module=C:\PROGRA~1\VISTA\BDK32\Source\ccowrpcbroker.pas
    190 CursorX=1
    191 CursorY=363
    192 TopLine=353
     264Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\TMGHTML2.pas
     265CursorX=1
     266CursorY=984
     267TopLine=972
    193268LeftCol=1
    194269
    … …  
    196271Module=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
    197272CursorX=1
    198 CursorY=9976
    199 TopLine=9963
     273CursorY=10058
     274TopLine=10060
    200275LeftCol=1
    201276
    202277[View9]
    203 Module=P:\vista\tmg-cprs\CPRS-Lib\ORNet.pas
    204 CursorX=1
    205 CursorY=346
    206 TopLine=335
     278Module=c:\program files\borland\delphi7\source\vcl\ExtCtrls.pas
     279CursorX=1
     280CursorY=1639
     281TopLine=1622
    207282LeftCol=1
    208283
    209284[View10]
    210 Module=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
    211 CursorX=31
    212 CursorY=2251
    213 TopLine=2244
     285Module=P:\Vista\tmg-cprs\CPRS-Lib\ORCtrls.pas
     286CursorX=1
     287CursorY=2657
     288TopLine=2642
    214289LeftCol=1
    215290
    216291[View11]
     292Module=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
     293CursorX=1
     294CursorY=4114
     295TopLine=4098
     296LeftCol=1
     297
     298[View12]
     299Module=c:\program files\borland\delphi7\source\vcl\Forms.pas
     300CursorX=1
     301CursorY=4849
     302TopLine=4832
     303LeftCol=1
     304
     305[View13]
     306Module=c:\program files\borland\delphi7\source\vcl\Controls.pas
     307CursorX=1
     308CursorY=6245
     309TopLine=6228
     310LeftCol=1
     311
     312[View14]
     313Module=c:\program files\borland\delphi7\source\rtl\common\classes.pas
     314CursorX=1
     315CursorY=10968
     316TopLine=10956
     317LeftCol=1
     318
     319[View15]
     320Module=P:\Vista\tmg-cprs\CPRS-Lib\ORNet.pas
     321CursorX=20
     322CursorY=77
     323TopLine=56
     324LeftCol=1
     325
     326[View16]
     327Module=P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas
     328CursorX=10
     329CursorY=646
     330TopLine=640
     331LeftCol=1
     332
     333[View17]
     334Module=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
     335CursorX=1
     336CursorY=748
     337TopLine=740
     338LeftCol=1
     339
     340[View18]
     341Module=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
     342CursorX=1
     343CursorY=827
     344TopLine=816
     345LeftCol=1
     346
     347[View19]
     348Module=P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas
     349CursorX=1
     350CursorY=251
     351TopLine=240
     352LeftCol=1
     353
     354[View20]
     355Module=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
     356CursorX=1
     357CursorY=4143
     358TopLine=4130
     359LeftCol=1
     360
     361[View21]
    217362Module=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
    218363CursorX=1
    … …  
    236381
    237382[Watches]
    238 Count=1
     383Count=2
    239384Watch0='Count',256,0,18,1,1,'Watches'
     385Watch1='DeleteSts.Success',256,0,18,1,1,'Watches'
    240386
    241387[WatchWindow]
    … …  
    245391Visible=1
    246392State=0
    247 Left=0
     393Left=12
    248394Top=0
    249 Width=820
    250 Height=192
    251 MaxLeft=-1
    252 MaxTop=-1
    253 ClientWidth=820
    254 ClientHeight=192
    255 TBDockHeight=103
     395Width=796
     396Height=131
     397MaxLeft=-1
     398MaxTop=-1
     399ClientWidth=796
     400ClientHeight=131
     401TBDockHeight=131
    256402LRDockWidth=421
    257403Dockable=1
    258404
    259405[Breakpoints]
    260 Count=52
     406Count=47
    261407Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1714,'',0,1,'',1,0,0,'',1,'','',''
    262408Breakpoint1='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1791,'',0,1,'',1,0,0,'',1,'','',''
    263409Breakpoint2='P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas',1068,'',0,1,'',1,0,0,'',1,'','',''
    264 Breakpoint3='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3289,'',0,1,'',1,0,0,'',1,'','',''
    265 Breakpoint4='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3295,'',0,1,'',1,0,0,'',1,'','',''
    266 Breakpoint5='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4389,'',0,1,'',1,0,0,'',1,'','',''
    267 Breakpoint6='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4830,'',0,1,'',1,0,0,'',1,'','',''
    268 Breakpoint7='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4850,'',0,1,'',1,0,0,'',1,'','',''
     410Breakpoint3='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3293,'',0,1,'',1,0,0,'',1,'','',''
     411Breakpoint4='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3299,'',0,1,'',1,0,0,'',1,'','',''
     412Breakpoint5='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4393,'',0,1,'',1,0,0,'',1,'','',''
     413Breakpoint6='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4834,'',0,1,'',1,0,0,'',1,'','',''
     414Breakpoint7='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4854,'',0,1,'',1,0,0,'',1,'','',''
    269415Breakpoint8='P:\vista\tmg-cprs\CPRS-Chart\fLabs.pas',2419,'',0,1,'',1,0,0,'',1,'','',''
    270416Breakpoint9='P:\vista\tmg-cprs\CPRS-Chart\fReports.pas',2966,'',0,1,'',1,0,0,'',1,'','',''
    … …  
    298444Breakpoint37='P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',254,'',0,1,'',1,0,0,'',1,'','',''
    299445Breakpoint38='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtQuery.pas',130,'',0,1,'',1,0,0,'',1,'','',''
    300 Breakpoint39='P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas',527,'',0,1,'',1,0,0,'',1,'','',''
    301 Breakpoint40='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1774,'',0,1,'',1,0,0,'',1,'','',''
    302 Breakpoint41='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1821,'',0,1,'',1,0,0,'',1,'','',''
    303 Breakpoint42='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1894,'',0,1,'',1,0,0,'',1,'','',''
    304 Breakpoint43='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',3718,'',0,1,'',1,0,0,'',1,'','',''
    305 Breakpoint44='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',4900,'',0,1,'',1,0,0,'',1,'','',''
    306 Breakpoint45='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',5167,'',0,1,'',1,0,0,'',1,'','',''
    307 Breakpoint46='P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas',724,'',0,1,'',1,0,0,'',1,'','',''
    308 Breakpoint47='P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas',748,'',0,1,'',1,0,0,'',1,'','',''
    309 Breakpoint48='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',2025,'',0,1,'',1,0,0,'',1,'','',''
    310 Breakpoint49='P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas',388,'',0,1,'',1,0,0,'',1,'','',''
    311 Breakpoint50='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',840,'',0,1,'',1,0,0,'',1,'','',''
    312 Breakpoint51='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',827,'',0,1,'',1,0,0,'',1,'','',''
     446Breakpoint39='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1821,'',0,1,'',1,0,0,'',1,'','',''
     447Breakpoint40='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',1894,'',0,1,'',1,0,0,'',1,'','',''
     448Breakpoint41='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',3718,'',0,1,'',1,0,0,'',1,'','',''
     449Breakpoint42='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',4900,'',0,1,'',1,0,0,'',1,'','',''
     450Breakpoint43='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',5167,'',0,1,'',1,0,0,'',1,'','',''
     451Breakpoint44='P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas',388,'',0,1,'',1,0,0,'',1,'','',''
     452Breakpoint45='P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas',827,'',0,1,'',1,0,0,'',1,'','',''
     453Breakpoint46='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',1550,'',0,1,'',1,0,0,'',1,'','',''
    313454
    314455[AddressBreakpoints]
    … …  
    397538Top=0
    398539Width=238
    399 Height=499
     540Height=536
    400541MaxLeft=-1
    401542MaxTop=-1
    402543ClientWidth=238
    403 ClientHeight=499
     544ClientHeight=536
    404545TBDockHeight=492
    405546LRDockWidth=246
    … …  
    407548SplitPos=114
    408549ArrangeBy=Name
    409 SelectedItem=Name
     550SelectedItem=Images
    410551ExpandedItems=Anchors,CalColors,Constraints,EdgeBorders,Font,Images,Options,PopupMenu
    411552HiddenCategories=Legacy
    … …  
    437578Visible=1
    438579State=0
    439 Left=6
    440 Top=183
     580Left=16
     581Top=179
    441582Width=321
    442583Height=521
    … …  
    471612[ObjectTree]
    472613Create=1
    473 Visible=0
     614Visible=1
    474615State=0
    475616Left=0
    476617Top=0
    477618Width=238
    478 Height=499
     619Height=536
    479620MaxLeft=-1
    480621MaxTop=-1
    481622ClientWidth=238
    482 ClientHeight=499
     623ClientHeight=536
    483624TBDockHeight=175
    484625LRDockWidth=246
    … …  
    613754Visible=1
    614755State=0
    615 Left=0
    616 Top=0
    617 Width=820
    618 Height=192
    619 MaxLeft=-1
    620 MaxTop=-1
    621 ClientWidth=820
    622 ClientHeight=192
    623 TBDockHeight=215
     756Left=12
     757Top=135
     758Width=796
     759Height=1
     760MaxLeft=-1
     761MaxTop=-1
     762ClientWidth=779
     763ClientHeight=1
     764TBDockHeight=1
    624765LRDockWidth=443
    625766Dockable=1
    626767
    627768[DockHosts]
    628 DockHostCount=2
     769DockHostCount=1
    629770
    630771[DockSite0]
    … …  
    633774Visible=1
    634775State=0
    635 Left=21
    636 Top=125
     776Left=45
     777Top=132
    637778Width=254
    638 Height=554
     779Height=591
    639780MaxLeft=-1
    640781MaxTop=-1
    641782ClientWidth=246
    642 ClientHeight=528
     783ClientHeight=565
    643784TBDockHeight=554
    644785LRDockWidth=254
    … …  
    648789TabDockClients=PropertyInspector,ObjectTree
    649790
    650 [DockSite1]
    651 DockSiteType=1
    652 Create=1
    653 Visible=1
    654 State=0
    655 Left=12
    656 Top=0
    657 Width=828
    658 Height=221
    659 MaxLeft=-1
    660 MaxTop=-1
    661 ClientWidth=828
    662 ClientHeight=221
    663 TBDockHeight=221
    664 LRDockWidth=283
    665 Dockable=1
    666 TabPosition=0
    667 ActiveTab=Messages
    668 TabDockClients=MessageView@EditWindow0,WatchWindow
    669 

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

    r819 r877  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 7/2/2010 7:47:03 PM from Type Library described below.
     15// File generated on 7/7/2010 12:05:45 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

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

    r793 r877  
    11inherited frmImages: TfrmImages
    2   Left = 118
    3   Top = 35
     2  Left = 157
     3  Top = 102
    44  Width = 848
    55  Height = 666
    … …  
    342342      OnChange = TabControlChange
    343343      OnGetImageIndex = TabControlGetImageIndex
     344      OnMouseUp = TabControlMouseUp
    344345      OnResize = TabControlResize
    345346    end
    … …  
    362363    LangData = {
    363364      090066726D496D61676573010200000001000000070043617074696F6E020000
    364       00080048656C7046696C6501250000000D0073687050616765426F74746F6D00
     365      00080048656C7046696C6501280000000D0073687050616765426F74746F6D00
    365366      000D00486F72697A53706C697474657200000600706E6C546F7000000B004275
    366367      74746F6E50616E656C0000120055706C6F6164496D61676573427574746F6E01
    … …  
    369370      000F0043757272656E744E6F74654D656D6F00000900706E6C426F74746F6D00
    370371      000A00546162436F6E74726F6C00000A0057656242726F77736572000008006D
    371       6E754E6F746573000007006D6E75566965770101000000040000000700436170
    372       74696F6E000C006D6E7556696577436861727401010000000500000007004361
    373       7074696F6E000D006D6E754368617274436F7665720101000000060000000700
    374       43617074696F6E000D006D6E75436861727450726F6273010100000007000000
    375       070043617074696F6E000C006D6E7543686172744D6564730101000000080000
    376       00070043617074696F6E000E006D6E7543686172744F72646572730101000000
    377       09000000070043617074696F6E000D006D6E7543686172744E6F746573010100
    378       00000A000000070043617074696F6E000D006D6E75436861727443736C747301
    379       010000000B000000070043617074696F6E000F006D6E75436861727453757267
    380       65727901010000000C000000070043617074696F6E000E006D6E754368617274
    381       444353756D6D01010000000D000000070043617074696F6E000C006D6E754368
    382       6172744C61627301010000000E000000070043617074696F6E000F006D6E7543
    383       686172745265706F72747301010000000F000000070043617074696F6E000200
    384       5A3300000D006D6E7549636F6E4C6567656E6401010000001000000007004361
    385       7074696F6E0006006D6E75416374010100000011000000070043617074696F6E
    386       00150055706C6F6164496D616765734D6E75416374696F6E0101000000120000
    387       00070043617074696F6E000A006D6E754F7074696F6E73010100000013000000
    388       070043617074696F6E0002004E3300000D0074696D4C6F6164496D6167657300
    389       000F005468756D6273496D6167654C697374000011004F70656E506963747572
    390       654469616C6F670001050000000C005069637475726550616E656C00000C0050
    391       6963747572654C6162656C00000D0050726576696577427574746F6E01010000
    392       0014000000040048696E74000A005061696E7450616E656C000008005061696E
    393       74426F7800000E004175746F5363616E55706C6F616401010000001500000007
    394       0043617074696F6E000E005069636B5363616E466F6C64657201010000001600
    395       0000070043617074696F6E000A004F70656E4469616C6F670000}
     372      6E754E6F74657300010100000002004E31000007006D6E755669657701010000
     373      0004000000070043617074696F6E000C006D6E75566965774368617274010100
     374      000005000000070043617074696F6E000D006D6E754368617274436F76657201
     375      0100000006000000070043617074696F6E000D006D6E75436861727450726F62
     376      73010100000007000000070043617074696F6E000C006D6E7543686172744D65
     377      6473010100000008000000070043617074696F6E000E006D6E7543686172744F
     378      7264657273010100000009000000070043617074696F6E000D006D6E75436861
     379      72744E6F74657301010000000A000000070043617074696F6E000D006D6E7543
     380      6861727443736C747301010000000B000000070043617074696F6E000F006D6E
     381      7543686172745375726765727901010000000C000000070043617074696F6E00
     382      0E006D6E754368617274444353756D6D01010000000D00000007004361707469
     383      6F6E000C006D6E7543686172744C61627301010000000E000000070043617074
     384      696F6E000F006D6E7543686172745265706F72747301010000000F0000000700
     385      43617074696F6E0002005A3300000D006D6E7549636F6E4C6567656E64010100
     386      000010000000070043617074696F6E0006006D6E754163740101000000110000
     387      00070043617074696F6E00150055706C6F6164496D616765734D6E7541637469
     388      6F6E010100000012000000070043617074696F6E000A006D6E754F7074696F6E
     389      73010100000013000000070043617074696F6E0002004E3300000D0074696D4C
     390      6F6164496D6167657300000F005468756D6273496D6167654C69737400001100
     391      4F70656E506963747572654469616C6F670001050000000C0050696374757265
     392      50616E656C00000C00506963747572654C6162656C00000D0050726576696577
     393      427574746F6E010100000014000000040048696E74000A005061696E7450616E
     394      656C000008005061696E74426F7800000E004175746F5363616E55706C6F6164
     395      010100000015000000070043617074696F6E000E005069636B5363616E466F6C
     396      646572010100000016000000070043617074696F6E000A004F70656E4469616C
     397      6F67000008006D6E75506F707570000011006D6E75506F7044656C657465496D
     398      616765010100000017000000070043617074696F6E000E006D6E7544656C6574
     399      65496D616765010100000018000000070043617074696F6E00}
    396400  end
    397401  object mnuNotes: TMainMenu
    … …  
    478482        Caption = '&Upload Images'
    479483        OnClick = UploadImagesButtonClick
     484      end
     485      object mnuDeleteImage: TMenuItem
     486        Caption = '&Delete Image'
     487        OnClick = mnuDeleteImageClick
    480488      end
    481489    end
    … …  
    68646872    Top = 16
    68656873  end
     6874  object mnuPopup: TPopupMenu
     6875    OnPopup = mnuPopupPopup
     6876    Left = 384
     6877    Top = 24
     6878    object mnuPopDeleteImage: TMenuItem
     6879      Caption = 'DeleteImage'
     6880      OnClick = mnuPopDeleteImageClick
     6881    end
     6882  end
    68666883end

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

    r809 r877  
    1212
    1313type
     14  TImgDelMode = (idmNone,idmDelete,idmRetract); //NOTE: DO NOT change order
    1415  TImageInfo = class
    1516    private
    … …  
    8182    PickScanFolder: TMenuItem;
    8283    OpenDialog: TOpenDialog;
     84    mnuPopup: TPopupMenu;
     85    mnuPopDeleteImage: TMenuItem;
     86    mnuDeleteImage: TMenuItem;
    8387    procedure mnuChartTabClick(Sender: TObject);
    8488    procedure mnuActNewClick(Sender: TObject);
    … …  
    96100    procedure EnableAutoScanUploadClick(Sender: TObject);
    97101    procedure PickScanFolderClick(Sender: TObject);
     102    procedure TabControlMouseUp(Sender: TObject; Button: TMouseButton;
     103      Shift: TShiftState; X, Y: Integer);
     104    procedure mnuPopupPopup(Sender: TObject);
     105    procedure mnuPopDeleteImageClick(Sender: TObject);
     106    procedure mnuDeleteImageClick(Sender: TObject);
    98107  private
    99108    ImageInfoList : TList;
    100109    LastDisplayedTIUIEN : AnsiString;
    101110    ImageIndexLastDownloaded : integer;
     111    FDeleteImageIndex : integer;
     112    FEditIsActive : boolean;
     113    FImageDeleteMode : TImgDelMode;
    102114    procedure EnsureImageListLoaded();
    103115    procedure ClearImageList();
    … …  
    112124    function GetImageInfo(Index : integer) : TImageInfo;
    113125    procedure SetupTimer;
     126    function CanDeleteImages : boolean;
     127    procedure DeleteImageIndex(ImageIndex : integer; DeleteMode : TImgDelMode; boolPromptUser: boolean);
     128    procedure DeleteImage(var DeleteSts: TActionRec; ImageFileName: string; ImageIEN, DocIEN: Integer;
     129                          DeleteMode : TImgDelMode; const Reason: string);
    114130  public
    115131    CacheDir : AnsiString;
    … …  
    134150    procedure EnsureImagesDownloaded(ImagesList : TStringList);
    135151    procedure EnsureALLImagesDownloaded;
     152    procedure DeleteAll(DeleteMode: TImgDelMode);
    136153    property ImagesCount : integer read GetImagesCount;
    137154    property ImageInfo[index : integer] : TImageInfo read GetImageInfo;
    … …  
    169186     FIconLegend, fPCEEdit, fNoteIDParents, rSurgery, uSurgery, uTemplates,
    170187     uAccessibleTreeView, uAccessibleTreeNode, fTemplateDialog, DateUtils,
    171      StrUtils {//KT added 1-1-05},
    172      mshtml,  {//kt added 5-2-05}
    173      UploadImages, {//kt added 9/25/05}
    174      //ImageTransferForm, {//kt 10-1-05}
     188     StrUtils, mshtml, UploadImages,
    175189     uTMGOptions,  //kt 3/10/10
    176      rHTMLTools, fNotes, frmImageTransferProgress;  {//kt added 5-27-05 for IsHTMLDocument}
     190     rHTMLTools, fNotes, frmImageTransferProgress, fImagePickExisting;  {//kt added 5-27-05 for IsHTMLDocument}
     191
     192
     193procedure TfrmImages.FormCreate(Sender: TObject);
     194//var i : integer;
     195begin
     196  inherited;
     197  LastDisplayedTIUIEN := '0';
     198  FDeleteImageIndex := -1;
     199  ImageInfoList := TList.Create;
     200  ClearImageList(); //sets up other needed variables.
     201  DownloadImagesInBackground := true;
     202  CacheDir := ExtractFilePath(ParamStr(0))+ 'Cache';
     203  NullImageName := 'about:blank';
     204  if not DirectoryExists(CacheDir) then ForceDirectories(CacheDir);
     205
     206  TransferMethod := TImgTransferMethod(uTMGOptions.ReadInteger('ImageTransferMethod',2));
     207  DropBoxDir := uTMGOptions.ReadString('Dropbox directory','??');
     208  if DropBoxDir='??' then begin  //just on first run.
     209    uTMGOptions.WriteBool('Use dropbox directory for transfers',false);
     210    uTMGOptions.WriteString('Dropbox directory','');
     211  end;
     212  AutoScanUpload.Checked := uTMGOptions.ReadBool('Scan Enabled',false);
     213end;
     214
     215procedure TfrmImages.FormDestroy(Sender: TObject);
     216begin
     217  inherited;
     218  ClearImageList;
     219  ImageInfoList.Free;
     220  EmptyCache;
     221end;
     222
     223procedure TfrmImages.FormShow(Sender: TObject);
     224var  TIUIEN : AnsiString;
     225begin
     226  inherited;
     227  mnuDeleteImage.Enabled := CanDeleteImages;
     228  TIUIEN := IntToStr(frmNotes.lstNotes.ItemID);
     229  DownloadImagesInBackground := false;
     230  SetupTimer;
     231  if LastDisplayedTIUIEN <> TIUIEN then begin
     232    UpdateNoteInfoMemo();
     233    LastDisplayedTIUIEN := TIUIEN;
     234  end;
     235end;
    177236
    178237
    … …  
    266325begin
    267326  inherited;
    268 end;
    269 
    270 procedure TfrmImages.FormCreate(Sender: TObject);
    271 //var i : integer;
    272 begin
    273   inherited;
    274   LastDisplayedTIUIEN := '0';
    275   ImageInfoList := TList.Create;
    276   ClearImageList(); //sets up other needed variables.
    277   DownloadImagesInBackground := true;
    278   CacheDir := ExtractFilePath(ParamStr(0))+ 'Cache';
    279   //NullImageName := ExtractFilePath(ParamStr(0)) + 'images\blank.htm';
    280   NullImageName := 'about:blank';
    281   if not DirectoryExists(CacheDir) then ForceDirectories(CacheDir);
    282 
    283   TransferMethod := TImgTransferMethod(uTMGOptions.ReadInteger('ImageTransferMethod',2));
    284   {if uTMGOptions.ReadInteger('ImageTransferMethod',0) = 0 then begin
    285      UseDropBox := True;
    286   end else begin
    287      UseDropBox := False;
    288   end;}
    289   DropBoxDir := uTMGOptions.ReadString('Dropbox directory','??');
    290   if DropBoxDir='??' then begin  //just on first run.
    291     uTMGOptions.WriteBool('Use dropbox directory for transfers',false);
    292     uTMGOptions.WriteString('Dropbox directory','');
    293   end;
    294   AutoScanUpload.Checked := uTMGOptions.ReadBool('Scan Enabled',false);
    295 end;
    296 
    297 procedure TfrmImages.FormDestroy(Sender: TObject);
    298 begin
    299   inherited;
    300   ClearImageList;
    301   ImageInfoList.Free;
    302   EmptyCache;
    303 end;
    304 
    305 procedure TfrmImages.FormShow(Sender: TObject);
    306 var  TIUIEN : AnsiString;
    307 begin
    308   inherited;
    309   TIUIEN := IntToStr(frmNotes.lstNotes.ItemID);
    310   DownloadImagesInBackground := false;
    311   SetupTimer;
    312   if LastDisplayedTIUIEN <> TIUIEN then begin
    313     UpdateNoteInfoMemo();
    314     LastDisplayedTIUIEN := TIUIEN;
    315   end;
    316327end;
    317328
    … …  
    475486procedure TfrmImages.ClearImageList();
    476487//Note: !! This should also clear any visible images/thumbnails etc.
     488//Note: Need to remove thumbnail image from image list.
    477489var i    : integer;
    478490begin
    … …  
    637649  end;
    638650
    639   // CallV('TMG UPLOAD FILE DROPBOX', ...);
     651  CallV('TMG UPLOAD FILE DROPBOX', [FPath,FName]);     //Move file into dropbox.
     652  {
    640653  RPCBrokerV.ClearParameters := true;
    641654  RPCBrokerV.remoteprocedure := 'TMG UPLOAD FILE DROPBOX';
    … …  
    647660  RPCBrokerV.Param[2].Value := '1'; //see comments in UploadFile re '1' hardcoding
    648661
    649   //RPCBrokerV.Call; //Move file into dropbox.
    650   CallBroker;
     662  CallBroker; //Move file into dropbox.
     663  }
    651664  if RPCBrokerV.Results.Count>0 then begin
    652665    Result := (Piece(RPCBrokerV.Results[0],'^',1)='1');  //1=success, 0=failure
    … …  
    700713  Application.ProcessMessages;
    701714
     715  RPCBrokerV.remoteprocedure := 'TMG UPLOAD FILE';
    702716  RPCBrokerV.ClearParameters := true;
    703717  RPCBrokerV.Param[0].PType := literal;
    … …  
    706720  RPCBrokerV.Param[1].Value := FName;
    707721  RPCBrokerV.Param[2].PType := literal;
    708   RPCBrokerV.Param[2].Value := '1';
    709   //Note: the '1' in the line above is hard-coding in to use
    710   //IEN=1 in file 2005.2 (NETWORK LOCATION).  This file will
    711   //instruct the server which relative path to store the file into
    712   //If I want to have more than one NETWORK LOCATION, then I would
    713   //need to create another RPC call that would determine which IEN
    714   //to use.
    715   //(This would be the same as the IEN stored in fields# 2, 2.1, 2.2
    716   // of file 2005 (IMAGE).  This in turn is originally obtained from
    717   //file IMAGING SITE PARAMETERS
     722  RPCBrokerV.Param[2].Value := ''; //kt 7/11/10
     723  //RPCBrokerV.Param[2].Value := '1'; //Specifying a NETWORK LOCATION is now depreciated.
    718724
    719725  RPCBrokerV.Param[3].PType := list;
    720 
    721726  ParamIndex := 0;
    722727  RefreshCountdown := RefreshInterval;
    … …  
    738743        RefreshCountdown := RefreshInterval;
    739744      end;
    740 
    741745    end;
    742746  until (ReadCount < BlockSize);
    743 
    744   RPCBrokerV.remoteprocedure := 'TMG UPLOAD FILE';
    745747
    746748  SavedCursor := Screen.Cursor;
    … …  
    750752
    751753  CallBroker;
     754
    752755  Screen.Cursor := SavedCursor;
    753756  if RPCBrokerV.Results.Count > 0 then begin
    … …  
    772775  ErrMsg          : string;
    773776begin
    774   // CallV('TMG DOWNLOAD FILE DROPBOX', ...);
    775   RPCBrokerV.ClearParameters := true;
     777  CallV('TMG DOWNLOAD FILE DROPBOX', [FPath,FName]);  //Move file into dropbox.
     778 {RPCBrokerV.ClearParameters := true;
    776779  RPCBrokerV.remoteprocedure := 'TMG DOWNLOAD FILE DROPBOX';
    777780  RPCBrokerV.param[0].PType := literal;
    … …  
    781784  RPCBrokerV.Param[2].PType := literal;
    782785  RPCBrokerV.Param[2].Value := '1'; //see comments in UploadFile re '1' hardcoding
    783 
    784   //RPCBrokerV.Call;  //Move file into dropbox.
    785   CallBroker;
     786  CallBroker; }
    786787  if RPCBrokerV.Results.Count > 0 then begin
    787788    Result := (Piece(RPCBrokerV.Results[0],'^',1)='1');  //1=success, 0=failure
    … …  
    835836    DeleteFile(LocalSaveFNamePath);
    836837  end;
    837   //if UseDropBox then begin
    838838  if TransferMethod = itmDropbox then begin
    839839    Result := DownloadFileViaDropBox(FPath,FName,LocalSaveFNamePath,CurrentImage,TotalImages);
    … …  
    843843  Result := true; //default to success;
    844844  StatusText('Retrieving full image...');
    845   //Note: the '1' in the line below is hard-coding in to use
    846   //IEN=1 in file 2005.2 (NETWORK LOCATION).  This file will
    847   //instruct the server which relative path to store the file into
    848   //If I want to have more than one NETWORK LOCATION, then I would
    849   //need to create another RPC call that would determine which IEN
    850   //to use.
    851   //(This would be the same as the IEN stored in fields# 2, 2.1, 2.2
    852   // of file 2005 (IMAGE).  This in turn is originally obtained from
    853   //file IMAGING SITE PARAMETERS
    854   CallV('TMG DOWNLOAD FILE', [FPath,FName,'1']);
     845  //kt CallV('TMG DOWNLOAD FILE', [FPath,FName,'1']); //kt 7/10/10 Specifying a NETWORK LOCATION is depreciated.
     846  CallV('TMG DOWNLOAD FILE', [FPath,FName]);
    855847  Application.ProcessMessages;
    856848  RefreshCountdown := RefreshInterval;
    … …  
    965957
    966958var
    967   //Result : AnsiString;  // RGZ1  //'Result' is implicitly declared by Pascal
    968   i : integer;               //RGZ2
    969   PlainTrio : longword;   //RGZ3   //unsigned 32-bit
    970   j : integer;               //RGZ4
     959  //Result : AnsiString;  //RGZ1  //'Result' is implicitly declared by Pascal
     960  i : integer;            //RGZ2
     961  PlainTrio : longword;   //RGZ3  //unsigned 32-bit
     962  j : integer;            //RGZ4
    971963  EncodedChar : char;
    972964  PlainInt : integer;
    … …  
    10271019  //If user selects images tab, then load will occur without delay.
    10281020  //Note: OnTimer calls timLoadImagesTimer()
     1021  FEditIsActive := EditIsActive;
    10291022  UploadImagesButton.Enabled := EditIsActive;
    10301023  UploadImagesMnuAction.Enabled := EditIsActive;
    … …  
    13471340
    13481341
     1342procedure TfrmImages.TabControlMouseUp(Sender: TObject; Button: TMouseButton;
     1343                                       Shift: TShiftState; X, Y: Integer);
     1344//kt add 7/6/10
     1345var TabIndex : integer;
     1346    P : TPoint;
     1347begin
     1348  inherited;
     1349  if Button <> mbRight then exit;
     1350  TabIndex := TabControl.IndexOfTabAt(X,Y);
     1351  if TabIndex < 0 then exit;
     1352  FDeleteImageIndex := TabIndex;
     1353  P.X := X; P.Y := Y;
     1354  P := TabControl.ClientToScreen(P);
     1355  TabControl.PopupMenu := mnuPopup;
     1356  mnuPopup.Popup(P.X, P.Y);
     1357  TabControl.PopupMenu := nil;
     1358end;
     1359
     1360procedure TfrmImages.mnuPopupPopup(Sender: TObject);
     1361//Determine here if delete option should be enabled.
     1362begin
     1363  inherited;
     1364  mnuPopDeleteImage.Enabled := CanDeleteImages;
     1365end;
     1366
     1367function TfrmImages.CanDeleteImages : boolean;
     1368//Determine here if image can be deleted.
     1369var
     1370  ActionSts: TActionRec;
     1371const
     1372  ATTACHED_IMAGES_SERVER_REPLY = 'You must "delete" the Images using the Imaging package before proceeding.';
     1373begin
     1374  FImageDeleteMode := idmNone;
     1375  Result := false; //default action
     1376  if FEditIsActive then begin
     1377    Result := true;
     1378    FImageDeleteMode := idmDelete;
     1379    exit;
     1380  end;
     1381  //Will use same user class managment rules for images as for notes.
     1382  //So if user can delete a note, then they can also delete images.
     1383  ActOnDocument(ActionSts, frmNotes.lstNotes.ItemIEN, 'DELETE RECORD');
     1384  if (ActionSts.Success = false) then begin
     1385    if Pos(ATTACHED_IMAGES_SERVER_REPLY, ActionSts.Reason) > 0 then ActionSts.Success := true;
     1386  end;
     1387  Result := ActionSts.Success;
     1388  if Result then begin
     1389    if AuthorSignedDocument(frmNotes.lstNotes.ItemIEN) then FImageDeleteMode := idmRetract
     1390    else FImageDeleteMode := idmDelete;
     1391  end;
     1392end;
     1393
     1394procedure TfrmImages.mnuPopDeleteImageClick(Sender: TObject);
     1395begin
     1396  inherited;
     1397  DeleteImageIndex(FDeleteImageIndex, FImageDeleteMode, True);
     1398end;
     1399
     1400procedure TfrmImages.DeleteAll(DeleteMode: TImgDelMode);
     1401begin
     1402  EnsureALLImagesDownloaded;
     1403  while TabControl.Tabs.Count > 0 do begin
     1404    DeleteImageIndex(0,DeleteMode,False);
     1405    NewNoteSelected(False);
     1406    EnsureALLImagesDownloaded;
     1407    frmImages.Formshow(self);
     1408  end;
     1409end;
     1410
     1411
     1412procedure TfrmImages.DeleteImageIndex(ImageIndex : integer; DeleteMode : TImgDelMode; boolPromptUser: boolean);
     1413//Note: permissions must be checked before running this function
     1414var
     1415  ImageInfo : TImageInfo;
     1416  ReasonForDelete : string;
     1417  DeleteSts : TActionRec;
     1418
     1419CONST
     1420  TMG_PRIVACY  = 'FOR PRIVACY';  //Server message (don't translate)
     1421  TMG_ADMIN    = 'ADMINISTRATIVE'; //Server message (don't translate)
     1422
     1423begin
     1424  if (ImageIndex<0) or (ImageIndex>=ImagesCount) then begin
     1425    MessageDlg('Invalid image index to delete: '+IntToStr(ImageIndex), mtError,[mbOK],0);
     1426    exit;
     1427  end;
     1428  ImageInfo := Self.ImageInfo[ImageIndex];
     1429  if boolPromptUser then begin
     1430    ReasonForDelete := SelectDeleteReason(frmNotes.lstNotes.ItemIEN);
     1431    if ReasonForDelete = DR_CANCEL then Exit;
     1432    if ReasonForDelete = DR_PRIVACY then begin
     1433      ReasonForDelete := TMG_PRIVACY;
     1434    end else if ReasonForDelete = DR_ADMIN then begin
     1435      ReasonForDelete := TMG_ADMIN;
     1436    end;
     1437  end else begin
     1438    ReasonForDelete := 'DeleteAll';
     1439  end;
     1440
     1441  DeleteImage(DeleteSts, ImageInfo.ServerFName, ImageInfo.IEN, frmNotes.lstNotes.ItemIEN, DeleteMode, ReasonForDelete);
     1442end;
     1443
     1444procedure TfrmImages.DeleteImage(var DeleteSts: TActionRec;
     1445                                 ImageFileName: String;
     1446                                 ImageIEN, DocIEN: Integer;
     1447                                 DeleteMode : TImgDelMode;
     1448                                 const Reason: string);  //Reason should be 10-60 chars;
     1449
     1450  function ServerImageDelete(ImageIEN:integer; DeleteMode:tImgDelMode; Reason:String) : boolean;
     1451  //Returns success
     1452  var RPCResult,IEN,Mode : string;
     1453  begin
     1454    IEN := IntToStr(ImageIEN);
     1455    Mode := IntToStr(Ord(DeleteMode));
     1456    RPCResult := sCallV('TMG IMAGE DELETE', [IEN,Mode,Reason]);
     1457    Result := Piece(RPCResult,'^',1)= '1';
     1458    if Result = false then begin
     1459      MessageDlg(Piece(RPCResult,'^',2),mtError,[mbOK],0);
     1460    end;
     1461  end;
     1462
     1463  procedure NoteImageDelete(DocIEN:integer; FileName: string; DeleteMode:tImgDelMode; Reason:String);
     1464  var
     1465     NoteText, tempString: string;
     1466     Beginning, Ending: integer;
     1467     boolFound: boolean;
     1468  // <!-- Retracted By: UserName on Date  ...;..   -->
     1469  // FEditIsActive
     1470  begin
     1471     if FEditIsActive then begin
     1472       Ending := 1;
     1473       Beginning := 1;
     1474       boolFound := False;
     1475       While (boolFound = False) AND (Beginning > 0) Do Begin
     1476         NoteText := frmNotes.HtmlEditor.HTMLText;
     1477         Beginning := PosEx('<IMG',NoteText, Ending);
     1478         Ending :=  PosEx('>', NoteText, Beginning) + 1;
     1479         tempString := MidStr(NoteText, Beginning, Ending-Beginning);
     1480         if pos(FileName,tempString) > 0 then boolFound := True;
     1481       end;
     1482       if boolFound = false then  begin
     1483         Ending := 1;
     1484         Beginning := 1;
     1485         boolFound := False;
     1486         While (boolFound = False) AND (Beginning > 0) Do Begin
     1487           NoteText := frmNotes.HtmlEditor.HTMLText;
     1488           Beginning := PosEx('<embed',NoteText, Ending);
     1489           Ending :=  PosEx('>', NoteText, Beginning) + 1;
     1490           tempString := MidStr(NoteText, Beginning, Ending-Beginning);
     1491           if pos(FileName,tempString) > 0 then boolFound := True;
     1492         end;
     1493       end;
     1494       if boolFound = False then exit;
     1495       if DeleteMode = idmDelete then begin
     1496         frmnotes.HtmlEditor.HTMLText := AnsiReplaceStr(frmNotes.HtmlEditor.HTMLText, tempString, '');
     1497       end else if DeleteMode = idmRetract then begin
     1498         frmnotes.HtmlEditor.HTMLText := AnsiReplaceStr(frmNotes.HtmlEditor.HTMLText, tempString, ' <!-- ' + tempString + ' Retracted By: ' + User.Name + ' on ' +  DateToStr(Now));
     1499       end;
     1500       //ClearImageList;
     1501       //EmptyCache;
     1502       //frmImages.FormHide(self);
     1503       //LastDisplayedTIUIEN := '0';
     1504       //frmImages.Formshow(self);
     1505       NewNoteSelected(True);
     1506       frmImages.Formshow(self);
     1507     end else begin
     1508       //NewNoteSelected(True);
     1509       //frmImages.Formshow(self);
     1510     end;
     1511  end;
     1512
     1513begin
     1514  //'Permanently delete attached image or file?'
     1515  //Create dialog that gives option to export before deleting?
     1516  //"You are about to permanently delete this image. Would you like to export before deletion? Yes/No/Cancel
     1517  //Yes = export dialog then delete (if export is later cancelled assume cancel was pressed here), No=Only Delete, Cancel = No deletion
     1518  if Reason <> 'DeleteAll' then begin
     1519    if MessageDlg(DKLangConstW('fImages_ConfirmDelete'),mtConfirmation,mbOKCancel,0) <> mrOK then exit;
     1520  end;
     1521  if ServerImageDelete(ImageIEN,DeleteMode,Reason) = false then exit;
     1522  NoteImageDelete(DocIEN,ImageFileName,DeleteMode,Reason);
     1523  if DeleteMode = idmRetract then begin
     1524    InfoBox(DKLangConstW('fImages_Retract_1')+CRLF + // 'This image or file will now be RETRACTED.  As such, it has been'
     1525            DKLangConstW('fImages_Retract_2')+CRLF + // 'removed from public view, and from typical Releases of Information,'
     1526            DKLangConstW('fImages_Retract_2'),      // ' but will remain indefinitely discoverable to HIMS.' +CRLF +CRLF;
     1527            DKLangConstW('fImages_Retraction_Notice'),MB_OK);
     1528  end;
     1529end;
     1530
     1531
     1532procedure TfrmImages.mnuDeleteImageClick(Sender: TObject);
     1533var
     1534   SelectedImageTab,i : integer;
     1535   ImageInfo : TImageInfo;
     1536begin
     1537  inherited;
     1538  If TabControl.Tabs.Count < 1 then exit;
     1539  frmImagePickExisting := TfrmImagePickExisting.Create(Self);
     1540  if frmImagePickExisting.ShowModal = mrOK then begin
     1541    //ImageFName := frmImagePickExisting.SelectedImageFName;
     1542    if not assigned(frmImagePickExisting.SelectedImageInfo) then exit;
     1543    for i := 0 to TabControl.Tabs.Count - 1 do begin
     1544      ImageInfo := Self.ImageInfo[i];
     1545      if frmImagePickExisting.SelectedImageInfo.ServerFName = ImageInfo.ServerFName then begin
     1546        SelectedImageTab := i;
     1547      end;
     1548    end;
     1549    if frmNotes.HTMLEditor.Active then begin
     1550      FEditIsActive := true;
     1551      DeleteImageIndex(SelectedImageTab,idmDelete,True);
     1552    end else begin
     1553      FEditIsActive := false;
     1554      DeleteImageIndex(SelectedImageTab,idmRetract,True);
     1555    end;
     1556    NewNoteSelected(False);
     1557    EnsureALLImagesDownloaded;
     1558    frmImages.Formshow(self);
     1559  end;
     1560  FreeAndNil(frmImagePickExisting);
     1561end;
     1562
    13491563initialization
    13501564  //put init code here

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

    r453 r877  
    291291  frmNoteProperties: TfrmNoteProperties;
    292292begin
    293   SetupVars;  //kt added 8/26/2007 to replace constants with vars.
    294   SetupVars;  //kt added 8/26/2007 to replace constants with vars.
    295293  SetupVars;  //kt added 8/26/2007 to replace constants with vars.
    296294  frmNoteProperties := TfrmNoteProperties.Create(Application);

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

    r819 r877  
    11inherited frmNotes: TfrmNotes
    2   Left = 272
    3   Top = 105
    4   Width = 490
    5   Height = 358
     2  Left = 358
     3  Top = 124
     4  Width = 593
     5  Height = 398
    66  HelpContext = 5000
    77  Caption = 'Progress Notes Page'
    … …  
    1616  TextHeight = 13
    1717  inherited shpPageBottom: TShape
    18     Top = 299
    19     Width = 482
     18    Top = 339
     19    Width = 585
    2020  end
    2121  inherited sptHorz: TSplitter
    2222    Left = 64
    23     Height = 299
     23    Height = 339
    2424    OnCanResize = sptHorzCanResize
    2525  end
    2626  inherited pnlLeft: TPanel
    2727    Width = 64
    28     Height = 299
     28    Height = 339
    2929    object lblNotes: TOROffsetLabel
    3030      Left = 0
    … …  
    4343    object lblSpace1: TLabel
    4444      Left = 0
    45       Top = 254
     45      Top = 294
    4646      Width = 64
    4747      Height = 3
    … …  
    5252    object cmdNewNote: TORAlignButton
    5353      Left = 0
    54       Top = 257
     54      Top = 297
    5555      Width = 64
    5656      Height = 21
    … …  
    6464    object cmdPCE: TORAlignButton
    6565      Left = 0
    66       Top = 278
     66      Top = 318
    6767      Width = 64
    6868      Height = 21
    … …  
    7979      Top = 19
    8080      Width = 64
    81       Height = 235
     81      Height = 275
    8282      Align = alClient
    8383      BevelOuter = bvNone
    … …  
    8585      object splDrawers: TSplitter
    8686        Left = 0
    87         Top = 232
     87        Top = 272
    8888        Width = 64
    8989        Height = 3
    … …  
    115115        Top = 0
    116116        Width = 64
    117         Height = 232
     117        Height = 272
    118118        Align = alClient
    119119        Constraints.MinWidth = 30
    … …  
    142142  inherited pnlRight: TPanel
    143143    Left = 68
    144     Width = 414
    145     Height = 299
     144    Width = 517
     145    Height = 339
    146146    object sptVert: TSplitter
    147147      Left = 0
    148       Top = 250
    149       Width = 414
     148      Top = 290
     149      Width = 517
    150150      Height = 4
    151151      Cursor = crVSplit
    … …  
    154154    object memPCEShow: TRichEdit
    155155      Left = 0
    156       Top = 254
    157       Width = 414
     156      Top = 294
     157      Width = 517
    158158      Height = 45
    159159      Align = alBottom
    … …  
    170170      Left = 0
    171171      Top = 0
    172       Width = 414
    173       Height = 250
     172      Width = 517
     173      Height = 290
    174174      Align = alClient
    175175      BevelOuter = bvNone
    … …  
    180180        Left = 0
    181181        Top = 0
    182         Width = 414
     182        Width = 517
    183183        Height = 67
    184184        Align = alTop
    … …  
    187187        OnResize = pnlFieldsResize
    188188        DesignSize = (
    189           414
     189          517
    190190          67)
    191191        object bvlNewTitle: TBevel
    … …  
    209209        end
    210210        object lblAuthor: TStaticText
    211           Left = 196
     211          Left = 299
    212212          Top = 6
    213213          Width = 152
    … …  
    232232        end
    233233        object lblCosigner: TStaticText
    234           Left = 101
     234          Left = 204
    235235          Top = 21
    236236          Width = 243
    … …  
    275275        end
    276276        object cmdChange: TButton
    277           Left = 350
     277          Left = 453
    278278          Top = 6
    279279          Width = 58
    … …  
    288288          Left = 48
    289289          Top = 40
    290           Width = 360
     290          Width = 463
    291291          Height = 21
    292292          Hint = 'Subject is limited to a maximum of 80 characters.'
    … …  
    303303        Left = 0
    304304        Top = 67
    305         Width = 414
    306         Height = 183
     305        Width = 517
     306        Height = 223
    307307        Align = alClient
    308308        BevelOuter = bvNone
    … …  
    312312          Left = 0
    313313          Top = 0
    314           Width = 414
    315           Height = 183
     314          Width = 517
     315          Height = 223
    316316          Align = alClient
    317317          Font.Charset = DEFAULT_CHARSET
    … …  
    335335        Left = 0
    336336        Top = 67
    337         Width = 414
    338         Height = 183
     337        Width = 517
     338        Height = 223
    339339        Align = alClient
    340340        BevelOuter = bvNone
    … …  
    345345          Left = 0
    346346          Top = 25
    347           Width = 414
    348           Height = 158
     347          Width = 517
     348          Height = 198
    349349          Align = alClient
    350350          BevelOuter = bvNone
    … …  
    354354          Left = 0
    355355          Top = 0
    356           Width = 414
     356          Width = 517
    357357          Height = 25
    358358          AutoSize = True
    … …  
    814814      Left = 0
    815815      Top = 0
    816       Width = 414
    817       Height = 250
     816      Width = 517
     817      Height = 290
    818818      Align = alClient
    819819      BevelOuter = bvNone
    … …  
    823823        Left = 0
    824824        Top = 0
    825         Width = 414
     825        Width = 517
    826826        Height = 19
    827827        Align = alTop
    … …  
    835835        Left = 0
    836836        Top = 113
    837         Width = 414
     837        Width = 517
    838838        Height = 3
    839839        Cursor = crVSplit
    … …  
    843843        Left = 0
    844844        Top = 116
    845         Width = 414
    846         Height = 134
     845        Width = 517
     846        Height = 174
    847847        TabStop = False
    848848        Align = alClient
    849849        TabOrder = 2
    850850        ControlData = {
    851           4C000000CA2A0000D90D00000000000000000000000000000000000000000000
     851          4C0000006F350000FC1100000000000000000000000000000000000000000000
    852852          000000004C000000000000000000000001000000E0D057007335CF11AE690800
    853853          2B2E126208000000000000004C0000000114020000000000C000000000000046
    … …  
    858858        Left = 0
    859859        Top = 116
    860         Width = 414
    861         Height = 134
     860        Width = 517
     861        Height = 174
    862862        Align = alClient
    863863        Color = clCream
    … …  
    885885        Left = 0
    886886        Top = 19
    887         Width = 414
     887        Width = 517
    888888        Height = 94
    889889        Align = alTop
    … …  
    934934        Left = 0
    935935        Top = 116
    936         Width = 414
    937         Height = 134
     936        Width = 517
     937        Height = 174
    938938        Align = alClient
    939939        BevelOuter = bvNone

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

    r819 r877  
    184184    mnuSelectExistingImage: TMenuItem;
    185185    mnuAddNewImage: TMenuItem;
    186     mnuSearchNotes: TMenuItem;                //kt 4/10
     186    mnuSearchNotes: TMenuItem;                //kt 7/5/10
    187187    procedure mnuChartTabClick(Sender: TObject);
    188188    procedure lstNotesClick(Sender: TObject);
    … …  
    665665    case BOOLCHAR[frmFrame.CCOWContextChanging] of
    666666      '1': begin
    667              if ((vmHTML in FViewMode) and (HTMLEditor.Text <> ''))                 //kt 8/09
    668                or ((not (vmHTML in FViewMode)) and (memNewNote.GetTextLen > 0 )) then begin  //kt
     667             {if ((vmHTML in FViewMode) and (HTMLEditor.Text <> ''))                 //kt 8/09
     668               or ((not (vmHTML in FViewMode)) and (memNewNote.GetTextLen > 0 )) then begin  //kt }
     669             if EditorHasText then begin  //kt 7/10                 
    669670//             WhyNot := WhyNot + 'A note in progress will be saved as unsigned.  '  <-- original line.  //kt 7/19/2007
    670671               WhyNot := WhyNot + DKLangConstW('fNotes_A_note_in_progress_will_be_saved_as_unsignedx') //kt added 7/19/2007
    … …  
    698699               end;
    699700           end;
    700     end;
    701 end;
    702 
    703 procedure TfrmNotes.LstNotesToPrint;       
     701    end; {case}
     702end;
     703
     704procedure TfrmNotes.LstNotesToPrint;
    704705var
    705706  AParentID: string;
    … …  
    709710  inherited;
    710711  if not uIDNotesActive then exit;
    711   if lstNotes.ItemIEN = 0 then exit;           
     712  if lstNotes.ItemIEN = 0 then exit;
    712713  SavedDocID := lstNotes.ItemID;
    713714  if EditingIndex <> -1 then
    … …  
    17591760  DisplayPCE;                          //kt 5-31-05 (move down from above)
    17601761  BroadcastImages(Note);               //kt 8/09
    1761 
    1762   //-----------------------------
    1763   //kt RESTORE LATER... frmImages.NewNoteSelected(lstNotes.ItemIndex=EditingIndex);  //kt added 9-20-05
    17641762end;
    17651763
    … …  
    18021800begin
    18031801  if (vmHTML in FViewMode) then begin
    1804     Result := (HTMLViewer.Text <> '');
     1802    //kt Result := (HTMLViewer.Text <> '');
     1803    Result := (HTMLEditor.Text <> ''); // kt 7/10
    18051804  end else begin
    1806     Result := (memNote.Lines.Count > 0);
     1805    //kt Result := (memNote.Lines.Count > 0);
     1806    Result := (memNewNote.GetTextLen > 0);  //kt 7/10
    18071807  end;
    18081808end;
    … …  
    24772477  ReasonForDelete, AVisitStr, SavedDocID, x: string;
    24782478  Saved: boolean;
     2479const
     2480  ATTACHED_IMAGES_SERVER_REPLY = 'You must "delete" the Images using the Imaging package before proceeding.';
    24792481begin
    24802482  SetupVars;  //kt added 7/19/2007 to replace constants with vars.
    … …  
    24822484  if lstNotes.ItemIEN = 0 then Exit;
    24832485  ActOnDocument(ActionSts, lstNotes.ItemIEN, 'DELETE RECORD');
     2486  if Pos(ATTACHED_IMAGES_SERVER_REPLY, ActionSts.Reason) > 0 then ActionSts.Success := true;  //elh 7-13-10
    24842487  if ShowMsgOn(not ActionSts.Success, ActionSts.Reason, TX_IN_AUTH) then Exit;
    24852488  ReasonForDelete := SelectDeleteReason(lstNotes.ItemIEN);
    24862489  if ReasonForDelete = DR_CANCEL then Exit;
     2490  if Pos(ATTACHED_IMAGES_SERVER_REPLY, ActionSts.Reason) > 0 then frmImages.DeleteAll(idmDelete);  //elh 7-13-10
    24872491  // suppress prompt for deletion when called from SaveEditedNote (Sender = Self)
    24882492  if (Sender <> Self) and (InfoBox(MakeNoteDisplayText(lstNotes.Items[lstNotes.ItemIndex]) + TX_DEL_OK,
    … …  
    48994903  if frmPtDocSearch.ShowModal > -1 then begin
    49004904    //open diff note it selected
    4901 
    49024905  end;
    49034906  frmPtDocSearch.Free;
    … …  
    49084911//Effect changing note by simulating a notification click.
    49094912begin
     4913  //implement later
    49104914end;
    49114915
Note: See TracChangeset for help on using the changeset viewer.