topic-16021

Posts: 654

Joined: Fri Oct 21, 2005 05:54 AM

Re: Folder on gradient filled dialog
Posted: Thu Jul 09, 2009 01:52 AM

Hello Peter

Please define the control like this in your RC File:

CONTROL "", 6100, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 6, 6, 423, 299

or 

#include "winapi.ch"

CONTROL "", 6100, FOLDER32, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 6, 6, 423, 299

Notice that "winapi.ch" is included in the second example. Because "FOLDER32" is defined in it.
If you don't include "winapi.ch" in your RC file, you will get an error.

- Ramesh Babu P

PeterHarmes

Posts: 363

Joined: Wed Feb 15, 2006 02:06 PM

Re: Folder on gradient filled dialog
Posted: Thu Jul 09, 2009 01:17 PM

Still no change i'm afraid - what about the properties of the dialog that holds the folder? Can you send me your rc?

My dialog is defined like this:

NEWCONTPRICE DIALOG 144, 126, 426, 342
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "Container Prices"
FONT 8, "MS Sans Serif"

Regards,

Pete

RAMESHBABU

Posts: 654

Joined: Fri Oct 21, 2005 05:54 AM

Re: Folder on gradient filled dialog
Posted: Fri Jul 10, 2009 05:54 AM

Hi,

Please look at my previous post.
My RC

Code (fw): Select all Collapse

MANUFACTURE DIALOG 131, 76, 345, 248
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "SMSWorld Generator"
FONT 8, "MS Sans Serif"
{
 CONTROL "", 102, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 8, 27, 329, 190
 PUSHBUTTON "&Ok", 109, 297, 227, 40, 14
 PUSHBUTTON "&Next", 103, 45, 227, 40, 14
 PUSHBUTTON "&Previous", 104, 87, 227, 40, 14
 PUSHBUTTON "&First", 105, 129, 227, 40, 14
 PUSHBUTTON "&Last", 106, 171, 227, 40, 14
 PUSHBUTTON "&Goto", 107, 213, 227, 40, 14
 PUSHBUTTON "&Generate", 108, 255, 227, 40, 14
}

Otherwise you can send the source to my private email. I will rectify it and send it back.

-Ramesh Babu P

dutch

Posts: 1598

Joined: Fri Oct 07, 2005 05:56 PM

Re: Folder on gradient filled dialog
Posted: Fri Jul 10, 2009 11:43 PM

Dear Rameshbabu,

I'm quite interesting SMS generator. What the way you use to send SMS (FWH or FWPPC) and how?

RAMESHBABU wrote:Hi,

Please look at my previous post.
My RC

Code (fw): Select all Collapse

MANUFACTURE DIALOG 131, 76, 345, 248
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "SMSWorld Generator"
FONT 8, "MS Sans Serif"
{
 CONTROL "", 102, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 8, 27, 329, 190
 PUSHBUTTON "&Ok", 109, 297, 227, 40, 14
 PUSHBUTTON "&Next", 103, 45, 227, 40, 14
 PUSHBUTTON "&Previous", 104, 87, 227, 40, 14
 PUSHBUTTON "&First", 105, 129, 227, 40, 14
 PUSHBUTTON "&Last", 106, 171, 227, 40, 14
 PUSHBUTTON "&Goto", 107, 213, 227, 40, 14
 PUSHBUTTON "&Generate", 108, 255, 227, 40, 14
}

Otherwise you can send the source to my private email. I will rectify it and send it back.

-Ramesh Babu P

Regards,
Dutch

Regards,

Dutch

FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)

RAMESHBABU

Posts: 654

Joined: Fri Oct 21, 2005 05:54 AM

Re: Folder on gradient filled dialog
Posted: Sat Jul 11, 2009 03:02 AM

Dear Mr.Dutch

I am using a third party SDI for managing SMS.
If you need any information on that, please write to my email address.

Regards,

Ramesh Babu P

dutch

Posts: 1598

Joined: Fri Oct 07, 2005 05:56 PM

Re: Folder on gradient filled dialog
Posted: Sat Jul 11, 2009 04:25 PM

Dear Ramesh,

Yes, I love it. Could you please give me more details at dutchez4 @ gmail.com

Thanks&Regards,
Dutch

Regards,

Dutch

FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)

PeterHarmes

Posts: 363

Joined: Wed Feb 15, 2006 02:06 PM

Re: Folder on gradient filled dialog
Posted: Mon Jul 20, 2009 08:47 AM

Ramesh,

I have a test app that you could look at - can you let me have your email address so i can send it to you - send your email to :

peterh at plsoft.co.uk

and i will send you the source

Many thanks

Pete

RAMESHBABU

Posts: 654

Joined: Fri Oct 21, 2005 05:54 AM

Re: Folder on gradient filled dialog
Posted: Mon Jul 20, 2009 10:06 AM

Hello Mr.Peter,

You can please send it to:

aksharasoft@hotmail.com

Regards

Ramesh Babu P

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: Folder on gradient filled dialog
Posted: Tue Jul 21, 2009 11:33 AM

I did more Tests on Dialog-Gradient and Folder.

