compatibilidad ver 6, 6.5 y bonaerense

HuayraLinux · Nov 1, 2023 · 6cb779b · 6cb779b
1 parent 2057e77
commit 6cb779b
Show file tree

Hide file tree

Showing 5 changed files with 16 additions and 16 deletions.
diff --git a/.src/FMain.class b/.src/FMain.class
@@ -55,8 +55,9 @@ codename = String.Mid(version, InStr(version, "VERSION_CODENAME=") + 18, 25)
 
 codename = String.Mid(codename, 1, String.InStr(codename, Chr(34)) - 1)
 
+ codename = Upper(codename)
 
-Label2.Text = Trim(prettyname) & " (" & Upper(codename) & ")"
+Label2.Text = Trim(prettyname) & " (" & codename & ")"
 
 If Exist("/etc/iso-build") Then
   isobuild = File.Load("/etc/iso-build")
@@ -70,6 +71,18 @@ If Exist("/etc/iso-build") Then
 Else
   Label19.Text = Trim(prettyname)
 Endif
+
+'' Muestro la imagen que corresponda según repo
+Select codename
+Case "ROSAS"
+  PictureBox1.Picture = Picture.Load("media/acerca_bonaerense.png")
+Case "RAFAGA"
+  PictureBox1.Picture = Picture.Load("media/fondo_6-5.png")
+Case "NORTE"
+  PictureBox1.Picture = Picture.Load("media/fondo.jpeg")
+End Select
+
+
 ''base
 ''--------------------------------------------------------------------------------------------------------------
 
@@ -172,10 +185,4 @@ Public Sub PictureBox1_MouseDown()
 
 
 
-End
-
-Public Sub Label20_MouseDown()
-
-
-
 End
diff --git a/.src/FMain.form b/.src/FMain.form
@@ -1,20 +1,13 @@
 # Gambas Form File 3.0
 
 { Form Form
-  Move(0,0,651,483)
+  Move(0,0,647,504)
   #Scaled = False
   Expand = True
   Resizable = False
-  { PictureBox2 PictureBox
-    Move(-7,28,665,497)
-    AutoResize = True
-    Picture = Picture["media/fondo.jpeg"]
-    Alignment = Align.TopRight
-  }
   { PictureBox1 PictureBox
-    Move(0,-7,665,497)
+    Move(0,0,665,497)
     AutoResize = True
-    Picture = Picture["media/fondo.jpeg"]
     Alignment = Align.TopRight
   }
   { Salir Button

diff --git a/media/acerca_bonaerense.png b/media/acerca_bonaerense.png
diff --git a/media/fondo.jpeg b/media/fondo.jpeg
diff --git a/media/fondo_6-5.png b/media/fondo_6-5.png