Wir nutzen TX Text Control als Ersatz für Fließtextfelder. Damit steht eine komfortable Textverarbeitung zur Verfügung. Das Ergebnis wird als RTF im Memo gespeichert. So weit, so gut. Nun hatten wir vorher in MLEs Kontextmenüs (rechte Maustaste), über die man diverse Clipboard-Funktionen und noch ein paar andere Sachen erreichen konnte. Das hätten wir gerne im TX (Active X) auch. Ich erzeuge also zunächst mein TX Text Control auf der DialogArea eines Parents. Klappt alles:
Code: Alles auswählen
oTxControl := XbpActiveXControl():new( oDlgArea )
oTxControl:CLSID := 'TIS.TX.TextControl.13'
oTxControl:license := 'haha,dieverrateichhiernatürlichnicht'
oTxControl:create(oDlgArea,,{0,hstatus},{w,htext} )
usw.
Code: Alles auswählen
oTxMenu := XbpMenu():new( oTxControl):create()
oTxMenu:AddItem( {"Formatieren (Schrift)",{ || oTxControl:FontDialog(),SetAppFocus(oTxControl) } } )
oTxMenu:AddItem( {NIL, NIL, XBPMENUBAR_MIS_SEPARATOR, 0 } )
oTxMenu:AddItem( {"Löschen",{ || oTxControl:Clip(4) } } )
oTxMenu:AddItem( {"Ausschneiden",{ || oTxControl:Clip(1) } } )
oTxMenu:AddItem( {"Kopieren",{ || oTxControl:Clip(2) } } )
oTxMenu:AddItem( {"Einfü