Page 1 of 1
SysTabControl32 en tFolder()
Posted: Thu Nov 27, 2008 5:53 pm
by 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'},.....)
Posted: Thu Nov 27, 2008 6:32 pm
by Antonio Linares
Noe,
En ese caso no tienes que hacer nada
FiveWin automaticamente usará SysTabControl32 para crear el control.
Posted: Thu Nov 27, 2008 6:35 pm
by karinha
#Include "FiveWin.ch"
Code: Select all
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
TFolder no mme presenta los folders
Posted: Thu Nov 27, 2008 6:50 pm
by noe aburto
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
Posted: Thu Nov 27, 2008 6:56 pm
by Antonio Linares
Prueba a construir este ejemplo. Que version de FWH estas usando ?
Code: Select all
#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
Tfolder con FW
Posted: Thu Nov 27, 2008 8:17 pm
by noe aburto
Antonio Linares wrote:Prueba a construir este ejemplo. Que version de FWH estas usando ?
Code: Select all
#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
Posted: Thu Nov 27, 2008 8:54 pm
by Antonio Linares
Te funciona ese ejemplo ?
Version de FWH para tfolder
Posted: Fri Nov 28, 2008 2:23 pm
by noe aburto
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
Posted: Fri Nov 28, 2008 7:02 pm
by Antonio Linares
Revisa el fichero FWH\source\classes\folder.prg y comprueba si la palabra "SysTabControl32" está dentro de él.
Posted: Mon Dec 08, 2008 4:39 pm
by noe aburto
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