Data commit

Task/Pinstripe-Display/Gambas/pinstripe-display.gambas

@@ -0,0 +1,28 @@
+'WARNING this takes a time to display
+'Use the 'gb.qt4' component
+
+Public Sub Form_Open()
+Dim iColour As Integer[] = [Color.Black, Color.white]
+Dim hPanel As Panel
+Dim siCount, siCounter, siSet As Short
+
+With Me
+  .Arrangement = Arrange.Row
+  .Border = False
+  .Height = Desktop.Height
+  .Width = Desktop.Width
+  .Fullscreen = True
+End With
+
+For siCounter = 1 To 4
+  For siCount = 1 To Desktop.Width Step siCounter
+    hpanel = New Panel(Me)
+    hpanel.Width = siCounter
+    hpanel.Height = Desktop.Height / 4
+    HPanel.Background = iColour[siSet]
+    Inc siSet
+    If siSet > 1 Then siSet = 0
+  Next
+Next
+
+End