FiveTech Software tech support forums

... HASTA EL MOMENTO EN DONDE ME MARCA ERROR EN EL ON CHANGE. function BrwClientes() local oDlg, oBrw local oLbx local cVar local n local oDlg1 local aHBitMaps:= { ReadBitmap( 0, "..\bitmaps\Level1.bmp" ), ; // BitMaps de 14 x 32 ReadBitmap( 0, "..\bitmaps\Level2.bmp" ), ; ReadBitmap( 0, "..\bitmaps\Level3.bmp" ...

... ) ; // .t. --> wants preview //SIZE 40, 12 @ 8.7, 42 BUTTON "&Salir" OF oDlg ACTION oDlg:End() SIZE 40, 12 ACTIVATE DIALOG oDlg USE AEval( aHBitmaps, { | hBmp | DeleteObject( hBmp ) } ) return nil //************************************************** function BrwConceptos() USE cat_con Browse() ...

... ) ; // .t. --> wants preview //SIZE 40, 12 @ 8.7, 42 BUTTON "&Salir" OF oDlg ACTION oDlg:End() SIZE 40, 12 ACTIVATE DIALOG oDlg USE AEval( aHBitmaps, { | hBmp | DeleteObject( hBmp ) } ) return nil //************************************************** function BrwConceptos() USE cat_con Browse() ...

... Para generar los indices uso la siguiente funcion : //================== FUNCTION INDICES() //================== LOCAL oDlg, oLbx, oFont1 LOCAL aHBitMaps:= { ReadBitmap( 0, "Check1.bmp" ), ; ReadBitmap( 0, "Check2.bmp" ) } LOCAL n ** Genera el Archivo Tag // BORRO LOS INDICES DE LAS TABLAS FERASE("LISTADBF.CDX") ...

... de autos" local cSay,AUTOS local nfl:=.t. local oBmp,oFont,oMenu local oLbx,bRo,hFile Local oClock,cCom,cComi:=0,cPnet,cPne:=0 local aHBitMaps:= { ReadBitmap( 0, "ima\Level1.bmp" ), ; // BitMaps de 14 x 32 ReadBitmap( 0, "ima\Level2.bmp" ), ; ReadBitmap( 0, "ima\Level3.bmp" ...