FiveTech Software tech support forums

... the previous columns, obviously the state is saved. xbrowse's setcolumns() method has been changed and loaded at the beginning of the procedure in override mode. by doing this way I don't need to go and modify the original xbrowse class every time, so I always have the compatible fwh version. We ...

... I make somethig with Override but I can add or modify a method but I not Know how create new datas

... in c:\fwh\source\function\imgtxtio.prg when using more Lines oPanel2 "grow" but Position of oPanel3 are same so it will "override" --- i have modify you Sample, using MEMO/READONLY/NOSCROLL instead of (extra) PANEL, which work for me so far it will "resize" ...

... in c:\fwh\source\function\imgtxtio.prg when using more Lines oPanel2 "grow" but Position of oPanel3 are same so it will "override" --- i have modify you Sample, using MEMO/READONLY/NOSCROLL instead of (extra) PANEL, which work for me so far it will "resize" ...

hi Antonio,

have installed harbour Version, which was include in my harbour_win32_bcc_2020_10_19.zip, and override hbwin.LIB
now it work without Error and i can change "Voice" of SpVoice.

thx again for your GREAT help.

... :={ |k|If( k == ASC("V") .and. GetKeyState(VK_CONTROL ), Check CRL F(), ) } for each control if the method can be modified :KeyDown via Override ? With override, the change applies to all Gets and we need not write this for each Get. If you like, you can override the method till next ...

... :={ |k|If( k == ASC("V") .and. GetKeyState(VK_CONTROL ), Check CRL F(), ) } for each control if the method can be modified :KeyDown via Override ? 2. Will this function work when entering data from the clipboard via the context menu ? Can use :bChange and check which way to make these ...

... a huge amount of content there. xBbrowse always works fine.In this case, it's my mistake . I just wanted to find the reason by looking (via Override) at the work of the xBrowse methods. I am interested in the method that is executed when a cell is clicked

Dear Silvio,

This example works fine:

Code: Select all  Expand view

function Main()

   local oError := ErrorNew()
   
   __objAddData( oError, "test" )
   
   oError:test = "hello"
   ? oError:test

return nil

Dear Silvio, You add a new DATA to the object, not to the class: #xcommand EXTEND DATA <!Message!> [IN] OBJECT <!object!> => ; __objAddData( <object>, #<Message> ) which is the object ? sample If I must add a data into Txbrowse how I can make ? EXTEND DATA aDefaultCols IN...

Dear Silvio,

You add a new DATA to the object, not to the class:

#xcommand EXTEND DATA <!Message!> [IN] OBJECT <!object!> => ;
__objAddData( <object>, #<Message> )

#xcommand EXTEND DATA <!Message!> [IN] CLASS <!Class!> => ; __objAddData( <Class>():classH, #<Message> ) seem run ok then if I add a data sample : EXTEND DATA aDefaultCols IN CLASS TXBrowse give me an error Error occurred at: 11/13/23, 13:13:45 Error description: Error BAS...

FUNCTION __objAddData( oObject, cSymbol ) it is inside: https://github.com/harbour/core/blob/master/src/rtl/objfunc.prg I tried with #xcommand EXTEND DATA <!Message!> [IN] CLASS <!Class!> __objAddData( <Class>():classH, #<Message> ) EXTEND DATA aDefaultCols IN CL...

FUNCTION __objAddData( oObject, cSymbol )

it is inside:
https://github.com/harbour/core/blob/master/src/rtl/objfunc.prg

... Silvio, Please review this: https://github.com/harbour/core/blob/master/src/rtl/objfunc.prg for modify a Method run ok with #xcommand OVERRIDE METHOD <!Message!> [IN] CLASS <!Class!> ;                             WITH [METHOD] <!Method!> [SCOPE ...