Nueva clase TDatePicker

Code: Select all | Expand
DATA aHeads
METHOD HandleEvent( nMsg, hSender, uParam1, uParam2 ) CLASS TTableView
.....
do case
case nMsg == WM_BRWHEAD
if Empty(::aHeads)
Return nil
else
Return ::aHeads[uParam1 + 1 ]
endif
.....
Code: Select all | Expand
@implementation DataSource
- (NSString *)tableView:(UITableView *)tableView titleForHeaderInSection:(NSInteger)section
{
NSString * text;
hb_vmPushSymbol( symFPH );
hb_vmPushNil();
hb_vmPushLong( ( LONG ) tableView );
hb_vmPushLong( WM_BRWHEAD );
hb_vmPushLong( 0 );
hb_vmPushLong( section );
hb_vmDo( 4 );
text = [ [ [ NSString alloc ] initWithCString: ISCHAR( -1 ) ? hb_parc( -1 ) : "" ] autorelease ];
return text ;
}
Antonio Linares wrote:added timer events. New samples/timer.prg
Affected files expand all collapse all
Modify /trunk/include/fmsgs.h diff
Modify /trunk/include/windows.h diff
Modify /trunk/makefile diff
Modify /trunk/samples/buildmac.sh diff
Add /trunk/samples/timer.prg diff
Modify /trunk/source/sdkapi/timers.m diff
Modify /trunk/source/sdkapi/windows.m diff
mastintin wrote:Comenzado a implemetar los heads del tableview . La idea es tener una DATA aHeads , array con los encabezados de seccion . he escrito este código , pero no puedo probarlo ya que estoy fuera .
Si alguien quiere mirar si esta bien y compila ....
En tblview.prgCode: Select all | Expand
DATA aHeads
METHOD HandleEvent( nMsg, hSender, uParam1, uParam2 ) CLASS TTableView
.....
do case
case nMsg == WM_BRWHEAD
if Empty(::aHeads)
Return nil
else
Return ::aHeads[uParam1 + 1 ]
endif
.....
en tableview.mCode: Select all | Expand
@implementation DataSource
- (NSString *)tableView:(UITableView *)tableView titleForHeaderInSection:(NSInteger)section
{
NSString * text;
hb_vmPushSymbol( symFPH );
hb_vmPushNil();
hb_vmPushLong( ( LONG ) tableView );
hb_vmPushLong( WM_BRWHEAD );
hb_vmPushLong( 0 );
hb_vmPushLong( section );
hb_vmDo( 4 );
text = [ [ [ NSString alloc ] initWithCString: ISCHAR( -1 ) ? hb_parc( -1 ) : "" ] autorelease ];
return text ;
}
Antonio Linares wrote:Manuel,
Enhorabuena
Has visto mi post acerca del simulador del iphone ?
softruz wrote:Muy buenas, estoy intentando compilar ahora desde un Mac, me podeis decir los pasos necesarios para compilar desde ahí.
Un Saludo y Mil Gracias.
Code: Select all | Expand
function Main()
local oWnd := TWindow():New(), oLabel
oLabel = TLabel():New( oWnd, "Hello world!", 120, 100, 100, 50 )
oLabel:SetColor( 255, 255, 255, 255 )
oWnd:Activate()
MsgLogo( "logo.png" )
return nil