FiveTech Software tech support forums

Code: Select all | Expand

HB_FUNC( GETBUTTONRESOURCE )
{
    UIWindow * window = ( UIWindow * ) hb_parnl( 1 );
   NSObject * miobj = (NSObject *) [window viewWithTag:hb_parnl( 2 )];
    
   hb_OBJECT_ret( miobj );  
    
} 

 

Code: Select all | Expand

HB_FUNC( CREATEBUTTONRESOURCES )
{
    Button * button = ( Button * ) hb_OBJECT_par( 1 );
    [ button setSender : hb_gcGripGet( hb_param( 2, HB_IT_ANY ) ) ];
}

 

Code: Select all | Expand

METHOD Resources( oWnd, idResource, bAction ) CLASS TButton
  
   ::hWnd = GetbuttonResource( oWnd:hWnd,idResource )  

   ::bAction = bAction

   CreateButtonResources(::hWnd,Self)
    
return Self 

 

Code: Select all | Expand

function Main()

   local oWnd := TWindow():New(), oBrw   
   
   oBrw = TTableView():New( oWnd, 20,, { "One", "Two", "Three", "Four", "Five" } )

   oBrw:bCellImage = { || "cell.png" }

   oWnd:Activate()
   
return nil
 

Code: Select all | Expand

function Main()

   local oWnd := TWindow():New(), oBrw   
   
   // 92 is the cell desired height
   oBrw = TTableView():New( oWnd, 20,, { "One", "Two", "Three", "Four", "Five" },, 92 )

   oBrw:bCellBack = { || "cell.png" }
   oBrw:bCellImage = { || "fts.png" }

   oWnd:Activate()
   
return nil
 

Code: Select all | Expand

function Main()

   local oWnd := TWindow():New(), oBrw   
   
   // 92 is the cell desired height
   oBrw = TTableView():New( oWnd, 20,, { "One", "Two", "Three", "Four", "Five" },, 92 )

   oBrw:bSelect   = { | nRow, nSection | MsgInfo( Str( nRow ) ) }
   oBrw:bCellBack = { || "cell.png" }
   oBrw:bCellImage = { || "fts.png" }

   oWnd:Activate()
   
return nil
 

Code: Select all | Expand

cell =  ( UITableViewCell * ) hb_parnl( -1 ) ;

 

Code: Select all | Expand

function Main()

   local oWnd := TWindow():New(), oBrw   
   
   // 92 is the cell desired height
   oBrw = TTableView():New( oWnd, 20,, { "One", "Two", "Three", "Four", "Five" },, 92 )


//   oBrw:bSelect   = { | nRow, nSection | MsgInfo( nRow ) }
//   oBrw:bCellBack = { || "cell.png" }
 //  oBrw:bCellImage = { || "fts.png" }
    obrw:ocell:= CREATECELL()
   oWnd:Activate()
   
return nil