he conseguido un iphone

[Antonio Linares]

Añadido una simple Clase TTableView y modificado tutor05.prg

[Antonio Linares]

Añadida una nueva Clase TView. Todas las clases GUI derivan de ella

[Antonio Linares]

El gestor de errores ya funciona bastante bien

[Antonio Linares]

He comenzado a construir el data source para el browse. Ya está subido

[mastintin]

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 .

[Antonio Linares]

Manuel,

Muy bueno!

Ya mostramos datos en el browse! (subido al SVN)

[mastintin]

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;

Code: Select all

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
 

[Antonio Linares]

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

[mastintin]

El problema lo tienes en los permisos del archivo dbf , cambialos ( de momento pontos a 777 ) y ya te funciona seguro.

[mastintin]

Iniciado el archivo label.m ... esta solo en prototipo . Cuando lo tenga mas avanzado subo el codigo al repositorio.

[mastintin]

subido codigo de label.m al repositorio . Codigo del tutor :

Code: Select all

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
 

[mastintin]

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 ...

[mastintin]

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.

[mastintin]

el tutor05 queda asi :

Code: Select all

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
 

[Antonio Linares]

Manuel,

Formidable!

Ya tenemos browses de DBFs! no caí en lo de los permisos!