Colour bars/Display: Difference between revisions
Content added Content deleted
(→{{header|Kotlin}}: Updated example see https://github.com/dkandalov/rosettacode-kotlin for details) |
No edit summary |
||
Line 542: | Line 542: | ||
Color 7, 0 '' white text on black background</lang> |
Color 7, 0 '' white text on black background</lang> |
||
=={{header|Gambas}}== |
|||
<lang gambas>Public Sub Form_Open() |
|||
Dim iColour As Integer[] = [Color.Black, Color.red, Color.Green, Color.Magenta, Color.Cyan, Color.Yellow, Color.white] |
|||
Dim hPanel As Panel |
|||
Dim siCount As Short |
|||
With Me |
|||
.Arrangement = Arrange.Horizontal |
|||
.Height = 300 |
|||
.Width = 400 |
|||
End With |
|||
For siCount = 0 To 6 |
|||
hpanel = New Panel(Me) |
|||
hpanel.Expand = True |
|||
hpanel.H = 500 |
|||
HPanel.Background = iColour[siCount] |
|||
Next |
|||
End</lang> |
|||
=={{header|Haskell}}== |
=={{header|Haskell}}== |
||