home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
500 Game Surplus
/
XSurplus.iso
/
279
/
_SETUP.1
/
UltraLogic.exe
/
0
/
RCDATA
/
TFRMMAIN
/
TFRMMAIN.txt
< prev
Wrap
Text File
|
1996-12-23
|
20KB
|
699 lines
object frmMain: TfrmMain
Left = 237
Top = 30
HorzScrollBar.Tracking = True
VertScrollBar.Tracking = True
BorderIcons = [biSystemMenu, biMinimize, biHelp]
BorderStyle = bsSingle
Caption = 'Ultra Logic'
ClientHeight = 373
ClientWidth = 288
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu
Position = poScreenCenter
Visible = True
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object imgBackGround: TImage
Left = 0
Top = 0
Width = 288
Height = 354
Align = alClient
Picture.Data = {<image000.bmp>}
Stretch = True
end
object Hand: TImage
Left = 5
Top = 88
Width = 38
Height = 18
ParentShowHint = False
Picture.Data = {<image001.ico>}
ShowHint = False
end
object Bevel3: TBevel
Left = 1
Top = 37
Width = 226
Height = 9
Shape = bsBottomLine
end
object Bevel4: TBevel
Left = 162
Top = 2
Width = 2
Height = 40
Shape = bsLeftLine
end
object SpeedButton1: TSpeedButton
Left = 248
Top = 6
Width = 28
Height = 27
Hint = 'Help|'
Glyph.Data = {
50020000424D500200000000000076000000280000001E0000001B0000000100
040000000000B001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000
000000000000000007007F8888888888888888888888888807007F7777777777
777777777777777807007F7777777777777777777777777807007F7777777777
777777777777777807007F7777777770077777777777777807007F7777777770
077777777777777807007F77777777007777CCC77777777807007F7777077700
7777CCC77777777807007F7777007007777777777777777807007F7777000007
7777CC777777777807007F77770000000077CC777777777807007F7777000000
0777CCC77777777807007F7777000000777777CC7777777807007F7777000007
77CC777CC777777807007F77770000777CC7777CC777777807007F7777000777
7CC7777CC777777807007F777700777777CC777CC777777807007F7777077777
777CCCCC7777777807007F7777777777777777777777777807007F7777777777
777777777777777807007F7777777777777777777777777807007F7777777777
777777777777777807007F7777777777777777777777777807007F7777777777
777777777777777807007FFFFFFFFFFFFFFFFFFFFFFFFFFF0700777777777777
77777777777777777700010000000200000000000000000000004D0000A02C00
6C001C006C00CA050000AE05000094000000D605}
ParentShowHint = False
ShowHint = True
Visible = False
OnClick = SpeedButton1Click
end
object LeftBoard: TDrawGrid
Left = 43
Top = 83
Width = 128
Height = 263
TabStop = False
Color = clWhite
Ctl3D = True
DefaultColWidth = 30
DefaultRowHeight = 25
DefaultDrawing = False
FixedColor = clWhite
FixedCols = 4
RowCount = 10
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
ParentCtl3D = False
ParentShowHint = False
PopupMenu = pmenuLeftBoard
ScrollBars = ssNone
ShowHint = False
TabOrder = 0
OnDragDrop = LeftBoardDragDrop
OnDragOver = LeftBoardDragOver
OnDrawCell = LeftBoardDrawCell
OnMouseDown = LeftBoardMouseDown
RowHeights = (
25
27
25
25
25
25
25
25
25
25)
end
object RightBoard: TDrawGrid
Left = 188
Top = 83
Width = 92
Height = 266
HelpContext = 3001
TabStop = False
Color = clTeal
DefaultColWidth = 21
DefaultRowHeight = 25
DefaultDrawing = False
FixedColor = clTeal
FixedCols = 4
RowCount = 10
FixedRows = 0
ParentShowHint = False
PopupMenu = pmenuWhatsThis
ScrollBars = ssNone
ShowHint = False
TabOrder = 1
OnDrawCell = RightBoardDrawCell
RowHeights = (
26
25
25
25
25
25
25
25
26
25)
end
object MediaPlayer: TMediaPlayer
Left = 9
Top = 342
Width = 85
Height = 20
VisibleButtons = [btPlay, btStop, btEject]
Visible = False
TabOrder = 2
OnNotify = MediaPlayerNotify
end
object ColorsBarPanel: TPanel
Left = 1
Top = 49
Width = 222
Height = 30
HelpContext = 3002
BevelInner = bvRaised
BevelOuter = bvNone
ParentShowHint = False
PopupMenu = pmenuWhatsThis
ShowHint = False
TabOrder = 3
object RedShape: TShape
Left = 3
Top = 4
Width = 24
Height = 22
Brush.Color = clRed
Shape = stRoundRect
OnMouseDown = AnyShapeMouseDown
end
object GreenShape: TShape
Left = 194
Top = 4
Width = 24
Height = 22
Brush.Color = clGreen
Shape = stRoundRect
OnMouseDown = AnyShapeMouseDown
end
object BlackShape: TShape
Left = 58
Top = 4
Width = 24
Height = 22
Brush.Color = clBlack
Shape = stRoundRect
OnMouseDown = AnyShapeMouseDown
end
object YellowShape: TShape
Left = 85
Top = 4
Width = 24
Height = 22
Brush.Color = clYellow
Shape = stRoundRect
OnMouseDown = AnyShapeMouseDown
end
object BlueShape: TShape
Left = 112
Top = 4
Width = 24
Height = 22
Brush.Color = clBlue
Shape = stRoundRect
OnMouseDown = AnyShapeMouseDown
end
object GrayShape: TShape
Left = 139
Top = 4
Width = 24
Height = 22
Brush.Color = clGray
Shape = stRoundRect
OnMouseDown = AnyShapeMouseDown
end
object FuchsiaShape: TShape
Left = 167
Top = 4
Width = 24
Height = 22
Brush.Color = clFuchsia
Shape = stRoundRect
OnMouseDown = AnyShapeMouseDown
end
object LimeShape: TShape
Left = 30
Top = 4
Width = 24
Height = 22
Brush.Color = clLime
Shape = stRoundRect
OnMouseDown = AnyShapeMouseDown
end
end
object Panel1: TPanel
Left = 2
Top = 6
Width = 153
Height = 31
TabOrder = 4
object sbtnCheck: TSpeedButton
Left = 64
Top = 3
Width = 25
Height = 25
Hint = 'Check!|'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
59905555555555555777555555555555555555555555555555550000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = sbtnCheckClick
end
object sbtnRegistration: TSpeedButton
Left = 97
Top = 3
Width = 25
Height = 25
Hint = 'Registration|'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF7733333033000000033333373377777773330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = mitemRegistrationClick
end
object sbtnRegistrationCode: TSpeedButton
Left = 124
Top = 3
Width = 25
Height = 25
Hint = 'Registration Code|'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5000555555555555577755555555555550B0555555555555F7F7555555555550
00B05555555555577757555555555550B3B05555555555F7F557555555555000
3B0555555555577755755555555500B3B0555555555577555755555555550B3B
055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
55555575FFFF77555555555700007555555555577777755555550000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = mitemRegistrationNumberClick
end
object Bevel1: TBevel
Left = 92
Top = 2
Width = 3
Height = 25
Shape = bsLeftLine
end
object sbtnProperties: TSpeedButton
Left = 34
Top = 3
Width = 25
Height = 25
Hint = 'Game Properties|'
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777700007777777778888877777700007777777000008887777700007777
77ECCCCC088777770000777777EC6EEC088777770000777777EC08EC08877777
0000777777EC006C088777770000777777ECCCCC088777770000777777ECCCCC
088877770000777777ECCCCC08888777000077777CCCCCCCC088887700007777
CCCCCCCCCC0888870000777CCCCCCCCCCCC08887000077ECCCCCCCCCCCCC0887
000077ECCCC0877ECCCC0887000077ECCC088777ECCC0877000077ECCC088777
ECCC07770000777ECC077777ECC0777700007777EE677777EE67777700007777
77777777777777770000}
ParentShowHint = False
ShowHint = True
OnClick = mitemPropertiesClick
end
object sbtnNew: TSpeedButton
Left = 4
Top = 3
Width = 25
Height = 25
Hint = 'New Game|'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777700000000000777770FFFFFFFFF0777770FFFFFFFF
F0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFFFF
F0777770FFFFFFFFF0777770FFFFFFFFF0777770FFFFFF0000777770FFFFFF0F
07777770FFFFFF00777777700000000777777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = sbtnNewClick
end
end
object Panel2: TPanel
Left = 172
Top = 2
Width = 54
Height = 39
HelpContext = 3003
BevelInner = bvRaised
ParentShowHint = False
PopupMenu = pmenuWhatsThis
ShowHint = False
TabOrder = 5
object TimerDigit1: TDigit
Left = 3
Top = 3
Width = 16
Height = 32
Color = clBlack
ColorOff = clMaroon
ColorOn = clYellow
ValueBinary = 125
ParentColor = False
Thickness = 2
Separation = 1
end
object TimerDigit2: TDigit
Left = 19
Top = 3
Width = 16
Height = 32
Color = clBlack
ColorOff = clMaroon
ColorOn = clYellow
ValueBinary = 125
ParentColor = False
Thickness = 2
Separation = 1
end
object TimerDigit3: TDigit
Left = 35
Top = 3
Width = 16
Height = 32
Color = clBlack
ColorOff = clMaroon
ColorOn = clYellow
ValueBinary = 125
ParentColor = False
Thickness = 2
Separation = 1
end
end
object StatusBar: TStatusBar
Left = 0
Top = 354
Width = 288
Height = 19
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Panels = <
item
Text = 'Row:'
Width = 50
end
item
Width = 50
end>
ParentFont = False
SimplePanel = False
SizeGrip = False
end
object MainMenu: TMainMenu
Left = 101
Top = 342
object GameMenu: TMenuItem
Caption = '&Game'
RadioItem = True
ShortCut = 0
object mitemNewGame: TMenuItem
Caption = '&New'
HelpContext = 201
Hint = 'Start a new game with current settings'
ShortCut = 113
OnClick = mitemNewGameClick
end
object mitemGiveUp: TMenuItem
Caption = '&Give Up!'
GroupIndex = 3
Hint = 'Abort the game and show the correct solution'
ShortCut = 0
OnClick = mitemGiveUpClick
end
object N2: TMenuItem
Caption = '-'
GroupIndex = 3
ShortCut = 0
end
object mitemProperties: TMenuItem
Caption = 'P&roperties...'
GroupIndex = 3
Hint = 'Change various game options'
ShortCut = 0
OnClick = mitemPropertiesClick
end
object mitemStatistics: TMenuItem
Caption = '&Statistics...'
GroupIndex = 3
Hint = 'Check how many game were won, lost etc.'
ShortCut = 0
OnClick = mitemStatisticsClick
end
object N4: TMenuItem
Caption = '-'
GroupIndex = 3
ShortCut = 0
end
object mitemExit: TMenuItem
Caption = 'E&xit'
GroupIndex = 3
HelpContext = 202
Hint = 'Exit Ultra Logic'
ShortCut = 0
OnClick = mitemExitClick
end
end
object Level: TMenuItem
Caption = '&Level'
ShortCut = 0
object mitemBeginner: TMenuItem
Caption = '&Beginner'
Checked = True
GroupIndex = 1
Hint = 'The easiest level'
RadioItem = True
ShortCut = 0
OnClick = mitemBeginnerClick
end
object mitemIntermediate: TMenuItem
Caption = '&Intermediate'
GroupIndex = 1
Hint = 'Medium difficulty level'
RadioItem = True
ShortCut = 0
OnClick = mitemIntermediateClick
end
object mitemExpert: TMenuItem
Caption = '&Expert!'
GroupIndex = 1
Hint = 'Hardest difficulty level'
RadioItem = True
ShortCut = 0
OnClick = mitemExpertClick
end
object mitemCustom: TMenuItem
Caption = '&Custom...'
GroupIndex = 1
Hint = 'Chose any board size you want!'
RadioItem = True
ShortCut = 0
OnClick = mitemCustomClick
end
end
object HelpMenu: TMenuItem
Caption = '&Help'
ShortCut = 0
object mitemTutorial: TMenuItem
Caption = 'T&utorial'
Hint = 'Step by step tutorial'
ShortCut = 0
OnClick = mitemTutorialClick
end
object mitemHelpTopics: TMenuItem
Caption = 'Help &Topics'
HelpContext = 221
Hint = 'Show help contents'
ShortCut = 0
OnClick = mitemHelpTopicsClick
end
object mitemWhatsNew: TMenuItem
Caption = '&What'#39's New?'
Hint = 'Improvements and bug fixes since last version'
ShortCut = 0
OnClick = mitemWhatsNewClick
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object mitemRegistration: TMenuItem
Caption = '&Registration...'
Hint = 'Register Ultra Logic'
ShortCut = 0
OnClick = mitemRegistrationClick
end
object mitemRegistrationNumber: TMenuItem
Caption = 'Registration &Number...'
Hint = 'Enter registration number to register Ultra Logic'
ShortCut = 0
OnClick = mitemRegistrationNumberClick
end
object mmenuHelpDivider2: TMenuItem
Caption = '-'
ShortCut = 0
end
object mitemTipOfTheDay: TMenuItem
Caption = 'Tip of the &Day...'
Hint = 'Displays the Tip of the Day'
ShortCut = 0
OnClick = mitemTipOfTheDayClick
end
object N3: TMenuItem
Caption = '-'
ShortCut = 0
end
object mitemAbout: TMenuItem
Caption = '&About...'
Hint = 'Show credits and game statistics'
ShortCut = 0
OnClick = mitemAboutClick
end
end
end
object Registration: TRegistration
UserInterface.Title = 'Please enter registration information'
UserInterface.LabelsFont.Color = clWindowText
UserInterface.LabelsFont.Height = -11
UserInterface.LabelsFont.Name = 'MS Sans Serif'
UserInterface.LabelsFont.Style = [fsBold]
UserInterface.Background = bkGrey
UserInfo.UserName = '0'
UserInfo.RegNumber = '0'
UserInfo.NumberOfDigits = 5
UserInfo.MagicNumber = 99999
UserInfo.Correct = False
OnSuccess = RegistrationSuccess
OnFailure = RegistrationFailure
Left = 137
Top = 341
end
object pmenuLeftBoard: TPopupMenu
OnPopup = pmenuLeftBoardPopup
Left = 246
Top = 341
object pmitemRepeat: TMenuItem
Caption = '&Repeat'
Default = True
ShortCut = 0
OnClick = pmitemRepeatClick
end
object pmitemClear: TMenuItem
Caption = '&Clear'
ShortCut = 0
OnClick = pmitemClearClick
end
object pmitemClearRow: TMenuItem
Caption = 'Clear &Row'
ShortCut = 0
OnClick = pmitemClearRowClick
end
object N5: TMenuItem
Caption = '-'
ShortCut = 0
end
object pmitemGiveUp: TMenuItem
Caption = '&Give Up!'
ShortCut = 0
OnClick = mitemGiveUpClick
end
end
object pmenuWhatsThis: TPopupMenu
Left = 207
Top = 341
object pmitemWhatsThis: TMenuItem
Caption = '&What'#39's This?'
ShortCut = 0
OnClick = pmitemWhatsThisClick
end
end
object Tips: TTips
Title = 'Tip of the day'
TipHelp = 'Did you know...'
ShowAtStart = True
Tips.Strings = (
'You can clear the whole row of pegs with just two clicks. Simply' +
' right-click the left board and select "Clear Row".'
'If you don'#39't like the background music you can easily turn it of' +
'f. Go to Game|Properties, click the Music tab and then disable t' +
'he Background Music checkbox.'
'There is extensive online help built into Ultra Logic. To use it' +
' click the "?" button at the top-right corner of the window and ' +
'then click on the item you want to get help on. Or, right-click ' +
'the item and select "What'#39's This?".'
'If you have any suggestions or found a bug, don'#39't hesitate to co' +
'ntact the author. You can e-mail him at vitaly@idirect.com. Any ' +
'comments are always welcome!'
'The Beginner, Intermediate and Expert! levels are actually prese' +
't board sizes. Here are the dimensions: Beginner - 3x10, Interme' +
'diate - 5x9 and Expert - 8x12.'
'Registering Ultra Logic is easy - simply fill the Registration F' +
'orm (Help|Registration Form) and send it to the author with the ' +
'appropriate fee.'
'You can easily repeat part of your previous turn by right clicki' +
'ng the board and selecting "Repeat" from the pop-up menu.'
'A variety of statistics are being kept by the game. To view a pi' +
'e chart representation of these statistics select Statistics fro' +
'm the Game menu.')
Left = 65
Top = 343
end
end