www.FiveTechSoft.com
https://fivetechsupport.com/forums/
You have to use "TRFolder" instead of "RFolder"
Code: Select all | Expand
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"
{
}
Code: Select all | Expand
#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) }
Code: Select all | Expand
//--------------------------------------------------------------------------
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