he conseguido un iphone

User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: he conseguido un iphone

Post by Antonio Linares »

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: he conseguido un iphone

Post by Antonio Linares »

Añadida una nueva Clase TView. Todas las clases GUI derivan de ella :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: he conseguido un iphone

Post by Antonio Linares »

El gestor de errores ya funciona bastante bien :-)

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: he conseguido un iphone

Post by Antonio Linares »

He comenzado a construir el data source para el browse. Ya está subido :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: he conseguido un iphone

Post by 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 .
Image
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: he conseguido un iphone

Post by Antonio Linares »

Manuel,

Muy bueno! :-)

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

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: he conseguido un iphone

Post by 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
 
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: he conseguido un iphone

Post by 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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: he conseguido un iphone

Post by mastintin »

El problema lo tienes en los permisos del archivo dbf , cambialos ( de momento pontos a 777 ) y ya te funciona seguro.
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: he conseguido un iphone

Post by mastintin »

Iniciado el archivo label.m ... esta solo en prototipo . Cuando lo tenga mas avanzado subo el codigo al repositorio.
Image
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: he conseguido un iphone

Post by 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
 
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: he conseguido un iphone

Post by mastintin »

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 ...
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: he conseguido un iphone

Post by 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.
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

Re: he conseguido un iphone

Post by 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
 

Image
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: he conseguido un iphone

Post by Antonio Linares »

Manuel,

Formidable! :-)

Ya tenemos browses de DBFs! :-) no caí en lo de los permisos! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Post Reply