2002-08-04 22:36

'From: "kissug2002" Sun, 04 Aug 2002 13:26:38 -0000

' manipulated text in a qrichedit box

'==================== Here is the Code =============================
     $INCLUDE "rapidq.inc"
     DECLARE SUB popmenu_click(sender AS QMENUITEM)
     CREATE normalfont AS QFONT
     END CREATE
     CREATE selfont AS QFONT
      addstyles "bold"
      COLOR= &h00ff00'ClBlue
      size=20
     END CREATE
     CREATE popupmenu AS QPOPUPMENU
      CREATE high AS QMENUITEM:CAPTION="Highlight":onclick=popmenu_click:END CREATE
      CREATE normal AS QMENUITEM:CAPTION="Normal":onclick=popmenu_click:END CREATE
      CREATE cut AS QMENUITEM:CAPTION="Cut":onclick=popmenu_click:END CREATE
      CREATE copy AS QMENUITEM:CAPTION="Copy":onclick=popmenu_click:END CREATE
      CREATE paste AS QMENUITEM:CAPTION="Paste":onclick=popmenu_click:END CREATE
     END CREATE
     CREATE form AS QFORM
      CREATE edit AS QRICHEDIT
       align=alclient
       popupmenu=popupmenu
       font=normalfont
      END CREATE
      CAPTION="Manipuler du texte dans un RichText. Exemple par ménu contextuel."
      Height=screen.Height
      Width=screen.Width
      BorderStyle=bsDialog
     END CREATE
     edit.text="The quick brown fox jumps over the lazy dog."
     edit.SelectAll
     form.SHOWMODAL
     SUB popmenu_click(sender AS QMENUITEM)
      SELECT CASE sender.CAPTION
      CASE "Highlight"
       edit.selattributes=selfont
      CASE "Normal"
       edit.selattributes=normalfont
      CASE "Cut"
       edit.cuttoclipboard
      CASE "Copy"
       edit.copytoclipboard
      CASE "Paste"
       edit.pastefromclipboard
      END SELECT
     END SUB

2002-08-04 22:36