https://www.bishopphillips.com/riskwiki/index.php?action=history&feed=atom&title=BpcSMScriptLibrary_15 2026-08-19T01:00:11Z Revision history for this page on the wiki MediaWiki 1.45.3 https://www.bishopphillips.com/riskwiki/index.php?title=BpcSMScriptLibrary_15&diff=163&oldid=prev 2026-04-12T06:37:07Z

<p>1 revision imported</p> <table style="background-color: #fff; color: #202122;" data-mw="interface"> <tr class="diff-title" lang="en"> <td colspan="1" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td> <td colspan="1" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 06:37, 12 April 2026</td> </tr><tr><td colspan="2" class="diff-notice" lang="en"><div class="mw-diff-empty">(No difference)</div> </td></tr></table>

Bishopj https://www.bishopphillips.com/riskwiki/index.php?title=BpcSMScriptLibrary_15&diff=162&oldid=prev 2019-09-11T16:52:24Z

<p>Created page with &quot;==TDBAdvGrid Routines== Language: Delphi 7 - 2007 These routines provide additional manipulation and support for the TMS TDBAdvGrid and TAdvGrid components from TMS Softwa...&quot;</p> <p><b>New page</b></p><div>==TDBAdvGrid Routines==<br /> <br /> Language: Delphi 7 - 2007<br /> <br /> <br /> These routines provide additional manipulation and support for the TMS TDBAdvGrid and TAdvGrid components from TMS Software. They require these components to function. The TMS components are available from TMS Software [http://tmssoftware.com/ http://tmssoftware.com/]<br /> <br /> <br /> <br /> &lt;pre&gt;<br /> //////////////////////////////////////////////////////////////////////////////////////////<br /> //////// TDBAdvGrid Routines<br /> //////////////////////////////////////////////////////////////////////////////////////////<br /> <br /> interface<br /> <br /> uses Classes, Types, DB, Grids, BaseGrid, AdvGrid, DBAdvGrid, AdvObj;<br /> <br /> Type<br /> TbpcTMSHiddenRowList = class (TIntList )<br /> public<br /> function MapRowToRealRow( VisRow: Integer; VisRowCount: integer): integer;<br /> end;<br /> <br /> // Returns the index of a TDBAdvGrid column given the name. -1 on failure<br /> function bpcGetDBAdvGridColumnIndex( ColCollection: TDBGridColumnCollection; ColName : string) : Integer;<br /> // Returns the TDBAdvGrid column given the name. nil on failure<br /> function bpcGetDBAdvGridColumn( ColCollection: TDBGridColumnCollection; ColName : string) : TDBGridColumnItem;<br /> // Returns the index of a TDBAdvGrid column given the field name. -1 on failure<br /> function bpcGetDBAdvGridColumnByFieldIndex( ColCollection: TDBGridColumnCollection; FieldName : string) : Integer;<br /> // Returns the TDBAdvGrid column given the Field name. nil on failure<br /> function bpcGetDBAdvGridColumnByField( ColCollection: TDBGridColumnCollection; FieldName : string) : TDBGridColumnItem;<br /> <br /> // Group and Filter Safe DBAdvGrid Page Mode Reload (Reloads Non page mode grid from dataset, after optional dataset refresh<br /> // Reestablishes groups and filters and position.<br /> function bpcDBAdvGridSafeReload( DBAdvGrid1: TDBAdvGrid; WithDataSetRefresh : boolean=False ) : TDBAdvGrid;<br /> // Similar to TDBAdvGrid.Narrow, except that this one adds (logical and) filters rather than replacing filters, so with<br /> // each call the additional filter applies to the last filtered result. To clear the filters simply assign a condition of &#039;&#039;.<br /> // FLastFilter is used to store the last filter string for the current filter. If the new codition varies by only a character from the previous filter,<br /> // it updates the previous filter rather than adding an additional filter. Clearing FLastFilter with each call prevents this behaviour.<br /> function bpcDBAdvGridNarrowDown( MyGrid : TDBAdvGrid; Var FLastFilter : string; ACondition: string; AColumn: integer = -1) : TDBAdvGrid;<br /> // Safe vis row to real row index conversion (This handles incrementally applied filters where the hidden row list is an accumulated list of multiple<br /> // succeeding ordered hidden row lists. It essentially deconstructs that portion of the rows it needs by reversing algorythmically the<br /> // row visibility changes applied to date. The second routine allows a marginal performance saving where mutliple access are<br /> // required to the same grid filter state. Note bpcDBAdvGridSafeReload without dataset refresh rebuilds the hidden list from scratch and makes<br /> // the TMS real coord routines safe to use again - as an alternative to this routine.<br /> function bpcDBAdvGridVisRowToRealRow( DBAdvGrid1: TDBAdvGrid; VisRow : integer ) : integer; overload;<br /> function bpcDBAdvGridVisRowToRealRow( DBAdvGrid1: TDBAdvGrid; VisRow : integer; var ListHidden: TbpcTMSHiddenRowList ) : integer; overload;<br /> // Return the values for a column as a comma separated list of rows<br /> function bpcDBAdvGridVisColToRowList( DBAdvGrid1: TDBAdvGrid; const FieldName : string; Sep : string=&#039;&#039;; const QuoteMe : string=&#039;&#039; ) : string;<br /> function bpcDBAdvGridVisColToQuotedRowList( DBAdvGrid1: TDBAdvGrid; const FieldName : string; Sep : string=&#039;&#039; ) : string;<br /> // True if the grid is currently empty of datarows - equivalent to tdatasource is empty.<br /> function bpcDBAdvGridIsEmpty( DBAdvGrid1: TDBAdvGrid ) : boolean;<br /> <br /> function bpcDBAdvGridGetFieldList( DBAdvGrid1: TDBAdvGrid; bKeepEmptyFields : boolean=False; StartAtCol : integer=1 ) : TStringDynArray ;<br /> <br /> <br /> &lt;/pre&gt;<br /> <br /> <br /> =BackLinks=<br /> <br /> {{#dpl: linksto={{FULLPAGENAME}} }}</div>

Bishopj