Añadido una simple Clase TTableView y modificado tutor05.prg
Board index FiveMac / FivePhone (iPhone, iPad) he conseguido un iphone
Page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 (645 posts)
Añadida una nueva Clase TView. Todas las clases GUI derivan de ella 
El gestor de errores ya funciona bastante bien 
He comenzado a construir el data source para el browse. Ya está subido
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 .
Manuel,
Muy bueno!
Ya mostramos datos en el browse! (subido al SVN)
Muy bueno!
Ya mostramos datos en el browse!
(subido al SVN)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;
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 nilManuel,
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
El problema lo tienes en los permisos del archivo dbf , cambialos ( de momento pontos a 777 ) y ya te funciona seguro.
Iniciado el archivo label.m ... esta solo en prototipo . Cuando lo tenga mas avanzado subo el codigo al repositorio.
subido codigo de label.m al repositorio . Codigo del tutor :
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 nilAntonio 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 ...
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.
el tutor05 queda asi :
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 nilManuel,
Formidable!
Ya tenemos browses de DBFs! no caí en lo de los permisos!