FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour brush on PANEL
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: brush on PANEL

Posted: Tue Dec 20, 2016 09:29 AM

yes but I resolved thanks

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: brush on PANEL

Posted: Tue Dec 20, 2016 11:32 AM

Good.
So are gradient brushes working on panel now?

Regards



G. N. Rao.

Hyderabad, India
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

Re: brush on PANEL

Posted: Tue Dec 20, 2016 12:45 PM
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 (fw): Select all Collapse
#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 :-)
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.
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: brush on PANEL

Posted: Tue Dec 20, 2016 05:06 PM
my old problem : a mouseclick on a splitter,

I did not look into it.
I will.
Regards



G. N. Rao.

Hyderabad, India
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

Re: brush on PANEL

Posted: Tue Dec 20, 2016 06:36 PM

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 :?:

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.
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: brush on PANEL

Posted: Tue Dec 20, 2016 07:47 PM
See if it works for you

Code (fw): Select all Collapse
#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

//----------------------------------------------------------------------------//
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Continue the discussion