FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour FWH: All functions, classes, methods with source code
Posts: 1487
Joined: Tue Jun 14, 2016 07:51 AM

Re: FWH: All functions, classes, methods with source code

Posted: Thu Oct 06, 2022 09:13 PM

In Mr. Rao's sample there are folowing lines on top

include "fivewin.ch"

define EM_LINESCROLL 182

define EM_GETFIRSTVISIBLELINE 0x00CE

and further in the program the get to show the programlines

nWd := Int( ScreenWidth() * 0.9 )

@ 50,420 GET oGet VAR cText MEMO SIZE nWd - 440, 530 PIXEL OF oDlg FONT oFixed

static function GetSetTopRow( oGet, nRow )

local nTopRow := oGet:SendMsg( EM_GETFIRSTVISIBLELINE )

oGet:SendMsg( EM_LINESCROLL, 0, nRow - nTopRow )

return nil

I don't understand when I change the size of the get the function call to getsetTopRow will not move the cursor to the top location.
I Googled and saw that the 2 defines on top of program have something to do with it.
Mr. Rao, How do you determen the values so the cursor goes to top position in a different size Get ?

Marc Venken

Using: FWH 23.08 with Harbour

Continue the discussion