LGram16
e067522598
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>
44 lines
1.1 KiB
Plaintext
44 lines
1.1 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.UserControl SubClasser
|
|
CanGetFocus = 0 'False
|
|
ClientHeight = 495
|
|
ClientLeft = 0
|
|
ClientTop = 0
|
|
ClientWidth = 510
|
|
HasDC = 0 'False
|
|
InvisibleAtRuntime= -1 'True
|
|
Picture = "SubClasser.ctx":0000
|
|
ScaleHeight = 495
|
|
ScaleWidth = 510
|
|
ToolboxBitmap = "SubClasser.ctx":0442
|
|
End
|
|
Attribute VB_Name = "SubClasser"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = True
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = True
|
|
Option Explicit
|
|
Private mlHwnd As Long
|
|
Private mfNeedUnhook As Boolean
|
|
|
|
Public Event WindowsMessage(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
|
|
|
|
Public Sub Hook(ByVal hWnd As Long)
|
|
mlHwnd = hWnd
|
|
modWndProc.Hook mlHwnd, Me
|
|
mfNeedUnhook = True
|
|
End Sub
|
|
|
|
Public Sub UnHook()
|
|
modWndProc.UnHook mlHwnd
|
|
mfNeedUnhook = False
|
|
End Sub
|
|
|
|
Friend Sub GotMessage(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
|
|
RaiseEvent WindowsMessage(uMsg, wParam, lParam)
|
|
End Sub
|
|
|
|
Private Sub UserControl_Terminate()
|
|
If mfNeedUnhook Then UnHook
|
|
End Sub
|