O que é isto em sample/a.prg

[JoséQuintas]

Comecei a formatar os fontes da HWGUI, mas não entendi essa parte. {|l|l}

[JoséQuintas]

Acho que entendi, é um codeblock que recebe a variável L e retorna L.

Código: Selecionar todos

{ | L | L }

[Fernando queiroz]

SE refere a colocar .BMP no grid do TBROWSE

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 ) }	

NO BROWSE

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