Using the Brush-function for the transparent Say, It doesn't work on Folders.
The Gradient from the Dialog is used.

Result : Gradtest2.exe

More Tests with just a normal Gradient for Dialog and Folders, the Alpha-Channel
of the Buttons is not used.

Result : GradTest1.exe

Result : GradTest3.exe
( using the Brush-Function like for the Dialog, the Buttons are transparent.
but now, the Dialog uses the Folder-Color as well )

I included the comlete Working-directory inside the Download.
There are 3 Exe-files, to show the different results.

Download :
http://www.pflegeplus.com/fw_download/Gradtest.zip

For different Tests, You only need to change the ACTIVATE DIALOG - Part inside the PRG.
Everything You need, is included in the ZIP-file ( Make-File, Buttons, Resource ).

The Dialog-Function I think, it is no Solution for Folders.
Dialog and Folder doesn't work together.
Maybe there is a mistake, I have done somewhere inside the Tests.

Code (fw): Select all Collapse

// -----  DIALOG-GRADIENT for transparent SAY  ----------
// -----  Doesn't work with Folder-Gradient
// ------------------------------------------------------
ACTIVATE DIALOG oDlg CENTERED ;
ON PAINT ( DLG_ALPHA( hDC, oBMP1 ) ) ;
ON INIT ( DLG_GRAD2( oDlg, .T. ), ;
                DLG_BAR( oDlg ), ;
        FLD_GRAD( oFld, .F. ), ;
                FLD_BAR( oFld ) ) 

// ----- using Normal Gradient-Function  ------
// --------------------------------------------------
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( DLG_BAR( oDlg ), ;
        FLD_BAR( oFld ) ) ;
ON PAINT ( DLG_GRAD1( oDlg, hDC, .T.), ;
                    FLD_GRAD( oFld, .F., oBMP1, oBMP2 ), ;
                    DLG_ALPHA( hDC, oBMP1 ) ) 


//  -------------  normal DIALOG-GRADIENT -------------------------

FUNCTION DLG_GRAD1( oDlg, hDC, lDir)

GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, aDLG, lDir )

RETURN  NIL

// -------------  DIALOG-GRADIENT for transparent SAY  -------

FUNCTION DLG_GRAD2( oDlg, lDir)
local hDC, hBmp, hBmpOld, nWidth, nHeight, oBrush

IF Empty( oDlg:oBrush:hBitmap )
      nHeight := if(lDir,oDlg:nHeight,1)
      nWidth  := if(lDir,1,oDlg:nWidth)
      hDC = CreateCompatibleDC( oDlg:GetDC() )
      hBmp = CreateCompatibleBitMap( oDlg:hDC, nWidth, nHeight )
      hBmpOld = SelectObject( hDC, hBmp )
      GradientFill( hDC, 0, 0, nHeight, nWidth, aDLG,lDir )
      DeleteObject( oDlg:oBrush:hBrush )
      oDlg:oBrush:hBitmap = hBmp
      oDlg:oBrush:hBrush = CreatePatternBrush( hBmp )
      SelectObject( hDC, hBmpOld )
      oDlg:ReleaseDC()
ENDIF

RETURN NIL

Slowly I'm helpless. Is there any Solution to solve the Problem ?

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.

PeterHarmes

Posts: 363

Joined: Wed Feb 15, 2006 02:06 PM

Re: Folder on gradient filled dialog
Posted: Tue Jul 21, 2009 11:52 AM

Uwe,

Ramesh has been helping me and from what tests we have done it looks as if Rameshs solution doesnt work with the commercial xHarbour (surprise surprise)

Regards,

Pete

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: Folder on gradient filled dialog
Posted: Tue Jul 21, 2009 12:20 PM

Pete,

I used Ramesh's Solution in Gradtest2.exe and it works like You can see.
As well, You can find out by Yourself, testing different combinations with the Download.
Everything You need is included. Only the Path-defines in the Batch- and Link-file, You have to change.
I used xHarbour.

The Problem : Using the Brush-function in Gradtest1.exe, destroys the Result of the Folder-Tab-Area.

Maybe the Tests can help, to solve the Problem and find out, what is wrong
or my mistake, I have done somewhere in the PRG.

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.

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: Folder on gradient filled dialog
Posted: Fri Mar 05, 2010 06:38 PM

Uwe
I try with a dialog and Folder NO resources
It make error why ?

Best Regards, Saludos

Falconi Silvio

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: Folder on gradient filled dialog
Posted: Fri Mar 05, 2010 10:04 PM

Silvio,

Code (fw): Select all Collapse

FUNCTION TEST_FOLD()
LOCAL oFolder, oSay, oRad, nValue := 1 

DEFINE BRUSH oBrush

DEFINE DIALOG oDlg TITLE "FiveWin Transparent Folder-Tabs" ;
TRANSPARENT FROM 5, 5 TO 20, 50 BRUSH oBrush

@ 0.5, 1 FOLDER oFolder PROMPT "&xBase", "&And OOP", "&Power" ;
OF oDlg SIZE 160, 90

