ADVPL TBar TBtnBmp2 icones

                                                    

                                          
User Function XXXX()                                                    


oBar01            := TBar()    :New(oDlg, 25 , 35 , .T.,           , , 'backgroundblack', .T.)

oBtnBmp01       := TBtnBmp2():New( 000, 000, 035, 070, 'OK' ,,,,           {|| nOpca := 01, oDlg:End() }, oBar01,'Confirmar',,.F.,.F. )
oBtnBmp02       := TBtnBmp2():New( 000, 000, 035, 070, 'CANCEL' ,,,,      {|| nOpca := 00, oDlg:End() }, oBar01,'Cancelar',,.F.,.F. )       
oBtnBmp01 	:= TBtnBmp2():New( 000, 000, 035, 070, 'FINAL' ,,,,			{|| oDlg:End() }, oBar01,'FINAL',,.F.,.F. )
oBtnBmp02       := TBtnBmp2():New(000 , 000, 035, 070, 'analitic', ,                  ,    ,                              , oBar01, 'Filtro', , .F., .F.)
oBtnBmp02 	:= TBtnBmp2():New( 000, 000, 035, 070, 'mdihelp' ,,,,			{|| FldLog() }, oBar01,'Log',,.F.,.F. )
oBtnBmp02 	:= TBtnBmp2():New( 000, 000, 035, 070, 'limpeza' ,,,,			{|| CleanLic( nVersaoLib ) }, oBar01,'Limpar Licença',,.F.,.F. )
oBtnBmp03 	:= TBtnBmp2():New( 000, 000, 035, 070, 'edit' ,,,,		{|| newQuery() }, oBar01,'Novo',,.F.,.F. )
oBtnBmp02 	:= TBtnBmp2():New( 000, 000, 035, 070, 'tk_novo' ,,,,		{|| NewTab()  }, oBar01,'Nova Query',,.F.,.F. )
oBtnBmp03 	:= TBtnBmp2():New( 000, 000, 035, 070, 'play' ,,,,		{|| ApQryRun() }, oBar01,'Executar',,.F.,.F. )
oBtnBmp02 	:= TBtnBmp2():New( 000, 000, 035, 025, 'ENGRENAGEM' ,,,,{|| GeraFonte() }, oBar01,'Gerar',,.F.,.F. )
oBtnBmp03 	:= TBtnBmp2():New( 000, 000, 035, 025, 'SUMARIO' ,,,,{|| AbrirFonte() }, oBar01,'Abrir Fonte',,.F.,.F. )
oBtnBmp05 	:= TBtnBmp2():New( 000, 000, 035, 070, 'import_table' ,,,,			{|| MarcaFld( aLista ), oBrw:Refresh() }, oBar01,'Marca campos',,.F.,.F. )
oBtnBmp06 	:= TBtnBmp2():New( 000, 000, 035, 070, 'select' ,,,,			{|| ExportSQL( aLista[oBrw:nAt, 3] ) }, oBar01,'Exportar SQL',,.F.,.F. )
oBtnBmp03 	:= TBtnBmp2():New( 000, 000, 035, 025, 'SALVAR' 	,,,,{|| SaveConfig() }, oBar01,'Salvar',,.F.,.F. )
oBtnBmp04 	:= TBtnBmp2():New( 000, 000, 035, 025, 'FOLDER11' 	,,,,{|| ReadConfig(), oBrwSX2:Refresh() }, oBar01,'Carregar',,.F.,.F. )
oBtnBmp03 	:= TBtnBmp2():New( 000, 000, 035, 070, 'bmppost_ocean' ,,,,	{|| ;
oBtnBmp03 	:= TBtnBmp2():New( 000, 000, 035, 025, 'bgcolor_mdi' ,,,,{|| Int2Rgb(oTColor03:RetColor()), oBrw:SetBlkBackColor({|| AtColor(oBrw:nAt) } ), oBrw:Refresh(.T.) }, oBar01,'Atualiza Cor',,.F.,.F. )

                                        


Return( Nil )                                                    

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎

Um abraço, e até a próxima