Gradient possible as Folder-background ( xbrowse-tools ) ?

[ukoenig]

Hello,

I'm working on the new xbrowse-tools.
I have to use folders, because of many options.
The 1. page will be the gradient-defines for header and footer.
I would like to have gradients as a folder background.
Is it possible ?



There is nothing like => ON PAINT gradpaint3( hDC, oFld )
i could use.

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

static func gradpaint3( hDC, oFld )

local aGrad1 := { { 0.50, 16054371, 8388608 } }

GradientFill( hDC, 0, 0, oFld:nHeight, oFld:nWidth, aGrad1, .F. )

RETURN NIL

Best Regards
Uwe

[Antonio Linares]

Uwe,

Here you have a working example:

Test.prg

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oDlg, oFld

   DEFINE DIALOG oDlg SIZE 400, 300

   @ 0.5, 1 FOLDER oFld PAGES "One", "Two" SIZE 190, 140
   
   ACTIVATE DIALOG oDlg CENTERED ;
      ON PAINT GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, { { 0.50, 16054371, 8388608 } } ) ;
      ON INIT SetDialogsGradient( oFld )

return nil

function SetDialogsGradient( oFld )

   local n, oDlg
   
   for n = 1 to Len( oFld:aDialogs )
      oDlg = oFld:aDialogs[ n ]
      oDlg:bPainted = { | hDC | GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, { { 0.50, 16054371, 8388608 } } ) }
   next   

return nil   


[ukoenig]

Antonio,

Thank you very much for the help.
With that, it looks much nicer now.
I think, it doesn't take a long time, to finish the browse-tools.
Most of it is already done before.
New is only the gradient for header and footer.
After all, we will have a toolbox for visual-design of all components.



Regards
Uwe

[Antonio Linares]

Dear Uwe,

Thats to you for creating these nice tools for the FiveWin users

[jose_murugosa]

Dear Uwe,

Thats to you for creating these nice tools for the FiveWin users

Bar_gradient is really a great tool, and If you are planning to have this tool for all controls that's wonderful!!.

Thanks for your contribution.