Information about TGet Class.

[Horizon]

Hi,

I want to find out Where is the Get class source in TClipGet class which is inherited from get?

thanks,

[James Bott]

Hakan,

FWH\source\classes\tget.prg

James

[Horizon]

Thanks James,

I have seen the TGet. There is a oGet DATA in this class that is created from function FWGetNew. This function creates a TClipGet instance.

Code: Select all  Expand view

#include "fivewin.ch"

//----------------------------------------------------------------------------//

#ifdef __XPP__
   #define GetNew _GetNew
#endif

#ifndef __XPP__

CLASS TClipGet FROM Get

   METHOD Display() VIRTUAL

ENDCLASS

#endif

//---------------------------------------------------------------------------//

function FWGetNew( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )

return TClipGet():New( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )

//---------------------------------------------------------------------------//

As you can see TClipGet is inherited from Get Class. I am searching the this Get class.

[James Bott]

Hakan,

I see, that must be the (x)Harbour get class. You will need the (x)Harbour source.

James

[Horizon]

Thanks James,

I will try to find it.