Strange dialog problem

[Davide]

When I click on a radio or a checkbox the text for the control will disappear until I click into another field.

I have a similar problem in the sample below, but only if XP themes are disabled (or if I run the EXE on a non-themed OS).

By enabling themes via the RC, it works correctly (on XP and Vista only).

The problem disappears by removing the transparent brush.

Thanks,
Davide

Code: Select all  Expand view

#include "Fivewin.ch"

function Main()

local oDlg, oBmp, oFont2, oBtn, oObj, nRad:=1

  DEFINE FONT oFont2 NAME "MS Sans Serif" SIZE 0,-8
  DEFINE BRUSH oBmp FILE "WizDlg.bmp" // RESOURCE "WizDlg"

  DEFINE DIALOG oDlg FROM 0,0 TO 256,400 PIXEL ;
         FONT oFont2 ;
         BRUSH oBmp TRANSPARENT ;
         TITLE "Test" ;
         STYLE nOr( DS_SYSMODAL, WS_POPUP )

  @ 55,5 RADIO oObj VAR nRad ITEMS "First" SIZE 45,10 PIXEL OF oDlg
  @ 55,55 RADIOITEM "Second" RADIOMENU oObj SIZE 90,10 PIXEL OF oDlg

  @ 108,149 BUTTON oBtn PROMPT "Close"  ACTION  oDlg:End() SIZE 43,11 PIXEL FONT oFont2 OF oDLG

  ACTIVATE DIALOG oDlg CENTERED

  oFont2:End()
  RELEASE BRUSH oBmp

return nil