Determining if text is visible.

[On_fire]

I have a read-only edit control and I need to determine if all of the text in it is visible.

Is this possible, and if not could it be done with another control or without being read-only?

[lod3n]

Maybe use a fixed width font, and find out how many characters your edit control can display. Then count the number of characters you are displaying. If $count <= $max, then all of the text is visible.

[On_fire]

Thanks for the help. I couldn't figure out how to find out how many characters it could display, so I made a block of text the right size, and checked how many lines there were.

Here is the function I was working on, it changes the font size to the maximum that will display all the rows and columns specified. Please post any suggestions you have.

Note: This does require the box to be read-only to work.

EDIT: Wording and removed some old code.

Func resize( $editBox, $cols, $rows )
    $oldText = GUICtrlRead ( $editBox )
    $testData = _StringRepeat ( " ", $cols)
    $testData = $testData & _StringRepeat ( @CRLF &_StringRepeat ( " ", $cols ), $rows -1)
    GUICtrlSetData ( $editBox, $testData )
    Do
        increaseFontSize ( )
    Until _GUICtrlEditGetLineCount ( $editBox ) <> $rows
    Do
        decreaseFontSize ( )
    Until _GUICtrlEditGetLineCount ( $editBox ) = $rows
    GUICtrlSetData ( $editBox, $oldText )
EndFunc

Edited August 1, 2007 by On_fire