FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour SysTabControl32 en tFolder()
noe aburto
Posts: 418
Joined: Wed Nov 26, 2008 06:33 PM
SysTabControl32 en tFolder()
Posted: Thu Nov 27, 2008 05:53 PM

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'},.....)

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
SysTabControl32 en tFolder()
Posted: Thu Nov 27, 2008 06:32 PM

Noe,

En ese caso no tienes que hacer nada :-)

FiveWin automaticamente usará SysTabControl32 para crear el control.

regards, saludos

Antonio Linares
www.fivetechsoft.com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
SysTabControl32 en tFolder()
Posted: Thu Nov 27, 2008 06:35 PM
#Include "FiveWin.ch"
Code: Select all Collapse
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
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
noe aburto
Posts: 418
Joined: Wed Nov 26, 2008 06:33 PM
TFolder no mme presenta los folders
Posted: Thu Nov 27, 2008 06:50 PM
Antonio Linares wrote: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
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
SysTabControl32 en tFolder()
Posted: Thu Nov 27, 2008 06:56 PM
Prueba a construir este ejemplo. Que version de FWH estas usando ?
Code: Select all Collapse
#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
regards, saludos

Antonio Linares
www.fivetechsoft.com
noe aburto
Posts: 418
Joined: Wed Nov 26, 2008 06:33 PM
Tfolder con FW
Posted: Thu Nov 27, 2008 08:17 PM
Antonio Linares wrote:Prueba a construir este ejemplo. Que version de FWH estas usando ?
Code: Select all Collapse
#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
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
SysTabControl32 en tFolder()
Posted: Thu Nov 27, 2008 08:54 PM

Te funciona ese ejemplo ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
noe aburto
Posts: 418
Joined: Wed Nov 26, 2008 06:33 PM
Version de FWH para tfolder
Posted: Fri Nov 28, 2008 02:23 PM
Antonio Linares wrote: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
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
SysTabControl32 en tFolder()
Posted: Fri Nov 28, 2008 07:02 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
noe aburto
Posts: 418
Joined: Wed Nov 26, 2008 06:33 PM
SysTabControl32 en tFolder()
Posted: Mon Dec 08, 2008 04:39 PM
Antonio Linares wrote: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
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions