O que é isto em sample/a.prg
Enviado: 23 Nov 2022 15:43
Página 1 de 1
Comecei a formatar os fontes da HWGUI, mas não entendi essa parte. {|l|l}
O que é isto em sample/a.prg
Enviado: 23 Nov 2022 18:32
Acho que entendi, é um codeblock que recebe a variável L e retorna L.
Código: Selecionar todos
{ | L | L }
O que é isto em sample/a.prg
Enviado: 24 Nov 2022 09:25
O CODEBLOCK
Código: Selecionar todos
LOCAL bCol1 := {|oBmp, h,x1,y1,x2,y2| oBmp:=::aBitmaps1[oBrowse1:aArray[oBrowse1:nCurrent,8]], ;
hwg_Fillrect( h, x1, y1, x2, y2, oBrowse1:brush:handle ), ;
hwg_Drawbitmap( h, oBmp:handle,, x1+5, y1+2, oBmp:nWidth, oBmp:nHeight ) }
Código: Selecionar todos
@ 2,27 BROWSE oBrowse1 ARRAY OF oPage1 SIZE 1014,428 STYLE WS_BORDER + WS_VSCROLL;
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS ;
ON POSCHANGE {|| ::_onDlgInit( oDlg )} ;
ON KEYDOWN {|oBrowse1,nKeyPress| ::_onKeyDown( oBrowse1, nKeyPress, oDlg, @cProgressKey, @cAlvo_Consulta ) }
oBrowse1:nHeadRows := 2
oBrowse1:oStyleHead := BrowseStyleHead
oBrowse1:headColor := BrowseheadColor
oBrowse1:oFont := HFont():Add( '',0,-15,700,,,)
// oBrowse1:freeze := 4
oBrowse1:aArray := {}
oBrowse1:AddColumn( HColumn():New( "",,"C",3,0,.F.,1,0, ) )
oBrowse1:AddColumn( HColumn():New('PEDIDO', hwg_ColumnArBlock() ,'N',12, 0 ,.F.,1,2,,,,,,;
{|| oBrowse1:aArray := ::_CARREGA("ORDER BY pedidos.PEDIDOS_ID DESC LIMIT 50" ), obrowse1:Refresh(), cAlvo_Consulta:="pedidos.PEDIDOS_ID", hwg_WriteStatus( oDlg,2,"Ordem: PEDIDO") } ,,,,))
oBrowse1:AddColumn( HColumn():New(' Data ', hwg_ColumnArBlock() ,'D',11, 0 ,.F.,1,,,,,,,,,,,))
oBrowse1:AddColumn( HColumn():New(' Hora ', hwg_ColumnArBlock() ,'C',8, 0 ,.F.,1,,,,,,,,,,,))
oBrowse1:AddColumn( HColumn():New('Nome Cliente', hwg_ColumnArBlock() ,'C',70, 0 ,.F.,1,,,,,,,;
{|| oBrowse1:aArray := ::_CARREGA( "ORDER BY pedidos.NRAZ_SOC LIMIT 50" ), obrowse1:Refresh(), cAlvo_Consulta:="pedidos.NRAZ_SOC", hwg_WriteStatus( oDlg,2,"Ordem: NOME CLIENTE") } ,,,,))
oBrowse1:AddColumn( HColumn():New('Total da Nota', hwg_ColumnArBlock() ,'N',18, 2 ,.F.,1,2,'@E 9,999,999.99',,,,,,,,,))
oBrowse1:AddColumn( HColumn():New('Tipo;Operação', hwg_ColumnArBlock() ,'N',10, 0 ,.F.,1,,,,,,,,,,,))
oBrowse1:aColumns[1]:setPaintCB( PAINT_LINE_ALL, bCol1 )
FOR EACH oColuna IN oBrowse1:aColumns
oColuna:bColorBlock := {|| BrowseBarColorPrimary }
NEXT