SysTabControl32 en tFolder()

[noe aburto]

Saludos.

Inicio con migracion a 32 bits con FW y xH

Tengo en varios programas el tFolder() a nivel fuente y no con recursos.
MI problema es como cambiar el control 'TFOLDER' pos 'SysTabComntrol32' si mi codigo dice:

oFOLDER:=TFolder():New(0,0,{'Datos','Historico','Fechas'},.....)

[Antonio Linares]

Noe,

En ese caso no tienes que hacer nada

FiveWin automaticamente usará SysTabControl32 para crear el control.

[karinha]

#Include "FiveWin.ch"

Code: Select all  Expand view

Function Main()

    LOCAL oDlg,oFld

    oDlg = TDialog():New(5,5,20,50,"FiveWin Dynamic folders",,,.F.,,,,,,.F.,,,,,,.F. )

    oFld := TFolder():New(0.5,1,{"&xBase","&And OOP",ALLTRIM("")},{ },oDlg,,,,.F.,.F.,160,90,,.F.,,,,,,)

    oFld:SetOption(1)
    oFld:aEnable := { .T.,.T.,.F.,.F. }
    oFld:Show()

    oFld:lWin95Look := .T.

    TButton():New(1,1,"&Hello",oFld:aDialogs[ 1 ],{||MsgInfo("Hello world!" )},,,,,.F.,.F.,.F.,,.F.,,,.F. )

    oDlg:Activate(oDlg:bLClicked,oDlg:bMoved,oDlg:bPainted,.T.,,,,oDlg:bRClicked,,)

Return Nil

//-> FIN


[noe aburto]

Noe,

En ese caso no tienes que hacer nada

FiveWin automaticamente usará SysTabControl32 para crear el control.

Gracias Antonio.

Mi problema es que al ejecutar mi apliacion no me presenta los folders de mi tFolder (solo los datos del primer folder), esto solo es con win32, porque si lo ejecuto a 16 bits no tengo problema.

FW +xH

[Antonio Linares]

Prueba a construir este ejemplo. Que version de FWH estas usando ?

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oFld
   
   DEFINE DIALOG oDlg SIZE 400, 300

   @ 0.5, 1 FOLDER oFld OF oDlg SIZE 188, 138 ;
      PROMPTS "One", "Two", "Three"
     
   ACTIVATE DIALOG oDlg CENTERED

return nil


[noe aburto]

Prueba a construir este ejemplo. Que version de FWH estas usando ?

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oFld
   
   DEFINE DIALOG oDlg SIZE 400, 300

   @ 0.5, 1 FOLDER oFld OF oDlg SIZE 188, 138 ;
      PROMPTS "One", "Two", "Three"
     
   ACTIVATE DIALOG oDlg CENTERED

return nil


Estoy usando FW 2.4 y xHarbour 0.9

[Antonio Linares]

Te funciona ese ejemplo ?

[noe aburto]

Te funciona ese ejemplo ?

Saludos.

Ya probe el ejemplo que me pasaste, pero sigo en las mismas. Qiuza si sea entonces por la version de FW y xH que uso.
Que version deberia de estar usando?

MI version Fw 2.4, xH 0.9, BCC 5.1.1

[Antonio Linares]

Revisa el fichero FWH\source\classes\folder.prg y comprueba si la palabra "SysTabControl32" está dentro de él.

[noe aburto]

Revisa el fichero FWH\source\classes\folder.prg y comprueba si la palabra "SysTabControl32" está dentro de él.

Antonio.

No se si el problema del porque no me funciona TFolder sea por que uso Fw 2.4, XH 0.9, BCC 5.5

El prg \fw24\source\classes\folder.prg contiene un solo systabcontrol32:

METHOD New( nTop, nLeft, aPrompts, aDialogs, oWnd, nOption, nClrFore,;
nClrBack, lPixel, lDesign, nWidth, nHeight, cMsg, lAllWidth,;
oFont ) CLASS TFolder
.....
if ! Empty( oWnd:hWnd )
#ifdef __CLIPPER__
::Create()
#else
::Create( "SysTabControl32" )
#endif
oWnd:AddControl( Self )
else
oWnd:DefControl( Self )
endif
....

return Self

por favor indicame si me funciona con estas versiones y de los contrario cuanto me costaria una actualizacion para FWH