como saber si el contro BITMAP contiene algo?

como saber si el contro BITMAP contiene algo?

Postby goosfancito » Mon Dec 16, 2019 12:54 am

hola.

Necesito deshabilitar un boton cuando el control BITMAP contiene una imagen,
como hago para saber que contiene una imagen el BITMAP?
algo asi como if (empty(BITMAP))....


gracias.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: como saber si el contro BITMAP contiene algo?

Postby karinha » Mon Dec 16, 2019 1:39 pm

Contiene donde?? Explicar mejor.

Code: Select all  Expand view  RUN

   oImage := ".\LOGO.jpg"

   IF ! FILE( oImage )

      // MsgInfo( )

   ENDIF
 
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7852
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: como saber si el contro BITMAP contiene algo?

Postby FranciscoA » Mon Dec 16, 2019 3:50 pm

Para XImage:
Code: Select all  Expand view  RUN
if(Empty(oImage:uSource), MsgInfo("No contiene imagen"),)
Last edited by FranciscoA on Mon Dec 16, 2019 3:51 pm, edited 1 time in total.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2159
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: como saber si el contro BITMAP contiene algo?

Postby FranciscoA » Mon Dec 16, 2019 3:51 pm

Para IMAGE:
Code: Select all  Expand view  RUN
if(Empty(oImage:cBmpFile), MsgInfo("No contiene imagen"),)

Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2159
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: como saber si el contro BITMAP contiene algo?

Postby goosfancito » Tue Dec 17, 2019 2:34 am

gracias a todos
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 49 guests