Yes, the Screenshot shows Folders from resource.
REDEFINE FOLDEREX oFld OF oWndFld ID 110 ;
PROMPT "T&est","&Tabs", "&Bmp", "Br&ush" ;
ON PAINT TAB PaintTab( Self, nOption ) ;
BITMAPS c_Path + "\bitmaps\" + cTabBmp, ;
c_Path + "\bitmaps\" + cTabBmp, ;
c_Path + "\bitmaps\" + cTabBmp, ;
c_Path + "\bitmaps\" + cTabBmp ;
DIALOGS "Sub1", "Sub2", "Sub3", "Sub4" ;
ROUND 5 ;
ON CHANGE ( nTabPos := oFld:nOption )
oFld:lTransparent := .T.
oFld:nFolderHeight := nTabH
oFld:nSeparator := nTabS
oFld:bClrText := {| o, n | nTColor3 }
oFld:oFont := oTextFont
REDEFINE SAY oSay3 ID 110 PROMPT cTEXTFONT1 OF oFld:aDialogs[1] FONT oTextFont PIXEL
oSay3:SetColor( nTColor2, )
oSay3:lTransparent := .T.
REDEFINE RADIO oRadio3 VAR nRadio3 OF oFld:aDialogs[1] ID 120, 121 ;
ON CHANGE MsgBeep() ;
COLOR nTColor2
oRadio3:SetFont( oTextFont )
AEval( oRadio3:aItems, { | oRad | oRad:lTransparent := .T. } )
REDEFINE CHECKBOX oCheck3 VAR lCheck3 ID 130 OF oFld:aDialogs[1] ;
ON CHANGE oCheck3:SetText( "New Text" )
oCheck3:lTransparent := .T.
oCheck3:SetFont( oTextFont )
oCheck3:SetColor( nTColor2 )
I think, Your problem comes from here :
ACTIVATE DIALOG oWndFld NOWAIT ;
ON INIT ( oWndFld:Move( 50, 580, NIL, NIL, .T. ), ;
IIF( nOption2 = 2, GRADBRU2(), NIL ), ; // Dialog-Gradient
oFld:SetOption( nTabpos ) ) ;
ON PAINT F_BACKGRD(oFld)
RETURN NIL
// --- Folder - Backgrounds ( Color, Gradient, Brush and Image ) ---
// FOLDER-vars in use :
// -------------------------
//nOption3 := 3 // FOLDER-Background : Color, Gradient, Brush or Image
//nMove3 := 0.50 // Gradient Position 2. Color
//nColor3a := 14853684 // 1. Color
//nColor3b := 16312263 // 2. Color Gradient
//aColors3 := { { nMove3, nColor3a, nColor3b }, { nMove3, nColor3b, nColor3a } }
//lDirect3 := .T. // Vertical or Horizontal
//cBrush3 := "Marble.bmp" // Brush
//cImage3 := "Back1.jpg" // Image
FUNCTION F_BACKGRD(oFld)
LOCAL n, oDlg, oBrush2, hDC1
LOCAL aColors := { { nMOVE3, nCOLOR3a, nCOLOR3b }, ;
{ nMOVE3, nCOLOR3b, nCOLOR3a } }
LOCAL aRect := GetClientRect( oFld:hWnd )
FOR n := 1 to Len( oFld:aDialogs )
oDlg := oFld:aDialogs[ n ]
hDC1 = CreateCompatibleDC( oDlg:GetDC() )
hBmp = CreateCompatibleBitMap( oDlg:hDC, oDlg:nWidth, oDlg:nHeight )
hBmpOld = SelectObject( hDC1, hBmp )
IF nOption3 = 1 // Color
DEFINE BRUSH oBrush2 COLOR nColor3a
FillRect( hDC1, aRect, oBrush2:hBrush )
ENDIF
IF nOption3 = 2 // Gradient
GradientFill( hDC1, 0, 0, oDlg:nHeight, oDlg:nWidth, aColors, lDirect )
ENDIF
IF nOption3 = 3 // Brush
DEFINE BRUSH oBrush2 FILENAME c_Path + "\bitmaps\" + cBrush3
FillRect( hDC1, aRect, oBrush2:hBrush )
ENDIF
IF nOption3 = 4 // Image
DEFINE IMAGE oTmp FILENAME c_Path + "\bitmaps\" + cImage3
oBrush2 := TBrush():new( ,,,, ResizeBmp( oTmp:hBitmap, oDlg:nWidth, oDlg:nHeight, .T. ) )
oTmp:End()
FillRect( hDC1, aRect, oBrush2:hBrush )
ENDIF
DeleteObject( oDlg:hBrush )
oDlg:hBitmap = hBmp
oDlg:hBrush = CreatePatternBrush( hBmp )
SelectObject( hDC1, hBmpOld )
oDlg:ReleaseDC()
NEXT
RETURN( NIL )
Best regards
Uwe
