I' ve a problem with last release 8.12 ( pheraps also with 8.10 ) using groups in resource file
with clause "TRASPARENT"; it's NOT working if I link manifest file.
Without manifest it's working perfectly.
Thanks in advance . Bye
- Code: Select all Expand view
#include "FiveWin.ch"
**************************************************************************
Function Main()
local oDlg , oGroup1 , oFont1 , oGroup2 , oGet1 , oGet2 , oGet3 , oGet4
local oGet5 , oGet6 , mText1 , mText2 , mText3 , mText4 , mText5 , mText6
mText1:="This is a test 1"
mText2:="This is a test 2"
mText3:="This is a test 3"
mText4:="This is a test 4"
mText5:="This is a test 5"
mText6:="This is a test 6"
DEFINE FONT oFont1 NAME 'ARIAL' SIZE 0, -11 BOLD
DEFINE DIALOG oDlg NAME "Test"
REDEFINE GROUP oGroup1 ID 800 OF oDlg FONT oFont1 TRANSPARENT
REDEFINE GROUP oGroup2 ID 801 OF oDlg FONT oFont1 TRANSPARENT
REDEFINE GET oGet1 VAR mText1 ID 101 OF oDlg
REDEFINE GET oGet2 VAR mText2 ID 102 OF oDlg
REDEFINE GET oGet3 VAR mText3 ID 103 OF oDlg
REDEFINE GET oGet4 VAR mText4 ID 104 OF oDlg
REDEFINE GET oGet5 VAR mText5 ID 105 OF oDlg
REDEFINE GET oGet6 VAR mText6 ID 106 OF oDlg
REDEFINE BUTTON ID 500 OF oDlg ACTION oDlg:End()
ACTIVATE DIALOG oDlg
oFont1:End()
Return nil
********
rc file
#include ".\..\include\WinApi.ch"
Test DIALOG 145, 82, 322, 95
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Test Groups"
FONT 8, "MS Sans Serif"
{
EDITTEXT 101, 86, 16, 58, 12
EDITTEXT 102, 86, 34, 58, 12
EDITTEXT 103, 86, 53, 58, 12
EDITTEXT 104, 252, 16, 58, 12
EDITTEXT 105, 252, 34, 58, 12
EDITTEXT 106, 252, 53, 58, 12
PUSHBUTTON "OK", 500, 255, 76, 63, 16
GROUPBOX "Group 1", 800, 3, 2, 156, 72, BS_GROUPBOX | WS_GROUP
GROUPBOX "Group 2", 801, 163, 2, 156, 72, BS_GROUPBOX | WS_GROUP
RTEXT "Test 1", -1, 49, 20, 34, 9
RTEXT "Test 2", -1, 49, 38, 34, 9
RTEXT "Test 3", -1, 49, 56, 34, 9
RTEXT "Test 4", -1, 215, 21, 34, 9
RTEXT "Test 5", -1, 215, 39, 34, 9
RTEXT "Test 6", -1, 215, 57, 34, 9
}
