I have a strange effect when using the TRANSPARENT option in a dialog.
The code is:
Code: Select all
#INCLUDE "FiveWin.ch"
#include "fwinkey.ch"
FUNCTION test()
local oDlg
local oBrush
DEFINE BRUSH oBrush COLOR nRGB(240,240,245)
DEFINE DIALOG oDlg RESOURCE "OPENENDATABASE" BRUSH oBrush TRANSPARENT
ACTIVATE DIALOG oDlg CENTERED
RETURN nil
Code: Select all
#include "c:\fwh\FWH710\include\WinApi.ch"
OPEN ICON folder2.ico
#ifdef __FLAT__
1 24 "c:\fwh\FWH710\samples\WinXP\WindowsXP.Manifest"
#endif
OPENENDATABASE DIALOG 73, 37, 144, 48
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "Opening database"
FONT 8, "MS Sans Serif"
{
LTEXT "Please wait...", -1, 55, 19, 57, 8
ICON "open", -1, 20, 12, 21, 20
GROUPBOX "", -1, 5, 2, 134, 38, BS_GROUPBOX
}
If I use TRANSPARENT I see a text 'open' on the place where the icon should be.
Is this a bug in FWH?
Thanks,
Marc