FiveTech Software tech support forums

by **Dietmar Jahnel** » Sun May 17, 2009 10:29 am

You have to use "TRFolder" instead of "RFolder"

Sorry, same result, dialog cannto be built.
The (only) solution seems to be the ON INIT, but that causes to much change in the code (for the moment)

by **Antonio Linares** » Sun May 17, 2009 3:09 pm

Dietmar,

I have been reviewing RFolder source code and its Redefine Method is not properly implemented.

Also you need to add the pages to the RC file:

Code: Select all Expand view: one DIALOG 6, 15, 175, 117 STYLE WS_CHILD | WS_VISIBLE FONT 8, "MS Sans Serif" { } two DIALOG 6, 15, 175, 117 STYLE WS_CHILD | WS_VISIBLE FONT 8, "MS Sans Serif" { } three DIALOG 6, 15, 175, 117 STYLE WS_CHILD | WS_VISIBLE FONT 8, "MS Sans Serif" { }

But even though, after several changes in the class source code, it seems as the class is creating some SAYs that should not be created for Redefine.

Here I post my complete changes, in case that you want to review them:
first part:

Code: Select all Expand view: #include "FiveWin.ch" #include "Constant.ch" #include "rfolder.ch" function Main() local oDlg DEFINE DIALOG oDlg RESOURCE "SUCHFOLDER" REDEFINE RFOLDER oFld ID 210 of oDlg ; Prompts "Page 1", "Page 2", "Page 3" ; DIALOGS "one", "two", "three" ; Size 300, 300 Pixel POSICAO 3; ORGANIZE 3, 2, 4 NAME "img1", "img2", "img3", "img4", "img1", "img2", "img3", "img4", "img1" ; Color CLR_WHITE, nRGB( 117, 174, 162 ) ACTIVATE DIALOG oDlg CENTERED return nil #define COLOR_BTNFACE 15 #define FD_BORDER 8 //#define FD_HEIGHT 30 #define FD_TABMARGIN 40 #define DT_CENTER 1 #define TCM_FIRST 4864 // 0x1300 #define TCM_SETIMAGELIST ( TCM_FIRST + 3 ) #define TCM_SETCURSEL ( TCM_FIRST + 12 ) #define TCM_SETITEMSIZE ( TCM_FIRST + 41 ) #define TCM_SETPADDING ( TCM_FIRST + 43 ) #define TCN_FIRST -550 #define TCN_SELCHANGE ( TCN_FIRST - 1 ) #define TCN_SELCHANGING ( TCN_FIRST - 2 ) #define TCS_MULTILINE 512 // 0x0200 #define TCS_OWNERDRAWFIXED 8192 // 0x2000 #ifdef __XPP__ #define Super ::TControl #define New _New #endif //----------------------------------------------------------------------------// CLASS TRFolder FROM TControl CLASSDATA lRegistered AS LOGICAL DATA lStartDeg AS LOGIC INIT .f. DATA bBlockWnd, nClrMove DATA nOldOpt AS NUMERIC INIT 0 DATA nClrTextSel, nClrPaneSel, nOldText, nOldPane DATA aMapaPix AS ARRAY INIT {} DATA lExact DATA aCores AS ARRAY INIT {} DATA nClrFore2, nClrBack2 DATA nCor1, nCor2, nCor3 DATA nOldRow INIT 0 DATA nOldCol INIT 0 DATA aWSay AS ARRAY INIT {} DATA aHSay AS ARRAY INIT {} DATA aPrompts, aDialogs DATA aSays AS ARRAY INIT {} DATA nOption, nTabSize, nFdHeight DATA oFont, oFont2, oFont3, oFont4 DATA aEnable DATA aFiles DATA aNames DATA aNames DATA nAbaPos DATA oDlg2 DATA aImgs AS ARRAY INIT {} DATA aLinhas AS ARRAY INIT {} DATA nLinhas AS NUMERIC INIT 1 DATA aCords AS ARRAY INIT {} DATA lAllWidth DATA lDegrade As LOGIC INIT .f. METHOD New( nTop, nLeft, aPrompts, aDialogs, oWnd, nOption, nClrFore,; nClrBack, lPixel, nWidth, nHeight,; cMsg, lAllWidth, oFont, nAbaPos, lExact, aFiles, aNames, aLinhas ) CONSTRUCTOR METHOD REDEFINE( nID, nTop, nLeft, aPrompts, aDialogs, oWnd, nOption, nClrFore,; nClrBack, lPixel, nWidth, nHeight,; cMsg, lAllWidth, oFont, nAbaPos, lExact, aFiles, aNames, aLinhas ) CONSTRUCTOR METHOD SetPrompts( aPrompts ) METHOD Initiate( hDlg ) METHOD Iniciar() METHOD Display() METHOD Disable( nOption ) METHOD Enable( nOption ) METHOD Paint() METHOD ClickAba(n) METHOD _Compile( n ) METHOD _Compile2( n ) METHOD PosCol() METHOD PosRow(nPos) METHOD ADD( cPrompt ) METHOD DEL( N ) METHOD CORES() METHOD ClrD( nInd ) METHOD ClrW( nInd, nCor ) METHOD SetCores( aCores ) METHOD Exact() METHOD NoExact() METHOD MontaMapa() METHOD MontaImg() METHOD ColorSelected( nClrText, nClrPane ) METHOD ClickArea( nRow, nCol, lOK ) METHOD DrawText(hDC,cPrompt,Y,X,nClrText,nClrPane,oFont, i) METHOD ReposHrz( n ) METHOD PosMove( nRow, nCol, n ) METHOD DrawLine( hDC, nRow, nCol, nWidth, nCor ) METHOD END() INLINE ::oWnd:bMMoved := ::bBlockWnd, Super:END() METHOD BlockWnd() METHOD DrawLineDeg( hDC, nCol, nRow, nColF, nRowF, nCor, nHeight ) ENDCLASS //----------------------------------------------------------------------------// METHOD New( nTop, nLeft, aPrompts, aDialogs, oWnd, nOption, nClrFore,; nClrBack, lPixel, lDesign, nWidth, nHeight, cMsg, lAllWidth,; oFont, nAbaPos, lExact, aFiles, aNames, aLinhas ) CLASS TRFolder local n, x, i, aTemp #ifdef __XPP__ #undef New #endif DEFAULT nTop := 0, nLeft := 0,; aDialogs := {},; aPrompts := { "&One", "&Two", "T&hree" },; oWnd := GetWndDefault(),; nOption := 1,; nClrFore := CLR_BLACK,; nClrBack := GetSysColor( COLOR_BTNFACE ),; lPixel := .f.,; lDesign := .f.,; nWidth := 100, nHeight := 100,; lAllWidth := .f.,; aNames := {},; aFiles := {},; nAbaPos := 1,; lExact := .f. if Len( aDialogs ) < Len( aPrompts ) aDialogs = Array( Len( aPrompts ) ) endif if Len( ::aSays ) < Len( aPrompts ) ::aSays := Array( Len( aPrompts ) ) endif if ::aEnable == nil ::aEnable = Array( Len( aPrompts ) ) AFill( ::aEnable, .t. ) endif ::nStyle = nOR( WS_CHILD, WS_VISIBLE,; If( lDesign, WS_CLIPSIBLINGS, 0 ),; WS_TABSTOP /* , TCS_OWNERDRAWFIXED */ ) ::nId = ::GetNewId() ::oWnd = oWnd ::aPrompts = aPrompts ::aDialogs = aDialogs ::nOption = nOption ::cMsg = cMsg ::nTop = If( lPixel, nTop, nTop * SAY_CHARPIX_H ) ::nLeft = If( lPixel, nLeft, nLeft * SAY_CHARPIX_W ) ::nBottom = ::nTop + nHeight - 1 ::nRight = ::nLeft + nWidth - 1 ::lDrag = lDesign ::lCaptured = .f. ::nAbaPos = nAbaPos ::nClrFore2 = nClrFore ::nClrBack2 = nClrBack ::lExact = lExact ::aFiles = aFiles ::aNames = aNames ::lAllWidth = lAllWidth if aLinhas <> NIL if len( aLinhas ) > 1 ::nLinhas := len( aLinhas ) i := 1 for n := 1 to ::nLinhas aTemp := {} for x := 1 to aLinhas[n] AADD( aTemp, i ) i++ next AADD( ::aLinhas, aTemp ) next endif endif if len(::aFiles) > 0 if len(::aFiles) < Len( ::aDialogs ) for n := len(::aFiles) to Len( ::aDialogs )-1 AADD( ::aFiles, "") next endif for n := 1 to len( ::aFiles ) AADD(::aMapaPix, {} ) next endif if len(::aNames) > 0 if len(::aNames) < Len( ::aDialogs ) for n := len(::aNames) to Len( ::aDialogs )-1 AADD( ::aNames, "") next endif for n := 1 to len( ::aNames ) AADD(::aMapaPix, {} ) next endif ::cVarName = "" ::nFdHeight = If( LargeFonts(), 25 , 22 ) ::Register() if oFont != nil ::SetFont( oFont ) elseif oWnd != nil .and. oWnd:oFont != nil ::SetFont( oWnd:oFont ) oFont := oWnd:oFont else oFont := ::GetFont() endif if ! Empty( oWnd:hWnd ) #ifdef __CLIPPER__ ::Create() ::SetPrompts() #else ::Create() ::SetPrompts() #endif oWnd:AddControl( Self ) else oWnd:DefControl( Self ) endif ::oFont := oFont define font ::oFont2 NAME ::oFont:cFaceName; SIZE ::oFont:nInpWidth, ::oFont:nInpHeight BOLD if nAbaPos = 5 .or. nAbaPos = 6 Define Font ::oFont3 Name "Arial" SIZE ::oFont:nInpWidth, ::oFont:nInpHeight NESCAPEMENT 90*10 Define Font ::oFont4 Name "Arial" SIZE ::oFont:nInpWidth, ::oFont:nInpHeight NESCAPEMENT 90*10 BOLD ::oFont3:nQuality := LF_QUALITY ::oFont4:nQuality := LF_QUALITY else ::oFont3 := ::oFont ::oFont4 := ::oFont2 ::oFont3:nQuality := LF_QUALITY ::oFont4:nQuality := LF_QUALITY endif SetWndDefault( oWnd ) ::Iniciar() if lExact ::SetColor( oWnd:nClrPane, oWnd:nClrPane ) ::oDlg2:SetColor( oWnd:nClrPane, oWnd:nClrPane ) else ::SetColor( nClrFore, nClrBack ) endif ::oDlg2:bPainted := {|| ::Paint() } ::aSays[::nOption]:SetFont(::oFont4) return Self //--------------------------------------------------------------------------- METHOD REDEFINE( nID, nTop, nLeft, aPrompts, aDialogs, oWnd, nOption, nClrFore,; nClrBack, lPixel, lDesign, nWidth, nHeight, cMsg, lAllWidth,; oFont, nAbaPos, lExact, aFiles, aNames, aLinhas ) CLASS TRFolder local n, x, i, aTemp #ifdef __XPP__ #undef New #endif DEFAULT nTop := 0, nLeft := 0,; aDialogs := {},; aPrompts := { "&One", "&Two", "T&hree" },; oWnd := GetWndDefault(),; nOption := 1,; nClrFore := CLR_BLACK,; nClrBack := GetSysColor( COLOR_BTNFACE ),; lPixel := .f.,; lDesign := .f.,; nWidth := 100, nHeight := 100,; lAllWidth := .f.,; aNames := {},; aFiles := {},; nAbaPos := 1,; lExact := .f. if Len( aDialogs ) < Len( aPrompts ) aDialogs = Array( Len( aPrompts ) ) endif if Len( ::aSays ) < Len( aPrompts ) ::aSays := Array( Len( aPrompts ) ) endif if ::aEnable == nil ::aEnable = Array( Len( aPrompts ) ) AFill( ::aEnable, .t. ) endif ::nStyle = nOR( WS_CHILD, WS_VISIBLE,; If( lDesign, WS_CLIPSIBLINGS, 0 ),; WS_TABSTOP /* , TCS_OWNERDRAWFIXED */ ) ::nId = ::GetNewId() ::oWnd = oWnd ::aPrompts = aPrompts ::aDialogs = aDialogs ::nOption = nOption ::cMsg = cMsg ::nTop = If( lPixel, nTop, nTop * SAY_CHARPIX_H ) ::nLeft = If( lPixel, nLeft, nLeft * SAY_CHARPIX_W ) ::nBottom = ::nTop + nHeight - 1 ::nRight = ::nLeft + nWidth - 1 ::lDrag = lDesign ::lCaptured = .f. ::nAbaPos = nAbaPos ::nClrFore2 = nClrFore ::nClrBack2 = nClrBack ::lExact = lExact ::aFiles = aFiles ::aNames = aNames ::lAllWidth = lAllWidth if aLinhas <> NIL if len( aLinhas ) > 1 ::nLinhas := len( aLinhas ) i := 1 for n := 1 to ::nLinhas aTemp := {} for x := 1 to aLinhas[n] AADD( aTemp, i ) i++ next AADD( ::aLinhas, aTemp ) next endif endif if len(::aFiles) > 0 if len(::aFiles) < Len( ::aDialogs ) for n := len(::aFiles) to Len( ::aDialogs )-1 AADD( ::aFiles, "") next endif for n := 1 to len( ::aFiles ) AADD(::aMapaPix, {} ) next endif if len(::aNames) > 0 if len(::aNames) < Len( ::aDialogs ) for n := len(::aNames) to Len( ::aDialogs )-1 AADD( ::aNames, "") next endif for n := 1 to len( ::aNames ) AADD(::aMapaPix, {} ) next endif ::cVarName = "" ::nFdHeight = If( LargeFonts(), 25 , 22 ) ::Register() if oFont != nil ::SetFont( oFont ) elseif oWnd != nil .and. oWnd:oFont != nil ::SetFont( oWnd:oFont ) oFont := oWnd:oFont else oFont := ::GetFont() endif if ! Empty( oWnd:hWnd ) #ifdef __CLIPPER__ ::Create() ::SetPrompts() #else ::Create() ::SetPrompts() #endif oWnd:AddControl( Self ) else oWnd:DefControl( Self ) endif ::oFont := oFont define font ::oFont2 NAME ::oFont:cFaceName; SIZE ::oFont:nInpWidth, ::oFont:nInpHeight BOLD if nAbaPos = 5 .or. nAbaPos = 6 Define Font ::oFont3 Name "Arial" SIZE ::oFont:nInpWidth, ::oFont:nInpHeight NESCAPEMENT 90*10 Define Font ::oFont4 Name "Arial" SIZE ::oFont:nInpWidth, ::oFont:nInpHeight NESCAPEMENT 90*10 BOLD ::oFont3:nQuality := LF_QUALITY ::oFont4:nQuality := LF_QUALITY else ::oFont3 := ::oFont ::oFont4 := ::oFont2 ::oFont3:nQuality := LF_QUALITY ::oFont4:nQuality := LF_QUALITY endif SetWndDefault( oWnd ) // ::Iniciar() if lExact ::SetColor( oWnd:nClrPane, oWnd:nClrPane ) ::oDlg2:SetColor( oWnd:nClrPane, oWnd:nClrPane ) else ::SetColor( nClrFore, nClrBack ) endif // ::oDlg2:bPainted := {|| ::Paint() } // ::aSays[::nOption]:SetFont(::oFont4) return Self //--------------------------------------------------------------------------- METHOD SetPrompts( aPrompts ) CLASS TRFolder local n if ! Empty( aPrompts ) ::aPrompts = aPrompts endif return nil //--------------------------------------------------------------------------- METHOD Paint() Class TRFolder local oDlg := ::aDialogs[ ::nOption ] local hPen, hOldPen, nRow, nCol, i, n, nCor if ::nAbaPos = 1 .or. ::nAbaPos = 3 if len(::aLinhas) > 0 ::ReposHrz( ::nOption ) endif endif if len(::aImgs) > 0 ::MontaMapa() endif oDlg:GetDC() ::CORES( ::nOption ) hPen := CreatePen( 0, 1, ::nCor3 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, oDlg:nWidth-1, 0 ) LineTo( oDlg:hDC, oDlg:nWidth-1, oDlg:nHeight-1 ) LineTo( oDlg:hDC, 0, oDlg:nHeight-1 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor2 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, oDlg:nWidth-2, 1 ) LineTo( oDlg:hDC, oDlg:nWidth-2, oDlg:nHeight-2 ) LineTo( oDlg:hDC, 1, oDlg:nHeight-2 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor1 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, 0, 0 ) LineTo( oDlg:hDC, oDlg:nWidth-1, 0 ) MoveTo( oDlg:hDC, 0, 0 ) LineTo( oDlg:hDC, 0, ::nHeight-1 ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor1 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, 1, 1 ) LineTo( oDlg:hDC, oDlg:nWidth-2, 1 ) MoveTo( oDlg:hDC, 1, 1 ) LineTo( oDlg:hDC, 1, ::nHeight-1 ) DeleteObject( hPen ) oDlg:ReleaseDC() //*****************POSICAO 1********************// if ::nAbaPos = 1 oDlg := ::oDlg2 oDlg:GetDC() *nRow := 0 *nCol := 0 for i := 1 to len( ::aSays ) ::CORES( i ) if i = ::nOption if ::nClrPaneSel <> NIL nCor := ::nClrPaneSel else nCor := ::aCores[i] endif else nCor := ::aCores[i] endif nRow := ::aCords[i][1] nCol := ::aCords[i][2] ::lStartDeg := .t. hPen := CreatePen( 0, 1, nCor ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i], nRow ) for n := 1 to ::aHSay[i]-1 if n < 3 if ::lDegrade ::DrawLineDeg( oDlg:hDC, nCol+4-n , nRow+n, nCol+::aWSay[i]-4+n, nRow+n , nCor ,::aHSay[i] ) else MoveTo( oDlg:hDC, nCol+4-n, nRow+n ) LineTo( oDlg:hDC, nCol+::aWSay[i]-4+n, nRow+n ) endif else if ::lDegrade ::DrawLineDeg( oDlg:hDC, nCol, nRow+n , nCol+::aWSay[i], nRow+n , nCor,::aHSay[i]) else MoveTo( oDlg:hDC, nCol, nRow+n ) LineTo( oDlg:hDC, nCol+::aWSay[i], nRow+n ) endif endif next SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor1 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-4, nRow ) LineTo( oDlg:hDC, nCol+3, nRow ) LineTo( oDlg:hDC, nCol, nRow+3 ) LineTo( oDlg:hDC, nCol, nRow+::aHSay[i] ) *LineTo( oDlg:hDC, nCol+::aWSay[i], nRow+::aHSay[i]-1 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor2 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-3, nRow+1 ) LineTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow+3 ) LineTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow+::aHSay[i] ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) if len(::aImgs) >= i if len(::aMapaPix[i]) = 0 if len( ::aFiles ) > 0 ::aImgs[i]:ReLoad( , ::aFiles[i] ) else ::aImgs[i]:LoadImage( ::aNames[i], ) endif else ::MontaImg(i) endif endif if !::aDialogs[i]:lActive ::aSays[i]:Disable() if len(::aImgs) >= i ::aImgs[i]:Disable() endif else ::aSays[i]:Enable() if len(::aImgs) >= i ::aImgs[i]:Enable() endif endif if ::aDialogs[i]:lActive .and. !::lDegrade ::aSays[i]:SetColor( ::aDialogs[i]:nClrText,; ::aDialogs[i]:nClrPane ) SetWindowText( ::aSays[i]:hWnd, ::aSays[i]:cCaption ) else ::DrawText( oDlg:hDC,; ::aPrompts[i],; ::aSays[i]:nTop, ::aSays[i]:nLeft,; ::aDialogs[i]:nClrText,; ::aDialogs[i]:nClrPane,; ::aSays[i]:oFont, i ) endif nCol+=::aWSay[i] next hPen := CreatePen( 0, 1, oDlg:nClrPane ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, ::nOldCol, ::nOldRow ) LineTo( oDlg:hDC, ::nOldCol, ::nOldRow+::aHSay[1] ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) i := ::nOption ::CORES( i ) *nCol := ::PosCol(i) *nRow := 0 nRow := ::aCords[i][1] nCol := ::aCords[i][2] hPen := CreatePen( 0, 1, ::aDialogs[i]:nClrPane ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+1, nRow+::aHSay[i] ) LineTo( oDlg:hDC, nCol+::aWSay[i], nRow+::aHSay[i] ) MoveTo( oDlg:hDC, nCol+1, nRow+::aHSay[i]+1 ) LineTo( oDlg:hDC, nCol+::aWSay[i], nRow+::aHSay[i]+1 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor1 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-4, nRow+1 ) LineTo( oDlg:hDC, nCol+3, nRow+1 ) LineTo( oDlg:hDC, nCol+1, nRow+3 ) LineTo( oDlg:hDC, nCol+1, nRow+::aHSay[i]+2 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor2 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow+3 ) LineTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow+::aHSay[i]+2 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor3 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-3, nRow) LineTo( oDlg:hDC, nCol+::aWSay[i], nRow+3) LineTo( oDlg:hDC, nCol+::aWSay[i], nRow+::aHSay[i] ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) ::nOldCol := nCol+::aWSay[i] ::nOldRow := nRow oDlg:ReleaseDC() endif //*****************POSICAO 2 / POSICAO 5********************// if ::nAbaPos = 2 .or. ::nAbaPos = 5 oDlg := ::oDlg2 oDlg:GetDC() nRow := 0 nCol := 0 for i := 1 to len( ::aSays ) ::CORES( i ) if i = ::nOption if ::nClrPaneSel <> NIL nCor := ::nClrPaneSel else nCor := ::aCores[i] endif else nCor := ::aCores[i] endif ::lStartDeg := .t. hPen := CreatePen( 0, 1, nCor ) hOldPen := SelectObject( oDlg:hDc, hPen ) for n := 1 to ::aWSay[i] if n < 3 if ::lDegrade ::DrawLineDeg( oDlg:hDC, nCol+n, nRow+4-n, nCol+n, nRow+::aHSay[i]-4+n, nCor, ::aWSay[i]) else MoveTo( oDlg:hDC, nCol+n, nRow+4-n ) lineTo( oDlg:hDC, nCol+n, nRow+::aHSay[i]-4+n ) endif else if ::lDegrade ::DrawLineDeg( oDlg:hDC, nCol+n, nRow , nCol+n, nRow+::aHSay[i], nCor, ::aWSay[i]) else MoveTo( oDlg:hDC, nCol+n, nRow ) lineTo( oDlg:hDC, nCol+n, nRow+::aHSay[i] ) endif endif next SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor1 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow ) lineTo( oDlg:hDC, nCol+3, nRow ) LineTo( oDlg:hDC, nCol, nRow+3 ) LineTo( oDlg:hDC, nCol, nRow+::aHSay[i]-3 ) *LineTo( oDlg:hDC, nCol+::aWSay[i], nRow+::aHSay[i] ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor2 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+1, nRow+::aHSay[i]-3 ) lineTo( oDlg:hDC, nCol+3, nRow+::aHSay[i]-1 ) LineTo( oDlg:hDC, nCol+::aWSay[i], nRow+::aHSay[i]-1 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) if len(::aImgs) >= i if len(::aMapaPix[i]) = 0 if len( ::aFiles ) > 0 ::aImgs[i]:ReLoad( , ::aFiles[i] ) else ::aImgs[i]:ReLoad( ::aNames[i], ) endif else ::MontaImg(i) endif endif if !::aDialogs[i]:lActive ::aSays[i]:Disable() if len(::aImgs) >= i ::aImgs[i]:Disable() endif else ::aSays[i]:Enable() if len(::aImgs) >= i ::aImgs[i]:Enable() endif endif if ::nAbaPos = 2 .and. ::aDialogs[i]:lActive .and. !::lDegrade ::aSays[i]:SetColor( ::aDialogs[i]:nClrText,; ::aDialogs[i]:nClrPane ) SetWindowText( ::aSays[i]:hWnd, ::aSays[i]:cCaption ) else *::aSays[i]:Hide() ::DrawText( oDlg:hDC,; ::aPrompts[i],; ::aSays[i]:nTop, ::aSays[i]:nLeft,; ::aDialogs[i]:nClrText,; ::aDialogs[i]:nClrPane,; ::aSays[i]:oFont, i ) endif nRow+=::aHSay[i] next hPen := CreatePen( 0, 1, oDlg:nClrPane ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, ::nOldCol+3, ::nOldRow ) LineTo( oDlg:hDC, ::nOldCol+::aWSay[1], ::nOldRow ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) i := ::nOption ::CORES( i ) nCol := 0 nRow := ::PosRow( i ) hPen := CreatePen( 0, 1, ::aDialogs[i]:nClrPane ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i], nRow+1 ) LineTo( oDlg:hDC, nCol+::aWSay[i], nRow+::aHSay[i] ) MoveTo( oDlg:hDC, nCol+::aWSay[i]+1, nRow+1 ) LineTo( oDlg:hDC, nCol+::aWSay[i]+1, nRow+::aHSay[i] ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor3 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+4, nRow+::aHSay[i] ) LineTo( oDlg:hDC, nCol+::aWSay[i]+1, nRow+::aHSay[i] ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor2 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+3, nRow+::aHSay[i]-1 ) LineTo( oDlg:hDC, nCol+::aWSay[i]+1, nRow+::aHSay[i]-1 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor1 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i], nRow ) lineTo( oDlg:hDC, nCol+3, nRow ) MoveTo( oDlg:hDC, nCol+::aWSay[i]+1, nRow+1 ) lineTo( oDlg:hDC, nCol+3, nRow+1 ) LineTo( oDlg:hDC, nCol+1, nRow+3 ) LineTo( oDlg:hDC, nCol+1, nRow+::aHSay[i]-3 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) ::nOldCol := nCol ::nOldRow := nRow+::aHSay[i] oDlg:ReleaseDC() endif //*****************POSICAO 3********************// if ::nAbaPos = 3 oDlg := ::oDlg2 oDlg:GetDC() *nRow := 0 *nCol := 0 for i := 1 to len( ::aSays ) ::CORES( i ) if i = ::nOption if ::nClrPaneSel <> NIL nCor := ::nClrPaneSel else nCor := ::aCores[i] endif else nCor := ::aCores[i] endif nRow := ::aCords[i][1] nCol := ::aCords[i][2] ::lStartDeg := .t. hPen := CreatePen( 0, 1, nCor ) hOldPen := SelectObject( oDlg:hDc, hPen ) for n := 1 to ::aHSay[i]-if( nRow = 0, 2, 0 ) if n < 3 if ::lDegrade ::DrawLineDeg( oDlg:hDC, nCol+4-n, nRow+::aHSay[i]-n , nCol+::aWSay[i]-4+n, nRow+::aHSay[i]-n , nCor ,::aHSay[i] ) else MoveTo( oDlg:hDC, nCol+4-n, nRow+::aHSay[i]-n ) LineTo( oDlg:hDC, nCol+::aWSay[i]-4+n, nRow+::aHSay[i]-n ) endif else if ::lDegrade ::DrawLineDeg( oDlg:hDC, nCol+1, nRow+::aHSay[i]-n , nCol+::aWSay[i], nRow+::aHSay[i]-n , nCor ,::aHSay[i] ) else MoveTo( oDlg:hDC, nCol+1, nRow+::aHSay[i]-n ) LineTo( oDlg:hDC, nCol+::aWSay[i], nRow+::aHSay[i]-n ) endif endif next SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor1 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol, nRow+if( nRow = 0, 2, 0 ) ) LineTo( oDlg:hDC, nCol, nRow+::aHSay[i]-3 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor2 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+1, nRow+::aHSay[i]-3 ) lineTo( oDlg:hDC, nCol+3, nRow+::aHSay[i]-1 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor3 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+3, nRow+::aHSay[i]-1 ) lineTo( oDlg:hDC, nCol+::aWSay[i]-4, nRow+::aHSay[i]-1 ) lineTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow+::aHSay[i]-4 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor2 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow+if( nRow = 0, 2, 0 ) ) lineTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow+::aHSay[i]-3 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) if len(::aImgs) >= i if len(::aMapaPix[i]) = 0 if len( ::aFiles ) > 0 ::aImgs[i]:ReLoad( , ::aFiles[i] ) else ::aImgs[i]:ReLoad( ::aNames[i], ) endif else ::MontaImg(i) endif endif ::aSays[i]:SetColor( ::aDialogs[i]:nClrText,; ::aDialogs[i]:nClrPane ) if !::aDialogs[i]:lActive ::aSays[i]:Disable() if len(::aImgs) >= i ::aImgs[i]:Disable() endif else ::aSays[i]:Enable() if len(::aImgs) >= i ::aImgs[i]:Enable() endif endif if ::aDialogs[i]:lActive .and. !::lDegrade SetWindowText( ::aSays[i]:hWnd, ::aSays[i]:cCaption ) else ::DrawText( oDlg:hDC,; ::aPrompts[i],; ::aSays[i]:nTop, ::aSays[i]:nLeft,; ::aDialogs[i]:nClrText,; ::aDialogs[i]:nClrPane,; ::aSays[i]:oFont, i ) endif nCol+=::aWSay[i] next i := ::nOption ::CORES( i ) nRow := ::aCords[i][1] nCol := ::aCords[i][2] hPen := CreatePen( 0, 1, ::aDialogs[i]:nClrPane ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+2, nRow ) LineTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow ) MoveTo( oDlg:hDC, nCol+2, nRow+1 ) LineTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow+1 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor3 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i], nRow ) LineTo( oDlg:hDC, nCol+::aWSay[i], nRow+::aHSay[i]-3 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor1 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+1, nRow+1 ) LineTo( oDlg:hDC, nCol+1, nRow+::aHSay[i]-3 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor2 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+1, nRow+::aHSay[i]-4 ) LineTo( oDlg:hDC, nCol+3, nRow+::aHSay[i]-2 ) LineTo( oDlg:hDC, nCol+::aWSay[i]-3, nRow+::aHSay[i]-2 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor2 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow+::aHSay[i]-5 ) lineTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow ) lineTo( oDlg:hDC, nCol+::aWSay[i]+1, nRow ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) oDlg:ReleaseDC() ::nOldCol := nCol+::aWSay[i] ::nOldRow := nRow endif //*****************POSICAO 4 / POSICAO 6********************// if ::nAbaPos = 4 .or. ::nAbaPos = 6 oDlg := ::oDlg2 oDlg:GetDC() nRow := 0 nCol := 0 for i := 1 to len( ::aSays ) ::CORES( i ) if i = ::nOption if ::nClrPaneSel <> NIL nCor := ::nClrPaneSel else nCor := ::aCores[i] endif else nCor := ::aCores[i] endif ::lStartDeg := .t. hPen := CreatePen( 0, 1, nCor ) hOldPen := SelectObject( oDlg:hDc, hPen ) for n := 1 to ::aWSay[i]-3 if n < 3 if ::lDegrade ::DrawLineDeg( oDlg:hDC, nCol+::aWSay[i]-n-1, nRow+4-n, nCol+::aWSay[i]-n-1, nRow+::aHSay[i]-4+n, nCor, ::aWSay[i]-3 ) else MoveTo( oDlg:hDC, nCol+::aWSay[i]-n-1, nRow+4-n ) LineTo( oDlg:hDC, nCol+::aWSay[i]-n-1, nRow+::aHSay[i]-4+n ) endif else if ::lDegrade ::DrawLineDeg( oDlg:hDC, nCol+::aWSay[i]-n-1, nRow, nCol+::aWSay[i]-n-1, nRow+::aHSay[i], nCor, ::aWSay[i]-3) else MoveTo( oDlg:hDC, nCol+::aWSay[i]-n-1, nRow ) LineTo( oDlg:hDC, nCol+::aWSay[i]-n-1, nRow+::aHSay[i] ) endif endif next SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor1 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-4, nRow ) LineTo( oDlg:hDC, nCol+1, nRow ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor2 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-3, nRow+1 ) LineTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow+3 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor3 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow+3 ) LineTo( oDlg:hDC, nCol+::aWSay[i]-1, nRow+::aHSay[i]-4 ) LineTo( oDlg:hDC, nCol+::aWSay[i]-4, nRow+::aHSay[i]-1 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor2 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+2, nRow+::aHSay[i]-1) LineTo( oDlg:hDC, nCol+::aWSay[i]-3, nRow+::aHSay[i]-1 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) if len(::aImgs) >= i if len(::aMapaPix[i]) = 0 if len( ::aFiles ) > 0 ::aImgs[i]:ReLoad( , ::aFiles[i] ) else ::aImgs[i]:ReLoad( ::aNames[i], ) endif else ::MontaImg(i) endif endif ::aSays[i]:SetColor( ::aDialogs[i]:nClrText,; ::aDialogs[i]:nClrPane ) if !::aDialogs[i]:lActive ::aSays[i]:Disable() if len(::aImgs) >= i ::aImgs[i]:Disable() endif else ::aSays[i]:Enable() if len(::aImgs) >= i ::aImgs[i]:Enable() endif endif if ::nAbaPos = 4 .and. ::aDialogs[i]:lActive .and. !::lDegrade SetWindowText( ::aSays[i]:hWnd, ::aSays[i]:cCaption ) else *::aSays[i]:Hide() ::DrawText( oDlg:hDC,; ::aPrompts[i],; ::aSays[i]:nTop, ::aSays[i]:nLeft,; ::aDialogs[i]:nClrText,; ::aDialogs[i]:nClrPane,; ::aSays[i]:oFont, i ) endif nRow+=::aHSay[i] next *hPen := CreatePen( 0, 1, oDlg:nClrPane ) *hOldPen := SelectObject( oDlg:hDc, hPen ) *MoveTo( oDlg:hDC, ::nOldCol, ::nOldRow+::aHSay[1] ) *LineTo( oDlg:hDC, ::nOldCol+::aWSay[1]-6, ::nOldRow+::aHSay[1] ) *SelectObject( oDlg:hDc, hOldPen ) *DeleteObject( hPen ) i := ::nOption ::CORES( i ) nCol := 0 nRow := ::PosRow( i ) hPen := CreatePen( 0, 1, ::aDialogs[i]:nClrPane ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol, nRow+1 ) LineTo( oDlg:hDC, nCol, nRow+::aHSay[i]-1 ) MoveTo( oDlg:hDC, nCol+1, nRow+1 ) LineTo( oDlg:hDC, nCol+1, nRow+::aHSay[i]-1 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor3 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+1, nRow+::aHSay[i] ) LineTo( oDlg:hDC, nCol+::aWSay[i]-4, nRow+::aHSay[i] ) LineTo( oDlg:hDC, nCol+::aWSay[i], nRow+::aHSay[i]-4 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor2 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol, nRow+::aHSay[i]-1 ) LineTo( oDlg:hDC, nCol+::aWSay[i]-4, nRow+::aHSay[i]-1 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor2 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-2, nRow+3 ) LineTo( oDlg:hDC, nCol+::aWSay[i]-2, nRow+::aHSay[i]-3 ) LineTo( oDlg:hDC, nCol+::aWSay[i]-4, nRow+::aHSay[i]-1 ) //<- MoveTo( oDlg:hDC, nCol+::aWSay[i]-2, nRow+3 ) LineTo( oDlg:hDC, nCol+::aWSay[i]-4, nRow+1 ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) hPen := CreatePen( 0, 1, ::nCor1 ) hOldPen := SelectObject( oDlg:hDc, hPen ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-4, nRow+1 ) LineTo( oDlg:hDC, nCol-1, nRow+1 ) MoveTo( oDlg:hDC, nCol+::aWSay[i]-4, nRow ) LineTo( oDlg:hDC, nCol, nRow ) SelectObject( oDlg:hDc, hOldPen ) DeleteObject( hPen ) ::nOldCol := nCol ::nOldRow := nRow oDlg:ReleaseDC() endif ::DrawLine( ::oDlg2:GetDC(), ::aCords[::nOption][1], ::aCords[::nOption][2],; ::aWSay[::nOption], ::aHSay[::nOption], NIL, ::nOption, .t. ) Return NIL //----------------------------------------------------------------------------// METHOD Iniciar() CLASS TRFolder local n, x, nMark, nFols, oDlg, oDlg2, oSay, nRow, nCol, nW, nH, oImg local nComp := 0, nTemp := 0 if Len(::aFiles ) > 0 nComp := 20 endif if Len(::aNames ) > 0 nComp := 20 endif //**********POSICAO 1***********// if ::nAbaPos = 1 if ::nLinhas = 1 if !::lAllWidth nW := 0 for n := 1 to len( ::aPrompts ) AADD( ::aWSay, len(::aPrompts[n]) * SAY_CHARPIX_W+16 + nComp ) AADD( ::aHSay, SAY_CHARPIX_H+10 ) nW += len(::aPrompts[n]) * SAY_CHARPIX_W+16+nComp next nW+=1 if nW > ::nWidth nW := ::nWidth endif else nW := Int( (::nWidth)/Len(::aPrompts) ) nTemp := 0 for x := 1 to Len(::aPrompts)-1 AADD( ::aWSay, nW ) AADD( ::aHSay, SAY_CHARPIX_H+10 ) nTemp+=nW next AADD( ::aWSay, ::nWidth-nTemp-1) AADD( ::aHSay, SAY_CHARPIX_H+10 ) endif else for n := 1 to ::nLinhas nW := Int( (::nWidth)/Len(::aLinhas[n]) ) nTemp := 0 for x := 1 to Len(::aLinhas[n])-1 AADD( ::aWSay, nW ) AADD( ::aHSay, SAY_CHARPIX_H+10 ) nTemp+=nW next AADD( ::aWSay, ::nWidth-nTemp-1) AADD( ::aHSay, SAY_CHARPIX_H+10 ) next nMark := 1 endif DEFINE DIALOG oDlg2 Title "" OF Self; FROM 0, 0 TO ::aHSay[1]*::nLinhas, ::nWidth PIXEL ; FONT Self:oFont Color ::nClrFore2, ::nClrBack2 STYLE ::nStyle oDlg2:bLClicked := {|nCol, nRow| ::ClickArea( nCol, nRow ) } ACTIVATE DIALOG oDlg2 NoWait nRow := 0 ; nCol := 0 for n := 1 to len( ::aPrompts ) if len(::aFiles) >= n .or. len(::aNames) >= n @ nRow+5, nCol+5 Image oImg Size 16,16 of oDlg2; NoBorder Pixel ADJUST Transparent *oImg:lTransparent := .t. oImg:Progress(.f.) oImg:bLClicked := ::_Compile( n ) oImg:bMMoved := ::_Compile2( n ) AADD( ::aImgs, oImg ) endif @ nRow+3, nCol+3+nComp Say oSay Var ::aPrompts[n] Size ::aWSay[n]-4-nComp, 16; of oDlg2 Pixel CENTER Color ::nClrFore2, ::nClrBack2 oSay:lWantClick := .t. oSay:bLClicked := ::_Compile( n ) oSay:bMMoved := ::_Compile2( n ) ::aSays[n] := oSay AADD( ::aCords, { nRow, nCol } ) nCol += ::aWSay[n] if ::nLinhas > 1 nFols := Len(::aLinhas[nMark]) if n >= ::aLinhas[nMark][nFols] nCol := 0 nRow+=::aHSay[1] nMark++ endif endif next for n := 1 to Len( ::aDialogs ) AADD( ::aCores, ::nClrBack2 ) DEFINE DIALOG oDlg Title "" OF Self; FROM oDlg2:nBottom-3, 0 TO ::nHeight-2, ::nWidth-2 PIXEL ; FONT Self:oFont Color ::nClrFore2, ::nClrBack2 STYLE ::nStyle ::aDialogs[ n ] = oDlg oDlg:cVarName = "Page" + AllTrim( Str( n ) ) oDlg:bPainted := {|| ::Paint() } oDlg:bMMoved := {|| ::PosMove( 0, 0 )} ACTIVATE DIALOG oDlg NoWait if n <> ::nOption ::aDialogs[n]:Hide() endif next endif //***************POSICAO 2****************// if ::nAbaPos = 2 nW := 0 nH := 0 nTemp := 0 for n := 1 to len( ::aPrompts ) if !::lAllWidth AADD( ::aHSay, SAY_CHARPIX_H+10 ) else if n < len( ::aPrompts ) AADD( ::aHSay, int(::nHeight/len(::aPrompts)) ) nTemp +=int(::nHeight/len(::aPrompts)) else AADD( ::aHSay, ::nHeight-nTemp-1 ) endif endif if nW < len(::aPrompts[n]) * SAY_CHARPIX_W+16+nComp nW := len(::aPrompts[n]) * SAY_CHARPIX_W+16+nComp endif next for n := 1 to len( ::aPrompts ) AADD( ::aWSay, nW ) next DEFINE DIALOG oDlg2 Title "" OF Self; FROM 0, 0 TO ::nHeight, nW PIXEL ; FONT Self:oFont STYLE ::nStyle Color ::nClrFore2, ::nClrBack2 oDlg2:bLClicked := {|nCol, nRow| ::ClickArea( nCol, nRow ) } ACTIVATE DIALOG oDlg2 NoWait nRow := 0 ; nCol := 0 for n := 1 to len( ::aPrompts ) if len(::aFiles) >= n .or. len(::aNames) >= n @ nRow+5, nCol+5 Image oImg Size 16,16 of oDlg2; NoBorder Pixel ADJUST Transparent *oImg:lTransparent := .t. oImg:Progress(.f.) oImg:bLClicked := ::_Compile( n ) oImg:bMMoved := ::_Compile2( n ) AADD( ::aImgs, oImg ) endif @ nRow+5, nCol+5+nComp Say oSay Var ::aPrompts[n] Size ::aWSay[n]-6-nComp, ::aHSay[n]-6; of oDlg2 Pixel Color ::nClrFore2, ::nClrBack2 oSay:lWantClick := .t. oSay:bLClicked := ::_Compile( n ) oSay:bMMoved := ::_Compile2( n ) AADD( ::aCords, { nRow, nCol } ) nRow += ::aHSay[n] ::aSays[n] := oSay next for n := 1 to Len( ::aDialogs ) AADD( ::aCores, ::nClrBack2 ) DEFINE DIALOG oDlg Title "" OF Self; FROM 0, oDlg2:nRight-2 TO ::nHeight-2, ::nWidth-2 PIXEL ; FONT Self:oFont STYLE ::nStyle Color ::nClrFore2, ::nClrBack2 ::aDialogs[ n ] = oDlg oDlg:cVarName = "Page" + AllTrim( Str( n ) ) oDlg:bPainted := {|| ::Paint() } oDlg:bMMoved := {|| ::PosMove( 0, 0 )} ACTIVATE DIALOG oDlg NoWait if n <> ::nOption ::aDialogs[n]:Hide() endif next endif //****************POSICAO 3********************// if ::nAbaPos = 3 if ::nLinhas = 1 if !::lAllWidth nW := 0 for n := 1 to len( ::aPrompts ) AADD( ::aWSay, len(::aPrompts[n]) * SAY_CHARPIX_W+16 + nComp ) AADD( ::aHSay, SAY_CHARPIX_H+10 ) nW += len(::aPrompts[n]) * SAY_CHARPIX_W+16+nComp next nW+=1 if nW > ::nWidth nW := ::nWidth endif else nW := Int( (::nWidth)/Len(::aPrompts) ) nTemp := 0 for x := 1 to Len(::aPrompts)-1 AADD( ::aWSay, nW ) AADD( ::aHSay, SAY_CHARPIX_H+10 ) nTemp+=nW next AADD( ::aWSay, ::nWidth-nTemp-1) AADD( ::aHSay, SAY_CHARPIX_H+10 ) endif else for n := 1 to ::nLinhas nW := Int( (::nWidth)/Len(::aLinhas[n]) ) nTemp := 0 for x := 1 to Len(::aLinhas[n])-1 AADD( ::aWSay, nW ) AADD( ::aHSay, SAY_CHARPIX_H+10 ) nTemp+=nW next AADD( ::aWSay, ::nWidth-nTemp-1) AADD( ::aHSay, SAY_CHARPIX_H+10 ) next nMark := 1 endif DEFINE DIALOG oDlg2 Title "" OF Self; FROM ::nHeight-::aHSay[1]*::nLinhas-1 , 0 TO ::nHeight-1, ::nWidth PIXEL ; FONT Self:oFont STYLE ::nStyle Color ::nClrFore2, ::nClrBack2 oDlg2:bLClicked := {|nCol, nRow| ::ClickArea( nCol, nRow ) } ACTIVATE DIALOG oDlg2 NoWait nRow := 0 ; nCol := 0 for n := 1 to len( ::aPrompts ) if len(::aFiles) >= n .or. len(::aNames) >= n @ nRow+5, nCol+5 Image oImg Size 16,16 of oDlg2; NoBorder Pixel ADJUST Transparent *oImg:lTransparent := .t. oImg:Progress(.f.) oImg:bLClicked := ::_Compile( n ) oImg:bMMoved := ::_Compile2( n ) AADD( ::aImgs, oImg ) endif @ nRow+3, nCol+3+nComp Say oSay Var ::aPrompts[n] Size ::aWSay[n]-4-nComp, 16; of oDlg2 Pixel CENTER Color ::nClrFore2, ::nClrBack2 oSay:lWantClick := .t. oSay:bLClicked := ::_Compile( n ) oSay:bMMoved := ::_Compile2( n ) ::aSays[n] := oSay AADD( ::aCords, { nRow, nCol } ) nCol += ::aWSay[n] if ::nLinhas > 1 nFols := Len(::aLinhas[nMark]) if n >= ::aLinhas[nMark][nFols] nCol := 0 nRow+=::aHSay[1] nMark++ endif endif next for n := 1 to Len( ::aDialogs ) AADD( ::aCores, ::nClrBack2 ) DEFINE DIALOG oDlg Title "" OF Self; FROM 0, 0 TO oDlg2:nTop, ::nWidth-2 PIXEL ; FONT Self:oFont STYLE ::nStyle Color ::nClrFore2, ::nClrBack2 ::aDialogs[ n ] = oDlg oDlg:cVarName = "Page" + AllTrim( Str( n ) ) oDlg:bPainted := {|| ::Paint() } oDlg:bMMoved := {|| ::PosMove( 0, 0 )} ACTIVATE DIALOG oDlg NoWait if n <> ::nOption ::aDialogs[n]:Hide() endif next endif //***************POSICAO 4****************// if ::nAbaPos = 4 nW := 0 nH := 0 for n := 1 to len( ::aPrompts ) AADD( ::aHSay, SAY_CHARPIX_H+10 ) if nW < len(::aPrompts[n]) * SAY_CHARPIX_W+16+nComp nW := len(::aPrompts[n]) * SAY_CHARPIX_W+16+nComp endif nH += SAY_CHARPIX_H+10 next for n := 1 to len( ::aPrompts ) AADD( ::aWSay, nW ) next nH += 1 if nH > ::nHeight nH := ::nHeight endif DEFINE DIALOG oDlg2 Title "" OF Self; FROM 0, ::nWidth-nW TO ::nHeight-1, ::nWidth-1 PIXEL ; FONT Self:oFont STYLE ::nStyle Color ::nClrFore2, ::nClrBack2 oDlg2:bLClicked := {|nCol, nRow| ::ClickArea( nCol, nRow ) } ACTIVATE DIALOG oDlg2 NoWait nRow := 0 ; nCol := 0 for n := 1 to len( ::aPrompts ) if len(::aFiles) >= n .or. len(::aNames) >= n @ nRow+5, nCol+5 Image oImg Size 16,16 of oDlg2; NoBorder Pixel ADJUST Transparent *oImg:lTransparent := .t. oImg:Progress(.f.) oImg:bLClicked := ::_Compile( n ) oImg:bMMoved := ::_Compile2( n ) AADD( ::aImgs, oImg ) endif @ nRow+5, nCol+5+nComp Say oSay Var ::aPrompts[n] Size nW-6-nComp, 16; of oDlg2 Pixel Color ::nClrFore2, ::nClrBack2 oSay:lWantClick := .t. oSay:bLClicked := ::_Compile( n ) oSay:bMMoved := ::_Compile2( n ) AADD( ::aCords, { nRow, nCol } ) nRow += ::aHSay[n] ::aSays[n] := oSay next for n := 1 to Len( ::aDialogs ) AADD( ::aCores, ::nClrBack2 ) DEFINE DIALOG oDlg Title "" OF Self; FROM 0, 0 TO ::nHeight-2, oDlg2:nLeft PIXEL ; FONT Self:oFont STYLE ::nStyle Color ::nClrFore2, ::nClrBack2 ::aDialogs[ n ] = oDlg oDlg:cVarName = "Page" + AllTrim( Str( n ) ) oDlg:bPainted := {|| ::Paint() } oDlg:bMMoved := {|| ::PosMove( 0, 0 )} ACTIVATE DIALOG oDlg NoWait if n <> ::nOption ::aDialogs[n]:Hide() endif next endif //***************POSICAO 5****************// if ::nAbaPos = 5 nW := 0 nH := 0 nTemp := 0 for n := 1 to len( ::aPrompts ) if !::lAllWidth AADD( ::aHSay, len(::aPrompts[n]) * SAY_CHARPIX_W+16+nComp ) else if n < len( ::aPrompts ) AADD( ::aHSay, Int(::nHeight/len(::aPrompts)) ) nTemp+=Int(::nHeight/len(::aPrompts) ) else AADD( ::aHSay, ::nHeight-nTemp-1 ) endif endif AADD( ::aWSay, SAY_CHARPIX_H+10 ) next DEFINE DIALOG oDlg2 Title "" OF Self; FROM 0, 0 TO ::nHeight, ::aWSay[1] PIXEL ; FONT Self:oFont STYLE ::nStyle Color ::nClrFore2, ::nClrBack2 oDlg2:bLClicked := {|nCol, nRow| ::ClickArea( nCol, nRow ) } ACTIVATE DIALOG oDlg2 NoWait nRow := 0 ; nCol := 0 for n := 1 to len( ::aPrompts ) if len(::aFiles) >= n .or. len(::aNames) >= n @ nRow+5, nCol+5 Image oImg Size 16,16 of oDlg2; NoBorder Pixel ADJUST Transparent *oImg:lTransparent := .t. oImg:Progress(.f.) oImg:bLClicked := ::_Compile( n ) oImg:bMMoved := ::_Compile2( n ) AADD( ::aImgs, oImg ) endif @ nRow+::aHSay[n]-5, nCol+5 Say oSay Var ::aPrompts[n] Size 1, 1; of oDlg2 Pixel Color ::nClrFore2, ::nClrBack2 Font ::oFont3 oSay:lWantClick := .t. oSay:bLClicked := ::_Compile( n ) oSay:bMMoved := ::_Compile2( n ) AADD( ::aCords, { nRow, nCol } ) nRow += ::aHSay[n] ::aSays[n] := oSay next for n := 1 to Len( ::aDialogs ) AADD( ::aCores, ::nClrBack2 ) DEFINE DIALOG oDlg Title "" OF Self; FROM 0, oDlg2:nRight-3 TO ::nHeight-2, ::nWidth-2 PIXEL ; FONT Self:oFont STYLE ::nStyle Color ::nClrFore2, ::nClrBack2 ::aDialogs[ n ] = oDlg oDlg:cVarName = "Page" + AllTrim( Str( n ) ) oDlg:bPainted := {|| ::Paint() } oDlg:bMMoved := {|| ::PosMove( 0, 0 )} ACTIVATE DIALOG oDlg NoWait if n <> ::nOption ::aDialogs[n]:Hide() endif next endif //***************POSICAO 6****************// if ::nAbaPos = 6 nW := 0 nH := 0 nTemp := 0 for n := 1 to len( ::aPrompts ) if !::lAllWidth AADD( ::aHSay, len(::aPrompts[n]) * SAY_CHARPIX_W+16+nComp ) else if n < len( ::aPrompts ) AADD( ::aHSay, int(::nHeight/len(::aPrompts)) ) nTemp+=int(::nHeight/len(::aPrompts) ) else AADD( ::aHSay, ::nHeight-nTemp-1 ) endif endif AADD( ::aWSay, SAY_CHARPIX_H+12 ) next DEFINE DIALOG oDlg2 Title "" OF Self; FROM 0, ::nWidth-::aWSay[1]-1 TO ::nHeight-1, ::nWidth-1 PIXEL ; FONT Self:oFont STYLE ::nStyle Color ::nClrFore2, ::nClrBack2 oDlg2:bLClicked := {|nCol, nRow| ::ClickArea( nCol, nRow ) } ACTIVATE DIALOG oDlg2 NoWait nRow := 0 ; nCol := 0 for n := 1 to len( ::aPrompts ) if len(::aFiles) >= n .or. len(::aNames) >= n @ nRow+5, nCol+5 Image oImg Size 16,16 of oDlg2; NoBorder Pixel ADJUST Transparent *oImg:lTransparent := .t. oImg:Progress(.f.) oImg:bLClicked := ::_Compile( n ) oImg:bMMoved := ::_Compile2( n ) AADD( ::aImgs, oImg ) endif @ nRow+::aHSay[n]-5, nCol+5 Say oSay Var ::aPrompts[n] Size 1, 1; of oDlg2 Pixel Color ::nClrFore2, ::nClrBack2 Font ::oFont3 oSay:lWantClick := .t. oSay:bLClicked := ::_Compile( n ) oSay:bMMoved := ::_Compile2( n ) AADD( ::aCords, { nRow, nCol } ) nRow += ::aHSay[n] ::aSays[n] := oSay next for n := 1 to Len( ::aDialogs ) AADD( ::aCores, ::nClrBack2 ) DEFINE DIALOG oDlg Title "" OF Self; FROM 0, 0 TO ::nHeight-2, oDlg2:nLeft PIXEL ; FONT Self:oFont STYLE ::nStyle Color ::nClrFore2, ::nClrBack2 ::aDialogs[ n ] = oDlg oDlg:cVarName = "Page" + AllTrim( Str( n ) ) oDlg:bPainted := {|| ::Paint() } oDlg:bMMoved := {|| ::PosMove( 0, 0 )} ACTIVATE DIALOG oDlg NoWait if n <> ::nOption ::aDialogs[n]:Hide() endif next endif oDlg2:bMMoved := {|nCol, nRow| ::PosMove( nCol, nRow ) } ::oDlg2 := oDlg2 if ::oWnd:bMMoved <> NIL ::bBlockWnd := ::oWnd:bMMoved endif ::oWnd:bMMoved := { || ::BlockWnd() } return nil //--------------------------------------------------------------------------- METHOD Display() CLASS TRFolder ::BeginPaint() ::Paint() ::EndPaint() return 0 //--------------------------------------------------------------------------- METHOD ClickAba( N ) CLASS TRFolder local i if n = ::nOption Return NIL endif if ::nOldText <> NIL ::aDialogs[::nOption]:nClrText := ::nOldText endif if ::nOldPane <> NIL ::aDialogs[::nOption]:nClrPane := ::nOldPane endif if ::nClrTextSel <> NIL ::nOldText := ::aDialogs[::nOption]:nClrText ::aDialogs[N]:nClrText := ::nClrTextSel endif if ::nClrPaneSel <> NIL ::nOldPane := ::aDialogs[::nOption]:nClrPane ::aDialogs[N]:nClrPane := ::nClrPaneSel endif ::aDialogs[N]:SetColor(::aDialogs[N]:nClrText, ::aDialogs[N]:nClrPane) ::aSays[N]:SetFont( ::oFont4 ) ::aDialogs[::nOption]:Hide() ::aSays[::nOption]:SetFont( ::oFont3 ) ::nOption := N ::aDialogs[N]:Show() //::Paint() Return NIL //--------------------------------------------------------------------------- METHOD _Compile( n ) CLASS TRFolder Return {|| ::ClickAba(n) } //--------------------------------------------------------------------------- METHOD _Compile2( n ) CLASS TRFolder Return {|| ::PosMove(, ,n) }

