brush on PANEL

[Silvio.Falconi]

yes but I resolved thanks

[nageswaragunupudi]

Good.
So are gradient brushes working on panel now?

[ukoenig]

Mr. Rao,

using Your original-samplecode, my old problem : a mouseclick on a splitter, still exists
A area with the window-color is painted.

Code: Select all  Expand view

#include "fivewin.ch"
#include "splitter.ch"

FUNCTION MAIN()
local oWnd, oPanel1, oPanel2, oBrush1, oBrush2, oSplit

DEFINE BRUSH oBrush1 FILE "PICTURE1.jpg" STRETCH
DEFINE BRUSH oBrush2 FILE "PICTURE2.jpg" STRETCH

DEFINE WINDOW oWnd

oPanel1  := TPanel():New( 0,0,200,900, oWnd )
oPanel2  := TPanel():New( 204,0,500,900, oWnd )

oPanel1:SetBrush( oBrush1 )
oPanel2:SetBrush( oBrush2 )

@ 200,0  SPLITTER oSplit ;
            HORIZONTAL ;
            PREVIOUS CONTROLS oPanel1 ;
            HINDS CONTROLS oPanel2 ;
            TOP MARGIN 80 ;
            BOTTOM MARGIN 80 ;
            SIZE 500, 4  PIXEL ;
            OF oWnd ;
            _3DLOOK

oWnd:nWidth    := 500
oWnd:nHeight   := 600

ACTIVATE WINDOW oWnd CENTERED ON RESIZE oSplit:AdjClient()

RETURN NIL
 

any idea where it comes from ?

regards
Uwe

[nageswaragunupudi]

my old problem : a mouseclick on a splitter,

I did not look into it.
I will.

[ukoenig]

Mr. Rao,

still another question,

is it possible to perform a action ( that belongs to the splitter ) as soon the splitter is moved ?
A method < bAction > is not defined.

regards
Uwe

[cnavarro]

See if it works for you

Code: Select all  Expand view

#include "fivewin.ch"
#include "splitter.ch"

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

FUNCTION MAIN()
local oWnd, oPanel1, oPanel2, oBrush1, oBrush2, oSplit

DEFINE BRUSH oBrush1 FILE "..\bitmaps\rainbow.bmp" STRETCH
DEFINE BRUSH oBrush2 FILE "..\bitmaps\sea.bmp" STRETCH

DEFINE WINDOW oWnd

oPanel1  := TPanel():New( 0,0,200,900, oWnd )
oPanel2  := TPanel():New( 204,0,500,900, oWnd )

oPanel1:SetBrush( oBrush1 )
oPanel2:SetBrush( oBrush2 )

@ 200,0  SPLITTER oSplit ;
            HORIZONTAL ;
            PREVIOUS CONTROLS oPanel1 ;
            HINDS CONTROLS oPanel2 ;
            TOP MARGIN 80 ;
            BOTTOM MARGIN 80 ;
            SIZE 500, 4  PIXEL ;
            OF oWnd ;
            _3DLOOK

oSplit:bLClicked   := { | r, c | Down( r, c ) }
oSplit:bLButtonUp  := { | r, c | Up( r, c ) }
oWnd:nWidth    := 500
oWnd:nHeight   := 600

ACTIVATE WINDOW oWnd CENTERED ON RESIZE oSplit:AdjClient()

RETURN NIL

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

Function Down( r, c )
FWLOG "DOWN", r, c
Return nil

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

Function Up( r, c )
FWLOG "UP", r, c
Return nil

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