A problem, painting radios

[ukoenig]

Hello,

I noticed a problem with radio-painting.
From selected Radio ( downwards ) the Area is deleted.
It happens as well on Lostfocus.



after selecting a Radio :


Lost Focus :



Nothing spezial :

Code: Select all  Expand view

FUNCTION MAIN()
local oDlg, oRadio, nRadio := 1, oFont, oBtn, oSay

c_path := CURDRIVE() + ":\" + GETCURDIR()

oFont  := TFont():New("Arial",,-16,.F.,.T. ,,,,.F. )

DEFINE DIALOG oDlg FROM 30, 30 TO 500, 400  PIXEL ;
FONT  oFont TITLE "Radio-Test" COLOR "N/*BG" TRANSPARENT

/*
#xcommand @ <nRow>, <nCol> RADIO [ <oRadMenu> VAR ] <nVar> ;
             [ <prm: PROMPT, ITEMS> <cItems,...> ] ;
             [ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
             [ <help:HELPID, HELP ID> <nHelpId,...> ] ;
             [ <change: ON CLICK, ON CHANGE> <uChange> ] ;
             [ COLOR <nClrFore> [,<nClrBack>] ] ;
             [ MESSAGE <cMsg> ] ;
             [ <update: UPDATE> ] ;
             [ WHEN <uWhen> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ VALID <uValid> ] ;
             [ <lDesign: DESIGN> ] ;
             [ <lLook3d: 3D, _3D> ] ;
             [ <lPixel: PIXEL> ] ;
*/

@ 15, 50 RADIO oRadio VAR nRadio OF oDlg ;
ITEMS "&0", "0&1", "0&2", "0&3", "0&4", "0&5", "0&6", "0&7", "0&8", "0&9" ;
HELPID 100, 101, 102, 103, 104, 105, 106, 107, 108, 109 ;
SIZE  30,12 3D PIXEL ;
ON CHANGE  ( IIF( nRadio = 1, nDGradPos := 0, NIL ), ;
              IIF( nRadio = 2, nDGradPos := 0.1, NIL ), ;
              IIF( nRadio = 3, nDGradPos := 0.2, NIL ), ;
              IIF( nRadio = 4, nDGradPos := 0.3, NIL ), ;
              IIF( nRadio = 5, nDGradPos := 0.4, NIL ), ;
              IIF( nRadio = 6, nDGradPos := 0.5, NIL ), ;
              IIF( nRadio = 7, nDGradPos := 0.6, NIL ), ;
              IIF( nRadio = 8, nDGradPos := 0.7, NIL ), ;
              IIF( nRadio = 9, nDGradPos := 0.8, NIL ), ;
                  IIF( nRadio = 10, nDGradPos := 0.9, NIL ) ) UPDATE

AEval( oRadio:aItems, { | oRad | oRad:SetFont ( oFont ), ;
                                                     oRad:nClrText := 0 } )

@ 175, 30 SAY oSay PROMPT "Transparent Text-test"  OF oDlg PIXEL ;
FONT oFont ;
SIZE 100, 12 COLOR 0

@ 200, 40 BTNBMP oBtn OF oDlg ;
SIZE 45, 25 PIXEL 2007 ;
NOBORDER ;
PROMPT "&Exit" ;
FILENAME c_path + "\Images\Exit.Bmp" ;
ACTION  oDlg:End() ;
FONT oFont  ;
LEFT
oBtn:lTransparent := .t.  
oBtn:cToolTip =  { "Exit" + CRLF + "1. Dlg-Color","Color-Selection", 1, CLR_BLACK, 14089979 }
oBtn:SetColor( 0, )

ACTIVATE DIALOG oDlg

oFont:End()

RETURN NIL
 

Best Regards
Uwe

[Antonio Linares]

Uwe,

Here it is working fine with FWH 12.01

Are you using Borland ? I email you the 12.01 libs

http://imageshack.us/photo/my-images/138/capturevg.png/

Thanks,

[ukoenig]

Antonio,

thank You very much.
I tested with xharbour,
echo $(FWDIR)\lib\Fivehx.lib + >> b32.bc
echo $(FWDIR)\lib\FiveHC.lib + >> b32.bc

Best Regards
Uwe

[Antonio Linares]

Sent

[ukoenig]

Antonio,

thank You very much.
I linked Fivehx, but couldn*t test, because of a Errormessage :
Unresolved eternal GetModulFilenameExA from => Gettask Fivehx.
Maybe there is still something to change ( xHarbour ) ?

Best Regards
Uwe

[Daniel Garcia-Gil]

Hello

you have to link psapi.lib from borland

[ukoenig]

Antonio, Daniel

Radios are tested and are working fine now.

I still noticed : using BTNBMP centerd without BMP,
the Text is not centerd vertical.
I added a Dummy-button to the sample, to test LOSTFOCUS.

I noticed a Function-change
old :
c_path := CURDRIVE() + ":\" + GETCURDIR()
new ( Function includes Drive )
c_path := GETCURDIR()




My new GROUPTESTER - Update
works as well now testing transparent Painting
of Groups and Radios on Dialog and TFolderEx with any Brush-combination :









Best Regards
Uwe