Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.basic.visual.misc > #507

Re: RichEdit control question

Show all headers | View raw

On 10/17/2011 2:19 PM, Mayayana wrote:
>   OK, I got curious and did this. It's actually fairly
> simple.
>
>    Here's a basic sample that works in VB. Hopefully
> you can translate it to .Bloat. As I was working on it
> I wondered how one would make text visible again.
> How do you know what text it is? You can't select
> invisible text. I don't know whether a hidden word has
> a character index. For instance:
>
> "The quick brown fox"
>
> quick begins at character index 4 and goes to index
> 8. If I hide "quick", is it still at index 4, or is the space
> before "brown" at index 4? If the latter, then how do I
> find hidden text? If the former then how do I accurately
> handle finding the caret position in the window, etc.?
>
>   I don't know. I'll leave that issue to you. The way I did it
> here, for the sake of the demo, is that one sub can hide
> selected text or unhide all hidden text. You should be able
> to use EM_GETCHARFORMAT to find out whether given text
> is hidden, but as detailed above, I'm not sure how that
> plays out.
>
>    This sample was written in VB with a system-drawn
> RichEdit v. 3 window. It won't work with a VB RTB. Maybe it
> works with a VB.Net RTB? I don't know if VB.Net even has
> an RTB. ?? One would hope they could put a basic RTB in
> that 1/2 GB of support file slop that .Bloat requires...
>
>     In any case, the RTB would need to be derived from
> a RichEdit window and it would need to be using v. 3 or
> later. (Some references say hidden text is available in
> v. 2. In any case, v. 3 is available even in Win98 when one
> creates a "RichEdit20A" from RICHED20.DLL. That DLL name
> is the same for v. 2 and v. 3 for the sake of compatibility.
> ... So you shouldn't need to worry about 2 vs 3.)
>
>    I'll leave the constants declarations and such to you.
> The following would be the VB6 code:
>
> '--------------------------------------------
> Public Sub HideText(Hide As Boolean)
>    Dim LRet As Long
>    Dim CF2 As CHARFORMAT2
>      With CF2
>        .cbSize = 84
>        .dwMask = CFM_HIDDEN
>        If Hide = True Then .dwEffects = CFE_HIDDEN  '-- leave this out to
> unhide.
>      End With
>
>      If Hide = True Then
>         SendMessageAny hRTB, EM_SETCHARFORMAT, SCF_SELECTION, CF2
>      Else
>         SendMessageAny hRTB, EM_SETCHARFORMAT, SCF_ALL, CF2
>      End If
> End Sub
> '----------------------------------------------
>
> To hide currently selected text: HideText True
> To unhide all hidden text in the window: HideText False
>
>    As you can see, the actual method is not really very
> complex. It just can't be done with a VB RTB because that
> wraps RichEdit v. 1. Can .Bloat handle system-drawn
> windows? I don't know. If not, and if it doesn't have a
> usable RTB -- and if you know VB -- you could download
> the RTB from vbaccelerator, edit that code to include
> the hidden functionality, then compile it. (The vbaccelerator
> sample also provides all the declarations, if you need those.)

Interesting. SendMessageAny with CF2.dwmask set to CFM_Hidden and with 
selection set to SCF_ALL does indeed globally un-hide all the hidden 
words in the document.

But what values will re-hide them? There must be a way.

Back to comp.lang.basic.visual.misc | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

RichEdit control question Kalkidas <eat@joes.pub> - 2011-10-10 14:41 -0700
  Re: RichEdit control question "Nobody" <nobody@nobody.com> - 2011-10-11 00:53 -0400
  Re: RichEdit control question BTIS Jeff <btisjb@gmail.com> - 2011-10-11 08:17 -0700
    Re: RichEdit control question Kalkidas <eat@joes.pub> - 2011-10-11 14:17 -0700
      Re: RichEdit control question "Mike Williams" <Mike@WhiskyAndCoke.com> - 2011-10-11 22:27 +0100
        Re: RichEdit control question Kalkidas <eat@joes.pub> - 2011-10-11 14:59 -0700
          Re: RichEdit control question "Mike Williams" <Mike@WhiskyAndCoke.com> - 2011-10-12 08:00 +0100
            Re: RichEdit control question Kalkidas <eat@joes.pub> - 2011-10-12 16:18 -0700
              Re: RichEdit control question Deanna Earley <dee.earley@icode.co.uk> - 2011-10-13 08:45 +0100
              Re: RichEdit control question "Mike Williams" <Mike@WhiskyAndCoke.com> - 2011-10-13 10:24 +0100
              Re: RichEdit control question "Mike Williams" <Mike@WhiskyAndCoke.com> - 2011-10-13 11:41 +0100
              Re: RichEdit control question "Mike Williams" <Mike@WhiskyAndCoke.com> - 2011-10-13 13:30 +0100
  Re: RichEdit control question Eric Coleman <eric@strategon.com> - 2011-10-13 19:55 -0500
    Re: RichEdit control question "Mike Williams" <Mike@WhiskyAndCoke.com> - 2011-10-14 09:30 +0100
    Re: RichEdit control question Kalkidas <eat@joes.pub> - 2011-10-15 07:53 -0700
      Re: RichEdit control question "Mike Williams" <Mike@WhiskyAndCoke.com> - 2011-10-15 17:03 +0100
      Re: RichEdit control question ralph <nt_consulting64@yahoo.net> - 2011-10-15 12:25 -0500
        Re: RichEdit control question ralph <nt_consulting64@yahoo.net> - 2011-10-15 12:29 -0500
        Re: RichEdit control question Kalkidas <eat@joes.pub> - 2011-10-15 12:45 -0700
          Re: RichEdit control question ralph <nt_consulting64@yahoo.net> - 2011-10-15 15:24 -0500
          Re: RichEdit control question "Thorsten Albers" <gudea@gmx.de> - 2011-10-15 23:16 +0000
            Re: RichEdit control question Kalkidas <eat@joes.pub> - 2011-10-16 18:21 -0700
              Re: RichEdit control question "Mayayana" <mayayana@invalid.nospam> - 2011-10-16 23:15 -0400
              Re: RichEdit control question "Mayayana" <mayayana@invalid.nospam> - 2011-10-17 17:19 -0400
                Re: RichEdit control question Kalkidas <eat@joes.pub> - 2011-10-17 15:59 -0700
                Re: RichEdit control question "Mayayana" <mayayana@invalid.nospam> - 2011-10-17 19:59 -0400
                Re: RichEdit control question Kalkidas <eat@joes.pub> - 2011-10-17 17:34 -0700
                Re: RichEdit control question "Mayayana" <mayayana@invalid.nospam> - 2011-10-17 23:46 -0400
                Re: RichEdit control question Kalkidas <eat@joes.pub> - 2011-10-18 07:35 -0700
                Re: RichEdit control question "Thorsten Albers" <gudea@gmx.de> - 2011-10-18 15:17 +0000
                Re: RichEdit control question "Mayayana" <mayayana@invalid.nospam> - 2011-10-19 10:09 -0400
                Re: RichEdit control question "Mike Williams" <Mike@WhiskyAndCoke.com> - 2011-10-19 18:26 +0100
          Re: RichEdit control question "Mayayana" <mayayana@invalid.nospam> - 2011-10-15 19:53 -0400
            Re: RichEdit control question "Thorsten Albers" <gudea@gmx.de> - 2011-10-16 03:32 +0000
              Re: RichEdit control question "Mayayana" <mayayana@invalid.nospam> - 2011-10-16 12:02 -0400
                Re: RichEdit control question "Thorsten Albers" <gudea@gmx.de> - 2011-10-16 22:10 +0000
                Re: RichEdit control question "Mayayana" <mayayana@invalid.nospam> - 2011-10-16 19:17 -0400
                Re: RichEdit control question "Thorsten Albers" <gudea@gmx.de> - 2011-10-17 09:43 +0000

csiph-web