Jump to content
Fivewin Brasil

BitMap


betovsp

Recommended Posts

Elias e João.

Vejam se pode ser assim ou se existe maneira mais fácil:

Para arquivo bmp:

oBmp:Reload( )

Para resource:

oBmp:Reload( , )

Você pode aplicá-lo em um clique de botão, no evento de um timer, no click de um browse e outros.

[]'s,

Bruno Lobo.

brunolobo@zipmail.com

brunoclementelobo@bol.com.br

Link to comment
Share on other sites

Olá caro amigo! Apesar de eu ter pedido para o Elias Postar um Exemplo, porque eu acho que deve ser assim, este tema já foi abordado em outro tópico pelo meu amigo Marlon Figueiredo - SISCAT - Aliás, muitas saudades Marlon...

De uma navegada pelos tópicos, que você achará a resposta...

Elias... Você sabe como deve ser! Abraços.

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

Link to comment
Share on other sites

Ola Pessoal, este e um exemplo mas pode ser feito de varias maneiras

STATIC oBtnBmp, oDlg

FUNCTION Main()

DEFINE DIALOG oDlg RESOURCE ´SeuNome´ FONT oWnd:oFont

// estou usando um bitmap dentro de uma DLL

REDEFINE BTNBMP oBtnBmp ID 200 OF oDlg RESOURCE 'Bmp_Entrada' NOBORDER UPDATE

// estou usando radio mas poderia ser um GET e um VALID

REDEFINE RADIO oT:oOpt VAR oT:nOpt ID 111,112 OF oDlg;

ON CHANGE MudaBitMap()

ACTIVATE DIALOG oDlg CENTERED

RETURN(NIL)

STATIC FUNCTION MudaBitMap()

Comunica->( OrdSetFocus(oT:nOpt) )

IF oT:nOpt = 1

oBtnBmp:LoadBitmap( 'Bmp_Entrada' )

ELSE

oBtnBmp:LoadBitmap( 'Bmp_Saida' )

ENDIF

oBtnBmp:Refresh()

oDlg:UpDate()

RETURN( NIL )

Elias Abrão Júnior

Fone : (0**19) 3825-0812

Indaiatuba - SP

http://www.eajunior.hpg.com.br

eajunior@ubbi.com.br

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...