Help with fGet

[ralph]

I have posted this problem in the spanish forum, but no one has responded. The author of the excelent class fGet (Ramon Avendaño) seems to be out of our world. Any help will be welcome

Please try this little test program :

Code: Select all  Expand view

#include "FiveWin.ch"
#include "FGet.ch"

static oWnd
function Main()
   DEFINE WINDOW oWnd FROM 1, 1 TO 400, 400 PIXEL;
      MDI TITLE "Test fGet"
   ACTIVATE WINDOW oWnd ON INIT new()
return nil

//----------------------------------------------------------------------------//
Function New()
   local oWndChild, oFGet
   static nChild := 0
   DEFINE WINDOW oWndChild OF oWnd ;
             MDICHILD ;
             TITLE "FGet " + LTrim( Str( ++nChild ) )
   oWndChild:Cargo := "THIS IS A LONT TEXT AND WILL DISSAPEAR WHEN YOU SCROLL HORIZONTALLY, TRY TO CORRECT THIS PROBLEM"

   @ -1024, -1024 FORMAT GET oFget VAR oWndChild:Cargo OF oWndChild  HSCROLL

   oWndChild:SetControl( oFGet )
   oWndChild:oControl:SetFocus()
return nil

When you run the program in Windows Xp/ 2000 and you scroll the text horizontally, the text disappears. It seems to be a problem with the function DrawfGetLine(), but my knowledge of "C" is poor .

Please send me a help! (I use FWH 2.7 jan + xHb 0995)


Ralph

[Antonio Linares]

Ralph,

You may use the Class TRichEdit which it is Win32 standard and offers much more possibilities. Please review samples\TestRtf.prg and TestRich.prg

[ralph]

Hi Antonio:

It would be a pity to have to abandone this class, just by lack of maintenance, but anyway.

I will try to modify my preview program to use Richedit class. I read that were many bugs corrected since the version I use (FWH 2.7 january), so I will thank you a lot if you send me the last version of this class to my private email (rdelcastillo@consorcioinformatico.com)


Ralph

[Antonio Linares]

Ralph,

There have been many enhancements with new features on Class TRichEdit but the actual one that you have samples\TestRtf.prg should work ok.