Browse CVS Repository
Contents of /exerb/exerb-studio/form/about.rb
 Parent Directory
|  Revision Log
|  Revision Graph
Revision 1.1.1.1 -
( show annotations)
( download)
(vendor branch)
Fri Jun 6 00:54:36 2003 UTC
(20 years, 10 months ago)
by yuya
Branch: MAIN, open
CVS Tags: start, HEAD
Changes since 1.1: +0 -0 lines
* インポート
| 1 |
|
| 2 |
module WStyle |
| 3 |
|
| 4 |
SS_SUNKEN = 4096 |
| 5 |
|
| 6 |
end |
| 7 |
|
| 8 |
module Form |
| 9 |
|
| 10 |
class About < VRModalDialog |
| 11 |
|
| 12 |
def construct |
| 13 |
self.caption = 'About' |
| 14 |
|
| 15 |
w, h = 405, 145 |
| 16 |
self.move(@screen.w / 2 - w / 2, @screen.h / 2 - h / 2, w, h) |
| 17 |
|
| 18 |
ctrls = [] |
| 19 |
ctrls << self.addControl(VRStatic, "rect", "", 10, 10, 380, 100, WStyle::SS_SUNKEN) |
| 20 |
ctrls << self.addControl(VRStatic, "lab1", "Exerb Studio", 20, 20, 365, 20) |
| 21 |
ctrls << self.addControl(VRStatic, "lab2", "Version ", 30, 40, 355, 20) |
| 22 |
ctrls << self.addControl(VRStatic, "lab3", "", 30, 60, 355, 20) |
| 23 |
ctrls << self.addControl(VRStatic, "lab4", "http://exerb.sourceforge.jp/", 30, 80, 355, 20) |
| 24 |
|
| 25 |
font = @screen.factory.newfont("Terminal", 14) |
| 26 |
ctrls.each { |ctrl| ctrl.setFont(font) } |
| 27 |
end |
| 28 |
|
| 29 |
end |
| 30 |
|
| 31 |
end |
| |
Parent Directory
Revision Log
Revision Graph