HWGUI 2.23 b5

[Fernando queiroz]

baixei e testei a nova build B5
coisa que funcionam bem na build 3 pararam de funcionar.

na B3
HProgressBar():NewBox( "Verificando Arquivos ...",183,0,423,70, 47, 47 ) funciona certinho

na B5 não apareceu os label oBar:SetLabel("LOG GERAL DE TRANSAÇÕES")

[Itamar M. Lins Jr.]

Olá!
Tô usando sem problema.
Faz um demo com o problema.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Olá!

Código: Selecionar todos

2023-10-05 12:43 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * include/guilib.ch
    * HwGUI version is changed to 2.23 dev build 6
  * doc/hwgdoc_commands.html
    * Documentation updated - new commands added

Saudações,
Itamar M. Lins Jr.

[Fernando queiroz]

Olá!

Código: Selecionar todos

2023-10-05 12:43 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * include/guilib.ch
    * HwGUI version is changed to 2.23 dev build 6
  * doc/hwgdoc_commands.html
    * Documentation updated - new commands added

Saudações,
Itamar M. Lins Jr.

onde encontro essa build 6, la no sourceforge.net só encontrei a hwgui-2.23-b5.src.zip

[Itamar M. Lins Jr.]

Olá!
É o mesmo. Só mudou para 6 sem mexer nos fontes.

Código: Selecionar todos

2023-10-05 12:43 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * include/guilib.ch
    * HwGUI version is changed to 2.23 dev build 6
  * doc/hwgdoc_commands.html
    * Documentation updated - new commands added

2023-10-05 12:43 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * include/guilib.ch
    * HwGUI version is changed to 2.23 build 5
  * doc/hwgdoc_classes.html
  * doc/hwgdoc_functions.html
    * Documentation updated - new classes and functions added
  * whatsnew.txt
    * Updated for v2.23 build 5

Tem que isolar o BO para mandar para ele corrigir.

Eu não uso da forma que vc usa.
Eu falei com ele que estava aparecendo DUAS hprogress... Dai ele fez uma correção. Olhe a data.
https://sourceforge.net/p/hwgui/bugs/130/

Código: Selecionar todos

2023-08-28 10:40 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * source\winapi\hcontrol.prg
    ! Small fix
    * New parameter, lTransparent, and appropriate logic, added to HBoard():New()
  * source\winapi\hprogres.prg
    * The bar label is transparent now
  * include/guilib.ch
    * @ ... LENTA ... command added
      TRANSPARENT flag added to @ ... HBOARD ... command
  * utils/tutorial/tutor_eng.xml

Outra coisa: Eu uso o TortoiseSVN para baixar o fonte do SVN.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Olá!
Mas é só esse o problema ou tem mais ?
Teste ai para ver se tem mais problemas.

Saudações,
Itamar M. Lins Jr.

[Ana Mitoooo]

223 B5/B6 aparentemente esta ok

Código: Selecionar todos

#include "hwgui.ch"

Proc Main
   Local oDlg, oFont, oMenu, oBar

   PREPARE FONT oFont NAME "MS Sans Serif" WIDTH 0 HEIGHT -13

   INIT DIALOG oDlg TITLE "Modal dialog" AT 100, 100 SIZE 300, 150 FONT oFont ;
      STYLE DS_CENTER + WS_VISIBLE + WS_POPUP + WS_VISIBLE + WS_CAPTION + WS_SYSMENU ;
      ON EXIT { || Iif( oBar == Nil, .T., ( oBar:Close(),.T. ) ) }

   @ 4,4 BUTTON "Menu" SIZE 50,28 ON CLICK { || oBar:SetLabel("LOG GERAL DE TRANSAÇÕES") }

   @ 100,100 BUTTON "Close" SIZE 100,30 ON CLICK {|| oDlg:Close() }

   oBar := HProgressBar():NewBox( "Verificando Arquivos ...",183,0,423,70, 47, 47 )

   ACTIVATE DIALOG oDlg

Return

A única alteração na progressbar foi a adição do parâmetro TRANSPARENT (linha 103)
C:\hwgui\source\winapi\hprogres.prg

Código: Selecionar todos

   @ ::nLeft, nTop + 5 SAY ::LabelBox CAPTION iif( Empty( lPercent ), "", "%" )  SIZE ::nWidth, 19 ;
      STYLE SS_CENTER TRANSPARENT

[Fernando queiroz]

tem mais

as minhas rotinas que tem SETPAINTCB
todas estão dando erro
Error BASE/1004 Message not found: HCOLUMN:SETPAINTCB

Código: Selecionar todos

@ 3,30 BROWSE oBrowse2 ARRAY  SIZE 1013,392 STYLE WS_BORDER + WS_VSCROLL  

								oBrowse2:nHeadRows := 2
								oBrowse2:oStyleHead := BrowseStyleHead 
								oBrowse2:headColor :=  BrowseheadColor
								oBrowse2:oFont := HFont():Add( '',0,-15,700,,,)	
								oBrowse2:freeze := 2
								oBrowse2:aArray := {}

