Urgente !! como trocar bmp numa tbitmap

[laurenti]

Ola pessoal !!!!!!!!!!

Desde Ja Agradeco a atencao !!!!!!!

Vou explicar : e o seguinte estou fazendo um sistema pra restaurantes tem uma opcao que mostra ao operador as mesas que estao ocupadas livres reservadas em fechamento .

Quando o operador selecionar a opcao ele vai abrir as mesas se ela nao estiver zerada tenho que trocar o bitmap do tbitmap de acordo a situacao da mesa comecei a fazer mas o tbitmap nao aciona a funcao retornobmp que pega os valores na mesa. quem pode me dar o help ?

vejam o exemplo :

REDEFINE BITMAP OBAR ID x OF oDlgx ;

when retornobmp(totm,.t.) ;

FILENAME bmp ;

ADJUST

Static Function retornobmp(totm)// funcao que calcula os valores de cada mesa do restaurante

Memvar bmp

if totm = 0

Public bmp := "LIVRE.BMP"

else

Public bmp := "OCUPADA.BMP"

elseif totm # 0 .and. flag = "S"

Public bmp := "FECHANDO.BMP"

elseif totm = 0 .and. flag ="R"

Public bmp := "RESERVADA.BMP

endif

Return .t.

Editado por - laurenti on 05/07/2005 20:51:51

[eajunior]

Ola Laurenti, caso nãop funcione com o reload() substitua por LoadBitmap()

LOCAL oBmp, hbitmap

hBitmap := LoadBitmap( GetResources(), "Livre" )

DEFINE DIALOG oDlg RESOURCE ..........

REDEFINE BITMAP oBmp ID 200 OF oDlg RESOURCE hBitmap UPDATE

ACTIVATE DIALOG oDlg

Static Function retornobmp( oBmp, totm)

if totm = 0

oBmp:Reload( GetResources(), "Livre" )

elseif totm # 0 .and. flag = "S"

oBmp:Reload( GetResources(), "Fechando" )

elseif totm = 0 .and. flag ="R"

oBmp:Reload( GetResources(), "Reservada" )

else

oBmp:Reload( GetResources(), "Ocupada" )

endif

oBmp:Refresh()

Return( Nil )

Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer.

Elias Abrão Júnior

Fone : (0**11) 5181-6909 São Paulo - SP

eajunior.fw@terra.com.br

xHarbour 0.99.0 - Fivewin 2.5 e xMate