Enhanced TFOLDEREX

Enhanced TFOLDEREX

Postby byte-one » Wed Oct 13, 2010 1:25 pm

I made some corrections on this suberb class.
(animate: go left and right; speed from processorspeed, backgroundcolor: lTransparent, font: from parentdialog)
Antonio, can you insert this in next build!?

(edited by Daniel)
Regards,
Günther
---------------------------------
office@byte-one.com
User avatar
byte-one
 
Posts: 1048
Joined: Mon Oct 24, 2005 9:54 am
Location: Austria

Re: Enhanced TFOLDEREX

Postby Daniel Garcia-Gil » Wed Oct 13, 2010 1:50 pm

Gunther

we can not public all class, only change

you can send the file to Antonio (or me), we review the changes and public your suggestions,

Thanks
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: Enhanced TFOLDEREX

Postby norberto » Wed Oct 13, 2010 6:12 pm

hi, can you post only the changes here? thanks
norberto
 
Posts: 566
Joined: Thu Aug 30, 2007 3:40 pm
Location: BR

Re: Enhanced TFOLDEREX

Postby ukoenig » Wed Oct 13, 2010 7:53 pm

Hello Günther,
does Your solution fix my transparent-painting-problem of different Controls ?
I want to display transparent Radios, Checkboxes and Says
on Color, Gradient, Brush- or Image-Folder-backgrounds.
Transparency onTab-Area works.

viewtopic.php?f=3&t=19889

Best Regards
Uwe :lol:
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.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Enhanced TFOLDEREX

Postby byte-one » Fri Oct 15, 2010 11:16 am

I send to Antonio a new version today. The enhancements are to big to post it here. I am sure, Antonio brings this on next build!?
Regards,
Günther
---------------------------------
office@byte-one.com
User avatar
byte-one
 
Posts: 1048
Joined: Mon Oct 24, 2005 9:54 am
Location: Austria

Re: Enhanced TFOLDEREX

Postby byte-one » Fri Oct 15, 2010 3:53 pm

Daniel, Antonio!
In New and Redefine this should be corrected!

Code: Select all  Expand view
 if aBitmaps == NIL
      aHelps = Array( nLen )
   endif


should be:

Code: Select all  Expand view
 if aBitmaps == NIL
      aBitmaps = Array( nLen )
   endif
Regards,
Günther
---------------------------------
office@byte-one.com
User avatar
byte-one
 
Posts: 1048
Joined: Mon Oct 24, 2005 9:54 am
Location: Austria

Re: Enhanced TFOLDEREX

Postby ukoenig » Fri Oct 22, 2010 9:55 pm

Hello Günther,

there is something wrong with < oFld:ROUND := 20
The Tab-bottom is shown rounded as well. Can You fix it ?
Only Folder-Color works ( green )
Using Gradient, Brush or Image, Controls are not transparent.

Image

Image

Image

Image

Best Regards
Uwe :roll:
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.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Enhanced TFOLDEREX

Postby byte-one » Fri Oct 29, 2010 9:30 am

In the case, no Helpids defined should the help from the parent dialog to be used! Also in the normal Folder-class!?

Code: Select all  Expand view
     DEFINE DIALOG oDlg OF Self RESOURCE ::aDialogs[ n ] PIXEL;
 .......
         HELPID If( Len( ::aHelps ) >= n .and. ::aHelps[ n ] <> NIL , ::aHelps[ n ] , ::oWnd:nHelpId )
Regards,
Günther
---------------------------------
office@byte-one.com
User avatar
byte-one
 
Posts: 1048
Joined: Mon Oct 24, 2005 9:54 am
Location: Austria


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 49 guests