Guidance Forums / Rapid-Q Basic / jump within QRICHEDIT-Guidance指路人

Guidance
指路人
g.yi.org

Guidance Forums / Rapid-Q Basic / jump within QRICHEDIT

Home

Software

Upload

回顶部

⇑

Forum List • Thread List • Refresh • New Topic • Search • Previous • Next

1. jump within QRICHEDIT

#844

Posted by: qmark 2003-04-09 17:06:36

how can I jump within QRICHEDIT to a specific line

could'nt find any information in documentation

2. Re: jump within QRICHEDIT

#845

Posted by: guidance 2003-04-09 18:01:39

Consider win32api sendmessage to control QRichEdit:

http://g.yi.org/Software/RQ%20intro/Tips/#sre
http://g.yi.org/f.php?f=5659

3. Re: jump within QRICHEDIT

#846

Posted by: 2003-04-10 09:30:37

To do it without API calls try this:

DECLARE SUB Track
DECLARE SUB GoToLine

CREATE Form AS QFORM
   CREATE Box AS QRICHEDIT
      Align = 5
      HideSelection = 0
      LoadFromFile("test.txt")
   END CREATE
   CREATE Button AS QBUTTON
      Align = 2
      Caption = "Go to line 1"
      OnClick = GoToLine
   END CREATE
   CREATE TrackBar AS QTRACKBAR
      Align = 2
      Height = 20
      OnChange = Track
   END CREATE
   Center
   ShowModal
END CREATE

SUB Track
   TrackBar.Max = Box.LineCount
   Button.Caption = "Go to line " + STR$(TrackBar.Position)
END SUB         '#####

SUB GoToLine    '#####
   Line = TrackBar.Position - 1
   Box.SelStart = INSTR(Box.Text, Box.Line(Line)) - 1
   Box.SelLength = LEN(Box.Line(Line))
END SUB

As a variation, comment out the two lines marked '##### and see the difference.

4. Re: jump within QRICHEDIT

#847

Posted by: qmark 2003-04-10 14:12:15

thanks Alan seems to help me

Forum List • Thread List • Refresh • New Topic • Search • Previous • Next

掌柜推荐