FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour TFolderEx < lTransparent-Error > on Redefine ( FWH 10.10 )
ukoenig
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

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

Posted: Sun Oct 31, 2010 05:35 PM
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 ::oBrush != NIL
::SetBrush( ::oBrush )
else
::oBrush = TBrush():New( , ::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
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.
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM

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

Posted: Sun Oct 31, 2010 05:45 PM

Uwe...

checking...

thanks

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM

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

Posted: Sun Oct 31, 2010 06:16 PM
Uwe

is missing this line inside redefine method

Code (fw): Select all Collapse
   ::lTransparent = lTransparent
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
ukoenig
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

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

Posted: Sun Oct 31, 2010 06:56 PM
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 (fw): Select all Collapse
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 :-)
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

Static archive · New replies & topics via GitHub Discussions