Mudar o Glyp do bot�o em tempo de execu��o

Question

Ol� amigos preciso da ajuda de voc�s:Eu uso Delphi 7 e Firebird 2.1.Estou com o seguinte problema: Estou construindo um programa para controle de Bar e Pizzaria, onde eu quero controlar as mesas q...

Joel Rodrigues · Answer

Mantenha as imagens que utilizar� em uma pasta e use o m�todo LoadFromFile da seguinte forma� necess�rio que seja um bitmap....

Joel Rodrigues · Answer

Outra forma � adicionar um ImageList com as imagens que voc� vai usar (bitmaps), j� com o tamanho certo e usar o seguinte c�digo:

Botao.Glyph := nil;
ImageList.GetBitmap(INDICE_DA_IMAGEM, Botao.Glyh);

Essa forma � mais pr�tica, pois voc� n�o fica dependente de manter as imagens em arquivo. Para facilitar o uso do INDICE_DA_IMAGEM, voc� pode definir constantes, por exemplo:

const
MESA_LIVRE = 0;
MESA_OCUPADA = 1;

E na hora de altrar o glyph, voc� faria, por exemplo:

Botao.Glyph := nil;
//Se a mesa est� livre
ImageList.GetBitmap(MESA_LIVRE, Botao.Glyh);

Bom, espero que ajude.
Boa sorte.

Josenildo Rosa · Answer

Amigos desde j� agrade�o pela ajuda, mas at� a� eu consegui fazer, o que eu n�o estou conseguindo � que quando eu lan�o um produto na tela de mesa e gravo a imagem do bot�o n�o altera, ou seja, eu tinha que percorrer o panel onde est� os bot�es das mesas e ver qual o bot�o � a mesa que est� em consumo e mudar a imagem dela para ocupada.

Josenildo Rosa · Answer

Joel!, desde j� agrade�o pela ajuda, mas at� a� eu consegui fazer, o que eu n�o estou conseguindo � que quando eu lan�o um produto na tela de mesa e gravo, a imagem do bot�o n�o altera, ou seja, eu tinha que percorrer o panel onde est� os bot�es das mesas e ver qual o bot�o � a mesa que est� em consumo e mudar a imagem dela para ocupada....

Bruno Leandro · Answer

ent�o o que voc� precisa � quando for dar um post em um lan�amento e a mesa estiver fechada alterar a imagem da forma j� descrita e quando for realizar o fechamento da mesa mudar para a outra imagem.

para isso verifique antes de dar o post o status da mesa caso seja fechado altera a imagem, senao ignora

e no processo de fechamento de mesa, depois do post volte a imagem

Josenildo Rosa · Answer

pois � Bruno esse est� sendo o problema, n�o estou conseguindo montar esse c�digo, Voc� pode me ajudar ?Eu estava usando este codigo: qAux.First; // tabela auxiliar de mesas while not qAux.Eof do  begin   { Percorre por todos os componentes que t�m frmExemplo como parent. }     for i := 0 to sPanel2.ComponentCount -1 do      begin         if TsBitBtn(sPanel2.Components).Name = Mesa + qAuxME_NUMERO.Text  then { Ao percorrer o panel que contem os botoes com os nome das mesas Ex: botao Mesa1  que � Mesa + qauxME_NUMERO que vai dar Mesa1 }           TsBitBtn(sPanel2.Components).Glyph.LoadFromFile(D:LanchoneteImagenMesa Livre.bmp);      end;    qAux.Next;  end;A ideia � percorrer toda a tabela auxiliar de mesa e os botoes ao mesmo tempo e alterando a sua imagem de acordo com a mesa gravada na tabela. N�o sei se fui claro....

Bruno Leandro · Answer

certo, voce sempre esta colocando TsBitBtn(sPanel2.Components[i]).Glyph.LoadFromFile(D:\Lanchonete\Imagen\Mesa Livre.bmp); ent�o quando fizer este processamento colocar� todas as mesas que encontradas como mesa livre o correto seria

for i := 0 to sPanel2.ComponentCount -1 do
begin
if TsBitBtn(sPanel2.Components[i]).Name = Mesa + qAuxME_NUMERO.Text then
begin
qAux.Close;
qAux.parambyname(mesa).value := sPanel2.Components[i]).Name;
qAux.Open;

if qAux.fieldbyname(status_mesa_aberta).asstring = S then
TsBitBtn(sPanel2.Components[i]).Glyph.LoadFromFile(D:\Lanchonete\Imagen\Mesa Livre.bmp)
else
TsBitBtn(sPanel2.Components[i]).Glyph.LoadFromFile(D:\Lanchonete\Imagen\Mesa Fechada.bmp);

qAux.Close;
end;
end;

esse status_mesa_aberta seria algo que identificasse se a mesa esta aberta ou fechada.

F�rum Mudar o Glyp do bot�o em tempo de execu��o #415038