23 Jan 2021 13:43
23 Jan 2021 14:09
asimoes escreveu:BACKCOLOR não foi implementado ou feito uso a versão atual da hwgui, o parâmetro na guilib.ch está lá , MAS NÃO É PASSADO para HDialog():New()
Somente COLOR é usado, como bColor
[ <bclr: BACKCOLOR, COLOR> <bColor> ] ;
BACKCOLOR não tem uso
PROCEDURE Main()
LOCAL oDialog
INIT DIALOG oDialog TITLE "Teste" SIZE 640, 480 COLOR 0x00FF00
ACTIVATE DIALOG oDialog
RETURN
23 Jan 2021 16:43
marcosgambeta escreveu:Então, usar um ou outro dá o mesmo resultado. Não está assim para você ?
23 Jan 2021 17:07
asimoes escreveu:BACKCOLOR na 2.17 não está implementado e na 2.2x olhando o fonte não vi o uso, pelo menos nos parâmetros New() não está passando
INIT WINDOW ... COLOR ...
ou
INIT WINDOW ... BACKCOLOR ...
INIT DIALOG ... COLOR ...
ou
INIT DIALOG ... BACKCOLOR ...
23 Jan 2021 18:27
Aproveitando, havia me esquecido que o Harbour entende números hexadecimais. Então, nem se precisa da função de conversão. Funciona também como abaixo:
... SIZE 640, 480 COLOR "0x00FF00" //assim dá erro.
23 Jan 2021 19:35
IF bColor != Nil
::brush := HBrush():Add( bColor )
ENDIF