BO em HBOARD

[JoséQuintas]

Pois é.... nem tudo é festa.

[Itamar M. Lins Jr.]

Olá!
Quer corrigir ou ficar reclamando ?
Cadê o problema ?

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Código: Selecionar todos

FUNCTION gui_LabelCreate( xDlg, xControl, nRow, nCol, nWidth, nHeight, xValue, lBorder )

//   (xDlg)
//   (lBorder)
//   @ nCol, nRow BOARD xControl SIZE nWidth, nHeight ON PAINT { | o, h | LabelPaint( o, h, lBorder ) }
//   xControl:Title := xValue
//
//   RETURN Nil
//
//FUNCTION LabelPaint( o, h, lBorder )
//
//   IF o:oFont != Nil
//      hwg_SelectObject( h, o:oFont:Handle )
//   ENDIF
//   IF o:TColor != Nil
//      hwg_SetTextColor( h, o:TColor )
//   ENDIF
//   IF ! Empty( lBorder ) .AND. lBorder
//      hwg_Rectangle( h, 0, 0, o:nWidth - 1, o:nHeight - 1 )
//   ENDIF
//   hwg_SetTransparentMode( h, .T. )
//   hwg_DrawText( h, o:Title, 2, 2, o:nWidth - 2, o:nHeight - 2 )
//   hwg_SetTransparentMode( h, .F. )
//
//   RETURN Nil
//
   ( xDlg )
   IF lBorder
      @ nCol, nRow SAY xControl ;
         CAPTION xValue ;
         OF      xDlg ;
         SIZE    nWidth, nHeight ;
         STYLE   WS_BORDER ;
         COLOR COLOR_BLACK ;
         BACKCOLOR COLOR_GREEN // TRANSPARENT // DO NOT USE TRANSPARENT WITH BORDER
   ELSE
      @ nCol, nRow SAY xControl ;
         CAPTION xValue ;
         OF      xDlg ;
         SIZE    nWidth, nHeight ;
         COLOR   COLOR_BLACK ;
         TRANSPARENT
   ENDIF

   RETURN Nil

Tá lá nos tickets da hwgui.

O fonte novo era pra resolver problema do velho.
Agora voltei o velho pra resolver problema do novo.

[Itamar M. Lins Jr.]

Olá!
Estranho, parece que o tamanho da string é maior que o size ? Eu pego esse erro aqui. Mas não é bug.
Aqui uso @ say o tempo todo, e tudo ok.
Só o fundo da DIALOG que ficou branco e era prata e o progressbar que duplicou para resolver os problemas que achei.

Captura de tela 2023-08-25 115734.png (4.47 KiB) Exibido 1272 vezes

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

É na navegação entre registros, pra atualizar a tela.
Deveria limpar o conteúdo do registro anterior.

Era label 3D, mas pra acertar o BORDER FLAT o Kresin passou o fonte do BOARD.
Agora o BOARD está com esse problema, voltei o label 3D.

[alxsts]

Olá!

O que significa

( xDlg )

no código acima, linha 27?
Vi em outro tópico também uma lista deste tipo de expressão, separada por pontos e vírgulas... não sei o que é isto...

[JoséQuintas]

É que as funções são genéricas. xDLG é a DIALOG. É que dependendo da LIB, pode ser objeto ou string, por isso começa com X.

Já aqui:

Código: Selecionar todos

FUNCTION gui_TabNavigate( xDlg, oTab, aList )

   (xDlg);(oTab);(aList)

   RETURN Nil

A lista separada por ponto e vírgula não serve pra nada, mas.... impede mensagem de erro por variável não utilizada.
Apenas alternativa mais fácil de digitar do que HB_SYMBOL_UNUSED( xDlg )

Na tolerância zero, -w3 -es2

lib_hmge.prg:236: warning W0003 Variable 'XDLG' declared but not used in function '232:GUI_TABNAVIGATE'
lib_hmge.prg:236: warning W0003 Variable 'OTAB' declared but not used in function '232:GUI_TABNAVIGATE'
lib_hmge.prg:236: warning W0003 Variable 'ALIST' declared but not used in function '232:GUI_TABNAVIGATE'

A função não tem conteúdo, mas vai ter depois, estou apenas mantendo o bloco preparado.

Isso não acontece na compilação -w0, mas só trabalho com checagem máxima pra variáveis.

[alxsts]

Olá!

Obrigado. Não faziam sentido algum quando olhei...

[Itamar M. Lins Jr.]

Olá!

Obrigado. Não faziam sentido algum quando olhei...

Não é Mandrake, mas é cheio de truques. rsrsrsrs!

Saudações,
Itamar M. Lins Jr.

[alxsts]

A função não tem conteúdo, mas vai ter depois, estou apenas mantendo o bloco preparado.

Apenas comentando:
Um caso semelhante, mas em OOP, seria um método virtual. O método é declarado na classe mas ainda não está implementado.