https://www.bishopphillips.com/riskwiki/index.php?action=history&feed=atom&title=BpcSMScriptLibrary_5 2026-11-15T00:44:00Z Revision history for this page on the wiki MediaWiki 1.45.3 https://www.bishopphillips.com/riskwiki/index.php?title=BpcSMScriptLibrary_5&diff=173&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_5&diff=172&oldid=prev 2019-09-11T16:42:09Z

<p>Created page with &quot;==Value List Editor Utility routines== Language: Delphi 7 - 2007 &lt;pre&gt; ////////////////////////////////////////////////////////////////////////////////////////// //////// V...&quot;</p> <p><b>New page</b></p><div>==Value List Editor Utility routines==<br /> <br /> Language: Delphi 7 - 2007<br /> <br /> <br /> &lt;pre&gt;<br /> //////////////////////////////////////////////////////////////////////////////////////////<br /> //////// Value List Editor Utility routines<br /> //////////////////////////////////////////////////////////////////////////////////////////<br /> <br /> interface<br /> uses Classes, Grids, ValEdit;<br /> type<br /> TbpcSimplProc = procedure of object;<br /> TbpcOnValidateEvent = procedure(Sender: TObject; ACol, ARow: Longint; const KeyName, KeyValue: string) of object;<br /> <br /> // Create and return a property item owned by a VLE with editstyle and editmask as provided.<br /> // myEditStyle = esSimple, esEllipsis, esPickList<br /> // myEditMask = &#039;&#039; or something like &#039;999;9; &#039;<br /> function bpcVLEPropCreate( OwnerValueListEditor : TValueListEditor; myEditStyle: TEditStyle; myEditMask : string ) : TItemProp;<br /> // Create, Assign to key (as name string) and return a property item owned by a VLE with editstyle and editmask as provided.<br /> function bpcVLEPropAssign( OwnerValueListEditor : TValueListEditor; key : string; myEditStyle: TEditStyle; myEditMask : string ) : TItemProp; overload;<br /> // Create, Assign to key (as an index position) and return a property item owned by a VLE with editstyle and editmask as provided.<br /> function bpcVLEPropAssign( OwnerValueListEditor : TValueListEditor; key : integer; myEditStyle: TEditStyle; myEditMask : string ) : TItemProp; overload;<br /> // Initialise (by creating) all the propertied for keys in a VLE with the ordered list of editstyles and editmasks<br /> procedure bpcVLESetPropItems( OwnerValueListEditor : TValueListEditor; myEditStyles : array of TEditStyle; myEditMasks : array of string ); overload;<br /> // Initialise (by creating) the properties for named keys (in myKeys) in a VLE with the ordered list of editstyles and editmasks<br /> procedure bpcVLESetPropKeyedItems( OwnerValueListEditor : TValueListEditor; myKeys : array of string; myEditStyles : array of TEditStyle; myEditMasks : array of string ); overload;<br /> // Initialise the VLE properties to esSimple, excepte for those defined in the SpecialFormats stringlist<br /> // SpecialFormats strings should have the form:<br /> // &lt;visible keyname&gt;=ellipsis|picklist;&lt;mask&gt;<br /> // where &lt;mask&gt; can be a delphi format string of the form &#039;999;9;_&#039; (Note a &#039;_&#039; as the final mask part is changed to a &#039; &#039; in the created property)<br /> // Example:<br /> // &#039;Company Number=picklist;999;9;_&#039;<br /> procedure bpcVLEInitPropItems( OwnerValueListEditor : TObject; SpecialFormats : TStrings );<br /> // Get the current Value of a VLE based on its current row<br /> function bpcVLECurrentValue( OwnerValueListEditor : TObject ) : string;<br /> // Set the current Value of a VLE based on its current row (returns the newly assigned value as now stored (not necessaryily as provided)<br /> function bpcVLESetCurrentValue( OwnerValueListEditor : TObject; ToValue : string ) : string;<br /> // Get the current Key of a VLE based on its current row<br /> function bpcVLECurrentKey( OwnerValueListEditor : TObject ) : string;<br /> // Get the trimmed value of a VLE based on a Key<br /> function bpcVLETrimmedValue( OwnerValueListEditor : TObject; Key : string ) : string; overload;<br /> // Get the trimmed value of a VLE based on an Index<br /> function bpcVLETrimmedValue( OwnerValueListEditor : TObject; Index : integer ) : string; overload;<br /> // Get the key of a VLE based on an Index<br /> function bpcVLEName( OwnerValueListEditor : TObject; Index : integer ) : string;<br /> // Set the current Value of a VLE based on its current row (returns the newly assigned value as now stored (not necessaryily as provided)<br /> function bpcVLESetKeyedValue( OwnerValueListEditor : TObject; Key : string; ToValue : string ) : string;<br /> // Get the row count of the current VLE<br /> function bpcVLERowCount( OwnerValueListEditor : TObject ) : integer;<br /> // Set the VLE&#039;s Strings Content<br /> function bpcVLESetStrings( OwnerValueListEditor : TObject; Text : string ) : string ; overload;<br /> // Set the VLE&#039;s Strings (Key/Value) using a stringlist<br /> function bpcVLESetStrings( OwnerValueListEditor : TObject; myStrings : tstrings ) : tstrings ; overload;<br /> // Set the VLE&#039;s ValidateEvent<br /> function bpcVLESetOnValidate( OwnerValueListEditor : TObject; Value : TbpcOnValidateEvent ) : TbpcOnValidateEvent ;<br /> // Get the VLE&#039;s ValidateEvent<br /> function bpcVLEGetOnValidate( OwnerValueListEditor : TObject ) : TbpcSimplProc ;<br /> // Get the VLE&#039;s Keys List<br /> function bpcVLEGetKeys( OwnerValueListEditor : TObject ) : tstrings ;<br /> <br /> &lt;/pre&gt;<br /> <br /> <br /> =BackLinks=<br /> <br /> {{#dpl: linksto={{FULLPAGENAME}} }}</div>

Bishopj