Flexgrid: A long word is not wrapping in MSFlexgrid

[vb.elmar]

Hello, unfortunately the MSFlexgrid control doesn't wrap long words, as the following
code sample shows.

Code sample :


Private Sub Form_Activate()
    DoEvents
    MSFlexGrid1.Height = 1600
    MSFlexGrid1.RowHeight(1) = 800
    MSFlexGrid1.WordWrap = True
    MSFlexGrid1.TextMatrix(1, 1) = "XaaaaaaaaaaaaaaaaaY"
End Sub

So I coded my own wordwrapper function. It needs a TextBox with the "multiline" property
set to "True" and it is using "SendMessage". The wordwrapper is working fine :

Function wordwrapper(s As String) As String
  Const EM_GETLINECOUNT = &HBA
  Const EM_LINEINDEX = &HBB
  Dim NumOfLines As Long, y As Long, firstCharInThisLine As Long
  Dim firstCharInThisLineOld As Long
    Text1.Text = s
    'getting the number of lines in Text1 :
    NumOfLines = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0&, ByVal 0&)
    For y = 1 To NumOfLines - 1
        firstCharInThisLine = SendMessage(Text1.hwnd, EM_LINEINDEX, y, ByVal 0&)
        wordwrapper = wordwrapper & Mid(Text1, firstCharInThisLineOld _
        + 1, firstCharInThisLine - firstCharInThisLineOld) & vbCrLf
        firstCharInThisLineOld = firstCharInThisLine
    Next
    wordwrapper = wordwrapper & Mid(Text1, firstCharInThisLineOld + 1)
End Function

My problem:
In the thread http://www.vbforums.com/showthread.p...le-long-words) I used the "DrawText"
API to break a single long word like "XaaaaaaaaaaaaaaaaaY" (successfully!).
-My question: How can I write the "DrawText" output to the Flexgrid Cell(1,1) ?
-I want to do this with an API, and I don't want to use MSFlexGrid1.TextMatrix(1, 1) = "XaaaaaaaaaaaaaaaaaY".

The API Viewer is showing eleven different "TextOut" functions.

[dilettante]

Short answer: you can't.

I don't have a fix to offer but maybe somebody else will share one before you or I come up with one ourselves.

[dilettante]

The answer for this in the MSHFlexGrid seems to be a property called ColWordWrapOption that can be assigned a value such as flexWordBreakEllipsis:

        .ColWidth(.Cols - 1) = 2400
        .ColWordWrapOption(.Cols - 1) = flexWordBreakEllipsis

This doesn't do things the way you want of course and it relies on the user to resize the row to expose the wrapped data:

The MSDN web site has dropped the article describing this property and its values, so you'll have to look it up in your MSDN CD documentation.

[jpbro]

This is a longshot because you'd probably be using this control over the MSFlexGrid if you had the choice, but do you have the ComponentOne VSFlexGrid in your components list? If so, you can set the OwnerDraw property to FlexODComplete, and then draw anything you like in any cell using API calls.

[luca90]

The answer for this in the MSHFlexGrid seems to be a property called ColWordWrapOption that can be assigned a value such as flexWordBreakEllipsis:

        .ColWidth(.Cols - 1) = 2400
        .ColWordWrapOption(.Cols - 1) = flexWordBreakEllipsis

This doesn't do things the way you want of course and it relies on the user to resize the row to expose the wrapped data:

The MSDN web site has dropped the article describing this property and its values, so you'll have to look it up in your MSDN CD documentation.

hi bro.
can you post a little project for tath?
Tks.

[SamOscarBrown]

Why do you need an example project...dilettante gave you the necessary code to wrap long words....TRY IT!

[ISAWHIM]

Few programs, if any, will "break a whole word into multiple word-chunks"

Pay
the
rap
ist

Is it "Pay therapist" or "Pay the rapist"?

This is why they invented "auto-fit" to boxes and columns, and it's called "Word wrap", not "Letter wrap", it wraps whole words. You want it to wrap letters, from words.

