Go to a line number in edit control

[WhyTea]

I have created an edit control for a file to be loaded, is there a way to jump to a specific line and highlight it?

/Why Tea

[Mat]

You need to use GUICtrlSendMsg

GUICtrlSendMsg ($hEdit, $EM_LINESCROLL, 0, $nLine)
$nIndex = GUICtrlSendMsg ($hEdit, $EM_LINEINDEX, $nLine, 0)
$nLen = StringLen (ControlCommand ($hGUI, "", $hEdit, "GetLine", $nLine))
GUICtrlSendMsg ($hEdit, $EM_SETSEL, $nIndex, $nIndex + $nLen)

I haven't tried the code, but those are the messages you need. Read MSDN for details.

Mat

[WhyTea]

  On 9/26/2009 at 11:27 AM, 'Mat said:

You need to use GUICtrlSendMsg

GUICtrlSendMsg ($hEdit, $EM_LINESCROLL, 0, $nLine)
$nIndex = GUICtrlSendMsg ($hEdit, $EM_LINEINDEX, $nLine, 0)
$nLen = StringLen (ControlCommand ($hGUI, "", $hEdit, "GetLine", $nLine))
GUICtrlSendMsg ($hEdit, $EM_SETSEL, $nIndex, $nIndex + $nLen)

I haven't tried the code, but those are the messages you need. Read MSDN for details.

Mat

Thanks Matt. The code does go to the line number offset from the first line in the edit box, however the line of text is not highlighted. But that's good enough for I need to do.

/Why Tea

[Mat]

Doesn't highlight it? Thats the bit I thought WOULD work lol.

Once you get to know how to use GUICtrlSendMsg you can do a lot more than you normally would be able to, so its good to read MSDN on it, I have got a similar thing to work before, and I think I used a similar code to that... I will look into it and post a better version soon!

Mat

[WhyTea]

  On 9/26/2009 at 12:15 PM, 'Mat said:

Doesn't highlight it? Thats the bit I thought WOULD work lol.

Once you get to know how to use GUICtrlSendMsg you can do a lot more than you normally would be able to, so its good to read MSDN on it, I have got a similar thing to work before, and I think I used a similar code to that... I will look into it and post a better version soon!

Mat

I'm looking forward to it. Thanks in advance!

/Why Tea

[Mat]

Weird, testng it now and the old code works fine...

Run this and tell me what happens.

#include<editConstants.au3>

$hGUI = GUICreate ("Test", 200, 200)
$hEdit = GUICtrlCreateEdit ("", 2, 2, 196, 196)
For $i = 1 to 500
   GUICtrlSetData ($hEdit, @CRLF & "This is line: " & $i & ".", 1)
Next
GUISetstate ()
Sleep (1000)
_EditScrollAndHighliteLine ($hEdit, 250, $hGUI)
Sleep (5000)

Func _EditScrollAndHighliteLine ($hEdit, $nLine, $hGUI)
   GUICtrlSendMsg ($hEdit, $EM_LINESCROLL, 0, $nLine)
   $nIndex = GUICtrlSendMsg ($hEdit, $EM_LINEINDEX, $nLine, 0)
   $nLen = StringLen (ControlCommand ($hGUI, "", $hEdit, "GetLine", $nLine))
   GUICtrlSendMsg ($hEdit, $EM_SETSEL, $nIndex, $nIndex + $nLen)
EndFunc ; ==> _EditScrollAndHighliteLine

Mat

[Yashied]

  On 9/26/2009 at 1:25 PM, 'Mat said:

Weird, testng it now and the old code works fine...

Run this and tell me what happens.

#include<editConstants.au3>

$hGUI = GUICreate ("Test", 200, 200)
$hEdit = GUICtrlCreateEdit ("", 2, 2, 196, 196)
For $i = 1 to 500
   GUICtrlSetData ($hEdit, @CRLF & "This is line: " & $i & ".", 1)
Next
GUISetstate ()
Sleep (1000)
_EditScrollAndHighliteLine ($hEdit, 250, $hGUI)
Sleep (5000)

Func _EditScrollAndHighliteLine ($hEdit, $nLine, $hGUI)
   GUICtrlSendMsg ($hEdit, $EM_LINESCROLL, 0, $nLine)
   $nIndex = GUICtrlSendMsg ($hEdit, $EM_LINEINDEX, $nLine, 0)
   $nLen = StringLen (ControlCommand ($hGUI, "", $hEdit, "GetLine", $nLine))
   GUICtrlSendMsg ($hEdit, $EM_SETSEL, $nIndex, $nIndex + $nLen)
EndFunc ; ==> _EditScrollAndHighliteLine

Mat

You do not need to use GUICtrlSendMsg(), all you need is present in the GUIEdit.au3 native AutoIt library.

[Mat]

oh year!! completely forgot about that! Although in my defence, that UDF does just use SendMessage to get the job done...

Thats a much easier way to do it, but its a bit less exciting, don't you think?

Mat

[Yashied]

  On 9/26/2009 at 1:38 PM, 'Mat said:

Thats a much easier way to do it, but its a bit less exciting, don't you think?

Most certainly.

[WhyTea]

  On 9/26/2009 at 1:25 PM, 'Mat said:

Weird, testng it now and the old code works fine...

Run this and tell me what happens.

#include<editConstants.au3>

$hGUI = GUICreate ("Test", 200, 200)
$hEdit = GUICtrlCreateEdit ("", 2, 2, 196, 196)
For $i = 1 to 500
   GUICtrlSetData ($hEdit, @CRLF & "This is line: " & $i & ".", 1)
Next
GUISetstate ()
Sleep (1000)
_EditScrollAndHighliteLine ($hEdit, 250, $hGUI)
Sleep (5000)

Func _EditScrollAndHighliteLine ($hEdit, $nLine, $hGUI)
   GUICtrlSendMsg ($hEdit, $EM_LINESCROLL, 0, $nLine)
   $nIndex = GUICtrlSendMsg ($hEdit, $EM_LINEINDEX, $nLine, 0)
   $nLen = StringLen (ControlCommand ($hGUI, "", $hEdit, "GetLine", $nLine))
   GUICtrlSendMsg ($hEdit, $EM_SETSEL, $nIndex, $nIndex + $nLen)
EndFunc ; ==> _EditScrollAndHighliteLine

Mat

Matt, your code work perfectly as it is. But when I called it from a button, it scrolled to the right line, but the line wasn't highlighted? Perhaps it's the highlighting color? When I manually selected the text it's the standard white on blue.

/Why Tea