by **Antonio Linares** » Sun May 17, 2009 3:10 pm

Second part:

Code: Select all Expand view: //-------------------------------------------------------------------------- METHOD PosCol(nPos) CLASS TRFolder local n := 0 local i for i := 2 to nPos n += ::aWSay[i-1] next Return n //-------------------------------------------------------------------------- METHOD PosRow(nPos) CLASS TRFolder local n := 0 local i for i := 2 to nPos n += ::aHSay[i-1] next Return n //-------------------------------------------------------------------------- METHOD ADD( cPrompt ) CLASS TRFolder local oDlg, oSay, oImg, nComp := 0 local nCor1, nCor2, nOldOption := ::nOption if ::nClrTextSel <> NIL nCor1 := ::nClrFore2 nCor2 := ::nClrBack2 else nCor1 := ::aDialogs[1]:nClrText nCor2 := ::aDialogs[1]:nClrPane endif SysRefresh() AADD( ::aPrompts, cPrompt ) AADD( ::aCores, nCor2 ) if Len(::aFiles) > 0 .or. Len(::aNames) > 0 nComp := 20 endif if ::nAbaPos = 1 DEFINE DIALOG oDlg Title "" OF Self; FROM ::oDlg2:nBottom-3, 0 TO ::nHeight-2, ::nWidth-2 PIXEL ; FONT Self:oFont STYLE ::nStyle Color nCor1, nCor2 AADD(::aDialogs, oDlg) oDlg:cVarName = "Page" + AllTrim( Str( len(::aDialogs) ) ) oDlg:bPainted := {|| ::Paint() } oDlg:bMMoved := {|| ::PosMove( 0, 0 )} ACTIVATE DIALOG oDlg NoWait oDlg:Hide() endif if ::nAbaPos = 2 DEFINE DIALOG oDlg Title "" OF Self; FROM 0, ::oDlg2:nRight-2 TO ::nHeight-2, ::nWidth-2 PIXEL ; FONT Self:oFont STYLE ::nStyle Color nCor1, nCor2 AADD(::aDialogs, oDlg) oDlg:cVarName = "Page" + AllTrim( Str( len(::aDialogs) ) ) oDlg:bPainted := {|| ::Paint() } oDlg:bMMoved := {|| ::PosMove( 0, 0 )} ACTIVATE DIALOG oDlg NoWait oDlg:Hide() endif if ::nAbaPos = 5 DEFINE DIALOG oDlg Title "" OF Self; FROM 0, ::oDlg2:nRight-3 TO ::nHeight-2, ::nWidth-2 PIXEL ; FONT Self:oFont STYLE ::nStyle Color nCor1, nCor2 AADD(::aDialogs, oDlg) oDlg:cVarName = "Page" + AllTrim( Str( len(::aDialogs) ) ) oDlg:bPainted := {|| ::Paint() } oDlg:bMMoved := {|| ::PosMove( 0, 0 )} ACTIVATE DIALOG oDlg NoWait oDlg:Hide() endif if ::nAbaPos = 3 DEFINE DIALOG oDlg Title "" OF Self; FROM 0, 0 TO ::oDlg2:nTop, ::nWidth-2 PIXEL ; FONT Self:oFont STYLE ::nStyle Color nCor1, nCor2 AADD(::aDialogs, oDlg) oDlg:cVarName = "Page" + AllTrim( Str( len(::aDialogs) ) ) oDlg:bPainted := {|| ::Paint() } oDlg:bMMoved := {|| ::PosMove( 0, 0 )} ACTIVATE DIALOG oDlg NoWait oDlg:Hide() endif if ::nAbaPos = 4 .or. ::nAbaPos = 6 DEFINE DIALOG oDlg Title "" OF Self; FROM 0, 0 TO ::nHeight-2, ::oDlg2:nLeft PIXEL ; FONT Self:oFont STYLE ::nStyle Color nCor1, nCor2 AADD(::aDialogs, oDlg) oDlg:cVarName = "Page" + AllTrim( Str( len(::aDialogs) ) ) oDlg:bPainted := {|| ::Paint() } oDlg:bMMoved := {|| ::PosMove( 0, 0 )} ACTIVATE DIALOG oDlg NoWait oDlg:Hide() endif if ::nAbaPos = 1 .or. ::nAbaPos = 3 AADD(::aCords, { 0, ::PosCol( len(::aSays) )+::aWSay[len(::aSays)] } ) AADD( ::aWSay, len(cPrompt) * SAY_CHARPIX_W+16+nComp ) AADD( ::aHSay, SAY_CHARPIX_H+10 ) @ 03, ::PosCol( len(::aSays) )+::aWSay[len(::aSays)]+3+nComp Say oSay VAR cPrompt Pixel; of ::oDlg2 CENTER; Size ::aWSay[ len(::aWSay) ]-4-nComp, ; ::aHSay[ len(::aHSay) ]-4; Color nCor1, nCor2 ::oDlg2:nWidth += len(cPrompt) * SAY_CHARPIX_W+16 if Len(::aFiles) > 0 .or. Len(::aNames) > 0 @ 05, ::PosCol( len(::aSays) )+::aWSay[len(::aSays)]+5 IMAGE oImg Size 16, 16; NoBorder Adjust of ::oDlg2 Pixel *oImg:lTransparent := .t. oImg:Progress(.f.) oImg:bLClicked := ::_Compile( len(::aImgs)+1 ) oImg:bMMoved := ::_Compile2( len(::aImgs)+1 ) AADD( ::aImgs, oImg ) AADD( ::aMapaPix, ::aMapaPix[1] ) if len(::aFiles) > 0 AADD( ::aFiles, ::aFiles[1] ) else AADD( ::aNames, ::aNames[1] ) endif endif endif if ::nAbaPos = 2 .or. ::nAbaPos = 4 AADD(::aCords, { ::PosRow( len(::aSays) )+::aHSay[len(::aSays)], 0 }) AADD( ::aHSay, SAY_CHARPIX_H+10 ) AADD( ::aWSay, ::aWSay[1] ) @ ::PosRow( len(::aSays) )+::aHSay[len(::aSays)]+3, 3+nComp Say oSay VAR cPrompt Pixel; of ::oDlg2; Size ::aWSay[ len(::aWSay) ]-4-nComp, ; ::aHSay[ len(::aHSay) ]-4; Color nCor1, nCor2 ::oDlg2:nHeight += SAY_CHARPIX_H+10 if Len(::aFiles) > 0 .or. Len(::aNames) > 0 @ ::PosRow( len(::aSays) )+::aHSay[len(::aSays)]+5, 5 IMAGE oImg Size 16, 16; NoBorder Adjust of ::oDlg2 Pixel *oImg:lTransparent := .t. oImg:Progress(.f.) oImg:bLClicked := ::_Compile( len(::aImgs)+1 ) oImg:bMMoved := ::_Compile2( len(::aImgs)+1 ) AADD( ::aImgs, oImg ) AADD( ::aMapaPix, ::aMapaPix[1] ) if len(::aFiles) > 0 AADD( ::aFiles, ::aFiles[1] ) else AADD( ::aNames, ::aNames[1] ) endif endif endif if ::nAbaPos = 5 .or. ::nAbaPos = 6 AADD(::aCords, { ::PosRow( len(::aSays) )+::aHSay[len(::aSays)], 0 }) AADD( ::aHSay, len(cPrompt) * SAY_CHARPIX_W+16+nComp ) AADD( ::aWSay, SAY_CHARPIX_H+10 ) @ ::PosRow( len(::aHSay) )+::aHSay[len(::aHSay)]-5, 5 Say oSay Var cPrompt Pixel; of ::oDlg2 Size 1,1; Color nCor1, nCor2 Font ::oFont3 ::oDlg2:nHeight += SAY_CHARPIX_H+10 if Len(::aFiles) > 0 .or. Len(::aNames) > 0 @ ::PosRow( len(::aHSay) )+5, 5 IMAGE oImg Size 16, 16; NoBorder Adjust of ::oDlg2 Pixel *oImg:lTransparent := .t. oImg:Progress(.f.) oImg:bLClicked := ::_Compile( len(::aImgs)+1 ) oImg:bMMoved := ::_Compile2( len(::aImgs)+1 ) AADD( ::aImgs, oImg ) AADD( ::aMapaPix, ::aMapaPix[1] ) if len(::aFiles) > 0 AADD( ::aFiles, ::aFiles[1] ) else AADD( ::aNames, ::aNames[1] ) endif endif endif oSay:lWantClick := .t. oSay:bLClicked := ::_Compile( len(::aSays)+1 ) oSay:bMMoved := ::_Compile2( len(::aSays)+1 ) AADD( ::aSays, oSay ) SysRefresh() if ::oDlg2:nWidth > ::nWidth ::oDlg2:nWidth := ::nWidth endif if ::oDlg2:nHeight > ::nHeight ::oDlg2:nHeight := ::nHeight endif ::oDlg2:Refresh() SysRefresh() ::Hide() ::Show() Return NIL //--------------------------------------------------------------------------- METHOD DEL(N) CLASS TRFolder Default n := 1 if len( ::aDialogs ) < n Return NIL endif ::aDialogs[N]:Hide() ::aSays[N]:Hide() ADEL( ::aDialogs[N] ) ADEL( ::aSays[N] ) ADEL( ::aHSay[N] ) ADEL( ::aWSay[N] ) if n = ::nAbaPos if n > 1 ::aDialogs[1]:Show() ::nAbaPos := 1 else if len(::aDialogs) > 1 ::aDialogs[2]:Show() ::nAbaPos := 2 endif endif endif ::Paint() Return NIL //--------------------------------------------------------------------------- METHOD CORES(n) CLASS TRFolder Local nCor if n = ::nOption if ::nClrPaneSel <> NIL nCor := ::nClrPaneSel else nCor := ::aCores[n] endif else nCor := ::aCores[n] endif ::nCor1 := ::ClrW( 50, nCor ) ::nCor2 := ::ClrD( 20, nCor ) ::nCor3 := ::ClrD( 40, nCor ) Return NIL //-------------------------------------------------------------------------- METHOD ClrD( nInd, nCor ) CLASS TRFolder local aCores := ARGB( nCor ) aCores[1] -= aCores[1]*nInd/100 aCores[2] -= aCores[2]*nInd/100 aCores[3] -= aCores[3]*nInd/100 if aCores[1] < 0 aCores[1] := 0 endif if aCores[2] < 0 aCores[2] := 0 endif if aCores[3] < 0 aCores[3] := 0 endif Return nRGB( aCores[1], aCores[2], aCores[3] ) //-------------------------------------------------------------------------- METHOD ClrW( nInd, nCor ) CLASS TRFolder local aCores := ARGB( nCor ) aCores[1] += (255-aCores[1])*nInd/100 aCores[2] += (255-aCores[2])*nInd/100 aCores[3] += (255-aCores[3])*nInd/100 if aCores[1] > 255 aCores[1] := 255 endif if aCores[2] > 255 aCores[2] := 255 endif if aCores[3] > 255 aCores[3] := 255 endif Return nRGB( aCores[1], aCores[2], aCores[3] ) //-------------------------------------------------------------------------- METHOD SetCores( aCores ) CLASS TRFolder local i for i := 1 to Len( ::aDialogs ) if i > len( aCores ) exit endif ::aSays[i]:SetColor( aCores[i][1], aCores[i][2] ) ::aDialogs[i]:SetColor( aCores[i][1], aCores[i][2] ) ::aCores[i] := aCores[i][2] next ::Refresh() Return NIL //-------------------------------------------------------------------------- METHOD NoExact() CLASS TRFolder ::SetColor( GetSysColor( COLOR_BTNFACE ), GetSysColor( COLOR_BTNFACE ) ) ::oDlg2:SetColor( GetSysColor( COLOR_BTNFACE ), GetSysColor( COLOR_BTNFACE )) ::lExact := .f. ::Refresh() Return NIL //-------------------------------------------------------------------------- METHOD Exact() CLASS TRFolder ::SetColor( ::oWnd:nClrPane, ::oWnd:nClrPane ) ::oDlg2:SetColor( ::oWnd:nClrPane, ::oWnd:nClrPane ) ::lExact := .t. ::Refresh() Return NIL //-------------------------------------------------------------------------- METHOD MontaMapa() local aMapa, nCor, nCorZero, aTest := ::aMapaPix[1] local l, c , i for i := 1 to len( ::aImgs ) aMapa := {} ::aImgs[i]:GetDC() nCorZero := GetPixel( ::aImgs[i]:hDC, 0, 0 ) for l := 0 to 15 for c := 0 to 15 nCor := GetPixel( ::aImgs[i]:hDC, c, l ) if nCor <> nCorZero //.and. nCor <> -1 AADD( aMapa, {c, l, nCor} ) endif next next ::aMapaPix[i] := aMapa next Return NIL //-------------------------------------------------------------------------- METHOD MontaImg(i) CLASS TRFolder local aMapa local n aMapa := ::aMapaPix[i] for n := 1 to len( aMapa ) *SetPixel( ::aImgs[i]:hDc, aMapa[n][1], aMapa[n][2], aMapa[n][3]) SetPixel( ::oDlg2:hDc, ::aImgs[i]:nLeft+aMapa[n][1], ::aImgs[i]:nTop+ aMapa[n][2], aMapa[n][3]) next Return NIL //-------------------------------------------------------------------------- METHOD ColorSelected( nClrText, nClrPane ) CLASS TRFolder ::nClrTextSel := nClrText ::nClrPaneSel := nClrPane ::ClickAba( len(::aDialogs) ) ::ClickAba( 1 ) Return NIL //-------------------------------------------------------------------------- METHOD Disable( nOption ) local n := ::nOption ::aDialogs[nOption]:Disable() ::ClickAba( len(::aDialogs) ) ::ClickAba( 1 ) if nOption <> n ::ClickAba( n ) endif Return NIL //-------------------------------------------------------------------------- METHOD Enable( nOption ) local n := ::nOption if nOption = NIL Return NIL endif ::aDialogs[nOption]:Enable() ::ClickAba( len(::aDialogs) ) ::ClickAba( 1 ) if nOption <> n ::ClickAba( n ) endif Return NIL //-------------------------------------------------------------------------- Static Function ARGB( nCor ) Return { nRGBRed( nCor ), nRGBGreen( nCor ), nRGBBlue( nCor ) } //-------------------------------------------------------------------------- METHOD ClickArea( nRow, nCol, lOK ) CLASS TRFolder local i, nPosX, nPosY local nOption := 0 default lOK := .t. nPosX := nPosY := 0 for i := 1 to len( ::aSays ) if ::nAbaPos = 1 .or. ::nAbaPos = 3 nPosY := ::aCords[i][1] nPosX := ::aCords[i][2] endif if nCol > nPosX .and. nCol < nPosX+::aWSay[i] .and.; nRow > nPosY .and. nRow < nPosY+::aHSay[i] nOption := i exit endif if ::nAbaPos = 3 nPosX += ::aWSay[i] endif if ::nAbaPos = 2 .or. ::nAbaPos > 3 nPosY += ::aHSay[i] endif next if nOption <> 0 if ::aDialogs[i]:lActive if lOK ::ClickAba( nOption ) endif endif endif Return nOption //------------------------------------------------------------------- METHOD DrawText( hDc,cPrompt,Y,X,nClrText,nClrPane,oFont, i) CLASS TRFolder Local hOldFont, nOldMode, nOldClrText, nOldClrPane if ::nAbaPos = 1 .or.; ::nAbaPos = 3 x+= ( (::aWSay[i]-if(len(::aImgs)>0,20,0 ))-Len(::aPrompts[i])*SAY_CHARPIX_W )/2 endif * if ::nAbaPos = 5 .or.; * ::nAbaPos = 6 * y+= ( (::aHSay[i]-if(len(::aImgs)>0,20,0))-Len(::aPrompts[i])*SAY_CHARPIX_H )/2 * endif if !::aDialogs[i]:lActive nClrText := ::nCor2 nOldClrText:=SetTextColor(hDC,::nCor1) nOldBkMode:=SetBkMode(hDC,1) NoldBkMode:=SetbkMode(nrgb(224,226,222),1) hOldFont:=SelectObject(hDC,oFont:hFont) TextOut(hDC,Y+1,X+1,cPrompt,Len(cPrompt)) SelectObject(hDC,hOldFont) SetBkMode(hDC,nOldBkMode) SetTextColor(hDC,nOldClrText) endif nOldClrText:=SetTextColor(hDC,nClrText) nOldBkMode:=SetBkMode(hDC,1) NoldBkMode:=SetbkMode(nrgb(224,226,222),1) hOldFont:=SelectObject(hDC,oFont:hFont) TextOut(hDC,Y,X,cPrompt,Len(cPrompt)) SelectObject(hDC,hOldFont) SetBkMode(hDC,nOldBkMode) SetTextColor(hDC,nOldClrText) Return NIL //------------------------------------------------------------------- METHOD ReposHrz( nOption ) CLASS TRFolder local nIni, nFim, nMarca, i, x, aReorg := {}, nInd, aTemp local nRow if ::nAbaPos = 1 nRow := len(::alinhas)*::aHSay[1]-::aHSay[1] endif if ::nAbaPos = 3 nRow := 0 endif for i := 1 to len( ::aLinhas ) nIni := ::aLinhas[i][1] nFim := ::aLinhas[i][len(::aLinhas[i])] if nOption >= nIni .and. nOption <= nFim nMarca := i AADD( aReorg, ::aLinhas[i] ) exit endif next for x := nMarca+1 to len( ::aLinhas ) AADD( aReorg, ::aLinhas[x] ) next for i := 1 to nMarca-1 AADD( aReorg, ::aLinhas[i] ) next for i := 1 to len( aReorg ) aTemp := aReorg[i] for x := 1 to len(aTemp) nInd := aTemp[x] ::aSays[nInd]:nTop := nRow+5 ::aCords[nInd][1] := nRow if len(::aFiles) > 0 .or. Len(::aNames) > 0 if len( ::aImgs ) >= nInd ::aImgs[nInd]:nTop := nRow+5 endif endif next if ::nAbaPos = 1 nRow-=::aHSay[1] endif if ::nAbaPos = 3 nRow+=::aHSay[1] endif next Return NIL //--------------------------------------------------------------------------- METHOD PosMove( nRow, nCol, n ) CLASS TRFolder if nRow <> NIL n := ::ClickArea( nRow, nCol, .f. ) endif if n = ::nOldOpt Return NIL endif if ::nOldOpt <> 0 ::DrawLine( ::oDlg2:hDC, ::aCords[::nOldOpt][1], ::aCords[::nOldOpt][2],; ::aWSay[::nOldOpt], ::aHSay[::nOldOpt], ::aDialogs[::nOldOpt]:nClrPane, ::nOldOpt, .f. ) endif if n <> 0 .and. n <> ::nOption ::Cores(n) ::DrawLine( ::oDlg2:GetDC(), ::aCords[n][1], ::aCords[n][2],; ::aWSay[n], ::aHSay[n], NIL, n, .f. ) endif ::nOldOpt := n Return NIL //-------------------------------------------------------------------------- METHOD DrawLine( hDC, nRow, nCol, nWidth, nHeight, nCor, n, lOpt ) CLASS TRFolder if nCor = NIL if ::nClrMove <> NIL nCor := ::nClrMove else nCor := ::nCor1 endif endif if n == ::nOption .and. !lOpt Return nIL endif if ::nAbaPos = 1 if ::lDegrade ::lStartDeg := .t. ::DrawLineDeg( hDC, nCol+3, nRow+1, nCol+nWidth-3, nRow+1 , nCor, ::aHSay[n]) ::DrawLineDeg( hDC, nCol+2, nRow+2, nCol+nWidth-2, nRow+2 , nCor, ::aHSay[n]) ::DrawLineDeg( hDC, nCol+1, nRow+3, nCol+nWidth-1, nRow+3 , nCor, ::aHSay[n]) ::DrawLineDeg( hDC, nCol+1, nRow+4, nCol+nWidth-1, nRow+4 , nCor, ::aHSay[n]) else hPen := CreatePen( 0, 1, nCor ) hOldPen := SelectObject( hDc, hPen ) MoveTo( hDC, nCol+3, nRow+1 ) LineTo( hDC, nCol+nWidth-3, nRow+1 ) MoveTo( hDC, nCol+2, nRow+2 ) LineTo( hDC, nCol+nWidth-2, nRow+2 ) MoveTo( hDC, nCol+1, nRow+3 ) LineTo( hDC, nCol+nWidth-1, nRow+3 ) MoveTo( hDC, nCol+1, nRow+4 ) LineTo( hDC, nCol+nWidth-1, nRow+4 ) SelectObject( hDc, hOldPen ) DeleteObject( hPen ) endif endif if ::nAbaPos = 2 .and. !::lDegrade hPen := CreatePen( 0, 1, nCor ) hOldPen := SelectObject( hDc, hPen ) MoveTo( hDC, nCol+3, nRow+1 ) LineTo( hDC, nCol+nWidth, nRow+1 ) MoveTo( hDC, nCol+2, nRow+2 ) LineTo( hDC, nCol+nWidth, nRow+2 ) MoveTo( hDC, nCol+1, nRow+3 ) LineTo( hDC, nCol+nWidth, nRow+3 ) MoveTo( hDC, nCol+1, nRow+4 ) LineTo( hDC, nCol+nWidth, nRow+4 ) SelectObject( hDc, hOldPen ) DeleteObject( hPen ) endif if ::nAbaPos = 3 if ::lDegrade ::lStartDeg := .t. ::DrawLineDeg( hDC, nCol+3, nRow+nHeight-2, nCol+nWidth-3, nRow+nHeight-2 , nCor, ::aHSay[n]) ::DrawLineDeg( hDC, nCol+2, nRow+nHeight-3, nCol+nWidth-2, nRow+nHeight-3 , nCor, ::aHSay[n]) ::DrawLineDeg( hDC, nCol+1, nRow+nHeight-4, nCol+nWidth-1, nRow+nHeight-4 , nCor, ::aHSay[n]) ::DrawLineDeg( hDC, nCol+1, nRow+nHeight-5, nCol+nWidth-1, nRow+nHeight-5 , nCor, ::aHSay[n]) else hPen := CreatePen( 0, 1, nCor ) hOldPen := SelectObject( hDc, hPen ) MoveTo( hDC, nCol+3, nRow+nHeight-2 ) LineTo( hDC, nCol+nWidth-3, nRow+nHeight-2 ) MoveTo( hDC, nCol+2, nRow+nHeight-3 ) LineTo( hDC, nCol+nWidth-2, nRow+nHeight-3 ) MoveTo( hDC, nCol+1, nRow+nHeight-4 ) LineTo( hDC, nCol+nWidth-1, nRow+nHeight-4 ) MoveTo( hDC, nCol+1, nRow+nHeight-5 ) LineTo( hDC, nCol+nWidth-1, nRow+nHeight-5 ) SelectObject( hDc, hOldPen ) DeleteObject( hPen ) endif endif if ::nAbaPos = 4 .and. !::lDegrade hPen := CreatePen( 0, 1, nCor ) hOldPen := SelectObject( hDc, hPen ) MoveTo( hDC, nCol+2, nRow+1 ) LineTo( hDC, nCol+nWidth-5, nRow+1 ) MoveTo( hDC, nCol+2, nRow+2 ) LineTo( hDC, nCol+nWidth-4, nRow+2 ) MoveTo( hDC, nCol+2, nRow+3 ) LineTo( hDC, nCol+nWidth-3, nRow+3 ) MoveTo( hDC, nCol+2, nRow+4 ) LineTo( hDC, nCol+nWidth-2, nRow+4 ) SelectObject( hDc, hOldPen ) DeleteObject( hPen ) endif if ::nAbaPos = 5 .or. ( ::nAbaPos = 2 .and. ::lDegrade ) if ::lDegrade ::lStartDeg := .t. ::DrawLineDeg( hDC, nCol+1, nRow+3, nCol+1, nRow+nHeight-3 , nCor, ::aWSay[n]) ::DrawLineDeg( hDC, nCol+2, nRow+2, nCol+2, nRow+nHeight-2 , nCor, ::aWSay[n]) ::DrawLineDeg( hDC, nCol+3, nRow+1, nCol+3, nRow+nHeight-1 , nCor, ::aWSay[n]) ::DrawLineDeg( hDC, nCol+4, nRow+1, nCol+4, nRow+nHeight-1 , nCor, ::aWSay[n]) else hPen := CreatePen( 0, 1, nCor ) hOldPen := SelectObject( hDc, hPen ) MoveTo( hDC, nCol+1, nRow+3 ) LineTo( hDC, nCol+1, nRow+nHeight-3 ) MoveTo( hDC, nCol+2, nRow+2 ) LineTo( hDC, nCol+2, nRow+nHeight-2 ) MoveTo( hDC, nCol+3, nRow+1 ) LineTo( hDC, nCol+3, nRow+nHeight-1 ) MoveTo( hDC, nCol+4, nRow+1 ) LineTo( hDC, nCol+4, nRow+nHeight-1 ) SelectObject( hDc, hOldPen ) DeleteObject( hPen ) endif endif if ::nAbaPos = 6 .or. ( ::lDegrade .and. ::nAbaPos = 4 ) if ::lDegrade ::lStartDeg := .t. ::DrawLineDeg( hDC, nCol+nWidth-2, nRow+3, nCol+nWidth-2, nRow+nHeight-3 , nCor, ::aWSay[n]) ::DrawLineDeg( hDC, nCol+nWidth-3, nRow+2, nCol+nWidth-3, nRow+nHeight-2 , nCor, ::aWSay[n]) ::DrawLineDeg( hDC, nCol+nWidth-4, nRow+1, nCol+nWidth-4, nRow+nHeight-1 , nCor, ::aWSay[n]) ::DrawLineDeg( hDC, nCol+nWidth-5, nRow+1, nCol+nWidth-5, nRow+nHeight-1 , nCor, ::aWSay[n]) else hPen := CreatePen( 0, 1, nCor ) hOldPen := SelectObject( hDc, hPen ) MoveTo( hDC, nCol+nWidth-2, nRow+5 ) LineTo( hDC, nCol+nWidth-2, nRow+nHeight-1 ) MoveTo( hDC, nCol+nWidth-3, nRow+4 ) LineTo( hDC, nCol+nWidth-3, nRow+nHeight-1 ) MoveTo( hDC, nCol+nWidth-4, nRow+3 ) LineTo( hDC, nCol+nWidth-4, nRow+nHeight-1 ) MoveTo( hDC, nCol+nWidth-5, nRow+2 ) LineTo( hDC, nCol+nWidth-5, nRow+nHeight-1 ) SelectObject( hDc, hOldPen ) DeleteObject( hPen ) endif endif Return NIL //--------------------------------------------------------------------------- METHOD BlockWnd() CLASS TRFolder if ::bBlockWnd <> NIL Eval( ::bBlockWnd ) endif ::PosMove( 0, 0 ) Return Nil //--------------------------------------------------------------------------- METHOD DrawLineDeg( hDC, nCol, nRow, nColF, nRowF, nCor, nHeight ) CLASS TRFolder Static n, nCorLine, nInd if ::lStartDeg ::lStartDeg := .f. nCorLine := nCor n := 0 nInd := 0 else n++ if n < nHeight/2 nInd += 80/nHeight nCorLine := ::CLRW( nInd, nCor) else nInd -= 80/nHeight nCorLine := ::CLRW( nInd, nCor ) endif endif hPen := CreatePen( 0, 1, nCorLine ) hOldPen := SelectObject( hDc, hPen ) MoveTo( hDC, nCol, nRow ) LineTo( hDC, nColF, nRowF ) SelectObject( hDc, hOldPen ) DeleteObject( hPen ) Return NIL //-------------------------------------------------------------------------- METHOD Initiate( hDlg ) CLASS TRFolder Super:Initiate( hDlg ) * ::Create() ::Default() * ::SetColor( CLR_WHITE, CLR_WHITE ) // ::Iniciar() return nil

by **Antonio Linares** » Sun May 17, 2009 3:20 pm

Please press quote to see my posts.

Don't know why they don't show.

by **Dietmar Jahnel** » Sun May 24, 2009 7:23 am

In the meantime I found this article:

How To Change the Background Color of a Tab Control
http://support.microsoft.com/?scid=kb%3 ... 9&x=14&y=9

Can it be of any help?
Dietmar

FiveTech Software tech support forums

[Plz Linares] How to change the color of a disabled folder?

Re: [Plz Linares] How to change the color of a disabled folder?

Re: [Plz Linares] How to change the color of a disabled folder?

Re: [Plz Linares] How to change the color of a disabled folder?

Re: [Plz Linares] How to change the color of a disabled folder?

Re: [Plz Linares] How to change the color of a disabled folder?

Who is online