Changeset 828 for cprs/branches/GUI-config

Timestamp:

Jul 7, 2010, 1:44:28 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Sortable grids, fixed hint-bug

Location:

cprs/branches/GUI-config

Files:

• AboutU.dcu (modified) ( previous)
• BDK32/Source/TRPCB.dcu (modified) ( previous)
• CPRS-Lib/ORCtrls.dcu (modified) ( previous)
• CPRS-Lib/ORFn.dcu (modified) ( previous)
• CPRS-Lib/ORNet.dcu (modified) ( previous)
• CreateTemplateU.dcu (modified) ( previous)
• FMErrorU.dfm (modified) (1 diff)
• GUI_Config.dsk (modified) (16 diffs)
• GUI_Config.exe (modified) ( previous)
• KIDS Server patch/TMG-GUI-CONFIG-1.0-1.TXT (moved) (moved from cprs/branches/GUI-config/KIDS Server patch/TMG_GUI_CONFIG-1-1.txt )
• KIDS Server patch/TMG-GUI-CONFIG-1.0-2.KIDS (moved) (moved from cprs/branches/GUI-config/KIDS Server patch/TMG_GUI_CONFIG-1-2.kid )
• KIDS Server patch/TMG-GUI-CONFIG-1.0-3.KIDS (moved) (moved from cprs/branches/GUI-config/KIDS Server patch/TMG_GUI_CONFIG-1.0-3.KID )
• KIDS Server patch/TMG-GUI-CONFIG-1.0-3.TXT (moved) (moved from cprs/branches/GUI-config/KIDS Server patch/TMG_GUI_CONFIG-1-3.txt )
• KIDS Server patch/TMG-GUI-CONFIG-1.0-4.KIDS (added)
• KIDS Server patch/TMG-GUI-CONFIG-1.0-4.TXT (added)
• LookupU.dcu (modified) ( previous)
• MainU.dcu (modified) ( previous)
• MainU.dfm (modified) ( previous)
• MainU.pas (modified) (34 diffs)
• SubfilesU.dcu (modified) ( previous)
• SubfilesU.dfm (modified) (1 diff)
• SubfilesU.pas (modified) (5 diffs)
• TMG_Extra (added)
• TMG_Extra/SortStringGrid.dcu (added)
• TMG_Extra/SortStringGrid.pas (added)
• TMG_Extra/SortStringGridPackage.cfg (added)
• TMG_Extra/SortStringGridPackage.dcu (added)
• TMG_Extra/SortStringGridPackage.dof (added)
• TMG_Extra/SortStringGridPackage.dpk (added)
• TMG_Extra/SortStringGridPackage.dsk (added)
• TMG_Extra/SortStringGridPackage.res (added)

cprs/branches/GUI-config/FMErrorU.dfm

@@ -12 +12 @@
   Font.Style = []
   OldCreateOrder = False
