The FONTCOLOR, TRANSPARENT properties do not work 'Windows Panel'
Posted: Thu Aug 27, 2015 2:48 am
Hola a todos
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)
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