Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 8:36 am
Añadido una simple Clase TTableView y modificado tutor05.prg
FiveTech Software tech support forums
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
he conseguido un iphone
Page 11 of 43
Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 8:45 am
Añadida una nueva Clase TView. Todas las clases GUI derivan de ella
Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 10:29 am
El gestor de errores ya funciona bastante bien
Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 12:10 pm
He comenzado a construir el data source para el browse. Ya está subido
Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 12:36 pm
He conseguido sacar en pantalla un TabBar con dos botones ( aun no tienen sus views ni nada ) .Cuando tenga mas limpio el codigo lo subo .
Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 2:09 pm
Manuel,
Muy bueno!
Ya mostramos datos en el browse! (subido al SVN)
Muy bueno!
Ya mostramos datos en el browse!
(subido al SVN)Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 2:22 pm
He subido el codigo de TabBar ... de momento no muestra aun los view asociados , solo se presenta en pantalla . Tambien va una funcion para añadir los tabs que queramos ...
el segundo parametro de CREATEITEMTABBAR es el icono que mostrará dentro de los predefinidos del sistema :
typedef enum {
UITabBarSystemItemMore,
UITabBarSystemItemFavorites,
UITabBarSystemItemFeatured,
UITabBarSystemItemTopRated,
UITabBarSystemItemRecents,
UITabBarSystemItemContacts,
UITabBarSystemItemHistory,
UITabBarSystemItemBookmarks,
UITabBarSystemItemSearch,
UITabBarSystemItemDownloads,
UITabBarSystemItemMostRecent,
UITabBarSystemItemMostViewed,
} UITabBarSystemItem;
el segundo parametro de CREATEITEMTABBAR es el icono que mostrará dentro de los predefinidos del sistema :
typedef enum {
UITabBarSystemItemMore,
UITabBarSystemItemFavorites,
UITabBarSystemItemFeatured,
UITabBarSystemItemTopRated,
UITabBarSystemItemRecents,
UITabBarSystemItemContacts,
UITabBarSystemItemHistory,
UITabBarSystemItemBookmarks,
UITabBarSystemItemSearch,
UITabBarSystemItemDownloads,
UITabBarSystemItemMostRecent,
UITabBarSystemItemMostViewed,
} UITabBarSystemItem;
Code: Select all | Expand
function Main()
local oWnd := TWindow():New(), oTbr
local tabbar
TNavBar():New( oWnd, "FivePhone", "Exit", "About" )
oWnd:oNavBar:bLeftClick = { || oWnd:End() }
oWnd:oNavBar:bRightClick = { || MsgInfo( "iOS SDK for Harbour" ) }
tabBar:=CREATETABBAR(oWnd:hwnd)
CREATEITEMTABBAR(tabbar,0)
CREATEITEMTABBAR(tabbar,2)
CREATEITEMTABBAR(tabbar,1)
oWnd:Activate()
return nil
Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 2:46 pm
Manuel,
He modificado la Clase TTableView para que ya muestre campos de una DBF. Algo muy simple para probar
Pero el problema que tengo es que no me abre la DBF. Hago:
USE ( AppPath() + "/test.dbf" )
Puedes probarlo ahi ? (samples/tutor05.prg) gracias
He modificado la Clase TTableView para que ya muestre campos de una DBF. Algo muy simple para probar
Pero el problema que tengo es que no me abre la DBF. Hago:
USE ( AppPath() + "/test.dbf" )
Puedes probarlo ahi ? (samples/tutor05.prg) gracias
Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 2:59 pm
El problema lo tienes en los permisos del archivo dbf , cambialos ( de momento pontos a 777 ) y ya te funciona seguro.
Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 3:01 pm
Iniciado el archivo label.m ... esta solo en prototipo . Cuando lo tenga mas avanzado subo el codigo al repositorio.
Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 3:51 pm
subido codigo de label.m al repositorio . Codigo del tutor :
Code: Select all | Expand
function Main()
local oWnd := TWindow():New(), oTbr
local label
TNavBar():New( oWnd, "FivePhone", "Exit", "About" )
oWnd:oNavBar:bLeftClick = { || oWnd:End() }
oWnd:oNavBar:bRightClick = { || MsgInfo( "iOS SDK for Harbour" ) }
label:=CREATELABEL(oWnd:hwnd,"hola", 120,120 , 400 , 50 )
SETLABELCOLOR (label,255,0,0,100)
SETLABELFONT(label,"Helvetica",56)
oWnd:Activate()
return nil
Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 4:03 pm
Antonio Linares wrote:Manuel,
He modificado la Clase TTableView para que ya muestre campos de una DBF. Algo muy simple para probar
Pero el problema que tengo es que no me abre la DBF. Hago:
USE ( AppPath() + "/test.dbf" )
Puedes probarlo ahi ? (samples/tutor05.prg) gracias
Antonio Probado y funcionando perfectamente . Todo el problema era con los permisos de las dbf , tienes que ponerlos a 666 o 777 y funciona sin problema ...
Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 4:52 pm
HE hecho una pequeña modificacion en la clase Tableview . He añadido un parametro codeblock que se evalua al procesar el tableview , asi podemos poner que queremos mostrar.
Saludos.
Saludos.
Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 5:02 pm
el tutor05 queda asi :
Code: Select all | Expand
function Main()
local oWnd := TWindow():New(), oTbr
local cPath := AppPath() + "/test.dbf"
local obrw
TNavBar():New( oWnd, "FivePhone", "Exit", "About" )
oWnd:oNavBar:bLeftClick = { || oWnd:End() }
oWnd:oNavBar:bRightClick = { || MsgInfo( "iOS SDK for Harbour" ) }
oTbr = TToolBar():New( oWnd )
oTbr:AddButton( "New", { || MsgInfo( "New" ) } )
oTbr:AddButton( "Open", { || MsgInfo( "Open" ) } )
oTbr:AddButton( "Save", { || MsgInfo( "Save" ) } )
oTbr:AddButton( "Search", { || MsgInfo( "Search" ) } )
oTbr:AddButton( "Close", { || MsgInfo( Alias() ) } )
USE ( cPath )
obrw:=TTableView():New( oWnd)
obrw:bData:={|| alltrim(fieldget(1))+" "+Alltrim(FieldGet( 2 ) )+" "+alltrim(fieldget(5)) }
oWnd:Activate()
return nil
Re: he conseguido un iphone
Posted: Sun Oct 24, 2010 5:52 pm
Manuel,
Formidable!
Ya tenemos browses de DBFs! no caí en lo de los permisos!
Formidable!
Ya tenemos browses de DBFs!
no caí en lo de los permisos!