MajestyLibrary/frmDebug.frm at master · TheRancid/MajestyLibrary · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmDebug
   AutoRedraw      =   -1  'True
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Debug"
   ClientHeight    =   4155
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   8415
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4155
   ScaleWidth      =   8415
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdDebug
      Caption         =   "Debug"
      Height          =   435
      Left            =   60
      TabIndex        =   4
      Top             =   3660
      Width           =   1275
   End
   Begin MSFlexGridLib.MSFlexGrid flxResource
      Height          =   855
      Left            =   60
      TabIndex        =   0
      Top             =   2760
      Width           =   8295
      _ExtentX        =   14631
      _ExtentY        =   1508
      _Version        =   393216
      Cols            =   13
      AllowUserResizing=   3
   End
   Begin MSFlexGridLib.MSFlexGrid flxHeader
      Height          =   855
      Left            =   60
      TabIndex        =   1
      Top             =   60
      Width           =   8295
      _ExtentX        =   14631
      _ExtentY        =   1508
      _Version        =   393216
      Cols            =   16
      AllowUserResizing=   3
   End
   Begin MSFlexGridLib.MSFlexGrid flxEntities
      Height          =   1635
      Left            =   4260
      TabIndex        =   2
      Top             =   1020
      Width           =   4095
      _ExtentX        =   7223
      _ExtentY        =   2884
      _Version        =   393216
      Cols            =   5
      AllowBigSelection=   0   'False
      SelectionMode   =   1
      AllowUserResizing=   3
   End
   Begin MSFlexGridLib.MSFlexGrid flxNameID
      Height          =   1635
      Left            =   60
      TabIndex        =   3
      Top             =   1020
      Width           =   4095
      _ExtentX        =   7223
      _ExtentY        =   2884
      _Version        =   393216
      Cols            =   4
      AllowBigSelection=   0   'False
      SelectionMode   =   1
      AllowUserResizing=   3
   End
End
Attribute VB_Name = "frmDebug"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Base 1

Private Sub cmdDebug_Click()

    frmDebug.flxNameID.Rows = FileHeader.NameIDNumber + 1
    frmDebug.flxNameID.Col = 1
    For i = 1 To FileHeader.NameIDNumber
        frmDebug.flxNameID.Row = i
        frmDebug.flxNameID.Text = Names(i).NameID
    Next i
    frmDebug.flxNameID.Col = 2
    For i = 1 To FileHeader.NameIDNumber
        frmDebug.flxNameID.Row = i
        frmDebug.flxNameID.Text = Names(i).Offset
    Next i
    frmDebug.flxNameID.Col = 3
    For i = 1 To FileHeader.NameIDNumber
        frmDebug.flxNameID.Row = i
        frmDebug.flxNameID.Text = Names(i).Size
    Next i

    frmDebug.flxEntities.Rows = SmallH.NameIDNumber + 1
    frmDebug.flxEntities.Col = 1
    For i = 1 To SmallH.NameIDNumber
        frmDebug.flxEntities.Row = i
        frmDebug.flxEntities.Text = Entities(i).NameID
    Next i
    frmDebug.flxEntities.Col = 2
    For i = 1 To SmallH.NameIDNumber
        frmDebug.flxEntities.Row = i
        frmDebug.flxEntities.Text = Entities(i).Offset
    Next i
    frmDebug.flxEntities.Col = 3
    For i = 1 To SmallH.NameIDNumber
        frmDebug.flxEntities.Row = i
        frmDebug.flxEntities.Text = Entities(i).Size
    Next i
    frmDebug.flxEntities.Col = 4
    For i = 1 To SmallH.NameIDNumber
        frmDebug.flxEntities.Row = i
        frmDebug.flxEntities.Text = Entities(i).ID
    Next i

End Sub

Private Sub flxEntities_Click()

    GetResHeader OpenFile, Entities(frmDebug.flxEntities.Row).Offset

    flxResource.Row = 1
    flxResource.Col = 1
    flxResource.Text = Resource.ID
    flxResource.Col = 2
    flxResource.Text = Resource.Colors
    flxResource.Col = 3
    flxResource.Text = Resource.Height
    flxResource.Col = 4
    flxResource.Text = Resource.Width
    flxResource.Col = 5
    flxResource.Text = Resource.Boh01
    flxResource.Col = 6
    flxResource.Text = Resource.Boh02
    flxResource.Col = 7
    flxResource.Text = Resource.Boh03
    flxResource.Col = 8
    flxResource.Text = Resource.Boh04
    flxResource.Col = 9
    flxResource.Text = Resource.Boh05
    flxResource.Col = 10
    flxResource.Text = Resource.Palette

    flxEntities.Col = 2
    flxEntities.Text = Entities(frmDebug.flxEntities.Row).Offset
    flxEntities.Col = 3
    flxEntities.Text = Entities(frmDebug.flxEntities.Row).Size
    flxEntities.Col = 4
    flxEntities.Text = Entities(frmDebug.flxEntities.Row).ID

End Sub

Private Sub flxEntities_DblClick()

    ShowCurrImage OpenFile, frmMain.lstEntities.ListIndex + 1

End Sub

Private Sub Form_Load()

    flxHeader.ColWidth(-1) = 800
    flxHeader.RowHeight(0) = 50
    flxHeader.ColWidth(0) = 50
    flxNameID.ColWidth(1) = 1900
    flxNameID.RowHeight(0) = 50
    flxNameID.ColWidth(0) = 50
    flxEntities.ColWidth(1) = 2200
    flxEntities.ColWidth(2) = 1500
    flxEntities.RowHeight(0) = 50
    flxEntities.ColWidth(0) = 50
    flxResource.ColWidth(-1) = 590
    flxResource.RowHeight(0) = 50
    flxResource.ColWidth(0) = 50

End Sub