FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour No TRANSPARENT using Window-Style Standard or Classic ?
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
No TRANSPARENT using Window-Style Standard or Classic ?
Posted: Fri Apr 30, 2010 02:32 PM
Hello,

Testing Window-Settings, I noticed using the Dialog-Style in System-Settings,
Standard or Classic, transparent gets lost.

Windows- Vista Aero or Vista Basic


Changing to Windows-Standard or Classic


I added Dialog-Background to Sample < Testrad.prg >
Changing the Window-Style, I get the same Result.



Code (fw): Select all Collapse
// Radio Buttons management sample

#include "FiveWin.ch"

function Main()
local oDlg, oRadMenu, oBrush
local nOption := 2

SET _3DLOOK ON

DEFINE DIALOG oDlg RESOURCE "Radios" 

REDEFINE RADIO oRadMenu VAR nOption ID 110, 120, 130, 140, 150 OF oDlg ;
      ON CHANGE MsgBeep()

REDEFINE BUTTON ID 100 OF oDlg ACTION oRadMenu:GoNext() ;
      WHEN nOption == 3

REDEFINE BUTTON ID 102 OF oDlg ACTION oRadMenu:GoPrev()

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( BmpBrush(oDlg), oRadMenu:aItems[ 1 ]:SetText( "Hello" ))

SET _3DLOOK OFF

return nil

//----------------------------------------------------------------------------//

function BmpBrush(oDlg)
local cBitmap := cGetFile( "*.bmp", "Please select a bitmap" )
local oBrush

if ! Empty( cBitmap )
    DEFINE BRUSH oBrush FILE cBitmap
    SET BRUSH OF oDlg TO oBrush
 endif

return nil


Best Regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

Continue the discussion