ERROR EN BOTON

[agarnati]

Alguien puede ayudarme en este error

Error description: Error BASE/1004 No exported method: ISKINDOF
Args:
[ 1] = U
[ 2] = C TBAR

Stack Calls
===========
Called from: => ISKINDOF( 0 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:NEWBAR( 291 )
Called from: prgedit6.prg => MAIN( 151 )


Fivewin 11.11

[joseluisysturiz]

Coloca como estas diseñando boton para poder ver comido y ayudarte...parece estas usando un methodo que no es soportado por ese objeto o envias un valo no relacionado....saludos...

[agarnati]

Coloca como estas diseñando boton para poder ver comido y ayudarte...parece estas usando un methodo que no es soportado por ese objeto o envias un valo no relacionado....saludos...

este es el codigo

DEFINE window oWnd FROM 1,1 TO 22,75 MDI;
TITLE " APLICACION DE Miguel Angel Moreno Alegre PRGEDIT6 PARA RED" COLOR "G/B";
MENU buildMenu();
BRUSH oBrush;
ICON oIcoPr

SET MESSAGE OF oWnd TO AllTrim(FWVERSION) + " Harbour 3.1 / xHarbour"+space(20)+" Fecha 19/08/2003 "+space(50);
+" Versión 1.052";
+" Ult. Revisión Miércoles 09/05/2012 21:44:39"



DEFINE BUTTON oBot1 RESOURCE "BBBSALIR" OF oBarraBot MESSAGE"Finalizar el Programa" ;
ADJUST;
TOOLTIP("Salir del Programa");
ACTION OWnd:End()




y compilo con
@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin 11.11 for Harbour - Nov. 2011 Harbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2011 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7 ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

if "%FWDIR%" == "" set FWDIR=c:\programacion\fw11\fwh
if "%HBDIR%" == "" set HBDIR=c:\programacion\fw11\harbour
rem if "%2" == "/b" set GT=gtwin
rem if not "%2" == "/b" set GT=gtgui
set GT=gtgui


ECHO Compilando......

set hdir=%HBDIR%
set hdirl=%hdir%\lib
set fwh=%FWDIR%
set bcdir=c:\Borland\bcc582

ECHO %fwh%
ECHO %HDIR%


%hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > %1.log
IF ERRORLEVEL 1 GOTO COMPILEERRORS
@type %1.log

echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r -I%bcdir%\include %1
rem IF EXIST %1.rc %vcdir%\bin\rc -r -d__FLAT__ %1

echo %bcdir%\lib\c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %fwh%\lib\FiveH.lib %fwh%\lib\FiveHC.lib + >> b32.bc
echo %hdirl%\hbrtl.lib + >> b32.bc
echo %hdirl%\hbvm.lib + >> b32.bc
echo %hdirl%\%GT%.lib + >> b32.bc
echo %hdirl%\hblang.lib + >> b32.bc
echo %hdirl%\hbmacro.lib + >> b32.bc
echo %hdirl%\hbrdd.lib + >> b32.bc
echo %hdirl%\rddntx.lib + >> b32.bc
echo %hdirl%\rddcdx.lib + >> b32.bc
echo %hdirl%\rddfpt.lib + >> b32.bc
echo %hdirl%\hbsix.lib + >> b32.bc
echo %hdirl%\hbdebug.lib + >> b32.bc
echo %hdirl%\hbcommon.lib + >> b32.bc
echo %hdirl%\hbpp.lib + >> b32.bc
echo %hdirl%\hbcpage.lib + >> b32.bc
echo %hdirl%\hbwin.lib + >> b32.bc
echo %hdirl%\hbcplr.lib + >> b32.bc
echo %hdirl%\hbct.lib + >> b32.bc
echo %hdirl%\hbziparc.lib + >> b32.bc
echo %hdirl%\hbmzip.lib + >> b32.bc
echo %hdirl%\hbzlib.lib + >> b32.bc
echo %hdirl%\minizip.lib + >> b32.bc
echo %hdirl%\xhb.lib + >> b32.bc
echo %hdirl%\png.lib + >> b32.bc


rem Uncomment these two lines to use Advantage RDD
rem echo %hdirl%\rddads.lib + >> b32.bc
rem echo %hdirl%\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\uuid.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc
if %GT% == gtwin %bcdir%\bin\ilink32 -Tpe -s @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Applicacion Compilada Correctamente *
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:COMPILEERRORS
@type %1.log
ECHO * Errores en Compilacion*
GOTO EXIT

:LINKERROR
ECHO * Errores en el Enlazado *
GOTO EXIT

:SINTAX
@type %1.log
ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG
ECHO {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT


Jose Luis

Gracias por tu respuesta, te envio esta informacion para facilitarte las cosas, el caso es que hace unos meses cuando lo compile no me daba este error, he debido cambiar algo, y la verdad es que no se que.

[Daniel Garcia-Gil]

Hola

te falta la barra de botones "OF oBarraBot" de la que depende el boton

[karinha]

Code: Select all

    DEFINE BUTTONBAR OBAR BUTTONSIZE 49, 55 _3DLOOK  TOP  OF oWnd
 

[agarnati]

Daniel

Muchas gracias por tu respuesta has dado con la solución del problema