https://www.bishopphillips.com/riskwiki/index.php?action=history&feed=atom&title=BpcSMScriptLibrary_3 2026-11-15T00:43:40Z Revision history for this page on the wiki MediaWiki 1.45.3 https://www.bishopphillips.com/riskwiki/index.php?title=BpcSMScriptLibrary_3&diff=169&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_3&diff=168&oldid=prev 2019-09-11T16:39:38Z

<p>Created page with &quot;==PopUp Menu Utility Routines== Language: Delphi 7 - 2007 &lt;pre&gt; ////////////////////////////////////////////////////////////////////////////////////////// //////// PopUp Me...&quot;</p> <p><b>New page</b></p><div>==PopUp Menu Utility Routines==<br /> <br /> Language: Delphi 7 - 2007<br /> <br /> <br /> &lt;pre&gt;<br /> //////////////////////////////////////////////////////////////////////////////////////////<br /> //////// PopUp Menu Utility Routines<br /> //////////////////////////////////////////////////////////////////////////////////////////<br /> <br /> interface<br /> uses Menus, Classes, DBGrids, Controls, Types, bpcStringList, Windows, Db;<br /> <br /> type<br /> TbpcComponentDynArray = array of TComponent;<br /> TbpcDBGridDynArray = array of TDBGrid;<br /> TbpcDataSourceDynArray = array of TDataSource;<br /> <br /> // Show a popupmenu at the cursor location, remembering the calling grid<br /> // If the source is a TDBGrid, use that, else use the controls DataSource for the Sender.PopupComponent<br /> procedure bpcPopMenu1GridShow(myPop : TPopupMenu; Sender: TDBGrid );<br /> // Show a popupmenu at the cursor location, remembering the calling db component&#039;s datasource<br /> // If the source is a TDBGrid, use that, else use the controls DataSource for the Sender.PopupComponent<br /> procedure bpcPopMenu1DBControlShow(myPop : TPopupMenu; Sender: TDataSource );<br /> // Show a popupmenu at the cursor location, remembering the calling component<br /> // If the source is a TDBGrid, use that, else use the controls DataSource for the Sender.PopupComponent<br /> procedure bpcPopMenu1Show(myPop : TPopupMenu; Sender: TComponent );<br /> // Copy the selected rows from the dbgrid into the clipboard as an smXMLPacket<br /> function bpcPopMenu1Copy(Sender : TPopupMenu ) : boolean;<br /> // Copy the current row from a db control aware control&#039;s datasource into the clipboard as an smXMLPacket<br /> function bpcsmXMLDBControlCopy( Sender: TDataSource) : boolean ;<br /> // Copy the selected rows from the dbgrid into the clipboard as an smXMLPacket<br /> function bpcsmXMLDBGrid1Copy( Sender: TDBGrid) : boolean ;<br /> // Paste the selected rows to the db control held on the popmenu into the clipboard as an smXMLPacket<br /> // If the source is a TDBGrid, use that, else use the controls DataSource for the Sender.PopupComponent<br /> procedure bpcPopMenu1Paste(Sender : TPopupMenu; IndexBank : array of string; GridBank : array of TComponent);<br /> // Paste the clipboard into a db control aware control&#039;s datasource from the clipboard stored smXMLPacket<br /> procedure bpcsmXMLDBControlPaste( Sender: TComponent; IndexBank : array of string; GridBank : array of TComponent ) ;<br /> // Step through the list (array) of TDBGrid pointers and turn on or off (on mode) the row select mode.<br /> // Returns the value of mode.<br /> function bpcSwitchAllDBGridsToRowSelect( mode: boolean; Targets : array of TDBGrid) : boolean;<br /> <br /> &lt;/pre&gt;<br /> =BackLinks=<br /> <br /> {{#dpl: linksto={{FULLPAGENAME}} }}</div>

Bishopj