| 1 | #include <GUIConstantsEx.au3> |
|---|
| 2 | #include <GuiRichEdit.au3> |
|---|
| 3 | #include <WindowsConstants.au3> |
|---|
| 4 | |
|---|
| 5 | Example() |
|---|
| 6 | |
|---|
| 7 | Func Example() |
|---|
| 8 | Local $hGui, $hRichEdit, $hRichEdit2, $hRichEdit3, $hRichEdit123 |
|---|
| 9 | Local $iMsg |
|---|
| 10 | $hGui = GUICreate("Example (" & StringTrimRight(@ScriptName, 4) & ")", 1300, 350, -1, -1) |
|---|
| 11 | |
|---|
| 12 | #Region Create all RichEdit controls |
|---|
| 13 | $hRichEdit1 = _GUICtrlRichEdit_Create($hGui, "This is a first test.", 10, 10, 300, 220, _ |
|---|
| 14 | BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL)) |
|---|
| 15 | _GUICtrlRichEdit_AppendText($hRichEdit1, @CRLF & "This is more text" & @CRLF) |
|---|
| 16 | |
|---|
| 17 | $hRichEdit2 = _GUICtrlRichEdit_Create($hGui, "This is a second test.", 320, 10, 300, 220, _ |
|---|
| 18 | BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL)) |
|---|
| 19 | _GUICtrlRichEdit_AppendText($hRichEdit2, @CRLF & "This is more text" & @CRLF) |
|---|
| 20 | |
|---|
| 21 | $hRichEdit3 = _GUICtrlRichEdit_Create($hGui, "This is a third test.", 630, 10, 300, 220, _ |
|---|
| 22 | BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL)) |
|---|
| 23 | _GUICtrlRichEdit_AppendText($hRichEdit3, @CRLF & "This is more text" & @CRLF) |
|---|
| 24 | |
|---|
| 25 | $hRichEdit123 = _GUICtrlRichEdit_Create($hGui, "This is a combined test.", 940, 10, 300, 220, _ |
|---|
| 26 | BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL)) |
|---|
| 27 | _GUICtrlRichEdit_AppendText($hRichEdit123, @CRLF & @CRLF) |
|---|
| 28 | #EndRegion Create all RichEdit controls |
|---|
| 29 | |
|---|
| 30 | ; Copying $hRichEdit1 to $hRichEdit123 |
|---|
| 31 | _GUICtrlRichEdit_CopyAllToRichEdit($hRichEdit1, $hRichEdit123) |
|---|
| 32 | |
|---|
| 33 | ; Copying $hRichEdit2 to $hRichEdit123 |
|---|
| 34 | _GUICtrlRichEdit_CopyAllToRichEdit($hRichEdit2, $hRichEdit123) |
|---|
| 35 | |
|---|
| 36 | ; Copying $hRichEdit3 to $hRichEdit123 |
|---|
| 37 | _GUICtrlRichEdit_CopyAllToRichEdit($hRichEdit3, $hRichEdit123) |
|---|
| 38 | |
|---|
| 39 | GUISetState(@SW_SHOW) |
|---|
| 40 | |
|---|
| 41 | While True |
|---|
| 42 | $iMsg = GUIGetMsg() |
|---|
| 43 | Select |
|---|
| 44 | Case $iMsg = $GUI_EVENT_CLOSE |
|---|
| 45 | _GUICtrlRichEdit_Destroy($hRichEdit1) ; needed unless script crashes |
|---|
| 46 | _GUICtrlRichEdit_Destroy($hRichEdit2) ; needed unless script crashes |
|---|
| 47 | _GUICtrlRichEdit_Destroy($hRichEdit3) ; needed unless script crashes |
|---|
| 48 | _GUICtrlRichEdit_Destroy($hRichEdit123) ; needed unless script crashes |
|---|
| 49 | ; GUIDelete() ; is OK too |
|---|
| 50 | Exit |
|---|
| 51 | EndSelect |
|---|
| 52 | WEnd |
|---|
| 53 | EndFunc ;==>Example |
|---|
| 54 | |
|---|
| 55 | Func _GUICtrlRichEdit_CopyAllToRichEdit(ByRef $hSourceRichEdit, ByRef $hDestinationRichEdit) |
|---|
| 56 | |
|---|
| 57 | ; check for current selection in source control |
|---|
| 58 | Local $aSelection = _GUICtrlRichEdit_GetSel($hSourceRichEdit) |
|---|
| 59 | |
|---|
| 60 | ; select all contents in source control |
|---|
| 61 | _GUICtrlRichEdit_SetSel($hSourceRichEdit, 0, -1) |
|---|
| 62 | |
|---|
| 63 | ; select selected contents in source control |
|---|
| 64 | _GUICtrlRichEdit_Copy($hSourceRichEdit) |
|---|
| 65 | |
|---|
| 66 | ; paste content to destination control |
|---|
| 67 | _GUICtrlRichEdit_Paste($hDestinationRichEdit) |
|---|
| 68 | |
|---|
| 69 | ; revert back selection in source control |
|---|
| 70 | _GUICtrlRichEdit_SetSel($hSourceRichEdit, $aSelection[0], $aSelection[1]) |
|---|
| 71 | |
|---|
| 72 | EndFunc ;==>_GUICtrlRichEdit_CopyAllToRichEdit |
|---|