It will look horrible using it for anything that has actual volume to it. (Which is why programs don't do it.)
I see y
ou went
to the s
tore fo
r groce
ries.

[luca90]

Why do you need an example project...dilettante gave you the necessary code to wrap long words....TRY IT!

Have error in:

...
.ColWidth(.Cols - 1) = 2400

.ColWordWrapOption(.Cols - 1) = flexWordBreakEllipsis '<<<<<< here
...

[ColinE66]

Have error in:

...
.ColWidth(.Cols - 1) = 2400

.ColWordWrapOption(.Cols - 1) = flexWordBreakEllipsis '<<<<<< here
...

Dilettante's code was for a MSHFlexGrid, not an MSFlexgrid. Which are you using?

[luca90]

Dilettante's code was for a MSHFlexGrid, not an MSFlexgrid. Which are you using?

MSFlexGrid1...

[Arnoutdv]

Then switch to MSHFlexGrid

[luca90]

Then switch to MSHFlexGrid

OK TKS.

but i dont love the the very bold line, to define the cells..
i love the thiny line in msflexgrid...

[SamOscarBrown]

What bold versus thin lines are you talking about?

[ISAWHIM]

Change the grid color to grey and be sure the grid style is flat.



Or are you complaining about the "selection indicator outline"? (Or lack of, in the MSFlexGrid.)

[luca90]

What bold versus thin lines are you talking about?

Attachment 187279

first image

[Arnoutdv]

Which bold lines? All lines have a thickness of 1 pixel

[SamOscarBrown]

Yeah...I don't see any difference...Here, I put the BackColorBkg to white on both...see?

[Schmidt]

He probably means the "default-color of the inner GridLines"
(visible in the ScreenShots only at the small vertical line between the "Me | You" cells).

Olaf

[SamOscarBrown]

Ah, yes...probably. My old eyes didn't catch that. Yeah, MAN, that would bother the heck out of me too!!!!! :-)

[ColinE66]

Yeah, MAN, that would bother the heck out of me too!!!!! :-)

So much so, that you didn't even notice it

[ISAWHIM]

first image

Yes, it's not "bold" it's just "grey", not "black".

Thus, change the color of the grid to grey, and it won't look "bold". (Illusion, it's just black, not bold. The other is just grey, not thinner. Both are, as it was said, only 1 pixel wide. "Bold" = "Thicker", not "Darker".)


My other post shows the same exact results with the MSHFlexGrid control... I just changed the color to grey. (This is the MSH grid, in the picture.)


Default color is Black... (The blue selected one, I changed to grey)

[SamOscarBrown]

Yeah...THIS gray looks better: &H00808080&

[luca90]

Yes, it's not "bold" it's just "grey", not "black".

Thus, change the color of the grid to grey, and it won't look "bold". (Illusion, it's just black, not bold. The other is just grey, not thinner. Both are, as it was said, only 1 pixel wide. "Bold" = "Thicker", not "Darker".)


My other post shows the same exact results with the MSHFlexGrid control... I just changed the color to grey. (This is the MSH grid, in the picture.)


Default color is Black... (The blue selected one, I changed to grey)

YES!

[Shaggy Hiker]

Few programs, if any, will "break a whole word into multiple word-chunks"

Pay
the
rap
ist

Is it "Pay therapist" or "Pay the rapist"?

This is why they invented "auto-fit" to boxes and columns, and it's called "Word wrap", not "Letter wrap", it wraps whole words. You want it to wrap letters, from words.

It will look horrible using it for anything that has actual volume to it. (Which is why programs don't do it.)
I see y
ou went
to the s
tore fo
r groce
ries.

Just wanted to point out that there are programs that WILL do this. Desktop publishing programs that are fitting text to column widths will do this. They prefer to fiddle with the spacing between words, but if a word must be split up then there is a way to do that in written English: The hyphen.

Interestingly, this is akin to the line continuation character in VB, as it is a character that means 'this continues on the next line', though in VB, it is that the line of logic continues on the next line, while in written English it means that the word continues on the next line. Note that it solves the first example, because there is no ambiguity as to which parts of the word go together when you use a hyphen to connote word continuation.