TFolderEx < lTransparent-Error > on Redefine ( FWH 10.10 )

[ukoenig]

Hello,

with the new FWH 10.10, I get a Error on TFolderEx from Resources with the new lTransparent
Setting : oFld:ltransparent := .T. doesn't help
The same Error with sample TESTFX3.prg ( from Resource )

if ::lTransparent // Line 475
if ::oWnd:oBrush != NIL
::SetBrush( ::oWnd:oBrush )
else
::oBrush = TBrush():New( , ::oWnd:nClrPane )
endif
else
::oBrush = TBrush():New( , CLR_WHITE )
endif


Application
===========
Path and name: E:\T_EXPLB\expbar.exe (32 bits)
Size: 2,280,448 bytes
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 10/31/10, 18:29:36
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = U

Stack Calls
===========
Called from: .\source\classes\TFOLDEX.PRG => TFOLDEREX:REDEFINE(475)
Called from: .\expbar.PRG => SHOW_FLD(1301)
Called from: .\expbar.PRG => (b)MAIN(181)
Called from: .\source\classes\TTITLE.PRG => TTITLE:LBUTTONUP(724)
Called from: .\source\classes\CONTROL.PRG => TTITLE:HANDLEEVENT(1489)
Called from: .\source\classes\WINDOW.PRG => _FWH(3394)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(978)
Called from: .\expbar.PRG => MAIN(706)

System
======
CPU type: Intel(R) Core(TM)2 Duo CPU E7400 @ 2.80GHz 2800 Mhz
Hardware memory: 2048 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715)
Windows version: 6.0, Build 6002 Service Pack 2

[Daniel Garcia-Gil]

Uwe...

checking...

thanks

[Daniel Garcia-Gil]

Uwe

is missing this line inside redefine method

Code: Select all  Expand view

  ::lTransparent = lTransparent

[ukoenig]

Daniel,

Thank You very much, it is working now.
Still I have my Combobox-problem, like You can see from the Screenshot.

REDEFINE COMBOBOX oCbx1 VAR cItem1 ITEMS { "One", "Two", "Three" } ;
ID 230 OF oFld:aDialogs[1] ;
STYLE CBS_DROPDOWN
oCbx1:lTransparent := .F. // doesn't help

For the Moment ( testing ) :
getting transparent Tabs, I don`t know why.
The Bottom of Tabs are still rounded using oFld:ROUND := 30 ( big value, to show the Problem )

Code: Select all  Expand view

REDEFINE FOLDEREX oFld ID 110 PROMPT aPrompts OF oDlg1 ;
BITMAPS aBitmaps ;
DIALOGS "Sub1", "Sub2", "Sub3" ;
ROUND F_ROUND

oFld:bPainted := { |hDC| PaintTab( oFld, 1 ) }     

oFld:lTransparent := .T.
oFld:nFolderHeight := F_HEIGHT
oFld:nSeparator := F_SEPERAT
oFld:bClrTabs := {| o, n | 128, 0 }
oFld:bClrText := {| o, n | F_TCOLOR }
oFld:oFont := oFont2

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

FUNCTION PaintTab( o, nOption )
LOCAL hBrush, hBmp, nLastRow

IF nOption == o:nOver .OR. nOption == o:nOption
      o:SetAlphaLevel( nOption, 255 )
ELSE
      o:SetAlphaLevel( nOption, 50 )
ENDIF
   
IF nOption == o:nOption .and. nOption == 2
      hBmp = ReadBitmap( 0, c_path + "\Images\" + F_BRUSH )
      hBrush = CreatePatternBrush( hBmp )
      DeleteObject( hBmp )
      IF o:nLayOut == 2
         nLastRow = o:aPos[ o:aLines[ o:aOrder[ 1 ] ][ 1 ] ][ 1 ] + o:nFolderHeight
         SetBrushOrgEx( o:hDC, nLastRow + 2, 1 )  
      ELSE
           SetBrushOrgEx( o:hDC, 2, 2 )
      ENDIF
      RETURN hBrush
ENDIF  
   
RETURN o:SetFldColors( o, nOption )      

There is still my old Problem with transparent painting of Radios, Checkboxes and Groups



The 2. Page uses TSRADIO from Manuel Mercado without any problems, all transparent paintings are OK



Best Regards
Uwe