oBrowse2:AddColumn( HColumn():New( "",hwg_ColumnArBlock(),"C",3,0,,1,1, ) )					
oBrowse2:AddColumn( HColumn():New( "MODELO",hwg_ColumnArBlock(),"C",10,0,.F.,1,0,,,,,,,,,,))
oBrowse2:AddColumn( HColumn():New( "Serie",hwg_ColumnArBlock(),"C",5,0,.F.,1,2,,,,,,,,,,))
oBrowse2:AddColumn( HColumn():New( "NUMERO",hwg_ColumnArBlock(),"N",11,0,.F.,1,2,,,,,,,,,,))					
oBrowse2:AddColumn( HColumn():New('Emissão',hwg_ColumnArBlock(),"C",19,0,.F.,1,2,,,,,,,,,,))
oBrowse2:AddColumn( HColumn():New('Total NOTA', hwg_ColumnArBlock() ,'N',20, 2 ,.F.,1,2,'@E 9,999,999,999.99',,,,,,,,,))
oBrowse2:AddColumn( HColumn():New('Arquivo XML', hwg_ColumnArBlock() ,'U',52, 0 ,.F.,0,,,,,,,,,,,))
oBrowse2:AddColumn( HColumn():New( "Nome",hwg_ColumnArBlock(),"C",10,0,.F.,1,0,,,,,,,,,,))
oBrowse2:AddColumn( HColumn():New( "ST",hwg_ColumnArBlock(),"N",3,0,.F.,1,2,,,,,,,,,,))
oBrowse2:aColumns[1]:setPaintCB( PAINT_LINE_ALL, bCol7 )

eu tenho esse codeblok

Código: Selecionar todos

aBitmaps1:={HBitmap():Addresource( "invoice-green-20" ), HBitmap():AddResource( "invoice-red-20" ), HBitmap():Addresource(  "BRW_EXC" ), HBitmap():Addresource( "DANGER" ) } ;

LOCAL bCol7 := {|oBmp, h,x1,y1,x2,y2| oBmp:=aBitmaps1[oPage1:oBrowse2:aArray[oPage1:oBrowse2:nCurrent,9]], ;
	hwg_Fillrect( h, x1, y1, x2, y2, oBrowse1:brush:handle ), ;
	hwg_Drawbitmap( h, oBmp:handle,, x1+4, y1+2, oBmp:nWidth, oBmp:nHeight ) }

na Build3 ta funcionando na build6 da o erro

[Fernando queiroz]

A única alteração na progressbar foi a adição do parâmetro TRANSPARENT (linha 103)
C:\hwgui\source\winapi\hprogres.prg

Código: Selecionar todos

   @ ::nLeft, nTop + 5 SAY ::LabelBox CAPTION iif( Empty( lPercent ), "", "%" )  SIZE ::nWidth, 19 ;
      STYLE SS_CENTER TRANSPARENT

realmente fui no fonte e tirei o TRANSPARENT
e agora esta aparecendo

[Itamar M. Lins Jr.]

Olá!
Ok Blz! Isso acredito que na segunda-feira em diante ele deve corrigir.(tomara) rsrsrs!
Pior fui eu que usava o BrowseEx... e fui pedindo para ativar no browse tradicional que vc usa. Vamos aguardar a semana começar... Sábado e Domingo ele fica off.
É pq o Browse agora é desenhado ele criou um controle a parte. Essas classes devem ser atualizadas(adicionadas) no DRAW BROWSE.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Olá!

realmente fui no fonte e tirei o TRANSPARENT

Pra mim tem que ficar transparente mesmo. Eu não uso e fica uma barra em cima da outra, parecendo que tem duas barras. Tem que aparecer conforme mostrou Ana Mitooo...

Saudações,
Itamar M. Lins Jr.

[Fernando queiroz]

Olá!

realmente fui no fonte e tirei o TRANSPARENT

Pra mim tem que ficar transparente mesmo. Eu não uso e fica uma barra em cima da outra, parecendo que tem duas barras. Tem que aparecer confirme mostrou Ana Mitooo...

Saudações,
Itamar M. Lins Jr.

depois que retirei o TRANSPARENT agora a barrinha de progresso nao funciona.

[Itamar M. Lins Jr.]

Olá!

depois que retirei o TRANSPARENT agora a barrinha de progresso não funciona.

Acho que entendi o BUG.
Vou ver aqui se dá o erro.

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Esse negócio do TRANSPARENT é antigo.
Falei do label com borda que com TRANSPARENT não funciona.....
E isso foi antes do HBOARD.

Quanto a baixar, pode ser com GIT, só precisa ver as opções.

Talvez com o git mais fácil ver o que mudou.

[Itamar M. Lins Jr.]

Olá!
Testei a parte do oBar:=hprogress com oBar:SetLabel e aqui funcionou.

Saudações,
Itamar M. Lins Jr.