FiveTech Support Forums

DEFINE BRUSH oBrush FILENAME (cDEFA+"\grey.bmp" )
DEFINE ICON oICO RESOURCE "WORLD"

DEFINE DIALOG oGRPS RESOURCE "VENDOR" ;
       ICON oICO                   ;
       TITLE cTITLE BRUSH oBrush TRANSPARENT

   REDEFINE xBROWSE oLBX1                ;
       RECORDSET oRsWeb                  ;
       COLUMNS "Run_This",               ;
               "URL"                     ;
       COLSIZES 30,200                   ;
       HEADERS "Run",                    ;
               "Web Site to Search"      ;
       ID 111 of oGrps                   ;
       AUTOSORT FASTEDIT LINES CELL

       oLbx1:bClrRowFocus    := { || { CLR_BLACK, RGB(185,220,255) } }
       oLbx1:nMarqueeStyle   := MARQSTYLE_HIGHLROWMS

       if ! Empty( oCol := oLbx1:oCol( "Run" ) )
            oCol:SetCheck( { "ON", "OFF" } )
            oCol:cSortOrder  := nil
          //  oCol:lBmpStretch = .T.
       endif

       AEVAL( oLbx1:aCols, { |o| o:nEditType := EDIT_GET } )

       * COLSIZES 30,30,30,100,30,30       ;

   // resize the row ( multi-line ) on this xbrowse listbox when desc
   // is wider than the column 

   REDEFINE xBROWSE oLBX2                ;
       ARRAY aResults                    ;
       COLUMNS 1,2,3,4,5,6               ;
       HEADERS "Site",                   ;
               "Part",                   ;
               "Name",                   ;
               "Desc",                   ;
               "Price",                  ;
               "Qty"                     ;
       ID 121 of oGrps                   ;
       AUTOSORT AUTOCOLS FASTEDIT LINES CELL

   REDEFINE BUTTON oBTN1 ID 112 of oGrps  //    ;    // add files
    *   ACTION ( _FileView("A"),;
    *            oLBX1:REFRESH(), SysReFresh(),;
    *            oLBX1:SetFocus() )

   REDEFINE BUTTON oBTN2 ID 114 of oGrps  //  ;    // edit files
     *  ACTION ( _FileView( "E"), ;
     *           oLBX1:REFRESH(), SysReFresh(),;
     *           oLBX1:SetFocus() )

   REDEFINE BUTTON oBTN3 ID 119 of oGrps  //  ;    // del files
     *  ACTION ( Delete_Um() )


   REDEFINE BUTTON oBTN10 ID 124 of oGrps  // ;    // view log file
    *   ACTION ( WaitRun( "NOTEPAD.EXE ERRORLOG.TXT" ) )

   REDEFINE BUTTON oBTN5 ID 117 of oGrps  //  ;    // run
    *   ACTION ( _RunDist( cNAME ) )

   REDEFINE BUTTON oBTN6 ID 118 of oGrps    ;    // quit
       ACTION ( dbCloseAll(), ;
                oGrps:END() )

ACTIVATE DIALOG oGrps NOWAIT          ;
       ON INIT( oLbx1:SetFocus(), .F. );
       VALID ( IIF( !lOK, ExitPgm(.T., oRsWeb), .F. ))


RETURN( NIL )

oLbx2:nRowHeight := XbrColMaxHeight( oLbx2:Desc )

#define DT_WORDBREAK                0x00000010
#define DT_CALCRECT                 0x00000400

function XbrColMaxHeight( oCol )

   local oBrw, hDC
   local nLeft, nHeight, nRight, nWidth
   local cData, oFont, aRect
   local uSave, nMaxHeight

   oBrw              := oCol:oBrw
   nMaxHeight        := 0
   nLeft             := oCol:nDisplayCol
   nRight            := Min( nLeft + oCol:nWidth, ::BrwWidth() - 5 )
   if nRight - nLeft < 10
      return oBrw:nRowHeight
   endif

   hDC               := oBrw:GetDC()
   oFont             := If( ValType( oCol:oDataFont ) == 'B', Eval( oCol:oDataFont ), oCol:oDataFont )
   oFont:Activate( hDC )
   aRect             := oBrw:DataRect()
   aRect[ 2 ]        := nLeft
   aRect[ 4 ]        := nRight
   uSave             := oBrw:BookMark
   oBrw:GoTop()

   REPEAT

      cData          := Trim( cValToChar( Eval( oCol:bStrData ) ) )
      if ! Empty( cData )
         nMaxHeight  := Max( DrawTextEx( hDC, cData, aRect, nOr( DT_CALCRECT, DT_WORDBREAK ) ), ;
                             nMaxHeight )
      endif
      // not handling bitmap width, indent, if any.

   UNTIL oBrw:Skip( 1 ) != 1

   oBrw:BookMark     := uSave

return nMaxHeight

ACTIVATE DIALOG oGrps ; //NOWAIT          ;
       ON INIT(oLbx2:nRowHeight := XbrColMaxHeight( oLbx2:Desc ),oParts:Setfocus(),SysReFresh() );
       VALID ( IIF( !lOK, ExitPgm(.T., oRsWeb, @aResults ), .F. ))

*AAdd( aResults,{"www.google.com ","130794 ",;
*                "We stock the most popular fast moving engines, but often we can't keep up",;
*                "$44.95 ","see shipping tab" } )

AAdd( aResults, {"   ","   ",;
                 space(200),;
                 "   ","   " })

aLine := {"www.google.com ","130794 ",;
               "We stock the most popular fast moving engines, but often we can't keep up",;
                "$44.95 ","see shipping tab" }

SetRowHeight( oLbx2:Desc, aLine[ 3 ] )
AAdd( aResults, aLine )
oLbx2:Refresh()
oLbx2:GoBottom()

function SetRowHeight( oCol, cData )

   static nOrglHeight

   local oBrw     := oCol:oBrw
   local hDC, oFont, aRect, nHeight

   DEFAULT nOrglHeight := oBrw:nRowHeight

   if PCount() < 2
      if oBrw:nRowHeight != nOrglHeight
         oBrw:nRowHeight   := nOrglHeight
         oBrw:Refresh()
      endif
      return nil
   endif

   hDC            := oBrw:GetDC()
   oFont          := If( ValType( oCol:oDataFont ) == 'B', Eval( oCol:oDataFont ), oCol:oDataFont )
   oFont:Activate( hDC )
   aRect             := oBrw:DataRect()
   aRect[ 4 ]     := aRect[ 2 ] + oCol:nWidth
   nHeight        := DrawTextEx( hDC, cData, aRect, nOr( DT_CALCRECT, DT_WORDBREAK ) )
   oFont:DeActivate( hDC )
   oBrw:ReleaseDC()

   if nHeight > oBrw:nRowHeight
      oBrw:nRowHeight   := nHeight
   endif


return nil

REDEFINE xBROWSE oLBX2                ;
       ARRAY aResults                    ;
       COLUMNS 1,2,3,4,5                 ;
       COLSIZES 150,70,300,70,50         ;
       HEADERS "Site",                   ;
               "Part",                   ;
               "Desc",                   ;
               "Price",                  ;
               "Qty"                     ;
       ID 121 of oGrps                   ;
       AUTOSORT AUTOCOLS FASTEDIT LINES CELL

       oLbx2:Desc:cDataType := "M"

09/03/2015 16:45:26: XBRCOLMAXHEIGHT( 843 ) hDC = 755048059 cData = [Purchase transactions which disregarded under GST legislation (e.g. purchase within GST group registration)]   aRect = TRECT   
09/03/2015 16:45:26: XBRCOLMAXHEIGHT( 843 ) hDC = 755048059 cData = [Imports under special scheme with no GST incurred (e.g. Approved Trader Scheme, ATMS Scheme).] aRect = TRECT   
09/03/2015 16:45:26: XBRCOLMAXHEIGHT( 843 ) hDC = 755048059 cData = [Purchase from non GST-registered supplier with no GST incurred.]   aRect = TRECT   
09/03/2015 16:45:26: XBRCOLMAXHEIGHT( 843 ) hDC = 755048059 cData = [Purchase transactions which is out of the scope of GST legislation (e.g. purchase of goods overseas).] aRect = TRECT   
09/03/2015 16:45:26: XBRCOLMAXHEIGHT( 843 ) hDC = 755048059 cData = [Purchase from GST-registered supplier with no GST incurred. (e.g. supplier provides transportation of goods that qualify as international services).]  aRect = TRECT   
09/03/2015 16:45:26: XBRCOLMAXHEIGHT( 843 ) hDC = 755048059 cData = [Any adjustment made to Input Tax e.g.: Bad Debt Relief & other input tax adjustment.]  aRect = TRECT   
09/03/2015 16:45:26: XBRCOLMAXHEIGHT( 843 ) hDC = 755048059 cData = [Purchases with GST incurred but not claimable (Disallowance of Input Tax) (e.g. medical expenses for staff).]  aRect = TRECT   
09/03/2015 16:45:26: XBRCOLMAXHEIGHT( 843 ) hDC = 755048059 cData = [GST incurred for import of goods.] aRect = TRECT   
09/03/2015 16:45:26: XBRCOLMAXHEIGHT( 843 ) hDC = 755048059 cData = [Purchases with GST incurred at 6% and directly attributable to taxable supplies.]  aRect = TRECT   
09/03/2015 16:45:26: XBRCOLMAXHEIGHT( 843 ) hDC = 755048059 cData = [GST incurred directly attributable to incidental exempt supplies.] aRect = TRECT   
09/03/2015 16:45:26: XBRCOLMAXHEIGHT( 843 ) hDC = 755048059 cData = [GST incurred directly attributable to non-incidental exempt supplies.] aRect = TRECT   
09/03/2015 16:45:26: XBRCOLMAXHEIGHT( 843 ) hDC = 755048059 cData = [GST incurred that is not directly attributable to taxable or exempt supplies.] aRect = TRECT   
09/03/2015 16:45:26: XBRCOLMAXHEIGHT( 843 ) hDC = 755048059 cData = [Purchases exempted from GST. E.g. purchase of residential property or financial services.] aRect = TRECT

   aRect             := oBrw:DataRect()

   aRect             := oBrw:DataRect():aRect