+  Position = poOwnerFormCenter
   DesignSize = (
     474

cprs/branches/GUI-config/GUI_Config.dsk

@@ -1 +1 @@
 [Closed Files]
-File_0=SourceModule,'P:\vista\GUI-config\PostU.pas',0,1,34,62,10,0,0
-File_1=SourceModule,'P:\vista\GUI-config\SkinFormU.pas',0,1,87,16,95,0,0
-File_2=SourceModule,'P:\Vista\GUI-config\CPRS-Lib\ORNet.pas',0,1,1,1,310,0,0
-File_3=SourceModule,'c:\program files\borland\delphi7\source\vcl\OleCtrls.pas',0,1,85,27,96,0,0
-File_4=SourceModule,'P:\vista\GUI-config\BDK32\Source\ccowrpcbroker.pas',0,1,44,29,45,0,0
-File_5=SourceModule,'P:\vista\GUI-config\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas',0,1,1104,11,1110,0,0
-File_6=SourceModule,'P:\vista\GUI-config\BDK32\Source\TRPCB.pas',0,1,1045,1,1059,0,0
-File_7=SourceModule,'P:\vista\GUI-config\CreateTemplateU.pas',0,1,140,11,145,0,0
-File_8=SourceModule,'P:\vista\GUI-config\SetSelU.pas',0,1,1,1,1,1,0
+File_0=SourceModule,'P:\vista\GUI-config\MainU.dfm',0,1,1,1,1,0,0
+File_1=SourceModule,'P:\Vista\GUI-config\CPRS-Lib\ORCtrls.pas',0,1,293,1,305,0,0
+File_2=SourceModule,'P:\Vista\GUI-config\CPRS-Lib\ORFn.pas',0,1,613,1,623,0,0
+File_3=SourceModule,'P:\vista\GUI-config\BDK32\Source\wsockc.pas',0,1,1333,1,1346,0,0
+File_4=SourceModule,'P:\vista\GUI-config\PostU.pas',0,1,34,62,10,0,0
+File_5=SourceModule,'P:\vista\GUI-config\SkinFormU.pas',0,1,87,16,95,0,0
+File_6=SourceModule,'P:\Vista\GUI-config\CPRS-Lib\ORNet.pas',0,1,1,1,310,0,0
+File_7=SourceModule,'c:\program files\borland\delphi7\source\vcl\OleCtrls.pas',0,1,85,27,96,0,0
+File_8=SourceModule,'P:\vista\GUI-config\BDK32\Source\ccowrpcbroker.pas',0,1,44,29,45,0,0
+File_9=SourceModule,'P:\vista\GUI-config\BDK32\Source\VERGENCECONTEXTORLib_TLB.pas',0,1,1104,11,1110,0,0
 
 [Modules]
 Module0=P:\vista\GUI-config\MainU.pas
-Module1=P:\Vista\GUI-config\CPRS-Lib\ORFn.pas
+Module1=P:\vista\GUI-config\FMErrorU.pas
 Module2=P:\vista\GUI-config\GUI_Config.dpr
-Module3=P:\vista\GUI-config\AboutU.pas
-Module4=P:\vista\GUI-config\frmSplash.pas
-Module5=P:\vista\GUI-config\BDK32\Source\wsockc.pas
-Count=6
+Module3=P:\vista\GUI-config\frmSplash.pas
+Module4=P:\vista\GUI-config\AboutU.pas
+Module5=P:\vista\GUI-config\LookupU.pas
+Module6=P:\vista\GUI-config\DebugU.pas
+Count=7
 EditWindowCount=1
 
@@ -23 +25 @@
 ModuleType=SourceModule
 FormState=1
-FormOnTop=0
-
-[P:\Vista\GUI-config\CPRS-Lib\ORFn.pas]
+FormOnTop=1
+
+[P:\vista\GUI-config\FMErrorU.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[P:\vista\GUI-config\GUI_Config.dpr]
 ModuleType=SourceModule
 FormState=0
 FormOnTop=0
 
-[P:\vista\GUI-config\GUI_Config.dpr]
+[P:\vista\GUI-config\frmSplash.pas]
 ModuleType=SourceModule
 FormState=0
@@ -37 +44 @@
 [P:\vista\GUI-config\AboutU.pas]
 ModuleType=SourceModule
-FormState=1
-FormOnTop=0
-
-[P:\vista\GUI-config\frmSplash.pas]
-ModuleType=SourceModule
-FormState=1
-FormOnTop=0
-
-[P:\vista\GUI-config\BDK32\Source\wsockc.pas]
+FormState=0
+FormOnTop=0
+
+[P:\vista\GUI-config\LookupU.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[P:\vista\GUI-config\DebugU.pas]
 ModuleType=SourceModule
 FormState=0
@@ -55 +62 @@
 
 [EditWindow0]
-ViewCount=6
+ViewCount=7
 CurrentView=0
 View0=0
@@ -63 +70 @@
 View4=4
 View5=5
+View6=6
 CodeExplorer=CodeExplorer@EditWindow0
 MessageView=MessageView@EditWindow0
 Create=1
 Visible=1
-State=0
-Left=167
-Top=159
-Width=775
-Height=552
-MaxLeft=-782
-MaxTop=261
-ClientWidth=767
-ClientHeight=518
+State=2
+Left=440
+Top=155
+Width=584
+Height=330
+MaxLeft=-4
+MaxTop=104
+MaxWidth=1032
+MaxHeight=634
+ClientWidth=1024
+ClientHeight=600
 LeftPanelSize=0
 LeftPanelClients=CodeExplorer@EditWindow0
 LeftPanelData=00000400010000000C000000436F64654578706C6F726572000000000000000000000000000000000001000000000000000000000000FFFFFFFF
 RightPanelSize=0
-BottomPanelSize=155
+BottomPanelSize=0
 BottomPanelClients=MessageView@EditWindow0
-BottomPanelData=0000040000000000FF02000000000000029B00000000000000010000000000000000000000000100000000FF020000000000000100000000FF0200000B0000004D65737361676556696577FFFFFFFF
+BottomPanelData=00000400010000000B0000004D657373616765566965770004000000000000029B00000000000000010000000000000000000000000100000000FF020000000000000100000000BC030000000000000100000000BC030000000000000100000000000400000B0000004D65737361676556696577FFFFFFFF
 
 [View0]
 Module=P:\vista\GUI-config\MainU.pas
+CursorX=17
+CursorY=1782
+TopLine=1775
+LeftCol=1
+
+[View1]
+Module=P:\vista\GUI-config\DebugU.pas
 CursorX=1
-CursorY=1588
-TopLine=1579
-LeftCol=1
-
-[View1]
-Module=P:\Vista\GUI-config\CPRS-Lib\ORFn.pas
-CursorX=1
-CursorY=623
-TopLine=613
+CursorY=26
+TopLine=1
 LeftCol=1
 
 [View2]
-Module=P:\vista\GUI-config\BDK32\Source\wsockc.pas
-CursorX=1
-CursorY=1479
-TopLine=1466
+Module=P:\vista\GUI-config\FMErrorU.pas
+CursorX=36
+CursorY=53
+TopLine=45
 LeftCol=1
 
 [View3]
+Module=P:\vista\GUI-config\LookupU.pas
+CursorX=55
+CursorY=112
+TopLine=25
+LeftCol=1
+
+[View4]
 Module=P:\vista\GUI-config\AboutU.pas
 CursorX=1
@@ -112 +129 @@
 LeftCol=1
 
-[View4]
+[View5]
 Module=P:\vista\GUI-config\frmSplash.pas
-CursorX=1
-CursorY=67
+CursorX=26
+CursorY=60
 TopLine=56
 LeftCol=1
 
-[View5]
+[View6]
 Module=P:\vista\GUI-config\GUI_Config.dpr
 CursorX=1
 CursorY=66
-TopLine=46
+TopLine=55
 LeftCol=1
 
 [Watches]
-Count=5
+Count=6
 Watch0='MainMenu.items.count',256,0,18,1,0,'Watches'
 Watch1='tempInfo',256,0,18,1,0,'Watches'
@@ -133 +150 @@
 Watch3='Strings.count',256,0,18,1,0,'Watches'
 Watch4='Self.Height',256,0,18,1,0,'Watches'
+Watch5='SettingsPageControl.ActivePageindex',256,0,18,1,0,'Watches'
 
 [WatchWindow]
@@ -140 +158 @@
 Visible=0
 State=0
-Left=0
-Top=0
+Left=125
+Top=202
 Width=764
-Height=129
+Height=235
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=756
-ClientHeight=103
+ClientHeight=209
 TBDockHeight=103
 LRDockWidth=421
@@ -153 +171 @@
 
 [Breakpoints]
-Count=12
-Breakpoint0='P:\vista\GUI-config\MainU.pas',1879,'',0,1,'',1,0,0,'',1,'','',''
+Count=9
+Breakpoint0='P:\vista\GUI-config\MainU.pas',1886,'',0,1,'',1,0,0,'',1,'','',''
 Breakpoint1='P:\vista\GUI-config\AboutU.pas',109,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint2='P:\vista\GUI-config\MainU.pas',2081,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint3='P:\vista\GUI-config\MainU.pas',2088,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint4='P:\vista\GUI-config\MainU.pas',2104,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint5='P:\vista\GUI-config\MainU.pas',2001,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint6='P:\vista\GUI-config\MainU.pas',2036,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint7='P:\vista\GUI-config\MainU.pas',414,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint8='P:\vista\GUI-config\MainU.pas',1295,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint9='P:\vista\GUI-config\MainU.pas',2199,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint10='P:\vista\GUI-config\MainU.pas',1586,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint11='P:\vista\GUI-config\MainU.pas',1592,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint2='P:\vista\GUI-config\MainU.pas',2088,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint3='P:\vista\GUI-config\MainU.pas',2095,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint4='P:\vista\GUI-config\MainU.pas',2111,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint5='P:\vista\GUI-config\MainU.pas',2008,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint6='P:\vista\GUI-config\MainU.pas',2206,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint7='P:\vista\GUI-config\MainU.pas',1593,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint8='P:\vista\GUI-config\MainU.pas',1750,'',0,1,'',1,0,0,'',1,'','',''
 
 [AddressBreakpoints]
@@ -173 +188 @@
 Create=1
 Visible=1
-State=0
-Left=0
-Top=0
-Width=1024
+State=2
+Left=887
+Top=173
+Width=137
 Height=112
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=1016
+MaxWidth=1032
+MaxHeight=112
+ClientWidth=1024
 ClientHeight=78
 
@@ -219 +236 @@
 Visible=0
 State=0
-Left=0
-Top=0
+Left=145
+Top=114
 Width=800
 Height=561
@@ -260 +277 @@
 LRDockWidth=250
 Dockable=1
-SplitPos=73
+SplitPos=114
 ArrangeBy=Name
-SelectedItem=OnClick
-ExpandedItems=Anchors,Menu,Options
+SelectedItem=Caption
+ExpandedItems=Menu,Options
 HiddenCategories=Legacy
 
@@ -292 +309 @@
 Visible=0
 State=0
-Left=0
-Top=0
-Width=1024
-Height=210
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=1016
-ClientHeight=184
+Left=417
+Top=181
+Width=416
+Height=437
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=408
+ClientHeight=411
 TBDockHeight=355
 LRDockWidth=233
@@ -466 +483 @@
 [MessageView@EditWindow0]
 Create=1
-Visible=1
+Visible=0
 State=0
 Left=12
 Top=0
-Width=755
+Width=1012
 Height=155
 MaxLeft=-1
 MaxTop=-1
-ClientWidth=755
+ClientWidth=1012
 ClientHeight=155
 TBDockHeight=155
@@ -488 +505 @@
 Visible=1
 State=0
-Left=12
-Top=139
+Left=16
+Top=128
 Width=266
 Height=577
@@ -500 +517 @@
 Dockable=1
 TabPosition=0
-ActiveTab=Object Inspector
+ActiveTab=Object TreeView
 TabDockClients=PropertyInspector,ObjectTree
 

cprs/branches/GUI-config/MainU.pas

@@ -37 +37 @@
   {$ENDIF}
   Trpcb, //needed for .ptype types
-  ValEdit;
+  ValEdit, SortStringGrid;
 
 type
@@ -49 +49 @@
 
   TGridInfo = class;  //forward declaration
-  TGridDataLoader = procedure (GridInfo: TGridInfo) of object;  
+  TGridDataLoader = procedure (GridInfo: TGridInfo) of object;
   TGridInfo = class (TObject)
   public
-    Grid      : TStringGrid;  //doesn't own object
+    Grid      : TSortStringGrid;  //doesn't own object
     FileNum   : string;
     IENS      : string;
@@ -61 +61 @@
     ApplyBtn  : TButton;
     RevertBtn : TButton;
-  end;      
+  end;
 
 
@@ -79 +79 @@
     Panel5: TPanel;
     ApplicationEvents: TApplicationEvents;
-    AdvancedUsersGrid: TStringGrid;
-    BasicUsersGrid: TStringGrid;
+    AdvancedUsersGrid: TSortStringGrid;
+    BasicUsersGrid: TSortStringGrid;
     MainMenu: TMainMenu;
     FileMenu: TMenuItem;
@@ -92 +92 @@
     SettingsPageControl: TPageControl;
     tsBasicSettings: TTabSheet;
-    BasicSettingsGrid: TStringGrid;
+    BasicSettingsGrid: TSortStringGrid;
     tsAdvancedSettings: TTabSheet;
-    AdvancedSettingsGrid: TStringGrid;
+    AdvancedSettingsGrid: TSortStringGrid;
     Panel3: TPanel;
     btnSettingsApply: TBitBtn;
@@ -108 +108 @@
     PatientsPageControl: TPageControl;
     tsBasicPatients: TTabSheet;
-    BasicPatientGrid: TStringGrid;
+    BasicPatientGrid: TSortStringGrid;
     tsAdvancedPatients: TTabSheet;
-    AdvancedPatientGrid: TStringGrid;
+    AdvancedPatientGrid: TSortStringGrid;
     Panel9: TPanel;
     btnPatientApply: TBitBtn;
@@ -124 +124 @@
     AnyFilePageControl: TPageControl;
     TabSheet2: TTabSheet;
-    AnyFileGrid: TStringGrid;
+    AnyFileGrid: TSortStringGrid;
     Panel14: TPanel;
     btnAdvancedApply: TBitBtn;
@@ -214 +214 @@
     procedure SetCursorImage(Cursor : TCursor);
     function FileNumForSettingsNode (Node : TTreeNode) : string;
-    function GetVisibleGrid: TStringGrid;
+    function GetVisibleGrid: TSortStringGrid;
     function GetVisibleGridInfo : TGridInfo;
-    function GetInfoForGrid(Grid : TStringGrid) : TGridInfo;
-    function GetInfoIndexForGrid(Grid : TStringGrid) : integer;
-    procedure SetVisibleGridIdx(Grid : TStringGrid);
+    function GetInfoForGrid(Grid : TSortStringGrid) : TGridInfo;
+    function GetInfoIndexForGrid(Grid : TSortStringGrid) : integer;
+    procedure SetVisibleGridIdx(Grid : TSortStringGrid);
     procedure GetUsersList(UsersList : TStringList; HideInactive: boolean);
     procedure GetRecordsList(RecordsList : TStringList; FileNum : string);
@@ -236 +236 @@
     //procedure GetAnyfileInfo(FileNum : String; IENS : String; Data : TStringList);   
     function FindInStrings(fieldNum : string; Strings : TStringList; var fileNum : string) : integer;
-    procedure CompileChanges(Grid : TStringGrid; CurrentUserData,Changes : TStringList);
-    function PostChanges(Grid : TStringGrid) : TModalResult;
+    procedure CompileChanges(Grid : TSortStringGrid; CurrentUserData,Changes : TStringList);
+    function PostChanges(Grid : TSortStringGrid) : TModalResult;
     function PostVisibleGrid: TModalResult;
-    procedure LoadAnyGrid(Grid : TStringGrid; BasicMode: boolean; FileNum,IENS : string; CurrentData : TStringList);
+    procedure LoadAnyGrid(Grid : TSortStringGrid; BasicMode: boolean; FileNum,IENS : string; CurrentData : TStringList);
     function DisuserChanged(Changes: TStringList) : boolean;
     procedure DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
     function DoCloneRecord(FileNum, SourceIENS, New01Field : String) : string;
     function DoCloneUser(SourceIENS, New01Field : String) : string;
-    function GetGridHint(Grid : TStringGrid; FileNum : string; ACol, ARow : integer) : string;
-    function FieldHelp(FileNum, FieldNum, HelpStyle : string) : string;    
-    procedure DoRevert(BasicGrid,AdvancedGrid : TStringGrid);
+    function GetGridHint(Grid : TSortStringGrid; FileNum : string; ACol, ARow : integer) : string;
+    function FieldHelp(FileNum, IENS, FieldNum, HelpStyle : string) : string;    
+    procedure DoRevert(BasicGrid,AdvancedGrid : TSortStringGrid);
   public
     { Public declarations }
@@ -252 +252 @@
     LastSelTreeNode : TTreeNode;
     DebugMode : boolean;
-    function GetUserLine(CurrentUserData : TStringList; Grid : TStringGrid; ARow:integer) :integer;
-    function GetLineInfo(Grid : TStringGrid; CurrentUserData : TStringList; ARow: integer) : tFileEntry;
+    function GetUserLine(CurrentUserData : TStringList; Grid : TSortStringGrid; ARow:integer) :integer;
+    function GetLineInfo(Grid : TSortStringGrid; CurrentUserData : TStringList; ARow: integer) : tFileEntry;
     function IsSubFile(FieldDef: string ; var SubFileNum : string) : boolean;
     function IsWPField(FileNum,FieldNum : string) : boolean;
@@ -261 +261 @@
     Procedure GetBlankFileInfo(FileNum : string; BlankList : TStringList);
     procedure GetOneRecord(FileNum, IENS : string; Data, BlankFileInfo : TStringList);
-    procedure AddGridInfo(Grid: TStringGrid; Data : TStringList; BasicMode : boolean; 
+    procedure AddGridInfo(Grid: TSortStringGrid; Data : TStringList; BasicMode : boolean; 
                           DataLoader : TGridDataLoader; FileNum : string;
                           ApplyBtn,RevertBtn : TButton);
     procedure LoadAnyGridFromInfo(GridInfo : TGridInfo);
-    procedure ClearGrid(Grid : TStringGrid);
+    procedure ClearGrid(Grid : TSortStringGrid);
     procedure RegisterGridInfo(GridInfo : TGridInfo);
     procedure UnRegisterGridInfo(GridInfo : TGridInfo);
@@ -398 +398 @@
 
   
-  procedure TMainForm.AddGridInfo(Grid: TStringGrid; 
+  procedure TMainForm.AddGridInfo(Grid: TSortStringGrid; 
                                   Data : TStringList; 
                                   BasicMode : boolean;
@@ -1036 +1036 @@
   
   
-  procedure TMainForm.ClearGrid(Grid : TStringGrid);
+  procedure TMainForm.ClearGrid(Grid : TSortStringGrid);
   var i:integer;
   begin
@@ -1048 +1048 @@
 
   
-  procedure TMainForm.LoadAnyGrid(Grid : TStringGrid;  //the TStringGrid to load
+  procedure TMainForm.LoadAnyGrid(Grid : TSortStringGrid;  //the TSortStringGrid to load
                                   BasicMode: boolean; 
                                   FileNum : string; 
@@ -1077 +1077 @@
   //This assumes that GridInfo already has loaded info.
   var
-    Grid : TStringGrid;  //the TStringGrid to load
+    Grid : TSortStringGrid;  //the TSortStringGrid to load
     BasicMode: boolean; 
     FileNum : string; 
@@ -1083 +1083 @@
     CurrentData : TStringList;
 
-    procedure LoadOneLine (Grid : TStringGrid; oneEntry : string; GridRow : integer);
+    procedure LoadOneLine (Grid : TSortStringGrid; oneEntry : string; GridRow : integer);
     var
       tempFile,IENS : string;
@@ -1208 +1208 @@
       GridFileNum : string;
       UserLine : integer;
-      Grid : TStringGrid;
+      Grid : TSortStringGrid;
       IEN : int64;
       IENS : string;
@@ -1216 +1216 @@
   begin
     if FLoadingGrid then exit;  //prevent pseudo-clicks during loading...
-    Grid := (Sender as TStringGrid);
+    Grid := (Sender as TSortStringGrid);
     GridInfo := GetInfoForGrid(Grid);
     if GridInfo=nil then exit;
@@ -1301 +1301 @@
 
 
-  function TMainForm.GetLineInfo(Grid : TStringGrid; CurrentUserData : TStringList; ARow: integer) : tFileEntry;
+  function TMainForm.GetLineInfo(Grid : TSortStringGrid; CurrentUserData : TStringList; ARow: integer) : tFileEntry;
   var fieldNum : string;
       oneEntry : string;
@@ -1327 +1327 @@
   end;
   
-  function TMainForm.GetUserLine(CurrentUserData : TStringList; Grid : TStringGrid; ARow: integer) : integer;
+  function TMainForm.GetUserLine(CurrentUserData : TStringList; Grid : TSortStringGrid; ARow: integer) : integer;
   var fieldNum: string;
       tempFileNum : string;
@@ -1429 +1429 @@
   end;
   
-  function TMainForm.GetVisibleGrid: TStringGrid;
+  function TMainForm.GetVisibleGrid: TSortStringGrid;
   begin
     if FVisibleGridIdx > -1 then begin 
@@ -1438 +1438 @@
   end;
   
-  function TMainForm.GetInfoForGrid(Grid : TStringGrid) : TGridInfo;
+  function TMainForm.GetInfoForGrid(Grid : TSortStringGrid) : TGridInfo;
   var i : integer;
   begin
@@ -1450 +1450 @@
 
   
-  function TMainForm.GetInfoIndexForGrid(Grid : TStringGrid) : integer;
+  function TMainForm.GetInfoIndexForGrid(Grid : TSortStringGrid) : integer;
   var s : string;
   begin
@@ -1457 +1457 @@
   end;
   
-  procedure TMainForm.SetVisibleGridIdx(Grid : TStringGrid);
+  procedure TMainForm.SetVisibleGridIdx(Grid : TSortStringGrid);
   begin
     FVisibleGridIdx := GetInfoIndexForGrid(Grid);
@@ -1463 +1463 @@
 
 
-  procedure TMainForm.CompileChanges(Grid : TStringGrid; CurrentUserData,Changes : TStringList);
+  procedure TMainForm.CompileChanges(Grid : TSortStringGrid; CurrentUserData,Changes : TStringList);
   //Output format:
   // FileNum^IENS^FieldNum^FieldName^newValue^oldValue
@@ -1479 +1479 @@
     for row := 1 to Grid.RowCount-1 do begin
       Entry := GetLineInfo(Grid,CurrentUserData, row);
-      //Reject any value containing a "^" , ":" , ";"
+      //Reject any value containing a "^"
       //Do we need an @ here as well?
-      if (AnsiPos('^',Entry.newvalue) > 0) or //(AnsiPos(':',Entry.newvalue) > 0) or   //elh Taken out because : used in time
-         (AnsiPos(';',Entry.newvalue) > 0)then begin
+      if AnsiPos('^',Entry.newvalue) > 0 then begin  //or (AnsiPos(':',Entry.newvalue) > 0) or  (AnsiPos(';',Entry.newvalue) > 0) //elh Taken out because : used in time
          messagedlg('Invalid value entered for ' + Entry.Fieldname + #13 + #10
                      + #13 + #10 + 'Invalid Entry:   ' + Entry.newvalue + #13 + #10 +
@@ -1514 +1513 @@
 
 
-  function TMainForm.PostChanges(Grid : TStringGrid) : TModalResult;
+  function TMainForm.PostChanges(Grid : TSortStringGrid) : TModalResult;
   //Results:  mrNone -- no post done (not needed)
   //          mrCancel -- user pressed cancel on confirmation screen.
@@ -1729 +1728 @@
   end;  
 
-  function TMainForm.FieldHelp(FileNum, FieldNum, HelpStyle : string) : string;
+  function TMainForm.FieldHelp(FileNum, IENS, FieldNum, HelpStyle : string) : string;
   var
      RPCResult: string;
@@ -1737 +1736 @@
   begin
     Result := '';
-    SrchStr := FileNum + '^' + FieldNum + '^' + HelpStyle;
+    SrchStr := FileNum + '^' + FieldNum + '^' + HelpStyle + '^' + IENS;
     Idx := CachedHelpIdx.IndexOf(SrchStr);
     if Idx = -1 then begin
@@ -1775 +1774 @@
   end;
 
-  function TMainForm.GetGridHint(Grid : TStringGrid; FileNum : string; ACol, ARow : integer) : string;
+  function TMainForm.GetGridHint(Grid : TSortStringGrid; FileNum : string; ACol, ARow : integer) : string;
   var fieldNum : string;
+      GridInfo : TGridInfo;
   begin
     Result := '';
     //Result := 'Row=' + IntToStr(ARow) + ', Col='+ IntToStr(ACol);
     if ARow > Grid.RowCount-1 then exit;
-    if (ARow < 0) or (ACol < 0) then exit;
+    if (ARow < 1) or (ACol < 0) then exit;
     if ACol=0 then begin
-      Result := 'This is the database field NUMBER';      
+      Result := 'This is the database field NUMBER';
     end else if ACol=1 then begin
-      Result := 'This is the database field NAME';      
+      Result := 'This is the database field NAME';
     end else begin
       fieldNum := Grid.Cells[0,ARow];
@@ -1797 +1797 @@
         result := 'Clicking will open new window...';
       end else begin
-        Result := FieldHelp(FileNum, fieldNum, '?');      
-      end;  
+        GridInfo := GetInfoForGrid(Grid);
+        Result := FieldHelp(FileNum,  GridInfo.IENS, fieldNum, '?');
+      end;
     end;
   end;
@@ -1830 +1831 @@
     if VisibleGridInfo = nil then exit;
     if VisibleGridInfo.Grid = nil then exit;
-    if (ClassName='TStringGrid') then begin      
+    if (ClassName='TSortStringGrid') then begin      
       VisibleGridInfo.Grid.MouseToCell(Pos.X,Pos.Y,ACol,ARow);
       HintInfo.HintStr := GetGridHint(VisibleGridInfo.Grid,VisibleGridInfo.FileNum,ACol, ARow);
@@ -1969 +1970 @@
     ModalResult := PostVisibleGrid;
     if ModalResult = mrNo then exit;
-    FileNum := FileORComboBox.ItemID;  
+    FileNum := FileORComboBox.ItemID;
     IEN := RecordORComboBox.ItemID;  //get info from selected record
     if IEN=0 then exit;
@@ -2193 +2194 @@
 
 
-  procedure TMainForm.DoRevert(BasicGrid,AdvancedGrid : TStringGrid);
+  procedure TMainForm.DoRevert(BasicGrid,AdvancedGrid : TSortStringGrid);
   //BasicGrid doesn't have to be supplied.  Can be nil value.
   //AdvancedGrid is required.

cprs/branches/GUI-config/SubfilesU.dfm

@@ -73 +73 @@
     Align = alClient
     TabOrder = 1
-    object SubFileGrid: TStringGrid
+    object SubFileGrid: TSortStringGrid
       Left = 1
       Top = 1

cprs/branches/GUI-config/SubfilesU.pas

@@ -30 +30 @@
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   StrUtils, MainU,
-  Dialogs, StdCtrls, ExtCtrls, Grids, ComCtrls, Buttons;
+  Dialogs, StdCtrls, ExtCtrls, Grids, ComCtrls, Buttons, SortStringGrid;
 
 type
@@ -36 +36 @@
     Panel1: TPanel;
     TreeView: TTreeView;
-    SubFileGrid: TStringGrid;
+    SubFileGrid: TSortStringGrid;
     Splitter1: TSplitter;
     SubFileLabel: TLabel;
@@ -75 +75 @@
     GridInfo : TGridInfo;
     ModifiedForm : boolean;  //Used to see if current record is unsaved
-    procedure CompileChanges(Grid : TStringGrid; CurrentUser,Changes : TStringList);
-    procedure PostChanges(Grid : TStringGrid; IENS : string; SilentMode : boolean = false);
+    procedure CompileChanges(Grid : TSortStringGrid; CurrentUser,Changes : TStringList);
+    procedure PostChanges(Grid : TSortStringGrid; IENS : string; SilentMode : boolean = false);
     procedure GetAllSubRecords(SubFileNum, ParentIENS : string; SubRecsList : TStringList);
     procedure InitTreeView;
@@ -296 +296 @@
 
   
-  procedure TSubfileForm.PostChanges(Grid : TStringGrid; IENS : string; SilentMode : boolean);
+  procedure TSubfileForm.PostChanges(Grid : TSortStringGrid; IENS : string; SilentMode : boolean);
   
     function NewIENS(oldIENS : string; PostResults : TStringList) : string;
@@ -340 +340 @@
   end;
 
-  procedure TSubfileForm.CompileChanges(Grid : TStringGrid; CurrentUser,Changes : TStringList);
+  procedure TSubfileForm.CompileChanges(Grid : TSortStringGrid; CurrentUser,Changes : TStringList);
   //Output format:
   // FileNum^IENS^FieldNum^FieldName^newValue^oldValue