[Vectorlinux-devel] [vinstall-ng commit] r100 - branches/iVL

[<cod...@go...>]

Author: M0...@gm...
Date: Wed Aug  6 10:16:24 2008
New Revision: 100

Modified:
    branches/iVL/FrmInstallSys.class
    branches/iVL/FrmInstallSys.form
    branches/iVL/MdlSetup.module

Log:
Trying credits scroll

Modified: branches/iVL/FrmInstallSys.class
==============================================================================
--- branches/iVL/FrmInstallSys.class	(original)
+++ branches/iVL/FrmInstallSys.class	Wed Aug  6 10:16:24 2008
@@ -91,12 +91,20 @@


  PUBLIC SUB tmCredits_Timer()
+
+  DIM X AS Integer
+  X = ME.sclCredits.ScrollX

-  DEC ME.sclCredits.x
-
+  INC ME.sclCredits.ScrollX
+      IF X = ME.sclCredits.Scrollx THEN
+        ME.sclCredits.scrollx = 0
+      END IF
+

-   IF ME.sclCredits.x < - ME.tlCredits.Width + ME.tlCredits.x THEN
-     ME.sclCredits.x = ME.sclCredits.Width
-   ENDIF
+
+   '
+   ' IF ME.sclCredits.ScrollX < - ME.tlCredits.Width + ME.tlCredits.x THEN
+   '   ME.sclCredits.Scrollx = ME.sclCredits.Width
+   ' ENDIF

  END

Modified: branches/iVL/FrmInstallSys.form
==============================================================================
--- branches/iVL/FrmInstallSys.form	(original)
+++ branches/iVL/FrmInstallSys.form	Wed Aug  6 10:16:24 2008
@@ -11,7 +11,7 @@
      MoveScaled(1,10,76,34)
      Text = ("")
      { tlCurrPkg TextLabel
-      MoveScaled(2,1,73,3.3333)
+      MoveScaled(2,1,73,3.1667)
        Text = ("Installing ...")
      }
      { pbInstallProg ProgressBar
@@ -19,10 +19,10 @@
        Label = False
      }
      { pbInstallProg2 ProgressBar
-      MoveScaled(1,19,44,3.3333)
+      MoveScaled(1,19,44,3.1667)
      }
      { tlCurrPkg2 TextLabel
-      MoveScaled(1,15,45,3.3333)
+      MoveScaled(1,15,45,3.1667)
        Text = ("Total progress")
      }
      { tlCurrStepLbl TextLabel
@@ -34,16 +34,17 @@
      MoveScaled(2,47,81,13)
      Text = ("VectorLinux ... Brought to you by ")
      { sclCredits ScrollView
-      MoveScaled(2,3,77,8)
+      MoveScaled(2,3,77,7)
+      ScrollBar = Scroll.None
        { tlCredits TextLabel
          MoveScaled(1,1,53,4)
-        Text = ("TextLabel1")
+        Text = ("")
        }
      }
    }
    { tmCredits #Timer
      #X = 480
      #Y = 120
-    Delay = 300
+    Delay = 30
    }
  }

Modified: branches/iVL/MdlSetup.module
==============================================================================
--- branches/iVL/MdlSetup.module	(original)
+++ branches/iVL/MdlSetup.module	Wed Aug  6 10:16:24 2008
@@ -211,10 +211,10 @@
    DIM i AS Integer

    FOR i = 0 TO sFile.count - 1
-    tlOutput.Text = tlOutput.Text & Space(1) & Trim(sFile[i])
+    tlOutput.Text = tlOutput.Text & Space(3) & Trim(sFile[i])
    NEXT
    tlOutput.Width = MdlObjSizer.get_object_width(tlOutput.Text) + 24
-  tlOutput.Border = Border.Plain
+  'tlOutput.Border = Border.Plain