Así esta bien?, las imagenes hablan por si solas.
A los controles les puse BackColor de Verde (Claro que solo a los que se les puede poner) y el Form está en color ciano.
La Primer columna de controles tienen la propiedad de transparencia como .T.
La Segunda columna de controles tienen la propiedad de transparencia como .F.
Los Controles del Primer Tab tienen la propiedad de transparencia como .T.
Los Controles del Segundo Tab tienen la propiedad de transparencia como .F.
Resumiendo. Los Controles que no trabajan su propiedad de transparencia son:
- Windows Classic
- Slider
- Frame
- Slider
- Frame
- RadioGroup
- WinClasic.jpg (111.71 KiB) Viewed 3982 times
- Windows AERO
- CheckBox
- Slider
- RadioGroup
- Frame
- CheckBox
- Slider
- RadioGroup
- Frame
- WinAERO.jpg (118.93 KiB) Viewed 3982 times
////////////////////////////////////////////////////////////////////////////////////////////////
Hi Pablo César,
Is it okay now ? Pictures speaks for itself.
Controls were put BackColor Green (Of course, only those who can put them) and Form is Cyan color.
The first column controls have the property of transparency as .T.
The second column controls have the property of transparency as .F.
First Tab Controls are the property of transparency as .T.
Second Tab Controls are the property of transparency as .F.
Briefly. Hereunder Controls which are not working transparency property:
- Windows Classic
- Slider
- Frame
- Slider
- Frame
- RadioGroup
- WinClasic.jpg (111.71 KiB) Viewed 3982 times
- Windows AERO
- CheckBox
- Slider
- RadioGroup
- Frame
- CheckBox
- Slider
- RadioGroup
- Frame
- WinAERO.jpg (118.93 KiB) Viewed 3982 times
For this test I used this code:
Code: Select all
#include <hmg.ch>
Function Main
DEFINE WINDOW Form_1 AT 103 , 13 WIDTH 1169 HEIGHT 476 ;
TITLE "Demo TRANSPARENCIES" MAIN BACKCOLOR {0,255,255}
DEFINE LABEL Label_1
ROW 40
COL 60
WIDTH 120
HEIGHT 24
VALUE "Label_1"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .T.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR {0,255,64}
FONTCOLOR NIL
END LABEL
DEFINE LABEL Label_5
ROW 40
COL 330
WIDTH 120
HEIGHT 24
VALUE "Label_5"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR {0,255,64}
FONTCOLOR NIL
END LABEL
DEFINE BUTTON Button_2
ROW 80
COL 330
WIDTH 100
HEIGHT 28
ACTION Nil
CAPTION "Button_2"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
HELPID Nil
FLAT .F.
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
MULTILINE .F.
PICTURE Nil
PICTALIGNMENT TOP
END BUTTON
DEFINE BUTTON Button_1
ROW 80
COL 60
WIDTH 100
HEIGHT 28
ACTION Nil
CAPTION "Button_1"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
HELPID Nil
FLAT .F.
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .T.
MULTILINE .F.
PICTURE Nil
PICTALIGNMENT TOP
END BUTTON
DEFINE CHECKBOX Check_1
ROW 130
COL 60
WIDTH 100
HEIGHT 28
CAPTION "Check_1"
VALUE .F.
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
BACKCOLOR {128,255,0}
FONTCOLOR NIL
HELPID Nil
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .T.
END CHECKBOX
DEFINE CHECKBOX Check_4
ROW 130
COL 330
WIDTH 100
HEIGHT 28
CAPTION "Check_4"
VALUE .F.
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
BACKCOLOR {0,255,64}
FONTCOLOR NIL
HELPID Nil
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
END CHECKBOX
DEFINE CHECKBUTTON CheckBtn_1
ROW 180
COL 60
WIDTH 100
HEIGHT 28
CAPTION "CheckBtn_1"
VALUE .F.
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
TABSTOP .T.
VISIBLE .T.
PICTURE Nil
END CHECKBUTTON
DEFINE CHECKBUTTON CheckBtn_2
ROW 170
COL 330
WIDTH 100
HEIGHT 28
CAPTION "CheckBtn_2"
VALUE .F.
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
TABSTOP .T.
VISIBLE .T.
PICTURE Nil
END CHECKBUTTON
DEFINE SLIDER Slider_1
ROW 240
COL 60
WIDTH 120
HEIGHT 35
RANGEMIN 1
RANGEMAX 10
VALUE 0
TOOLTIP ""
ONCHANGE Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
BACKCOLOR {0,255,64}
END SLIDER
DEFINE SLIDER Slider_4
ROW 220
COL 330
WIDTH 120
HEIGHT 35
RANGEMIN 1
RANGEMAX 10
VALUE 0
TOOLTIP ""
ONCHANGE Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
BACKCOLOR {0,255,0}
END SLIDER
DEFINE RADIOGROUP RadioGroup_4
ROW 280
COL 330
WIDTH 120
HEIGHT 50
OPTIONS { 'Option 1','Option 2'}
VALUE 1
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
SPACING 25
BACKCOLOR {0,255,64}
FONTCOLOR NIL
READONLY Nil
HORIZONTAL .F.
END RADIOGROUP
DEFINE FRAME Frame_3
ROW 360
COL 330
WIDTH 130
HEIGHT 60
FONTNAME "Arial"
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
CAPTION "Frame_3"
BACKCOLOR {0,255,0}
FONTCOLOR NIL
OPAQUE .T.
END FRAME
DEFINE TIMER Timer_1 INTERVAL 1000 ACTION {|| (Form_1.Label_1.Value := Time()) }
DEFINE RADIOGROUP RadioGroup_1
ROW 290
COL 70
WIDTH 120
HEIGHT 50
OPTIONS { 'Option 1','Option 2'}
VALUE 1
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .T.
SPACING 25
BACKCOLOR {0,255,64}
FONTCOLOR NIL
READONLY Nil
HORIZONTAL .F.
END RADIOGROUP
DEFINE FRAME Frame_1
ROW 360
COL 70
WIDTH 140
HEIGHT 70
FONTNAME "Arial"
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
CAPTION "Frame_1"
BACKCOLOR {0,255,0}
FONTCOLOR NIL
OPAQUE .F.
END FRAME
DEFINE TAB Tab_1 AT 10 , 480 WIDTH 330 HEIGHT 410 VALUE 1 FONT "Arial" SIZE 9 TOOLTIP "" ON CHANGE Nil
PAGE "Transparent := .T."
DEFINE LABEL Label_3
ROW 60
COL 20
WIDTH 120
HEIGHT 24
VALUE "Label_3"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .T.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR {0,255,64}
FONTCOLOR NIL
END LABEL
DEFINE TEXTBOX Text_2
ROW 60
COL 190
WIDTH 120
HEIGHT 24
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONENTER Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
RIGHTALIGN .F.
DISABLEDBACKCOLOR Nil
DISABLEDFONTCOLOR Nil
CASECONVERT NONE
BACKCOLOR NIL
FONTCOLOR NIL
INPUTMASK Nil
FORMAT Nil
VALUE ""
END TEXTBOX
DEFINE SLIDER Slider_2
ROW 100
COL 20
WIDTH 120
HEIGHT 35
RANGEMIN 1
RANGEMAX 10
VALUE 0
TOOLTIP ""
ONCHANGE Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
BACKCOLOR {0,255,64}
END SLIDER
DEFINE RADIOGROUP RadioGroup_3
ROW 160
COL 30
WIDTH 120
HEIGHT 50
OPTIONS { 'Option 1','Option 2'}
VALUE 1
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .T.
SPACING 25
BACKCOLOR {0,255,64}
FONTCOLOR NIL
READONLY Nil
HORIZONTAL .F.
END RADIOGROUP
DEFINE CHECKBOX Check_2
ROW 180
COL 200
WIDTH 100
HEIGHT 28
CAPTION "Check_2"
VALUE .F.
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
BACKCOLOR {0,255,64}
FONTCOLOR NIL
HELPID Nil
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .T.
END CHECKBOX
DEFINE FRAME Frame_2
ROW 40
COL 10
WIDTH 310
HEIGHT 340
FONTNAME "Arial"
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
CAPTION "Frame_2"
BACKCOLOR {0,255,64}
FONTCOLOR NIL
OPAQUE .T.
END FRAME
DEFINE BUTTON Button_3
ROW 250
COL 40
WIDTH 100
HEIGHT 28
ACTION Nil
CAPTION "Button_3"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
HELPID Nil
FLAT .F.
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .T.
MULTILINE .F.
PICTURE Nil
PICTALIGNMENT TOP
END BUTTON
DEFINE CHECKBUTTON CheckBtn_3
ROW 250
COL 190
WIDTH 100
HEIGHT 28
CAPTION "CheckBtn_3"
VALUE .F.
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
TABSTOP .T.
VISIBLE .T.
PICTURE Nil
END CHECKBUTTON
END PAGE
PAGE "Page 2"
DEFINE TEXTBOX Text_3
ROW 70
COL 170
WIDTH 120
HEIGHT 24
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONENTER Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
RIGHTALIGN .F.
DISABLEDBACKCOLOR Nil
DISABLEDFONTCOLOR Nil
CASECONVERT NONE
BACKCOLOR NIL
FONTCOLOR NIL
INPUTMASK Nil
FORMAT Nil
VALUE ""
END TEXTBOX
DEFINE RADIOGROUP RadioGroup_2
ROW 130
COL 170
WIDTH 120
HEIGHT 50
OPTIONS { 'Option 1','Option 2'}
VALUE 1
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
SPACING 25
BACKCOLOR {0,255,0}
FONTCOLOR NIL
READONLY Nil
HORIZONTAL .F.
END RADIOGROUP
DEFINE LABEL Label_2
ROW 60
COL 20
WIDTH 120
HEIGHT 24
VALUE "Label_2"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR {128,255,0}
FONTCOLOR NIL
END LABEL
DEFINE SLIDER Slider_3
ROW 100
COL 20
WIDTH 120
HEIGHT 35
RANGEMIN 1
RANGEMAX 10
VALUE 0
TOOLTIP ""
ONCHANGE Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
BACKCOLOR {0,255,64}
END SLIDER
DEFINE CHECKBOX Check_3
ROW 160
COL 20
WIDTH 100
HEIGHT 28
CAPTION "Check_3"
VALUE .F.
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
BACKCOLOR {0,255,0}
FONTCOLOR NIL
HELPID Nil
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
END CHECKBOX
DEFINE FRAME Frame_4
ROW 40
COL 10
WIDTH 290
HEIGHT 290
FONTNAME "Arial"
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
CAPTION "Frame_4"
BACKCOLOR {0,255,0}
FONTCOLOR NIL
OPAQUE .T.
END FRAME
DEFINE BUTTON Button_4
ROW 240
COL 30
WIDTH 100
HEIGHT 28
ACTION Nil
CAPTION "Button_4"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
HELPID Nil
FLAT .F.
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
MULTILINE .F.
PICTURE Nil
PICTALIGNMENT TOP
END BUTTON
DEFINE CHECKBUTTON CheckBtn_4
ROW 240
COL 170
WIDTH 100
HEIGHT 28
CAPTION "CheckBtn_4"
VALUE .F.
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
TABSTOP .T.
VISIBLE .T.
PICTURE Nil
END CHECKBUTTON
END PAGE
END TAB
DEFINE LABEL Label_7
ROW 10
COL 60
WIDTH 120
HEIGHT 24
VALUE "Transparente := .T."
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .T.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR {0,255,64}
FONTCOLOR NIL
END LABEL
DEFINE LABEL Label_8
ROW 10
COL 330
WIDTH 120
HEIGHT 24
VALUE "Transparent := .F."
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR {0,255,64}
FONTCOLOR NIL
END LABEL
DEFINE TAB Tab_2 AT 10 , 820 WIDTH 330 HEIGHT 400 VALUE 1 FONT "Arial" SIZE 9 TOOLTIP "" ON CHANGE Nil
PAGE "Transparent := .F."
DEFINE FRAME Frame_5
ROW 40
COL 20
WIDTH 280
HEIGHT 330
FONTNAME "Arial"
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
CAPTION "Frame_5"
BACKCOLOR {0,255,64}
FONTCOLOR NIL
OPAQUE .T.
END FRAME
DEFINE LABEL Label_4
ROW 80
COL 40
WIDTH 120
HEIGHT 24
VALUE "Label_4"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR {0,255,64}
FONTCOLOR NIL
END LABEL
DEFINE SLIDER Slider_5
ROW 120
COL 50
WIDTH 120
HEIGHT 35
RANGEMIN 1
RANGEMAX 10
VALUE 0
TOOLTIP ""
ONCHANGE Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
BACKCOLOR {0,255,64}
END SLIDER
DEFINE RADIOGROUP RadioGroup_5
ROW 190
COL 50
WIDTH 120
HEIGHT 50
OPTIONS { 'Option 1','Option 2'}
VALUE 1
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
SPACING 25
BACKCOLOR {0,255,64}
FONTCOLOR NIL
READONLY Nil
HORIZONTAL .F.
END RADIOGROUP
DEFINE CHECKBOX Check_5
ROW 270
COL 50
WIDTH 100
HEIGHT 28
CAPTION "Check_5"
VALUE .F.
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
BACKCOLOR {0,255,0}
FONTCOLOR NIL
HELPID Nil
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
END CHECKBOX
DEFINE BUTTON Button_5
ROW 310
COL 40
WIDTH 100
HEIGHT 28
ACTION Nil
CAPTION "Button_5"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
HELPID Nil
FLAT .F.
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
MULTILINE .F.
PICTURE Nil
PICTALIGNMENT TOP
END BUTTON
DEFINE CHECKBUTTON CheckBtn_5
ROW 310
COL 170
WIDTH 100
HEIGHT 28
CAPTION "CheckBtn_5"
VALUE .F.
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
TABSTOP .T.
VISIBLE .T.
PICTURE Nil
END CHECKBUTTON
END PAGE
PAGE "Page 2"
END PAGE
END TAB
END WINDOW
Form_1.Center
Form_1.Activate
Return Nil