Strange dialog problem

Davide
Posts: 190
Joined: Tue Mar 14, 2006 1:59 am
Location: Italy

Re: Strange dialog problem

Post by Davide »

Jeff Barnes wrote: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

#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
Post Reply