Family Historian User Group

Code: Select all

require('luacom')
require('lfs')

ProgressBar = {

      Start = function(strTitle,intMax)
                                            -- Create & start Progress Bar window
            if not DlgGauge then
                  IsBarStop = false
                  IntStart = os.time()
                  IntDelta = 0
                  StrClock = '00:00:00'
                  local      btnStop      = iup.button      { title='Stop '..strTitle, font=StrFontBody, rastersize='200x30', fgcolor=StrRed, action=function() IsBarStop = true end, } 
     -- Signal Stop button pressed      return iup.CLOSE -- Often caused main GUI to close !!!
                              BarGauge      = iup.progressbar { rastersize='400x30', value=0, max=intMax, }      -- Progress bar maximum range
                              LblText      = iup.label      { title=' ', expand='YES', alignment='ACENTER', tip='Percentage and Time Elapsed', }
                              DlgGauge      = iup.dialog      { title=strTitle..' Progress', dialogframe='YES', background=StrWhite,      -- Remove Windows minimize/maximize menu
                                                            iup.vbox{ alignment='ACENTER', gap='10', margin=StrBigMargin,
                                                                  LblText,
                                                                  BarGauge,
                                                                  btnStop,
                                                            },
                                                            move_cb      = function(self,x,y) IntDataX=x IntDataY=y end,
                                                            close_cb      = btnStop.action,                                                      -- Windows Close button = Stop button
                                                      }
                  DlgGauge:showxy(IntDataX,IntDataY)                                                                                    -- Show the Progress Bar window
            end
      end,

      SetText = function(strText)                                                                                                            -- Show the Progress text message
            if DlgGauge then LblText.title = strText end
      end,

      Step = function(intStep)                                                                                                                  -- Step the Progress Bar forward
            if DlgGauge then
                  local intVal = tonumber(BarGauge.value)
                  local intMax = tonumber(BarGauge.max)
                  intVal = intVal + intStep
                  if intVal > intMax then intVal = intMax end                                                                        -- Ensure value does not exceed maximum
                  BarGauge.value = intVal
                  local intDelta = os.difftime(os.time(),IntStart)
                  if IntDelta < intDelta then                                                                                                      -- Update clock of elapsed time
                        IntDelta = intDelta
                        local intHour = math.floor( intDelta / 3600 )
                        local intMins = math.floor( intDelta / 60 - intHour * 60 )
                        local intSecs = intDelta - intMins * 60 - intHour * 3600
                        StrClock = string.format('%02d : %02d : %02d',intHour,intMins,intSecs)
                  end
                  LblText.title = string.format('%4d %%      %s ', math.floor( intVal / intMax * 100 ), StrClock) -- Display % and clock progress
                  DlgGauge.bringfront = 'YES'
                  iup.LoopStep()
            end
      end,

      Reset = function()                                                                                                                              -- Reset the Progress Bar
            if DlgGauge then BarGauge.value = 0 end
      end,

      Stop = function()                                                                                                                              -- Check if Stop button pressed
            return IsBarStop
      end,

      Close = function()                                                                                                                              -- Close the Progress Bar window
            IsBarStop = false
            if DlgGauge then DlgGauge:destroy() DlgGauge = nil end
      end,

} -- end ProgressBar

function main()
    local tblPlugin = {}
    local tblCurVer = {}
    local tblStoreVer = {}
    local tblUpgrade = {}
    pluginDir = fhGetContextInfo('CI_APP_DATA_FOLDER')..'\plugins'
      local intFile = 0
      for filename,attr in dirtree(pluginDir) do
            local _,name,ext = splitfilename(filename)
            if ext == 'fh_lua' then
                  intFile = intFile + 1
            end
      end
      ProgressBar.Start('Check Installed Plugins',intFile)
    for filename,attr in dirtree(pluginDir) do
        _,name,ext = splitfilename(filename)
        if ext == 'fh_lua' then
                        ProgressBar.Step(1)

Code: Select all

        end
            if ProgressBar.Stop() then break end
    end
      ProgressBar.Close()
    --  Output Result Set