win1.form

来自「Gambas is a graphical development enviro」· FORM 代码 · 共 47 行

# Gambas Form File 1.0

{ win1 Form
  Move(335,243,480,47)
  Text = ("Blinkenlights")
  Icon = Picture["blon.xpm"]
  Border = Window.Fixed
  { l1 PictureBox
    Move(0,0,60,48)
    Picture = Picture["bloff.xpm"]
  }
  { l2 PictureBox
    Move(60,0,60,48)
    Picture = Picture["bloff.xpm"]
  }
  { l3 PictureBox
    Move(120,0,60,48)
    Picture = Picture["bloff.xpm"]
  }
  { l4 PictureBox
    Move(180,0,60,48)
    Picture = Picture["bloff.xpm"]
  }
  { l5 PictureBox
    Move(240,0,60,48)
    Picture = Picture["bloff.xpm"]
  }
  { l6 PictureBox
    Move(300,0,60,48)
    Picture = Picture["bloff.xpm"]
  }
  { l7 PictureBox
    Move(360,0,60,48)
    Picture = Picture["bloff.xpm"]
  }
  { l8 PictureBox
    Move(420,0,60,48)
    Picture = Picture["blon.xpm"]
  }
  { Timer1 #Timer
    #X = 397
    #Y = 24
    Enabled = True
    Delay = 200
  }
}