Como testar o tipo de controle/dialog/etc.

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Como testar o tipo de controle/dialog/etc.

Mensagem por JoséQuintas »

Como saber o tipo do troço?

Tipo; oControl:Type == textbox, oControl:Type == Dialog, oControl:Type == Browse

Preciso saber o tipo do troço pra corrigir as coordenadas pixel, porque no fivewin não tem uma fórmula fixa pra tudo. (pelo menos na versão em teste)

Após trocar WINDOW pra DIALOG, criei ToDialog() pra fazer a conversão:

Código: Selecionar todos

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

   hb_Default( @lBorder, .F. )
   IF lBorder
      @ ToDialog( nRow ), ToDialog( nCol ) SAY xControl VAR xValue OF xDlg PIXEL SIZE ToDialog( nWidth ), ToDialog( nHeight ) COLOR CLR_BLUE TRANSPARENT BORDER
   ELSE
      @ ToDialog( nRow ), ToDialog( nCol ) SAY xControl VAR xValue OF xDlg PIXEL SIZE ToDialog( nWidth ), ToDialog( nHeight ) COLOR CLR_BLUE TRANSPARENT
   ENDIF

   RETURN Nil
Dá certo, mas depende do controle e do layout.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Como testar o tipo de controle/dialog/etc.

Mensagem por alxsts »

Olá!

Experimente usar a função IsKindOf().
[]´s
Alexandre Santos (AlxSts)
Responder