FiveTech Software tech support forums

Code: Select all | Expand

#ifdef RECINFORMATICA
// add: lHBar, lVBar - barre di scorrimento
METHOD New( nTop, nLeft, nWidth, nHeight, oWnd, aBitmaps, lPixel,;
            lDesign, aPrompts, nFolderHeight, ;
            aHelps, nRound, bAction, bClrTabs, bClrText, aAlign, ;
            lAdjust, nSeparator, nOption, bPopUp, lStretch, ;
            cLayOut, bBmpAction, nBright, lAnimate, nSpeed, oFont, ;
            lTransparent, aDialogs, lBorder, nClrPane, cVarName, lHBar, lVBar ) CLASS TFolderEx //-->> byte-one 2010
#else
METHOD New( nTop, nLeft, nWidth, nHeight, oWnd, aBitmaps, lPixel,;
            lDesign, aPrompts, nFolderHeight, ;
            aHelps, nRound, bAction, bClrTabs, bClrText, aAlign, ;
            lAdjust, nSeparator, nOption, bPopUp, lStretch, ;
            cLayOut, bBmpAction, nBright, lAnimate, nSpeed, oFont, ;
            lTransparent, aDialogs, lBorder, nClrPane, cVarName ) CLASS TFolderEx //-->> byte-one 2010
#endif
...
...

   for n = 1 to nLen

    #ifdef RECINFORMATICA                   // 30/08/2024
        default lHBar := .f.
        default lVBar := .f.
        DEFINE DIALOG oDlg OF Self STYLE nOR( WS_CHILD, If( ! ::oWnd:IsKindOf( "TDIALOG"), WS_CLIPCHILDREN, 0 ),;
                                        if(lHBar, WS_HSCROLL, 0), if(lVBar, WS_VSCROLL, 0));
         FROM 0, 1 TO ::nHeight(), ::nWidth() PIXEL ;
         FONT ::ownd:oFont ;
         HELPID If( Len( ::aHelps ) >= n , ::aHelps[ n ] , NIL )

    // following lines have no effect!! 
        if lVBar
            DEFINE SCROLLBAR oDlg:oVScroll VERTICAL OF oDlg
            oDlg:oVScroll:SetRange( 1, ::nHeight() )
        endif
        if lHBar
            DEFINE SCROLLBAR oDlg:oHScroll HORIZONTAL OF oDlg
            oDlg:oHScroll:SetRange( 1, ::nWidth() )
        endif

    #else
        DEFINE DIALOG oDlg OF Self STYLE nOR( WS_CHILD, If( ! ::oWnd:IsKindOf( "TDIALOG"), WS_CLIPCHILDREN, 0 ) );
         FROM 0, 1 TO ::nHeight(), ::nWidth() PIXEL ;
         FONT ::ownd:oFont ;
         HELPID If( Len( ::aHelps ) >= n , ::aHelps[ n ] , NIL )
    #endif

      oDlg:SetBrush( ::oBrush )
      ::aDialogs[ n ] = oDlg

      oDlg:cVarName := "Page" + AllTrim( Str( n ) )
      oDlg:Hide()
      // oDlg:lTransparent := .T.

   next
 

Code: Select all | Expand

Method SetClip()
::oClip:lFolder := .t.

::oClip:addFld( CEditFld():New( "ImageName" ,"File:",, .f. ))       // thi is a simple tSay object
::oClip:Getfld("ImageName"):bData := {|| (::nArea)->(basename(trim(PathFile)+PATHTHUMB+"s"+trim(NomeFile))+THUMBEXT) }

::oClip:addFld( CEditFld():New( "Image" ,"Img.:",, .f. ))
::oClip:Getfld("Image"):bData := {|| (::nArea)->(basename(trim(PathFile)+PATHTHUMB+"s"+trim(NomeFile))+THUMBEXT) }
::oClip:Getfld("Image"):nType := OCTRL_IMAGE             // here I define that I want to display the image

::oClip:bOnDisp := {|oCl,lSet| ::OnDisp(oCl,lSet) }              // everytime the control is updated
return (Self)

******************************************************************************
Method OnDisp(oClip,lSet)
if lSet
    oClip:getFld("Image"):oCtrl:blDblClick := {||::display() }                // open the document
    oClip:getFld("Image"):oCtrl:oCursor := TCursor():New(,"Hand")
endif
return (nil)