error: Assigned value is wrong class

[JoséQuintas]

P.S.: Se eu tivesse que fazer do jeito que o senhor faz, eu enfiava 2 dedos no meio da "goiaba" e rasgava. kkkkkkkkkkkkkkkkkkkkkk, brincadeira, é que eu abandonei modo console a tanto tempo, que só em ver, me dá ogeriza.

Dependendo do ponto de vista, é a mesma coisa.

Código: Selecionar todos

#define COLOR_FONT xxxxx
#define COLOR_BACKGROUND xxxxxx
INIT WINDOW COLOR COLOR_BACKGROUND
FONT COLOR COLOR_FONT

Código: Selecionar todos

INIT WINDOW COLOR SetColorBackground()
   FONT COLOR SetColorFont()

No meu caso, se fosse deixar similar:

Código: Selecionar todos

SET COLOR ( SetColorNormal() )

FUNCTION SetColorNormal()
   RETURN SetColorFont() + "/" + SetColorBackGround()

FUNCTION SetColorFont()
   RETURN "7"

FUNCTION SetColorBackGround()
   RETURN "0"

Não tem tanto a ver com GUI ou console.
É que só de mencionar que é GUI ou console, já considera que é diferente.
Dá pra dizer que em console é mais fácil, porque já define as duas cores de uma vez num único comando.
Se vai usar #define, function, nem faz diferença se é RGB ou tabela.

[JoséQuintas]

Aproveitando.....

Seja console ou GUI, certas coisas valem para os dois, mesmo que os comandos sejam totalmente diferentes.

E eu diria justamente o contrário:
Em GUI complicam muito, é muita definição pra cada coisa.
Seria muito mais prático criar controles por herança, e já deixar todo padrão definido nessa herança.
Pra que ficar dizendo em cada texto que vai usar a mesma cor de sempre ?

Mas tudo bem, o interessante é que a forma de programar vale para os dois casos, não dá pra desprezar certos artifícios usados por um ou outro.

[JoséQuintas]

Em GUI complica a transformação de comando, senão daria pra fazer diferente.
Algo do tipo #define USEDEFAULT MyDefault( oControl )

Código: Selecionar todos

FUNCTION MyDefault( oControl )
  IF oControl TYPE IS TEXT
    oControl:forecolor := 555
   oControl:BackColor := 777
  ENDIF
   RETURN Nil

Mas na herança deixa tudo mais limpo.

[Kapiaba]

Misericórdia... sorry. Não consigo nem me imaginar neste "mundo".

Boa sorte.

abs.

[JoséQuintas]

Misericórdia... sorry. Não consigo nem me imaginar neste "mundo".

Só porque considera console ?

[JoséQuintas]

Eu não concordo com as coisas, fazer o que.
Na imagem é o Visual Basic reclamando, porque fiz o menu diferente do que ele pede.
O menu inteiro numa única variável array
Igual fazia no Clipper, igual faço no Harbour, e fiz do mesmo jeito em VB.
O editor de menus reclama, não aceita, mas é só não usar esse editor.

[Kapiaba]

Se até o EDITOR reclama, imagine eu. kkkkkkkkkkkkkk Misericórdia.

Abs.

[JoséQuintas]

E eis que surge o Itamar 2.