@ 1, 1 BUTTON "&Hello" OF oFolder:aDialogs[ 1 ] ;
ACTION ( oDlg:End() ) 

@ 3, 1 SAY oSay PROMPT "Transparent Say" OF oFolder:aDialogs[ 1 ] 

@ 1, 10 RADIO oRad VAR nValue OF oFolder:aDialogs[ 1 ] ;
      ITEMS "Transparent &1", "Transparent &2", "Transparent &3" _3D SIZE 150, 15 ;
      HELPID 100, 101, 102 ;
      ON CHANGE MsgBeep()

ACTIVATE DIALOG oDlg CENTERED ;
ON PAINT ( Gradient(oDlg:hDc,{0,0,oDlg:nHeight, oDlg:nWidth}, ;
    nRgb(253,242,217), nRgb(245,204,107),.T.), ;
    SetFoldGrad( oFolder ) )

RETURN nil

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

STATIC FUNCTION SetFoldGrad( 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, 14853684, 16314573 }, ;
          { 0.50, 16314573, 14853684 } }, .T. ) } 
NEXT

RETURN NIL

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.

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: Folder on gradient filled dialog
Posted: Fri Mar 05, 2010 11:41 PM

thanks now run ok

Best Regards, Saludos

Falconi Silvio

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: Folder on gradient filled dialog
Posted: Fri Mar 05, 2010 11:58 PM

Silvio,

something more :

I tested also with Brush, but it covers the Say and Radios.
I think with < PalBmpDraw > it is also possible, to show a Background tiled.
With < PalBmpDraw > it works fine.

Code (fw): Select all Collapse

FUNCTION TEST_FOLD()
LOCAL oFolder, oSay, oRad, nValue := 1 

DEFINE BRUSH oBrush
DEFINE IMAGE oImage1 FILENAME c_path + "\System\Stone.bmp"
DEFINE IMAGE oImage2 FILENAME c_path + "\System\Xp.jpg" 

DEFINE DIALOG oDlg TITLE "FiveWin Transparent Folder-Tabs" ;
TRANSPARENT FROM 5, 5 TO 20, 50 BRUSH oBrush

@ 0.5, 1 FOLDER oFolder PROMPT "&xBase", "&And OOP", "&Power" ;
OF oDlg SIZE 160, 90

@ 1, 1 BUTTON "&Exit" OF oFolder:aDialogs[ 1 ] ;
ACTION ( oDlg:End() ) 

@ 3, 1 SAY oSay PROMPT "Transparent Say" OF oFolder:aDialogs[ 1 ] 

@ 1, 10 RADIO oRad VAR nValue OF oFolder:aDialogs[ 1 ] ;
      ITEMS "Transparent &1", "Transparent &2", "Transparent &3" _3D SIZE 150, 15 ;
      HELPID 100, 101, 102 ;
      ON CHANGE MsgBeep()

@ 3, 1 SAY oSay PROMPT "Transparent Say" OF oFolder:aDialogs[ 2 ] 

@ 1, 10 RADIO oRad VAR nValue OF oFolder:aDialogs[ 2 ] ;
      ITEMS "Transparent &1", "Transparent &2", "Transparent &3" _3D SIZE 150, 15 ;
      HELPID 100, 101, 102 ;
      ON CHANGE MsgBeep()

@ 1, 15 SAY oSay PROMPT "Transparent Say" OF oFolder:aDialogs[ 3 ] 

@ 1, 1 RADIO oRad VAR nValue OF oFolder:aDialogs[ 3 ] ;
      ITEMS "Transparent &1", "Transparent &2", "Transparent &3" _3D SIZE 150, 15 ;
      HELPID 100, 101, 102 ;
      ON CHANGE MsgBeep()


ACTIVATE DIALOG oDlg CENTERED ;
ON PAINT ( Gradient(oDlg:hDc,{0,0,oDlg:nHeight, oDlg:nWidth}, ;
    nRgb(253,242,217), nRgb(245,204,107),.T.), ;
    FoldBack( oFolder, oImage1, oImage2 ) )

oImage1:End()
oImage2:End()

RETURN nil

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

FUNCTION FoldBack( oFld, oImage1, oImage2 ) 

oFld:aDialogs[ 1 ]:bPainted = { | hDC | GradientFill( hDC, 0, 0, oFld:aDialogs[ 1 ]:nHeight, ;
       oFld:aDialogs[ 1 ]:nWidth, { { 0.50, 14853684, 16314573 }, ;
                              { 0.50, 16314573, 14853684 } }, .T. ) } 

*oFld:aDialogs[ 2 ]:bPainted = { | hDC | oFld:aDialogs[ 2 ]:SetBrush( oBrush1 ) }

oFld:aDialogs[ 2 ]:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oImage1:hBitmap, , ;
     oFld:aDialogs[ 2 ]:nWidth, oFld:aDialogs[ 2 ]:nHeight, , .T. ) }

oFld:aDialogs[ 3 ]:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oImage2:hBitmap, , ;
     oFld:aDialogs[ 3 ]:nWidth, oFld:aDialogs[ 3 ]:nHeight, , .T. ) }

RETURN NIL

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.

FiveTech Support Forums