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

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

Author: M0...@gm...
Date: Sun Jul 20 16:16:10 2008
New Revision: 62

Modified:
   branches/iVL/FrmPartScheme.class
   branches/iVL/FrmPartScheme.form
   branches/iVL/FrmPartSel.class

Log:
Minor cosmetic fixes to the partiton shceme window

Modified: branches/iVL/FrmPartScheme.class
==============================================================================
--- branches/iVL/FrmPartScheme.class	(original)
+++ branches/iVL/FrmPartScheme.class	Sun Jul 20 16:16:10 2008
@@ -23,7 +23,7 @@
     .tlBanner.Width = .ClientWidth - 10
      .rbUseExisting.Move(.tlBanner.Left, .tlBanner.Top 
+ .tlBanner.Height + 8)
      .rbEditPartitions.Move(.rbUseExisting.Left, .rbUseExisting.Top 
+ .rbUseExisting.Height + 4)
-    .tlChoiceExp.Move(.rbEditPartitions.Left, .rbEditPartitions.top 
+ .rbEditPartitions.Height + 16, .tlBanner.Width - 10)
+    .tlChoiceExp.Move(.rbEditPartitions.Left, .rbEditPartitions.top 
+ .rbEditPartitions.Height * 4, .tlBanner.Width - 10)


   END WITH
@@ -47,7 +47,7 @@

 PUBLIC SUB rbUseExisting_Click()

-  ME.tlChoiceExp.Text = "<b>" & rbUseExisting.Text & "</b><br><br>" &
+  ME.tlChoiceExp.Text = "<b>" & UCase(rbUseExisting.Text) 
& "</b><br><br>" &
    "Select this option if you already have a linux installation that 
you wish to overwrite or if a linux partition scheme exists in your " &
    "Hard disk. <b>This option will overwrite whatever is in those 
partitions</b><br><br>" &
    "<i>Use this option if you already prepared your partitions using 
the VectorLinux installer</i>"
@@ -57,7 +57,7 @@

 PUBLIC SUB rbEditPartitions_Click()

-  ME.tlChoiceExp.Text = "<b>" & rbEditPartitions.Text & "</b><br><br>" &
+  ME.tlChoiceExp.Text = "<b>" & UCase(rbEditPartitions.Text) 
& "</b><br><br>" &
    "Select this option is you wish to create, more or resize partitions 
in order to make room for your new VectorLinux " &
    "installation. This option is the safest choice if you have other 
existing installations that you wish to keep."
   FMain.frmNext = FrmDiskPart

Modified: branches/iVL/FrmPartScheme.form
==============================================================================
--- branches/iVL/FrmPartScheme.form	(original)
+++ branches/iVL/FrmPartScheme.form	Sun Jul 20 16:16:10 2008
@@ -8,15 +8,15 @@
     Text = ("Select your disk partition option")
   }
   { rbUseExisting RadioButton
-    MoveScaled(2,7,32,3.375)
+    MoveScaled(2,7,32,3.3333)
     Text = ("Use existing disk partitions")
   }
   { rbEditPartitions RadioButton
-    MoveScaled(2,12,62,3.375)
+    MoveScaled(2,12,62,3.3333)
     Text = ("Modify my disk partitions to make room for new installation")
   }
   { tlChoiceExp TextLabel
-    MoveScaled(1,17,76,23)
+    MoveScaled(1,20,76,23)
     Text = ("TextLabel1")
   }
 }

Modified: branches/iVL/FrmPartSel.class
==============================================================================
--- branches/iVL/FrmPartSel.class	(original)
+++ branches/iVL/FrmPartSel.class	Sun Jul 20 16:16:10 2008
@@ -37,7 +37,7 @@
   DIM iWidth AS Integer = 0
   WITH ME
     .tlBanner.Width = .ClientWidth - 16
-   .scrollPartitions.Resize(.ClientWidth - 12, .ClientHeight 
- .tlBanner.Height - (cbDoWin.Height * 2))
+   .scrollPartitions.Resize(.tlBanner.Width - 4, .ClientHeight 
- .tlBanner.Height - (cbDoWin.Height * 3))
     .cbDoWin.Move(.scrollPartitions.Left, .ClientHeight 
- .cbDoWin.Height - 8)
 '   .tlPartRow.Move(4, 4)
 '   .tlPartRow2.Move(.tlPartRow.Left + (.tlPartRow.Width * 1.5), .tlPartRow.top)