Функция _GUICtrlRichEdit

_GUICtrlRichEdit_SetParaShading

Sets the shading of paragraph(s) in the current selection or, if no selection, of paragraphs inserted at the insertion point

#include <GuiRichEdit.au3>
_GUICtrlRichEdit_SetParaShading($hWnd [, $iWeight = Default [, $sStyle = Default [, $sForeColor = Default [, $sBackColor = Default]]]])

Параметры

$hWnd	Дескриптор элемента
$iWeight	[необязательный] percent of foreground color, the rest being background color
$sStyle	[необязательный] shading style - a string containing one of the following: non - none dhz - dark horizontal dvt - dark vertical ddd - dark down diagonal dud - dark up diagonal dgr - dark grid dtr - dark trellis lhz - light horizontal lvt - light vertical ldd - light down diagonal lud - light up diagonal lgr - light grid ltr - light trellis
$sForeColor	[необязательный] one of the following: "blk" - black (initial value) "blu" - blue "cyn" - cyan "grn" - green "mag" - magenta "red" - red "yel" - yellow "whi" - white "dbl" - dark blue "dgn" - dark green "dmg" - dark magenta "drd" - dark red "dyl" - dark yellow "dgy" - dark grey "lgy" - light grey
$sBackColor	[необязательный] same values as for $sForeColor

Возвращаемое значение

Успех:	Возвращает True
Ошибка:	Возвращает False и устанавливает @error
@error:	101 - $hWnd is not a handle
	1021 - $iWeight is not a positive number
	1022 - value of $iWeight is invalid
	103 - value of $sStyle is invalid
	104 - value of $sForeColor is invalid
	105 - value of $sBackColor is invalid
	700 - operation failed

Примечания

If text is selected, the defaults are the values of the first paragraph with text selected.
If none is selected, the defaults are the values of the current paragraph.

Shading does not show in Rich Edit, but shading created here will show in Word

См. также

_GUICtrlRichEdit_GetParaShading

См. также

Искать EM_SETPARAFORMAT в библиотеке MSDN

Пример

#include <GuiRichEdit.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $lblMsg, $hRichEdit

Main()

Func Main()
Local $hGui, $btnNext, $iStep = 0
$hGui = GUICreate(StringTrimRight(@ScriptName, 4), 420, 350, -1, -1)
$hRichEdit = _GUICtrlRichEdit_Create($hGui, 'Это тест.', 10, 10, 400, 220, _
BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
$lblMsg = GUICtrlCreateLabel("", 10, 235, 300, 60)
$btnNext = GUICtrlCreateButton("Далее", 270, 310, 60, 30)
GUISetState()

_GUICtrlRichEdit_SetText($hRichEdit, "First paragraph")
Report("0. Para with default settings")

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
_GUICtrlRichEdit_Destroy($hRichEdit)
GUIDelete()
Exit
Case $btnNext
$iStep += 1
Switch $iStep
Case 1
_GUICtrlRichEdit_AppendText($hRichEdit, @CR & "Second paragraph")
_GUICtrlRichEdit_SetParaShading($hRichEdit, 60, "ddd", "blu", "dmg")
Report("1. Shading of second paragraph is ")
Case 2
_GUICtrlRichEdit_SetSel($hRichEdit, 0, 2)
Report("2. Style of first paragraph in the selection is ")
Case 3
_GUICtrlRichEdit_SetSel($hRichEdit, 10, 26)
_GUICtrlRichEdit_SetParaShading($hRichEdit, Default, "dgr")
Report("3. Change shading of both paragraphs")
Case 4
; Весь RTF-код сохраняет в файл на Рабочем столе чтобы посмотреть в Word
_GUICtrlRichEdit_Deselect($hRichEdit)
_GUICtrlRichEdit_StreamToFile($hRichEdit, @DesktopDir & "\gcre.rtf")
GUICtrlSetState($btnNext, $GUI_DISABLE)
EndSwitch
EndSwitch
WEnd
EndFunc ;==>Main

Func Report($sMsg)
$sMsg &= @cr & @cr & "get function returns " & @cr & _GUICtrlRichEdit_GetParaShading($hRichEdit)
GUICtrlSetData($lblMsg, $sMsg)
ControlFocus($hRichEdit, "", "")
EndFunc ;==>Report