Source

vinstall-gambas / VL-7.0 / MdlStartUp.module

Full commit
' Gambas module file

'    This file is part of vinstall-ng

'    vinstall-ng is free software: you can redistribute it and/or modify
'    it under the terms of the GNU General Public License as published by
'    the Free Software Foundation, either version 2 of the License, or
'    (at your option) any later version.

'    vinstall-ng  is distributed in the hope that it will be useful,
'    but WITHOUT ANY WARRANTY; without even the implied warranty of
'    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'    GNU General Public License for more details.

'    You should have received a copy of the GNU General Public License
'    along with vinstall-ng.  If not, see <http://www.gnu.org/licenses/>.

PUBLIC pDone AS Picture
PUBLIC pNow AS Picture
PUBLIC pToDo AS Picture
PUBLIC pCategory AS Picture

PUBLIC SUB MAIN()
  
  IF Application.Args[1] THEN 
    IF Application.Args[1] <> "-C" THEN 
      System.Language = Trim(Application.Args[1])
      FMain0.Show
      FMain0.Maximized = TRUE
      FMain0.FullScreen = TRUE
      FMain0.Maximized = TRUE
      RETURN 
    END IF
  END IF
  'Message.Info(Application.Path)
' The (incomplete) es_ES translation is causing problems, so we just force en_US for all for the time being.
  fmain0.Show
  fmain0.Maximized = TRUE
  fmain0.FullScreen = TRUE
  fmain0.Maximized = TRUE
  
  
END

PUBLIC SUB LAYOUT_NAVIGATION_VISUALS()
  
  pDone = Picture.Load("images/done.png")
  pNow = Picture.Load("images/now.png")
  pToDo = Picture.Load("images/square.png")
  pCategory = Picture.Load("images/category.png")
  
  ClsGlobal.fRunningMainForm.listview1.add("Cat0", Space(3) & ("Preparation"), pCategory)
'  ClsGlobal.fRunningMainForm.listview1["Cat0"].Font.bold = TRUE
  ClsGlobal.fRunningMainForm.listview1.add("Step0", ("Select Language"), pNow)
  ClsGlobal.fRunningMainForm.listview1.add("Step1", ("Select Media"), pToDo)
  ClsGlobal.fRunningMainForm.listview1.add("Step2", ("Disk Partitioning"), pToDo)
  ClsGlobal.fRunningMainForm.listview1.add("Step3", ("Software Selection"), pTodo)
  ClsGlobal.fRunningMainForm.listview1.add("Cat1", Space(3) & ("Installation"), pCategory)
  ClsGlobal.fRunningMainForm.listview1.add("Step4", ("Installation Summary"), pToDo)
  ClsGlobal.fRunningMainForm.listview1.add("Step5", ("Install Operating System"), pTodo) '("Install") & Space(1) & ClsGlobal.sDistroName, pToDo)
  ClsGlobal.fRunningMainForm.listview1.add("Cat2", Space(3) & ("System Configuration"), pCategory)
  ClsGlobal.fRunningMainForm.listview1.add("Step6", ("System Boot Manager"), pToDo)
  ClsGlobal.fRunningMainForm.listview1.add("Step7", ("Regional Settings"), pToDo)
  ClsGlobal.fRunningMainForm.listview1.add("Step8", ("User Accounts"), pToDo)
  ClsGlobal.fRunningMainForm.listview1.add("Step9", ("Network Settings"), pToDo)
  ClsGlobal.fRunningMainForm.listview1.add("Step10", ("Startup Options"), pToDo)
  ClsGlobal.fRunningMainForm.listview1.add("Step11", ("Final Configuration"), pToDo)
  
  'fmain.ListView1.Add(
  
END