× Linguagem de Programação ADVPL

Perguntas Legenda não aparece no listbox

Mais
11 anos 6 meses atrás #13954 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

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.101 segundos
Joomla templates by a4joomla