- Code: Select all Expand view
- #include "FWCE.ch"
//----------------------------------------------------------------------------//
Function Main()
Local oWnd, oLbx, ;
aHBitMaps:= { LoadBitmap( GetResources(), "Level1" ), ;
LoadBitmap( GetResources(), "Level3" ), ;
LoadBitmap( GetResources(), "Level2" ), ;
LoadBitmap( GetResources(), "Level4" ), ;
LoadBitmap( GetResources(), "Level5" ) }
USE ( CurDir() + "\Clientes" ) EXCLUSIVE NEW
INDEX ON Clientes->Nombre TO CliName
SET INDEX TO CliName
GO TOP
DEFINE WINDOW oWnd TITLE "Clients Management"
@ 0, 0 LISTBOX oLbx ;
FIELDS aHBitmaps[ Max( 1, Clientes->Nivel ) ], ;
Clientes->Nombre, AllTrim( Clientes->Direccion ), ;
Clientes->Telefono, ;
Str( Clientes->Edad, 3 ) ;
HEADERS "L", "Name", "Address", "Phone", "Age" ;
FIELDSIZES 16, 112, 112, 58, 24 ;
SIZE 234, 263 PIXEL OF oWnd
// Lets use different row colors
oLbx:nClrText = { || SelColor( Clientes->Nivel ) }
oLbx:nClrForeFocus = { || SelColor( Clientes->Nivel ) }
// Try different line styles !!!
oLbx:nLineStyle = 1
oLbx:aJustify = { .F., .F., .F., .F., .T. }
ACTIVATE WINDOW oWnd ON CLICK MsgInfo( "Click!" )
DbCloseAll()
Return Nil
//----------------------------------------------------------------------------//
Static Function SelColor( nNivel )
Local nColor := CLR_BLACK
Do Case
Case nNivel == 1
nColor = CLR_HRED
Case nNivel == 2
nColor = CLR_HGREEN
Case nNivel == 3
nColor = CLR_HBLUE
EndCase
Return nColor
i' M USING
FWPPC February 2010
HARBOUR CE 1.2.1
THE ERROR
Progetto: test1, Ambiente: FWPPC:
[1]:Link.Exe @test1.vcl /nologo /ARMPADCODE:NO /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM
fiveCE.lib(HARBOUR.obj) : error LNK2001: unresolved external symbol HB_FUN_TOLEAUTO
fiveCE.lib(HARBOUR.obj) : error LNK2001: unresolved external symbol HB_FUN_FREELIBRARY
fiveCE.lib(HARBOUR.obj) : error LNK2001: unresolved external symbol HB_FUN_LOADLIBRARY
hbrtl.lib(gtsys.obj) : error LNK2019: unresolved external symbol HB_FUN_HB_GT_WVT referenced in function "void __cdecl hb_gt_ForceLink_HB_GT_WVT(void)" (?hb_gt_ForceLink_HB_GT_WVT@@YAXXZ)
C:\Work\pocketpc\test_asus\test1.Exe : fatal error LNK1120: 4 unresolved externals
ANY HELP PLS