Modify ↓
Opened 11 years ago
Closed 11 years ago
#2769 closed Feature Request (Rejected)
Example proposal- _GUICtrlRichEdit_Create[2].au3
| Reported by: | mLipok | Owned by: | |
|---|---|---|---|
| Milestone: | Component: | Documentation | |
| Version: | Severity: | None | |
| Keywords: | Cc: |
Description
Example for multi RichEdit control
#include <GUIConstantsEx.au3>
#include <GuiRichEdit.au3>
#include <WindowsConstants.au3>
Example()
Func Example()
Local $hGui, $hRichEdit, $hRichEdit2, $hRichEdit3, $hRichEdit123
Local $iMsg
$hGui = GUICreate("Example (" & StringTrimRight(@ScriptName, 4) & ")", 1300, 350, -1, -1)
#Region Create all RichEdit controls
$hRichEdit1 = _GUICtrlRichEdit_Create($hGui, "This is a first test.", 10, 10, 300, 220, _
BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
_GUICtrlRichEdit_AppendText($hRichEdit1, @CRLF & "This is more text" & @CRLF)
$hRichEdit2 = _GUICtrlRichEdit_Create($hGui, "This is a second test.", 320, 10, 300, 220, _
BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
_GUICtrlRichEdit_AppendText($hRichEdit2, @CRLF & "This is more text" & @CRLF)
$hRichEdit3 = _GUICtrlRichEdit_Create($hGui, "This is a third test.", 630, 10, 300, 220, _
BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
_GUICtrlRichEdit_AppendText($hRichEdit3, @CRLF & "This is more text" & @CRLF)
$hRichEdit123 = _GUICtrlRichEdit_Create($hGui, "This is a combined test.", 940, 10, 300, 220, _
BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
_GUICtrlRichEdit_AppendText($hRichEdit123, @CRLF & @CRLF)
#EndRegion Create all RichEdit controls
; Copying $hRichEdit1 to $hRichEdit123
_GUICtrlRichEdit_CopyAllToRichEdit($hRichEdit1, $hRichEdit123)
; Copying $hRichEdit2 to $hRichEdit123
_GUICtrlRichEdit_CopyAllToRichEdit($hRichEdit2, $hRichEdit123)
; Copying $hRichEdit3 to $hRichEdit123
_GUICtrlRichEdit_CopyAllToRichEdit($hRichEdit3, $hRichEdit123)
GUISetState(@SW_SHOW)
While True
$iMsg = GUIGetMsg()
Select
Case $iMsg = $GUI_EVENT_CLOSE
_GUICtrlRichEdit_Destroy($hRichEdit1) ; needed unless script crashes
_GUICtrlRichEdit_Destroy($hRichEdit2) ; needed unless script crashes
_GUICtrlRichEdit_Destroy($hRichEdit3) ; needed unless script crashes
_GUICtrlRichEdit_Destroy($hRichEdit123) ; needed unless script crashes
; GUIDelete() ; is OK too
Exit
EndSelect
WEnd
EndFunc ;==>Example
Func _GUICtrlRichEdit_CopyAllToRichEdit(ByRef $hSourceRichEdit, ByRef $hDestinationRichEdit)
; check for current selection in source control
Local $aSelection = _GUICtrlRichEdit_GetSel($hSourceRichEdit)
; select all contents in source control
_GUICtrlRichEdit_SetSel($hSourceRichEdit, 0, -1)
; select selected contents in source control
_GUICtrlRichEdit_Copy($hSourceRichEdit)
; paste content to destination control
_GUICtrlRichEdit_Paste($hDestinationRichEdit)
; revert back selection in source control
_GUICtrlRichEdit_SetSel($hSourceRichEdit, $aSelection[0], $aSelection[1])
EndFunc ;==>_GUICtrlRichEdit_CopyAllToRichEdit
Attachments (1)
Change History (3)
Changed 11 years ago by mLipok
comment:1 Changed 11 years ago by mLipok
comment:2 Changed 11 years ago by guinness
- Resolution set to Rejected
- Status changed from new to closed
Thanks, though this goes beyond the scope of demonstrating _GUICtrlRichEdit_Create().
Guidelines for posting comments:
- You cannot re-open a ticket but you may still leave a comment if you have additional information to add.
- In-depth discussions should take place on the forum.
For more information see the full version of the ticket guidelines here.
Note: See
TracTickets for help on using
tickets.

there is small wording issue
please change to: