FiveTech Software tech support forums

Code: Select all | Expand

 Function Manage_Items(aData,oBrowse)
    local oDlg
   local oBar
   local oFont
   local oBold
   local nWd  := GetSysMetrics(0) * .30
   local nHt  := (GetSysMetrics(1) / 3.5 ) -20
   local oBtn := array(3)
   local aBmp:= {" ","elimina.bmp"}
   local aCols    := {}


     For n= 1 to Len(aData)
        If  !aData[n][5]
           else
          AAdd( aCols, {aData[n][1],n,!aData[n][5]})
       Endif
     Next

   DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL ;   //TRUEPIXEL
       TITLE  "Products" ;
       FONT oFont   COLOR CLR_BLACK, RGB( 245,245,235)  ;
       STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;
                  WS_MINIMIZEBOX)


    @ 10,10 XBROWSE oBrw SIZE -10,-20 PIXEL OF oDlg ;
          DATASOURCE aCols ;
          COLUMNS 1,3 ;
          HEADERS "Descrizione","R" ;
          COLSIZES 300, 40 ;
           NOBORDER  FONT oFONT

        WITH OBJECT oBrw
            :lHScroll:=.f.
            :lRecordSelector:= .F.
            :lDrawBorder := .t.

          WITH OBJECT :aCols[ 2]
             :SetCheck(aBmp, .t. )
             :nHeadBmpNo    := 2
          END
          :CreateFromCode()
       END

      ACTIVATE DIALOG oDlg CENTERED
    RETURN NIL




 

Code: Select all | Expand

oPanel:aControls[ n ]:End()
HB_ADel( oPanel:aControls[ n ], n, .t. )

Code: Select all | Expand

oBrw:Delete()
oBrw:Refresh()

Code: Select all | Expand

FOR i := 1 TO LEN(oBrw:aCols)
oCol := oBrw:aCols[ i ]
oCol:bLDClickData := { || Erase_Items(oBrw,oPanel) }
NEXT

Code: Select all | Expand

oBrw:bLDClickDatas :=  { || Erase_Items(oBrw,oPanel) }

Code: Select all | Expand

Function Erase_Items(oBrw,oPanel)
   local  nItem:=  oBrw:aArrayData[ oBrw:nArrayAt ][2]

   oBrw:Delete()
   oBrw:Refresh()

        oPanel:aControls[ nItem ]:End()
        HB_ADel( oPanel:aControls[ nItem ], nItem, .t. )

        oPanel:refresh()

   return nil

Code: Select all | Expand

function DeleteControl( oPanel, nItem )

   local nTop, nLeft
   
   for n := Len( oPanel:aControls ) to nItem + 1 STEP -1
      oPanel:aControls[ n ]:nTop := oPanel:aControls[ n - 1 ]:nTop
      oPanel:aControls[ n ]:nLeft:= oPanel:aControls[ n - 1 ]:nLeft
   next
   oPanel:aControls[ nItem ]:End()
   HB_ADel( oPanel:aControls, nItem, .t. )
   oPanel:Refresh()
      
return nil

Code: Select all | Expand

#include "fivewin.ch"

static cFolder := "c:\fwh\bitmaps\pngs\"

function Main()

   local oDlg, oFont, oPanel, oBrw
   local aImages

   aImages  := DIRECTORY( cFolder + "*.png" )

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 800,500 PIXEL TRUEPIXEL FONT oFont

   @ 20,450 XBROWSE oBrw SIZE 280,-20 PIXEL OF oDlg ;
      DATASOURCE aImages COLUMNS 1,{ || " " } ;
      HEADERS "IMAGE", " " ;
      CELL LINES NOBORDER FOOTERS

   WITH OBJECT oBrw
      :nStretchCol   := 1
      :RecSelShowRecNo()
      WITH OBJECT :aCols[ 2 ]
         :AddBitmap( "c:\fwh\bitmaps\32x32\no.bmp" )
         :bBmpData := { || 1 }
         :bLDClickData  := { || DelImage( oBrw, oPanel ) }
      END
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oPanel := BuildPanel( oDlg, aImages ) )

   RELEASE FONT oFont

return nil

static function BuildPanel( oDlg, aImages )

   local oPanel, img
   local nRow  := 20
   local nCol  := 20

   oPanel := TScrollPanel():New( 20, 20, 400, 440, oDlg )

   for each img in aImages
      CreateBtn( oPanel, img, @nRow, @nCol )
   next

   oPanel:SetRange()

return oPanel

static function CreateBtn( oPanel, aImg, nRow, nCol )

   @ nRow, nCol BTNBMP PROMPT cFileNoExt( aImg[ 1 ] ) ;
      FILE cFolder + aImg[ 1 ] ;
      SIZE 72,96 PIXEL OF oPanel 2007

   if nCol > 200
      nRow  += 100
      nCol  :=  20
   else
      nCol  += 90
   endif

return nil

static function DelImage( oBrw, oPanel )

   local nItem    := oBrw:nArrayAt

   if DeleteControl( oPanel, nItem )
      oBrw:Delete()
      oBrw:Refresh()
   endif

return nil

static function DeleteControl( oPanel, nItem )

   local nTop, nLeft, nLen, n

   if ( nLen := Len( oPanel:aControls ) ) == 1 .or. nItem == nLen
      return .f.
   endif

   for n := nLen to nItem + 1 STEP -1
      oPanel:aControls[ n ]:nTop := oPanel:aControls[ n - 1 ]:nTop
      oPanel:aControls[ n ]:nLeft:= oPanel:aControls[ n - 1 ]:nLeft
   next
   oPanel:aControls[ nItem ]:End()
   HB_ADel( oPanel:aControls, nItem, .t. )
   oPanel:Refresh()

return .t.

Code: Select all | Expand

MENU oMenu POPUP
     MENUITEM "Procedure1"   ;
       ACTION   CreateBtn( oPanel, "C:\work\fwh\bitmaps\pngs\image1.PNG", @nRow, @nCol,"Procedure1",{||Dummy1()} )
     MENUITEM "Procedure2"   ;
       ACTION   CreateBtn( oPanel, "C:\work\fwh\bitmaps\pngs\image2.PNG", @nRow, @nCol,"Procedure2",{||Dummy1()} )
     ENDMENU
   ACTIVATE POPUP oMenu WINDOW oPanel AT 0, 0
 

Code: Select all | Expand

static function DeleteControl( oPanel, nItem )

   local nTop, nLeft, nLen, n

   if ( nLen := Len( oPanel:aControls ) ) == 1 .or. nItem == nLen
      return .f.
   endif

   for n := nLen to nItem + 1 STEP -1
      oPanel:aControls[ n ]:nTop := oPanel:aControls[ n - 1 ]:nTop
      oPanel:aControls[ n ]:nLeft:= oPanel:aControls[ n - 1 ]:nLeft
   next
   oPanel:aControls[ nItem ]:End()
   HB_ADel( oPanel:aControls, nItem, .t. )

   WITH OBJECT oPanel
      n  := :nPos
      :GoTop()
      :SetRange()
      :GoToPos( MIN( n, oPanel:nScrollRange ) )
      :Refresh()
   END

return .t.