Estoy tratando de desplegar información en una ventana tipo PANEL, pero no funcionan
las propiedades de "FONTCOLOR" ni "TRANSPARENT"... Alguna idea ?
(Estoy trabajando con la version 3.4)
-------------------------------------------------------------------------------------------------------------
Hello everyone
I'm trying to display information in a window PANEL type, but do not work
properties "FONTCOLOR" or "transparent" ... Any ideas?
(I'm working with version 3.4)
Code: Select all
#include "HMG.CH"
#define COLORFDO { 176, 224, 230 }
#define cTITLE "PRUEBA..."
STATIC aActi, aTOpc, aTTip, aColo
FUNCTION MAIN()
aActi := { "N", "N", "N", "N", "N", "N", "N", "N", "N", "N" }
aTOpc := { "OPTION 1", "OPTION 2", "OPTION 3", "OPTION 4", "OPTION 5", "OPTION 6", "OPTION 7", "OPTION 8", "OPTION 9", "OPTION 10" }
DEFINE WINDOW Form_1 AT 000,000 WIDTH 800 HEIGHT 640 MAIN BACKCOLOR COLORFDO TITLE cTITLE NOMAXIMIZE NOMINIMIZE
@ 050,010 LABEL LB_A1 VALUE "Opcion 1" WIDTH 150 HEIGHT 22 FONT "Consolas" SIZE 12 FONTCOLOR BLACK BACKCOLOR { 210, 233, 255 } BORDER ;
ACTION LlenaPanel( "1" ) CENTERALIGN
DEFINE WINDOW Form_2 ROW 050 COL 170 WIDTH 600 HEIGHT 545 VIRTUALWIDTH 601 VIRTUALHEIGHT 700 WINDOWTYPE PANEL BACKCOLOR { 70, 130, 180 }
*
END WINDOW
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return Nil
FUNCTION LlenaPanel( cOpc )
LOCAL nRen, cCtrlPso
nRen := 50
FOR i1 = 1 TO LEN( aActi )
cCtrlPso := "LB_x"+STRZERO( i1, 2 )
@ nRen,010 LABEL &cCtrlPso. OF Form_2 VALUE aTOpc[ i1 ] + ":" WIDTH 160 HEIGHT 22 FONT "Consolas" SIZE 12 ;
FONTCOLOR BLUE BACKCOLOR { 210, 233, 255 } RIGHTALIGN TRANSPARENT // <=== The FONTCOLOR, TRANSPARENT properties do not work 'Windows Panel'
nRen += 25
NEXT
@ 050,180 LABEL LB_x11 OF Form_2 VALUE "<=== The FONTCOLOR, TRANSPARENT properties do not work 'Windows Panel'" WIDTH 330 HEIGHT 35 FONT "Consolas" SIZE 10 ;
FONTCOLOR RED BACKCOLOR { 210, 233, 255 } TRANSPARENT
MSGINFO( "OPCION "+cOpc )
FOR i1 = 1 TO 11
cCtrlPso := "LB_x"+STRZERO( i1, 2 )
Form_2.&cCtrlPso..Release
NEXT
Return Nil