- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Legenda não aparece no listbox
×
Linguagem de Programação ADVPL
Perguntas Legenda não aparece no listbox
- jennerff
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 1
- Obrigados Recebidos: 0
11 anos 6 meses atrás #13954
por jennerff
Legenda não aparece no listbox foi criado por jennerff
Boa Tarde Pessoal
Desenvolvi uma tela onde mostra a diferença da estrutura com os empenhos no encerramento da OP, e para facilitar para o usuário quero colocar uma legenda, e no protheus 11 esta legenda não aparece no listbox somente na tela ?
Tem que ser colocado mais alguma informação...
Segue o fonte :
Local o1 := LoadBitmap(GetResources(),"BR_VERDE")
DEFINE MSDIALOG oDlg TITLE cTitulo From 000,000 To 330,700 OF oMainWnd PIXEL
@ 005,005 LISTBOX oListBox VAR cListBox Fields HEADER " ","PRODUTO","ESTRUTURA","EMPENHO","PERCENTUAL" SIZE 343,119 OF oDlg PIXEL //ON DBLCLICK (aDados=FA060Troca(oListBox:nAt,aDados),oListBox:Refresh()) NOSCROLL
oListBox:SetArray(aDados)
oListBox:bLine := {||{/*Iif(aDados[oListBox:nAt,1]=="1",o2,o1)*/o1,aDados[oListBox:nAt,2],Transform(aDados[oListBox:nAt,3],"@E 999,999.99"),Transform(aDados[oListBox:nAt,4],"@E 999,999.99"),Transform(aDados[oListBox:nAt,5],"@E 999.99")+"%"}}
@ 130,005 BITMAP o1 RESNAME "BR_VERDE" SIZE 16,16 NOBORDER PIXEL
@ 130,015 SAY "Materia Prima Com Empenho OK" OF oDlg PIXEL COLOR CLR_HBLUE
@ 140,005 BITMAP o2 RESNAME "BR_VERMELHO" SIZE 16,16 NOBORDER PIXEL
@ 140,015 SAY "Materia Prima Sem Empenho" OF oDlg PIXEL COLOR CLR_HBLUE
@ 130,140 BITMAP o3 RESNAME "BR_AMARELO" SIZE 16,16 NOBORDER PIXEL
@ 130,150 SAY "Materia Prima Empenhado Abaixo da Estrutura" OF oDlg PIXEL COLOR CLR_HBLUE
@ 140,140 BITMAP o4 RESNAME "BR_AZUL" SIZE 16,16 NOBORDER PIXEL
@ 140,150 SAY "Materia Prima Empenhado Acima da Estrutura" OF oDlg PIXEL COLOR CLR_HBLUE
ACTIVATE MSDIALOG oDlg CENTERED ON INIT Enchoicebar(oDlg, bOk, bNo,, aBotao)
At.
Jenner
Desenvolvi uma tela onde mostra a diferença da estrutura com os empenhos no encerramento da OP, e para facilitar para o usuário quero colocar uma legenda, e no protheus 11 esta legenda não aparece no listbox somente na tela ?
Tem que ser colocado mais alguma informação...
Segue o fonte :
Local o1 := LoadBitmap(GetResources(),"BR_VERDE")
DEFINE MSDIALOG oDlg TITLE cTitulo From 000,000 To 330,700 OF oMainWnd PIXEL
@ 005,005 LISTBOX oListBox VAR cListBox Fields HEADER " ","PRODUTO","ESTRUTURA","EMPENHO","PERCENTUAL" SIZE 343,119 OF oDlg PIXEL //ON DBLCLICK (aDados=FA060Troca(oListBox:nAt,aDados),oListBox:Refresh()) NOSCROLL
oListBox:SetArray(aDados)
oListBox:bLine := {||{/*Iif(aDados[oListBox:nAt,1]=="1",o2,o1)*/o1,aDados[oListBox:nAt,2],Transform(aDados[oListBox:nAt,3],"@E 999,999.99"),Transform(aDados[oListBox:nAt,4],"@E 999,999.99"),Transform(aDados[oListBox:nAt,5],"@E 999.99")+"%"}}
@ 130,005 BITMAP o1 RESNAME "BR_VERDE" SIZE 16,16 NOBORDER PIXEL
@ 130,015 SAY "Materia Prima Com Empenho OK" OF oDlg PIXEL COLOR CLR_HBLUE
@ 140,005 BITMAP o2 RESNAME "BR_VERMELHO" SIZE 16,16 NOBORDER PIXEL
@ 140,015 SAY "Materia Prima Sem Empenho" OF oDlg PIXEL COLOR CLR_HBLUE
@ 130,140 BITMAP o3 RESNAME "BR_AMARELO" SIZE 16,16 NOBORDER PIXEL
@ 130,150 SAY "Materia Prima Empenhado Abaixo da Estrutura" OF oDlg PIXEL COLOR CLR_HBLUE
@ 140,140 BITMAP o4 RESNAME "BR_AZUL" SIZE 16,16 NOBORDER PIXEL
@ 140,150 SAY "Materia Prima Empenhado Acima da Estrutura" OF oDlg PIXEL COLOR CLR_HBLUE
ACTIVATE MSDIALOG oDlg CENTERED ON INIT Enchoicebar(oDlg, bOk, bNo,, aBotao)
At.
Jenner
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Legenda não aparece no listbox
Tempo para a criação da página:0.101 segundos