Initial commit: ROW Client source code
Game client codebase including: - CharacterActionControl: Character and creature management - GlobalScript: Network, items, skills, quests, utilities - RYLClient: Main client application with GUI and event handlers - Engine: 3D rendering engine (RYLGL) - MemoryManager: Custom memory allocation - Library: Third-party dependencies (DirectX, boost, etc.) - Tools: Development utilities 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
This commit is contained in:
223
Library/dxx8/samples/Multimedia/VBSamples/Misc/DXSetup/begin.frm
Normal file
223
Library/dxx8/samples/Multimedia/VBSamples/Misc/DXSetup/begin.frm
Normal file
@@ -0,0 +1,223 @@
|
||||
VERSION 5.00
|
||||
Begin VB.Form frmBegin
|
||||
AutoRedraw = -1 'True
|
||||
BorderStyle = 3 'Fixed Dialog
|
||||
Caption = "#"
|
||||
ClientHeight = 3540
|
||||
ClientLeft = 1740
|
||||
ClientTop = 1410
|
||||
ClientWidth = 7545
|
||||
ClipControls = 0 'False
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
HasDC = 0 'False
|
||||
Icon = "begin.frx":0000
|
||||
LockControls = -1 'True
|
||||
MaxButton = 0 'False
|
||||
MinButton = 0 'False
|
||||
NegotiateMenus = 0 'False
|
||||
ScaleHeight = 3540
|
||||
ScaleWidth = 7545
|
||||
ShowInTaskbar = 0 'False
|
||||
Begin VB.CommandButton cmdInstall
|
||||
Default = -1 'True
|
||||
Height = 1080
|
||||
Left = 330
|
||||
MaskColor = &H0000FF00&
|
||||
Picture = "begin.frx":0442
|
||||
Style = 1 'Graphical
|
||||
TabIndex = 0
|
||||
Top = 510
|
||||
UseMaskColor = -1 'True
|
||||
Width = 1170
|
||||
End
|
||||
Begin VB.Frame fraDir
|
||||
Caption = "#"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 660
|
||||
Left = 135
|
||||
TabIndex = 5
|
||||
Top = 2010
|
||||
Width = 7296
|
||||
Begin VB.CommandButton cmdChDir
|
||||
Caption = "#"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 390
|
||||
Left = 4890
|
||||
MaskColor = &H00000000&
|
||||
TabIndex = 1
|
||||
Top = 195
|
||||
Width = 2310
|
||||
End
|
||||
Begin VB.Label lblDestDir
|
||||
Caption = "#"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 240
|
||||
Left = 135
|
||||
TabIndex = 6
|
||||
Top = 300
|
||||
Width = 4440
|
||||
End
|
||||
End
|
||||
Begin VB.CommandButton cmdExit
|
||||
Cancel = -1 'True
|
||||
Caption = "#"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 420
|
||||
Left = 2610
|
||||
MaskColor = &H00000000&
|
||||
TabIndex = 2
|
||||
Top = 3030
|
||||
Width = 2205
|
||||
End
|
||||
Begin VB.Line linTopOfExitButtonIfNoDestDir
|
||||
Visible = 0 'False
|
||||
X1 = 2670
|
||||
X2 = 4725
|
||||
Y1 = 2280
|
||||
Y2 = 2280
|
||||
End
|
||||
Begin VB.Label lblInstallMsg
|
||||
AutoSize = -1 'True
|
||||
Caption = "*"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 195
|
||||
Left = 1725
|
||||
TabIndex = 4
|
||||
Top = 915
|
||||
Width = 5565
|
||||
WordWrap = -1 'True
|
||||
End
|
||||
Begin VB.Label lblBegin
|
||||
AutoSize = -1 'True
|
||||
Caption = "#"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 192
|
||||
Left = 288
|
||||
TabIndex = 3
|
||||
Top = 132
|
||||
Width = 6456
|
||||
WordWrap = -1 'True
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmBegin"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
|
||||
Private Sub cmdChDir_Click()
|
||||
ShowPathDialog
|
||||
|
||||
If gintRetVal = gintRET_CONT Then
|
||||
lblDestDir.Caption = gstrDestDir
|
||||
cmdInstall.SetFocus
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cmdExit_Click()
|
||||
ExitSetup Me, gintRET_EXIT
|
||||
End Sub
|
||||
|
||||
Private Sub cmdInstall_Click()
|
||||
If IsValidDestDir(gstrDestDir) Then
|
||||
Unload Me
|
||||
DoEvents
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Load()
|
||||
Dim intRes As Integer
|
||||
Dim yAdjust As Integer
|
||||
|
||||
SetFormFont Me
|
||||
fraDir.Caption = ResolveResString(resFRMDIRECTORY)
|
||||
cmdChDir.Caption = ResolveResString(resBTNCHGDIR)
|
||||
cmdExit.Caption = ResolveResString(resBTNEXIT)
|
||||
lblBegin.Caption = ResolveResString(resLBLBEGIN)
|
||||
cmdInstall.ToolTipText = ResolveResString(resBTNTOOLTIPBEGIN)
|
||||
|
||||
Caption = gstrTitle
|
||||
If gfForceUseDefDest Then
|
||||
intRes = resSPECNODEST
|
||||
Else
|
||||
intRes = resSPECDEST
|
||||
End If
|
||||
lblInstallMsg.Caption = ResolveResString(intRes, gstrPIPE1, gstrAppName)
|
||||
lblDestDir.Caption = gstrDestDir
|
||||
|
||||
If gfForceUseDefDest Then
|
||||
'We are forced to use the default destination directory, so the user
|
||||
' will not be able to change it.
|
||||
fraDir.Visible = False
|
||||
|
||||
'Close in the blank space on the form by moving the Exit button to where this frame
|
||||
'currently is, and adjusting the size of the form respectively
|
||||
yAdjust = cmdExit.Top - linTopOfExitButtonIfNoDestDir.Y1
|
||||
cmdExit.Top = cmdExit.Top - yAdjust
|
||||
Height = Height - yAdjust
|
||||
End If
|
||||
EtchedLine Me, fraDir.Left, cmdExit.Top - cmdExit.Height \ 2, fraDir.Width
|
||||
|
||||
CenterForm Me
|
||||
End Sub
|
||||
|
||||
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
|
||||
HandleFormQueryUnload UnloadMode, Cancel, Me
|
||||
End Sub
|
||||
Reference in New Issue
Block a user