Rich Edit UDFs: a programmer-friendly approach

[c.haslam]

Attached are some 80 UDFs for Rich Edit. They have all been tested fairly extensively. The .zip file includes Notes.rtf. The included Example.au3 reads Notes.rtf.

Many of the functions are based on the ones Prog@ndy collected from the forums and the ones he wrote.

Suggestions for improvements are welcome. If I failed to credit an author of some code, please advise. Without you guys, I wouldn't have advanced as far as I have.

...chris

Version 0.1 attached

Version 0.3 attached

Version 0.4 attached

Version 0.5 attached - now 96 functions

Edited April 7, 2009 by c.haslam

[jiyan006]

thanx

it's very helpfull

[c.haslam]

Version 0.3 has been uploaded. I think that the UDFs are ready for submission to Gary Frost, but they do need peer review.

Edited March 18, 2009 by c.haslam

[Dampe]

Crashes every time i try to load "Example.au3"

[c.haslam]

I found the bug: I developed the code using 3.2.12 and switched to 3.3.0.0 right at the end. In __GCR_StreamFromFileCallback I had wchar rather than char. A late-night error?

I have uploaded version 0.4. Thanks for the heads-up.

[c.haslam]

Version 0.5 uploaded: now 96 functions.

[TheSaint]

Version 0.5 uploaded: now 96 functions.

Thanks for sharing!

When I get a chance, I'll check it out!

[c.haslam]

Does anyone know (or have a suggestion) as to how to disable/enable a RichEdit control?

I think I could "cheat": call _GuiCtrlRichEdit_SetReadOnly and call _GUICtrlRichEdit_SetCtrlBkColor($hRichEdit,0xC0C0C0) to set the background to grey. But the control would still be a tab stop.

Is there an elegant way?

...chris

[Yashied]

Nice work! Thanks.

[ProgAndy]

Does anyone know (or have a suggestion) as to how to disable/enable a RichEdit control?

I think I could "cheat": call _GuiCtrlRichEdit_SetReadOnly and call _GUICtrlRichEdit_SetCtrlBkColor($hRichEdit,0xC0C0C0) to set the background to grey. But the control would still be a tab stop.

Is there an elegant way?

...chris

I think, it should work with these two funcs

ControlEnable($h_RichEdit, "","")
ControlDisable($h_RichEdit,"","")

[c.haslam]

Thanks. It works, so no need to include functions for this in the UDF family.

[dantay9]

I got an error when trying to run _GuiCtrlRichEdit_SetCharColor.au3. It says that consdebug is not a function.

[Ascend4nt]

Does this have Hyperlink support? I'm just curious, as I've recently written a function to pull out hyperlinks from RTF data. Through experimentation, and from what I've read (mainly glanced over), the format is generally {HYPERLINK "http://www.google.com" hyperlink_text}. Of course, there can be any number of other braces between the end of the actual hyperlink in quotes and the full text representing that link - which my function takes into account (brace-level). I'm still probably missing a few variations on the RTF format, and I only support the \u#### unicode characters currently, but its a start.

Also, if its of any use, I've written 2 RTF functions, one which strips Binary-embedded objects from RTF data (occuring typically as {\bin#### xxxxxxxxx}), and another which grabs RTF data from the clipboard using a relatively standard clipboard get method..

Then again, this is all based on a lower-level, and it appears from a brief glance that most of the code uses an abstraction layer..

[Cusem]

Great UDF!

Is it possible to add a tooltip to the RichEdit control?

And would love to be able to set the text color (read in the comments these functions don't operate well in RE v0.5). Any updates on this?

[LAttilaD]

Trying to start Example.au3, it says _GUICtrlRichEdit_StreamFromFile is an unknown function, despite the fact GuiRichEdit.au3 is included and is in the include folder of Autoit. What should I do?

[Kip]

I haven't took a close look at it yet, but how is this different than ProgAndy's UDF?

btw, the PauseRedraw and ResumeRedraw functions are mine, probably some others too.

Edited September 10, 2009 by Kip

[Achilles]

It seems that in version .5 the support for text color (_GUICtrlRichEdit_Get/SetCharColor) has been removed. Is this going to be changed?

[quake101]

Thanks for this great UDF. Would you please add a function to add hyper links to text? I really like the auto URL function but I want to add links to text with out showing the url.

[zackrspv]

It seems that in version .5 the support for text color (_GUICtrlRichEdit_Get/SetCharColor) has been removed. Is this going to be changed?

The following code should allow you to set color:

Had to do some research lol but there are a few options that are useable from other richedit releases that will work for this one too

;====================================================================================================
; Function Name: _GUICtrlRichEdit_SetFontColor
; Description:    Select the text color
; Parameters    : $hWnd         - Handle to the control
;                 $hColor       - Color value (BGR)
;                 $iSelect      - Color entire text or selection (default)
; Return values : True on success, otherwise False
; Author        : Yoan Roblet (Arcker)
; Rewritten     : grham
; Notes         :
;====================================================================================================
;
Func _GUICtrlRichEdit_SetFontColor($hWnd, $hColor, $iSelec = False)
    Local $tCharFormat = DllStructCreate($tagCHARFORMAT2)
    DllStructSetData($tCharFormat, 1, DllStructGetSize($tCharFormat))
    DllStructSetData($tCharFormat, 2, $CFM_COLOR)
    DllStructSetData($tCharFormat, 6, $hColor)
    Local $iSelec2 = $SCF_ALL
    If $iSelec Then $iSelec2 = $SCF_SELECTION
    Return _SendMessage($hWnd, $EM_SETCHARFORMAT, $iSelec, DllStructGetPtr($tCharFormat))
EndFunc   ;==>_GUICtrlRichEdit_SetFontColor

[zackrspv]

Thanks for this great UDF. Would you please add a function to add hyper links to text? I really like the auto URL function but I want to add links to text with out showing the url.

I've been using this UDF in my primary project at the moment (full RTF based chat). I found it easier to enable the LINK messages; and then write custom code to insert RTF code with links enabled in them. So, basically, I took what the user entered as link and TITLE, and formatted a RTF data message, and appended the RTF to the actual RTF control.

You can lookup, from many places, how to embed a link in RTF, and get the proper formatting.

$msg = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}" & _
            "{\colortbl ;\red128\green0\blue0;}{\colortbl ;\red0\green0\blue255;}" & _
            "{\*\generator Msftedit 5.41.21.2508;}\viewkind4\uc1\pard\qc\cf1\b\f0\fs20\b0\fs20 :  \b[" & @HOUR & ":" & @MIN & ":" & @SEC & "] " & _
            $USERHANDLE & ":\b0  \ul\b \cf0\cf2\b " & _
            '{\field{\*\fldinst{HYPERLINK "'&$USER_LINK_LOCATION'&"}}{\fldrslt{\pard\f0\fs20 ' & $USER_LINK_TITLE & "\ulnone\b0 }}}" & _
            "\ulnone\b0\cf0\cf1:  " & $USER_LINK_MESSAGE & "  \b\i\cf0\b0\i0\par" & _
            "}"

So, basically, i just collected the following information:

* Link Location (actual link)

* Link Title (what you want the link to appear as)

* Link Message (any extra information about the link)

The $USERHANDLE is a variable I created to be able to get a data message out to my clients that looks like:

TomHanks: [18:53:22] LINK GOES HERE: Link message goes here.

So it looks properly in the code.

Granted, you can change the above RTF to what you need, but that process is what worked for me. Now, my clients can enter any links they want directly (just by typing them in), or can click on the 'hyperlink' button, and enter a custom title/message for a link as well.

Edited September 22, 2009 by zackrspv