Подскажите пожалуйста, почему в этом примере форматируется только первая строка, а вторая и последующие - уже нет. Я о шрифте к примеру.
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <GUIRichEdit.au3>
Opt("GUIOnEventMode", 1)
$hGUI = GUICreate("GUI Log Demo", 320, 200, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_CLIPSIBLINGS))
$hRichEdit = _GUICtrlRichEdit_Create($hGUI, "", 0, 0, 320, 200)
_GUICtrlRichEdit_SetReadOnly($hRichEdit, True)
_GUICtrlRichEdit_SetFont($hRichEdit, 15, 'georgia')
GUISetState(@SW_SHOW, $hGUI)
_WriteLog("Это один текст" & @CRLF, 1, 0x666666)
_WriteLog("Это один текст" & @CRLF, 1, 0x666666)
_WriteLog("Это один текст" & @CRLF, 1, 0x666666)
_WriteLog("Это один текст" & @CRLF, 1, 0x666666)
_WriteLog("Это один текст" & @CRLF, 1, 0x666666)
_WriteLog("Это один текст" & @CRLF, 1, 0x666666)
_WriteLog("Это один текст" & @CRLF, 1, 0x666666)
_WriteLog("Это один текст" & @CRLF, 1, 0x666666)
_WriteLog("Это один текст" & @CRLF, 1, 0x666666)
_WriteLog("Это один текст" & @CRLF, 1, 0x666666)
MsgBox(16,'','')
GUIDelete($hGUI)
Exit
Func _WriteLog($sData, $iAppend = True, $iColor = 0, $iBold = False, $iItalic = False, $iUnderline = False, $iFontSize =11)
Local $sCurrentData = _GUICtrlRichEdit_GetText($hRichEdit)
If $iAppend Then
_GUICtrlRichEdit_AppendText($hRichEdit, $sData)
Else
_GUICtrlRichEdit_SetText($hRichEdit, $sData)
EndIf
Local $iSelStart = StringLen($sCurrentData)
Local $iSelLength = StringLen($sData)
_GUICtrlRichEdit_SetSel($hRichEdit, $iSelStart, $iSelStart + $iSelLength)
_GUICtrlRichEdit_SetCharColor($hRichEdit, $iColor)
Local $sAttribs = "-bo-it-un"
If $iBold Then $sAttribs = StringReplace($sAttribs, "-bo", "+bo")
If $iItalic Then $sAttribs = StringReplace($sAttribs, "-it", "+it")
If $iUnderline Then $sAttribs = StringReplace($sAttribs, "-un", "+un")
_GUICtrlRichEdit_SetCharAttributes($hRichEdit, $sAttribs)
_GUICtrlRichEdit_SetFont($hRichEdit, $iFontSize)
_GUICtrlRichEdit_SetSel($hRichEdit, -1, -1); Set the selection to -1 (to scroll to the end)
EndFunc