Page 2 of 3

Posted: Sun Aug 03, 2008 7:05 pm
by quique
Congratulations Otto, and the all people that help to obtain this great job

Posted: Mon Aug 04, 2008 3:01 pm
by Kleyber
Does this function work with FWH 8.02? I am trying here but there is no GradientFill() function.

Regards,

Posted: Mon Aug 04, 2008 4:29 pm
by ukoenig
Hello,

The new Gradient-function comes with FWH-Version 8.07
There is a Gradient-function in older versions.

before Version 8.07, i created a gradient-brush for
bmp's or backgrounds :

aRect := GETCLIENTRECT( oBmp:hWnd )
nGRADIENT := Gradient( hDC, aRect, nVColor, nBColor, .T. ) // .T. Horizontal
or
nGRADIENT := Gradient( hDC, aRect, nVColor, nBColor, .F. ) // .F. Vertical
oBmp:oBrush := TBrush():New( , nGRADIENT )
FillRect( hDC, aRect, oBmp:oBrush:hBrush )

I do not know, if this can transported to Otto's functions,
because i do not know them in detail for the moment.

Best Regards
Uwe

Posted: Mon Aug 04, 2008 4:48 pm
by Otto
Hello Kleyber,
please delete the lines with GradientFill or comment them.

//GradientFill( hDC, 0, 0, ::nHeight, ::nWidth, { { 1, nRGB( 128, 217, 255 ), nRGB( 54, 147, 255 ) } } )

They are not necessary for the pickdate function.
Regards,
Otto

Posted: Mon Aug 04, 2008 6:04 pm
by Kleyber
Uwe,

Thanks for information.


Otto,

Thanks!!

Regards,

Posted: Mon Aug 04, 2008 7:18 pm
by Kleyber
Antonio,

Thanks for response. After commenting those lines, the dialog shows all the days in BLACK (foreground and backgroud). Only the SUNDAYS are with the correct color. How can I solve this?

Regards,

Kleyber

Posted: Mon Aug 04, 2008 9:52 pm
by Silvio
Otto ,
in resource test if we ren gradientfill I not see nothing... I see black box
I not have this func

Posted: Mon Aug 04, 2008 11:10 pm
by nageswaragunupudi
GradientFill( hDC, 0, 0, ::nHeight, ::nWidth, { { 1, nRGB( 128, 217, 255 ), nRGB( 54, 147, 255 ) } } )

is functionally equivalent to

Gradient( hDC, { 0, 0, ::nHeight, ::nWidth }, nRGB( 128, 217, 255 ), nRGB( 54, 147, 255 ), .t. )

You may use simple Gradient function if you are using an older version of FWH

Posted: Tue Aug 05, 2008 6:48 am
by Otto
Hello Antonio,

How would you suggest to insert controls to navigate the date?

Should the controls be in the new/redefine method and the paint method changed the way,
that the “clearscreen”: FillRect( hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )
would not clear the controls?

Regards,
Otto

Posted: Tue Aug 05, 2008 8:06 am
by Antonio Linares
Otto,

I would place two buttons, one on each side of the year.

They could be TButton, TBtnBmp or TButtonBmp.

We can create them in the new method once the handle of the control pickdate already exists. For Redefine(), Method Initiate() has to be redefined.

Posted: Tue Aug 05, 2008 8:47 am
by Otto
Antonio,

local aInfo := ::DispBegin()
::DispEnd( aInfo )

clears the whole screen.

How can I protect the buttons from cleaning?

Thanks in advance
Otto

Posted: Tue Aug 05, 2008 9:28 am
by Antonio Linares
Otto,

Add these lines in method new:

Code: Select all

   if ! Empty( oWnd:hWnd ) 
      ::Create() 
      oWnd:AddControl( Self ) 
      @ 4.2,  5 BUTTON "<" OF Self SIZE 20, 20 ACTION ::PreviousYear()  // new
      @ 4.2, 20 BUTTON ">" OF Self SIZE 20, 20 ACTION ::NextYear()  // new
   else 
      oWnd:DefControl( Self ) 
   endif 

return self 
Those buttons don't use double buffer painting, so they will flicker if the PickDate control is resized.

Posted: Tue Aug 05, 2008 10:08 am
by Otto
Thank you, Antonio.
Do you think there is another solution.
The flickering is not very nice. Also if you move the mouse there is a flickering.

Regards,
Otto

Posted: Tue Aug 05, 2008 10:32 am
by Antonio Linares
Otto,

Class TBtnBmp does use double buffer painting. Lets try with them...

Posted: Tue Aug 05, 2008 10:35 am
by Antonio Linares
Otto,

This fix is required for Method MouseMove() as we are repainting the control on each mouse move! We should repaint it only when an initial date has been selected:

if ::lMove .and. nDay > 0 .and. nMonth > 0 // to work with valid dates only