Painting problem in the New Sample GradBrus.Prg

[byte-one]

Antonio, and thats the problem! If we use many dialogs (also dialogs without Gradientbrush() or other brushes) then we must use for any dialog another brush-color to have no side-effects. And then the reuse is not given. So i delete only then a brush from aBrushes, if a hBitmap (from GradientBrush()) is defined and the brush comes not from a resource or from a file.
Another point for my solution is, that no extra brush-call for this dialog and no caution is required !

[Antonio Linares]

Günther,

yes, you are right. I see your solution now and it is a very good one!

It is working nicely. Many thanks!

[byte-one]

Antonio, please look at this.
A new version from Gradientbrush(). With lDir = .F. the gradient is horizontal. The bitmap are now only one pixel in height or width == good for GDI consumation.

Code: Select all | Expand

function GradientBrush( oDlg, aColors , lDir)
      local hDC, hBmp, hBmpOld , nWidth , nHeight

      DEFAULT lDir := .T.

  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, aColors,lDir )
      DeleteObject( oDlg:oBrush:hBrush )
      oDlg:oBrush:hBitmap = hBmp
      oDlg:oBrush:hBrush = CreatePatternBrush( hBmp )
      SelectObject( hDC, hBmpOld )
      oDlg:ReleaseDC()
   endif

return nil

[Antonio Linares]

Günther,

Excellent!

Many thanks,

[James Bott]

May I suggest changing lDir to lVertical--it will be more obvious what it means.

Regards,
James

[Dietmar Jahnel]

I found this thread. The solution is working fine in dialogs.
But how do I apply the gradient brush to FOLDERS in a DIALOG?

This fills the Dialog with color but not the folders

Code: Select all | Expand

ACTIVATE DIALOG eFenst CENTERED;
        ON INIT (GradientBrush( eFenst, { { 0.4, nRGB( 75, 144, 223 ), nRGB( 41, 85, 145 ) },;
                                     { 0.6, nRGB( 24,  61, 118 ), nRGB( 50, 95, 158 ) } }) ,;
                GradientBrush( eFolder:aDialogs[1], { { 0.4, nRGB( 75, 144, 223 ), nRGB( 41, 85, 145 ) },;
                                     { 0.6, nRGB( 24,  61, 118 ), nRGB( 50, 95, 158 ) } } ))

Any suggestions?
Thanks,
Dietmar

[ukoenig]

Hello Dietmar,

using Günther's Function for Folders
DlgGrad( hDC, oDlg ) = the old Dialog-Gradient-Style ( can replaced with Günther's Function )
FolderGrad() = using Günther's Function
All together with < disable Exit-Button > :

Code: Select all | Expand

ACTIVATE DIALOG oDlg CENTERED NOWAIT ;
ON INIT ( oDlg:Move( 30 , 10, oDlg:nWidth, oDlg1:nHeight, .f. ), DisableX(oDlg, .T.), ;
            SetImages( oDlg ) ) ;
ON PAINT ( DlgGrad( hDC, oDlg ), FolderGrad() ) 

RETURN ( NIL )

//--------------- Images on Folder-Pages ---------------//

FUNCTION SetImages( oDlg )
local oImageList
   
DEFINE IMAGELIST oImageList SIZE 16, 16
   
oImageList:AddMasked( TBitmap():Define( "head",,   oDlg1 ), nRGB( 255, 0, 255 ) )    
oImageList:AddMasked( TBitmap():Define( "foot",,     oDlg1 ), nRGB( 255, 0, 255 ) )    
oImageList:AddMasked( TBitmap():Define( "menue",,   oDlg1 ), nRGB( 255, 0, 255 ) )    
oImageList:AddMasked( TBitmap():Define( "zoom",,  oDlg1 ), nRGB( 255, 0, 255 ) )    
oImageList:AddMasked( TBitmap():Define( "image",,  oDlg1 ), nRGB( 255, 0, 255 ) )   
oImageList:AddMasked( TBitmap():Define( "project",,  oDlg1 ), nRGB( 255, 0, 255 ) )   
oImageList:AddMasked( TBitmap():Define( "index",,  oDlg1 ), nRGB( 255, 0, 255 ) )   
oImageList:AddMasked( TBitmap():Define( "gradient",,  oDlg1 ), nRGB( 255, 0, 255 ) )   

oFld:SetImageList( oImageList )
   
RETURN NIL   

// ---------- Dialog - Gradient -------------------------------------

static func DlgGrad( hDC, oDlg )
local aGrad

aGrad := { { 0.50, 16054371, 8388608 },{ 0.50, 8388608, 16054371 } }
GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, aGrad, .T. )

RETURN NIL

// --------- Folder - Gradient -------------------

FUNCTION FolderGrad() 
local n, oDlg 
    
for n = 1 to Len( oFld:aDialogs ) 
      oDlg = oFld:aDialogs[ n ]   
      //                                                  Cyan and Red
      oDlg:bPainted = { || GradientBrush( oDlg, oDlg:bPainted = { || GradientBrush( oDlg, ;
      { { 0.50, 16054371, 8388608 },{ 0.50, 8388608, 16054371 } }, .T.) }
next    

RETURN NIL   

// ------- Günther's Function ----------------------

FUNCTION GradientBrush( oDlg, aColors , lDir)
local hDC, hBmp, hBmpOld , nWidth , nHeight

DEFAULT lDir := .T.

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, aColors,lDir )
      DeleteObject( oDlg:oBrush:hBrush )
      oDlg:oBrush:hBitmap = hBmp
      oDlg:oBrush:hBrush = CreatePatternBrush( hBmp )
      SelectObject( hDC, hBmpOld )
      oDlg:ReleaseDC()
endif

return nil

// ---------------------  Disable EXIT - BUTTON -----------------

FUNCTION DisableX(oDlg, lDisable) 

LOCAL hMenu  := 0 
LOCAL nCount := 0 

IF lDisable 
    hMenu  = GetSystemMenu(oDlg:hWnd, .F.) 
    nCount = GetMItemCount(hMenu) 
    IF oDlg:ClassName() = "TDIALOG" 
        RemoveMenu(hMenu, 1, nOR( 1024, 2) ) 
    ELSE 
        RemoveMenu(hMenu, nCount - 1, nOR( 1024, 2) ) 
        RemoveMenu(hMenu, nCount - 2, nOR( 1024, 2) ) 
    ENDIF     
    DrawMenuBar( oDlg:hWnd ) 
ELSE 
    GetSystemMenu( oDlg:hWnd, .T. ) 
    DrawMenuBar( oDlg:hWnd ) 
ENDIF 

RETURN nil 
 

Regards
Uwe

[FranciscoA]

Dears friends:

I've done some testing with the GradientBrush Gunther' s Function and got the following results:
Maybe this was already resolved.

Using dialogues in resources:
On bmps, Works well.
On Says, works well.
On normal Gets, works well.
On Gets read-only, does not work properly (the bottom of gets is not covered)
If you use the PAINT ON clause, not working properly (you have to use ON INIT)

Excuse my english, please.

Greetings

[FranciscoA]

Something more I have observed:
If you use lTransparent:=.t., it seems work fine, but if you put the mouse pointer over the get, the get's container dissapears. If you move the dialog out of the main window, his container shows again. (PAINT)

REDEFINE GET oCtaRetALC Var cCtaRetALC ID 140 OF oDlg PICTURE "@!" READONLY
oCtaRetAlc:lTransparent:=.t.

The solution is to use SAY instead GET READONLY
REDEFINE SAY oCtaRetALC Var cCtaRetALC ID 140 OF oDlg PICTURE "@!"

Regards