Changeset 493


Ignore:
Timestamp:
Sep 17, 2008, 5:49:40 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

adding new RPC broker

Location:
cprs/branches/GUI-config
Files:
10 edited
1 copied

Legend:

Unmodified
Added
Removed

  • cprs/branches/GUI-config/BatchAddU.pas

    r476 r493  
    8080implementation
    8181
    82 uses CreateTemplateU, StrUtils,ORNet, ORFn, Trpcb, FMErrorU;
     82uses CreateTemplateU, StrUtils, ORNet, ORFn, Trpcb, FMErrorU;
    8383
    8484const NOT_ADDED='(Not Added)';

  • cprs/branches/GUI-config/DebugU.dfm

    r488 r493  
    5252    Align = alBottom
    5353    TabOrder = 2
     54    Visible = False
    5455    DesignSize = (
    5556      510

  • cprs/branches/GUI-config/GUI_Config.cfg

    r476 r493  
    3434-LE"c:\program files\borland\delphi7\Projects\Bpl"
    3535-LN"c:\program files\borland\delphi7\Projects\Bpl"
    36 -U"P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff"
    37 -O"P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff"
    38 -I"P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff"
    39 -R"P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff"
     36-U"P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff;P:\vista\tmg-cprs\BDK32;P:\vista\tmg-cprs\BDK32\Source"
     37-O"P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff;P:\vista\tmg-cprs\BDK32;P:\vista\tmg-cprs\BDK32\Source"
     38-I"P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff;P:\vista\tmg-cprs\BDK32;P:\vista\tmg-cprs\BDK32\Source"
     39-R"P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff;P:\vista\tmg-cprs\BDK32;P:\vista\tmg-cprs\BDK32\Source"
    4040-DUSE_SKINS
    4141-w-UNSAFE_TYPE

  • cprs/branches/GUI-config/GUI_Config.dof

    r488 r493  
    9595PackageDLLOutputDir=
    9696PackageDCPOutputDir=
    97 SearchPath=P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff
     97SearchPath=P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff;P:\vista\tmg-cprs\BDK32;P:\vista\tmg-cprs\BDK32\Source
    9898Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclaxserver;TntUnicodeVcl_R70;dcldklang7;dklang7;PNGpackage
    9999Conditionals=USE_SKINS
    … …  
    142142Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
    143143[HistoryLists\hlSearchPath]
    144 Count=10
    145 Item0=P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff
    146 Item1=P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib\dcu
    147 Item2=C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib\dcu;P:\Vista\GUI-config\SkinStuff
    148 Item3=C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib\dcu;C:\Program Files\Borland\Delphi7\Projects\TPNGGraphics;P:\Vista\GUI-config\SkinStuff
    149 Item4=C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib\dcu;C:\Program Files\Borland\Delphi7\Projects\TPNGGraphics
    150 Item5=C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib\dcu
    151 Item6=C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib
    152 Item7=..\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\TPNGGraphics;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-1.0.23.15\Broker;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-1.0.23.15\Broker\Source;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-1.0.23.15\Broker\D6
    153 Item8=..\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\TPNGGraphics
    154 Item9=..\CPRS-Lib
     144Count=11
     145Item0=P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff;P:\vista\tmg-cprs\BDK32;P:\vista\tmg-cprs\BDK32\Source
     146Item1=P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff
     147Item2=P:\Vista\GUI-config\CPRS-Lib;P:\Vista\GUI-config\CPRS-Lib\DCU;P:\Vista\GUI-config\SkinStuff;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib\dcu
     148Item3=C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib\dcu;P:\Vista\GUI-config\SkinStuff
     149Item4=C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib\dcu;C:\Program Files\Borland\Delphi7\Projects\TPNGGraphics;P:\Vista\GUI-config\SkinStuff
     150Item5=C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib\dcu;C:\Program Files\Borland\Delphi7\Projects\TPNGGraphics
     151Item6=C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib\dcu
     152Item7=C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib
     153Item8=..\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\TPNGGraphics;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-1.0.23.15\Broker;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-1.0.23.15\Broker\Source;C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-1.0.23.15\Broker\D6
     154Item9=..\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\TPNGGraphics
     155Item10=..\CPRS-Lib
    155156[HistoryLists\hlUnitOutputDirectory]
    156157Count=1

  • cprs/branches/GUI-config/GUI_Config.dpr

    r488 r493  
    2828  Forms,
    2929  MainU in 'MainU.pas' {MainForm},
    30   ORNet in '..\CPRS-Lib\ORNet.pas',
    3130  ORFn in '..\CPRS-Lib\ORFn.pas',
    3231  frmSplash in 'frmSplash.pas' {SplashForm},

  • cprs/branches/GUI-config/GUI_Config.dsk

    r488 r493  
    11[Closed Files]
    2 File_0=SourceModule,'P:\Vista\GUI-config\MainU.dfm',0,1,1,1,1,0,0
    3 File_1=SourceModule,'P:\Vista\GUI-config\SkinStuff\ipSkinManager.dcu',0,1,1,11,5,0,0
    4 File_2=SourceModule,'P:\Vista\GUI-config\PostU.pas',0,1,162,47,166,0,0
    5 File_3=SourceModule,'P:\Vista\GUI-config\SelDateTimeU.pas',0,1,1,1,5,0,0
    6 File_4=SourceModule,'C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib\ORFn.pas',0,1,610,1,621,0,0
    7 File_5=SourceModule,'C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib\ORCtrls.pas',0,1,1171,1,1182,0,0
    8 File_6=SourceModule,'c:\program files\borland\delphi7\projects\vista\cprs-1.0.23.15\broker\source\Trpcb.pas',0,1,1013,1,1021,0,0
    9 File_7=SourceModule,'C:\Program Files\Borland\Delphi7\Projects\Vista\CPRS-Lib\ORNet.pas',0,1,53,1,65,0,0
     2File_0=SourceModule,'P:\vista\tmg-cprs\BDK32\Source\wsockc.pas',0,1,1464,17,1475,0,0
     3File_1=SourceModule,'P:\Vista\GUI-config\MainU.dfm',0,1,1,1,1,0,0
     4File_2=SourceModule,'P:\vista\GUI-config\SkinFormU.pas',0,1,1,1,1,1,1
     5File_3=SourceModule,'P:\Vista\GUI-config\LookupU.dfm',0,1,1,1,1,0,0
     6File_4=SourceModule,'P:\vista\tmg-cprs\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas',0,1,124,29,11,0,0
     7File_5=SourceModule,'C:\Program Files\VISTA\BDK32_is_this_old\Source\Trpcb.pas',0,1,43,1,53,0,0
     8File_6=SourceModule,'P:\vista\GUI-config\CPRS-Lib\ORNet.pas',0,1,188,21,195,0,0
     9File_7=SourceModule,'C:\PROGRA~1\VISTA\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas',0,1,1109,31,1120,0,0
     10File_8=SourceModule,'c:\program files\borland\delphi7\source\vcl\OleCtrls.pas',0,1,86,12,92,0,0
     11File_9=SourceModule,'c:\program files\borland\delphi7\source\rtl\Win\ShellAPI.pas',0,1,1,1,1,0,0
    1012
    1113[Modules]
    12 Module0=P:\Vista\GUI-config\MainU.pas
    13 Module1=P:\vista\GUI-config\DebugU.pas
    14 Module2=P:\Vista\GUI-config\GUI_Config.dpr
     14Module0=P:\vista\GUI-config\GUI_Config.dpr
     15Module1=P:\Vista\GUI-config\MainU.pas
     16Module2=P:\vista\GUI-config\DebugU.pas
    1517Module3=P:\Vista\GUI-config\CPRS-Lib\ORCtrls.pas
    16 Module4=P:\Vista\GUI-config\SkinFormU.pas
    17 Module5=P:\Vista\GUI-config\SubfilesU.pas
     18Module4=P:\Vista\GUI-config\SubfilesU.pas
     19Module5=P:\Vista\GUI-config\CPRS-Lib\ORFn.pas
    1820Module6=P:\Vista\GUI-config\BatchAddU.pas
    1921Module7=P:\Vista\GUI-config\frmSplash.pas
    20 Module8=c:\program files\borland\delphi7\source\rtl\Win\ShellAPI.pas
    21 Module9=c:\program files\borland\delphi7\source\vcl\OleCtrls.pas
    22 Module10=P:\Vista\GUI-config\LookupU.pas
    23 Count=11
     22Module8=P:\vista\GUI-config\SkinFormU.dfm
     23Module9=P:\vista\GUI-config\CreateTemplateU.pas
     24Module10=P:\vista\GUI-config\EditTextU.pas
     25Module11=P:\vista\GUI-config\PostU.pas
     26Module12=P:\vista\GUI-config\SetSelU.pas
     27Module13=P:\Vista\GUI-config\LookupU.pas
     28Count=14
    2429EditWindowCount=1
    2530
     31[P:\vista\GUI-config\GUI_Config.dpr]
     32ModuleType=SourceModule
     33FormState=0
     34FormOnTop=0
     35
    2636[P:\Vista\GUI-config\MainU.pas]
    2737ModuleType=SourceModule
    … …  
    3444FormOnTop=0
    3545
    36 [P:\Vista\GUI-config\GUI_Config.dpr]
    37 ModuleType=SourceModule
    38 FormState=0
    39 FormOnTop=0
    40 
    4146[P:\Vista\GUI-config\CPRS-Lib\ORCtrls.pas]
    4247ModuleType=SourceModule
    … …  
    4449FormOnTop=0
    4550
    46 [P:\Vista\GUI-config\SkinFormU.pas]
     51[P:\Vista\GUI-config\SubfilesU.pas]
    4752ModuleType=SourceModule
    4853FormState=1
    4954FormOnTop=0
    5055
    51 [P:\Vista\GUI-config\SubfilesU.pas]
     56[P:\Vista\GUI-config\CPRS-Lib\ORFn.pas]
     57ModuleType=SourceModule
     58FormState=0
     59FormOnTop=0
     60
     61[P:\Vista\GUI-config\BatchAddU.pas]
    5262ModuleType=SourceModule
    5363FormState=1
    5464FormOnTop=0
    5565
    56 [P:\Vista\GUI-config\BatchAddU.pas]
    57 ModuleType=SourceModule
    58 FormState=1
    59 FormOnTop=0
    60 
    6166[P:\Vista\GUI-config\frmSplash.pas]
    6267ModuleType=SourceModule
    … …  
    6469FormOnTop=0
    6570
    66 [c:\program files\borland\delphi7\source\rtl\Win\ShellAPI.pas]
    67 ModuleType=SourceModule
    68 FormState=0
    69 FormOnTop=0
    70 
    71 [c:\program files\borland\delphi7\source\vcl\OleCtrls.pas]
     71[P:\vista\GUI-config\SkinFormU.dfm]
     72ModuleType=SourceModule
     73FormState=0
     74FormOnTop=0
     75
     76[P:\vista\GUI-config\CreateTemplateU.pas]
     77ModuleType=SourceModule
     78FormState=0
     79FormOnTop=0
     80
     81[P:\vista\GUI-config\EditTextU.pas]
     82ModuleType=SourceModule
     83FormState=0
     84FormOnTop=0
     85
     86[P:\vista\GUI-config\PostU.pas]
     87ModuleType=SourceModule
     88FormState=0
     89FormOnTop=0
     90
     91[P:\vista\GUI-config\SetSelU.pas]
    7292ModuleType=SourceModule
    7393FormState=0
    … …  
    84104
    85105[EditWindow0]
    86 ViewCount=11
    87 CurrentView=0
     106ViewCount=14
     107CurrentView=11
    88108View0=0
    89109View1=1
    … …  
    97117View9=9
    98118View10=10
     119View11=11
     120View12=12
     121View13=13
    99122CodeExplorer=CodeExplorer@EditWindow0
    100123MessageView=MessageView@EditWindow0
    … …  
    114137LeftPanelData=00000400010000000C000000436F64654578706C6F726572C600000000000000027F01000000000000010000000000000000000000000100000000C600000000000000FFFFFFFF
    115138RightPanelSize=0
    116 BottomPanelSize=205
     139BottomPanelSize=0
    117140BottomPanelClients=WatchWindow,MessageView@EditWindow0
    118 BottomPanelData=00000400010000000B000000576174636857696E646F77000300000000000002CD0000000000000001000000008B010000000000000100000001580300000000000002000000006C000000000000000200000002BE0000000000000003000000000000000000000000030000000000000000000000000300000000AC0100000000000003000000005803000000000000030000000058030000000000000300000000580300000000000003000000005803000000000000030000000058030000000000000200000000D80000000000000001000000005803000000000000010000000058030000000000000100000000AC0100000000000001000000005803000000000000010000000058030000000000000100000000AC010000000000000100000000C401000000000000010000000066000000000000000100000000D7020000000000000100000000160300000000000001000000001603000000000000010000000016030000000000000100000000160300000000000001000000008B0100000000000001000000008B0100000000000001000000008B010000000000000100000000F8020000000000000100000000FD02000000000000010000000016030000000000000100000000160300000000000001000000007E01000000000000010000000100030000000000000200000000CD0000000B0000004D657373616765566965770200000000CD0000000000000001000000000003000000000000FFFFFFFF
     141BottomPanelData=00000400020000000B000000576174636857696E646F770B0000004D65737361676556696577000300000000000002CD0000000000000001000000008B010000000000000100000001580300000000000002000000006C000000000000000200000002BE0000000000000003000000000000000000000000030000000000000000000000000300000000AC0100000000000003000000005803000000000000030000000058030000000000000300000000580300000000000003000000005803000000000000030000000058030000000000000200000000D80000000000000001000000005803000000000000010000000058030000000000000100000000AC0100000000000001000000005803000000000000010000000058030000000000000100000000AC010000000000000100000000C401000000000000010000000066000000000000000100000000D7020000000000000100000000160300000000000001000000001603000000000000010000000016030000000000000100000000160300000000000001000000008B0100000000000001000000008B0100000000000001000000008B010000000000000100000000F8020000000000000100000000FD02000000000000010000000016030000000000000100000000160300000000000001000000007E01000000000000010000000100030000000000000200000000CD0000000B0000004D657373616765566965770200000000CD0000000000000001000000000003000000000000FFFFFFFF
    119142
    120143[View0]
    121144Module=P:\Vista\GUI-config\MainU.pas
    122 CursorX=3
    123 CursorY=33
    124 TopLine=25
     145CursorX=1
     146CursorY=297
     147TopLine=281
    125148LeftCol=1
    126149
    127150[View1]
     151Module=P:\Vista\GUI-config\CPRS-Lib\ORCtrls.pas
     152CursorX=22
     153CursorY=343
     154TopLine=336
     155LeftCol=1
     156
     157[View2]
    128158Module=P:\vista\GUI-config\DebugU.pas
    129 CursorX=13
    130 CursorY=13
     159CursorX=28
     160CursorY=4
    131161TopLine=1
    132162LeftCol=1
    133163
    134 [View2]
    135 Module=P:\Vista\GUI-config\CPRS-Lib\ORCtrls.pas
     164[View3]
     165Module=P:\Vista\GUI-config\LookupU.pas
    136166CursorX=1
    137167CursorY=1
    … …  
    139169LeftCol=1
    140170
    141 [View3]
    142 Module=P:\Vista\GUI-config\LookupU.pas
    143 CursorX=11
    144 CursorY=120
    145 TopLine=110
    146 LeftCol=1
    147 
    148171[View4]
    149 Module=c:\program files\borland\delphi7\source\vcl\OleCtrls.pas
    150 CursorX=12
    151 CursorY=92
    152 TopLine=86
     172Module=P:\Vista\GUI-config\CPRS-Lib\ORFn.pas
     173CursorX=38
     174CursorY=41
     175TopLine=1
    153176LeftCol=1
    154177
    155178[View5]
    156179Module=P:\Vista\GUI-config\SubfilesU.pas
    157 CursorX=5
    158 CursorY=195
    159 TopLine=195
     180CursorX=9
     181CursorY=97
     182TopLine=89
    160183LeftCol=1
    161184
    162185[View6]
    163 Module=P:\Vista\GUI-config\SkinFormU.pas
    164 CursorX=16
    165 CursorY=95
    166 TopLine=87
     186Module=P:\vista\GUI-config\SetSelU.pas
     187CursorX=9
     188CursorY=32
     189TopLine=24
    167190LeftCol=1
    168191
    169192[View7]
    170 Module=c:\program files\borland\delphi7\source\rtl\Win\ShellAPI.pas
     193Module=P:\vista\GUI-config\PostU.pas
     194CursorX=9
     195CursorY=42
     196TopLine=34
     197LeftCol=1
     198
     199[View8]
     200Module=P:\vista\GUI-config\EditTextU.pas
     201CursorX=22
     202CursorY=64
     203TopLine=56
     204LeftCol=1
     205
     206[View9]
     207Module=P:\vista\GUI-config\CreateTemplateU.pas
     208CursorX=22
     209CursorY=87
     210TopLine=79
     211LeftCol=1
     212
     213[View10]
     214Module=P:\vista\GUI-config\SkinFormU.dfm
    171215CursorX=1
    172216CursorY=1
    … …  
    174218LeftCol=1
    175219
    176 [View8]
    177 Module=P:\Vista\GUI-config\GUI_Config.dpr
     220[View11]
     221Module=P:\vista\GUI-config\GUI_Config.dpr
    178222CursorX=1
    179 CursorY=68
    180 TopLine=60
    181 LeftCol=1
    182 
    183 [View9]
     223CursorY=67
     224TopLine=59
     225LeftCol=1
     226
     227[View12]
    184228Module=P:\Vista\GUI-config\frmSplash.pas
    185229CursorX=20
    … …  
    188232LeftCol=1
    189233
    190 [View10]
     234[View13]
    191235Module=P:\Vista\GUI-config\BatchAddU.pas
    192 CursorX=16
    193 CursorY=16
    194 TopLine=1
     236CursorX=30
     237CursorY=83
     238TopLine=74
    195239LeftCol=1
    196240
    … …  
    222266[Breakpoints]
    223267Count=1
    224 Breakpoint0='P:\Vista\GUI-config\MainU.pas',2118,'',0,1,'',1,0,0,'',1,'','',''
     268Breakpoint0='P:\Vista\GUI-config\MainU.pas',295,'',0,1,'',1,0,0,'',1,'','',''
    225269
    226270[AddressBreakpoints]
    … …  
    242286[ProjectManager]
    243287Create=1
    244 Visible=0
    245 State=0
    246 Left=198
    247 Top=142
     288Visible=1
     289State=0
     290Left=172
     291Top=159
    248292Width=689
    249293Height=561
    … …  
    319363SplitPos=114
    320364ArrangeBy=Name
    321 SelectedItem=Name
     365SelectedItem=Visible
    322366ExpandedItems=Anchors,Options
    323367HiddenCategories=Legacy
    … …  
    523567[MessageView@EditWindow0]
    524568Create=1
    525 Visible=1
     569Visible=0
    526570State=0
    527571Left=12

  • cprs/branches/GUI-config/LookupU.pas

    r482 r493  
    2323   License along with this library; if not, write to the Free Software
    2424   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
    25   *)   
     25  *)
    2626
    2727interface
    … …  
    4343    { Private declarations }
    4444    FFileNum : String;
    45    
     45
    4646  public
    4747    { Public declarations }

  • cprs/branches/GUI-config/MainU.dfm

    r488 r493  
    890890            OnClick = PatientORComboBoxClick
    891891            OnNeedData = PatientORComboBoxNeedData
     892            CharsNeedMatch = 1
    892893          end
    893894        end
    … …  
    11731174                OnClick = FileORComboBoxClick
    11741175                OnNeedData = FileORComboBoxNeedData
     1176                CharsNeedMatch = 1
    11751177              end
    11761178            end
    … …  
    12251227                OnClick = RecordORComboBoxClick
    12261228                OnNeedData = RecordORComboBoxNeedData
     1229                CharsNeedMatch = 1
    12271230              end
    12281231            end

  • cprs/branches/GUI-config/MainU.pas

    r488 r493  
    2424   License along with this library; if not, write to the Free Software
    2525   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
    26   *)   
     26  *)
    2727
    2828interface
    … …  
    3232  Dialogs, StdCtrls, StrUtils,
    3333  ORNet, ORFn, ComCtrls, ToolWin, Grids, ORCtrls, ExtCtrls, Buttons,
    34   AppEvnts, Menus, ImgList, 
    35   {$IFDEF USE_SKINS} 
    36   ipSkinManager, 
     34  AppEvnts, Menus, ImgList,
     35  {$IFDEF USE_SKINS}
     36  ipSkinManager,
    3737  {$ENDIF}
     38  Trpcb,
    3839  ValEdit;
    3940
    … …  
    4546    IENS      : string;
    4647    oldValue,newValue : string;
    47   end; 
     48  end;
    4849
    4950  TGridInfo = class;  //forward declaration
    … …  
    207208    CachedWPField : TStringList;
    208209    FVisibleGridIdx : integer;
    209     procedure ShowDebugClick(Sender: TObject);   
     210    procedure ShowDebugClick(Sender: TObject);
    210211    function FindParam(Param : string) : string;
    211212    function GetCurrentUserName : string;
    … …  
    281282
    282283uses
    283   frmSplash, Trpcb  , LookupU, SubfilesU, SetSelU, SelDateTimeU, PostU,
     284  frmSplash, {Trpcb,} LookupU, SubfilesU, SetSelU, SelDateTimeU, PostU,
    284285  FMErrorU, AboutU, PleaseWaitU, EditTextU, CreateTemplateU, SkinFormU,
    285286  BatchAddU, DebugU;
    … …  
    290291
    291292  procedure TMainForm.Initialize;
    292   var tempMenu,tempSubMenu : TMenuItem;   
     293  var tempMenu,tempSubMenu : TMenuItem;
    293294  begin
    294295    DebugMode := (FindParam('debug')='enable');
    … …  
    299300      tempMenu.OnClick := ShowDebugClick;
    300301      FileMenu.Add(tempMenu);
    301     end; 
    302     {$IFDEF USE_SKINS}
     302    end else begin
     303      DebugForm.Hide;
     304    end;
     305    {$IFDEF USE_SKINS}
    303306    DebugForm.Memo.Lines.Add('Adding Menus');
    304307    tempMenu := TMenuItem.Create(MainMenu);
    … …  
    307310    tempSubMenu.Caption := '&Change Skin';
    308311    tempSubMenu.OnClick := ChangeSkinClick;
    309     tempMenu.Add(tempSubMenu);   
     312    tempMenu.Add(tempSubMenu);
    310313    MainMenu.Items.Add(tempMenu);
    311314    {$ENDIF}
    … …  
    313316    DebugForm.Memo.Lines.Add('Showing Splash');
    314317    SplashForm.show;
    315  
     318
    316319    FLoadingGrid := false;
    317320    SettingsFiles := TStringList.Create;
    … …  
    320323    CurrentPatientData := TStringList.Create;
    321324    CurrentAnyFileData := TStringList.Create;
    322    
     325
    323326    DataForGrid := TStringList.Create;  //will own GridInfo objects.
    324327    CachedHelp := TStringList.Create;
    325     CachedHelpIdx := TStringList.Create; 
    326     CachedWPField := TStringList.Create; 
    327  
     328    CachedHelpIdx := TStringList.Create;
     329    CachedWPField := TStringList.Create;
     330
    328331    DebugForm.Memo.Lines.Add('Adding Grid Info');
    329332    AddGridInfo(BasicUsersGrid,CurrentUserData,true,LoadUserData,'200',btnUsersApply,btnUsersRevert);
    330     AddGridInfo(AdvancedUsersGrid,CurrentUserData,false,LoadUserData,'200',btnUsersApply,btnUsersRevert);   
     333    AddGridInfo(AdvancedUsersGrid,CurrentUserData,false,LoadUserData,'200',btnUsersApply,btnUsersRevert);
    331334    AddGridInfo(BasicSettingsGrid,CurrentSettingsData,true,GetSettingsInfo,'',btnSettingsApply,btnSettingsRevert);
    332     AddGridInfo(AdvancedSettingsGrid,CurrentSettingsData,false,GetSettingsInfo,'',btnSettingsApply,btnSettingsRevert);     
     335    AddGridInfo(AdvancedSettingsGrid,CurrentSettingsData,false,GetSettingsInfo,'',btnSettingsApply,btnSettingsRevert);
    333336    AddGridInfo(BasicPatientGrid,CurrentPatientData,true,GetPatientInfo,'2',btnPatientApply,btnPatientRevert);
    334337    AddGridInfo(AdvancedPatientGrid,CurrentPatientData,false,GetPatientInfo,'2',btnPatientApply,btnPatientRevert);
    … …  
    336339
    337340    MainForm.Visible := false;
     341
    338342    DebugForm.Memo.Lines.Add('Trying to connect to server');
    339343    if not ORNet.ConnectToServer(RPC_CONTEXT) then begin
    340344      DebugForm.Memo.Lines.Add('Failed connection.  Closing.');
    341       Close; 
     345      Close;
    342346      Exit;
    343347    end;
Note: See TracChangeset for help on using the changeset viewer.