454 lines
10 KiB
Text
454 lines
10 KiB
Text
VERSION DVX 1.00
|
|
' resedit.frm -- DVX Resource Editor
|
|
'
|
|
' Graphical editor for the resource blocks appended to DXE3
|
|
' files (.app, .wgt, .lib). View, add, remove, and extract
|
|
' resources of type icon, text, or binary.
|
|
'
|
|
' Add commdlg.bas and resource.bas to your project, then click Run.
|
|
|
|
Begin Form ResEdit
|
|
Caption = "DVX Resource Editor"
|
|
Layout = VBox
|
|
AutoSize = False
|
|
Resizable = True
|
|
Centered = True
|
|
Width = 500
|
|
Height = 340
|
|
|
|
Begin Menu mnuFile
|
|
Caption = "&File"
|
|
Begin Menu mnuOpen
|
|
Caption = "&Open..."
|
|
End
|
|
Begin Menu mnuClose
|
|
Caption = "&Close"
|
|
Enabled = False
|
|
End
|
|
Begin Menu mnuSep1
|
|
Caption = "-"
|
|
End
|
|
Begin Menu mnuExit
|
|
Caption = "E&xit"
|
|
End
|
|
End
|
|
|
|
Begin Menu mnuResource
|
|
Caption = "&Resource"
|
|
Begin Menu mnuAddText
|
|
Caption = "Add &Text..."
|
|
Enabled = False
|
|
End
|
|
Begin Menu mnuAddFile
|
|
Caption = "Add &File..."
|
|
Enabled = False
|
|
End
|
|
Begin Menu mnuEditText
|
|
Caption = "&Edit Text..."
|
|
Enabled = False
|
|
End
|
|
Begin Menu mnuSep2
|
|
Caption = "-"
|
|
End
|
|
Begin Menu mnuExtract
|
|
Caption = "E&xtract..."
|
|
Enabled = False
|
|
End
|
|
Begin Menu mnuRemove
|
|
Caption = "&Remove"
|
|
Enabled = False
|
|
End
|
|
End
|
|
|
|
Begin ListView ResList
|
|
Weight = 1
|
|
End
|
|
|
|
Begin Label LblStatus
|
|
Caption = "No file loaded."
|
|
Weight = 0
|
|
End
|
|
End
|
|
|
|
' The MIT License (MIT)
|
|
'
|
|
' Copyright (C) 2026 Scott Duensing
|
|
'
|
|
' Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
' of this software and associated documentation files (the "Software"), to
|
|
' deal in the Software without restriction, including without limitation the
|
|
' rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
|
|
' sell copies of the Software, and to permit persons to whom the Software is
|
|
' furnished to do so, subject to the following conditions:
|
|
'
|
|
' The above copyright notice and this permission notice shall be included in
|
|
' all copies or substantial portions of the Software.
|
|
'
|
|
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
|
|
' FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
|
|
' IN THE SOFTWARE.
|
|
|
|
|
|
OPTION EXPLICIT
|
|
|
|
DIM filePath AS STRING
|
|
DIM resHandle AS LONG
|
|
filePath = ""
|
|
resHandle = 0
|
|
|
|
Load ResEdit
|
|
ResEdit.Show
|
|
|
|
ResList.SetColumns "Name,20|Type,8|Size,12"
|
|
LblStatus.Caption = "Ready. Use File > Open to load a DXE file."
|
|
|
|
|
|
' ============================================================
|
|
' Type name helper
|
|
' ============================================================
|
|
|
|
FUNCTION TypeName$(t AS LONG)
|
|
IF t = RES_TYPE_ICON THEN
|
|
TypeName$ = "Icon"
|
|
ELSEIF t = RES_TYPE_TEXT THEN
|
|
TypeName$ = "Text"
|
|
ELSEIF t = RES_TYPE_BINARY THEN
|
|
TypeName$ = "Binary"
|
|
ELSE
|
|
TypeName$ = "Unknown"
|
|
END IF
|
|
END FUNCTION
|
|
|
|
|
|
' ============================================================
|
|
' Format a byte size for display
|
|
' ============================================================
|
|
|
|
FUNCTION FormatSize$(sz AS LONG)
|
|
IF sz < 1024 THEN
|
|
FormatSize$ = STR$(sz) + " B"
|
|
ELSE
|
|
FormatSize$ = STR$(sz \ 1024) + " KB"
|
|
END IF
|
|
END FUNCTION
|
|
|
|
|
|
' ============================================================
|
|
' Refresh the resource list from the open handle
|
|
' ============================================================
|
|
|
|
SUB RefreshList
|
|
ResList.Clear
|
|
|
|
IF resHandle = 0 THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM n AS LONG
|
|
n = ResCount(resHandle)
|
|
|
|
DIM ix AS LONG
|
|
FOR ix = 0 TO n - 1
|
|
ResList.AddItem ResName$(resHandle, ix)
|
|
ResList.SetCell ix, 1, TypeName$(ResType(resHandle, ix))
|
|
ResList.SetCell ix, 2, FormatSize$(ResSize(resHandle, ix))
|
|
NEXT ix
|
|
|
|
LblStatus.Caption = filePath + " - " + STR$(n) + " resource(s)"
|
|
END SUB
|
|
|
|
|
|
' ============================================================
|
|
' Close the current file
|
|
' ============================================================
|
|
|
|
SUB CloseFile
|
|
IF resHandle <> 0 THEN
|
|
ResClose resHandle
|
|
resHandle = 0
|
|
END IF
|
|
filePath = ""
|
|
ResList.Clear
|
|
ResEdit.Caption = "DVX Resource Editor"
|
|
mnuClose.Enabled = False
|
|
mnuAddText.Enabled = False
|
|
mnuAddFile.Enabled = False
|
|
mnuEditText.Enabled = False
|
|
mnuExtract.Enabled = False
|
|
mnuRemove.Enabled = False
|
|
LblStatus.Caption = "No file loaded."
|
|
END SUB
|
|
|
|
|
|
' ============================================================
|
|
' Reopen the file (after modification) and refresh
|
|
' ============================================================
|
|
|
|
SUB ReopenAndRefresh
|
|
DIM path AS STRING
|
|
path = filePath
|
|
|
|
IF resHandle <> 0 THEN
|
|
ResClose resHandle
|
|
resHandle = 0
|
|
END IF
|
|
|
|
resHandle = ResOpen(path)
|
|
|
|
IF resHandle = 0 THEN
|
|
' File may have had all resources stripped
|
|
filePath = path
|
|
ResList.Clear
|
|
LblStatus.Caption = path + " - 0 resource(s)"
|
|
ELSE
|
|
filePath = path
|
|
RefreshList
|
|
END IF
|
|
END SUB
|
|
|
|
|
|
' ============================================================
|
|
' Enable/disable selection-dependent menus
|
|
' ============================================================
|
|
|
|
SUB UpdateMenuState
|
|
DIM hasSel AS INTEGER
|
|
hasSel = (ResList.ListIndex >= 0)
|
|
mnuExtract.Enabled = hasSel
|
|
mnuRemove.Enabled = hasSel
|
|
mnuEditText.Enabled = hasSel
|
|
END SUB
|
|
|
|
|
|
' ============================================================
|
|
' Menu handlers
|
|
' ============================================================
|
|
|
|
SUB mnuOpen_Click
|
|
DIM path AS STRING
|
|
path = basFileOpen("Open DXE File", "Applications (*.app)|Widget Modules (*.wgt)|Libraries (*.lib)|All Files (*.*)")
|
|
IF path = "" THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
CloseFile
|
|
|
|
filePath = path
|
|
ResEdit.Caption = path + " - DVX Resource Editor"
|
|
mnuClose.Enabled = True
|
|
mnuAddText.Enabled = True
|
|
mnuAddFile.Enabled = True
|
|
|
|
resHandle = ResOpen(path)
|
|
IF resHandle = 0 THEN
|
|
LblStatus.Caption = "No resources in " + path
|
|
EXIT SUB
|
|
END IF
|
|
|
|
RefreshList
|
|
END SUB
|
|
|
|
|
|
SUB mnuClose_Click
|
|
CloseFile
|
|
END SUB
|
|
|
|
|
|
SUB mnuExit_Click
|
|
Unload ResEdit
|
|
END SUB
|
|
|
|
|
|
SUB mnuAddText_Click
|
|
IF filePath = "" THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM rName AS STRING
|
|
rName = basInputBox2("Add Text Resource", "Resource name:", "")
|
|
IF rName = "" THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM text AS STRING
|
|
text = basInputBox2("Add Text Resource", "Text value:", "")
|
|
|
|
IF ResAddText(filePath, rName, text) THEN
|
|
ReopenAndRefresh
|
|
LblStatus.Caption = "Added text resource: " + rName
|
|
ELSE
|
|
LblStatus.Caption = "Failed to add resource."
|
|
END IF
|
|
END SUB
|
|
|
|
|
|
SUB mnuAddFile_Click
|
|
IF filePath = "" THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM rName AS STRING
|
|
rName = basInputBox2("Add File Resource", "Resource name:", "")
|
|
IF rName = "" THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM typeChoice AS LONG
|
|
typeChoice = basChoiceDialog("Resource Type", "Select resource type:", "Icon|Binary", 0)
|
|
IF typeChoice < 0 THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM typeVal AS LONG
|
|
IF typeChoice = 0 THEN
|
|
typeVal = RES_TYPE_ICON
|
|
ELSE
|
|
typeVal = RES_TYPE_BINARY
|
|
END IF
|
|
|
|
DIM srcPath AS STRING
|
|
srcPath = basFileOpen("Select Source File", "All Files (*.*)")
|
|
IF srcPath = "" THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
IF ResAddFile(filePath, rName, typeVal, srcPath) THEN
|
|
ReopenAndRefresh
|
|
LblStatus.Caption = "Added resource: " + rName
|
|
ELSE
|
|
LblStatus.Caption = "Failed to add resource."
|
|
END IF
|
|
END SUB
|
|
|
|
|
|
SUB mnuEditText_Click
|
|
IF filePath = "" THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM sel AS LONG
|
|
sel = ResList.ListIndex
|
|
IF sel < 0 THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM rName AS STRING
|
|
rName = ResName$(resHandle, sel)
|
|
|
|
DIM t AS LONG
|
|
t = ResType(resHandle, sel)
|
|
IF t <> RES_TYPE_TEXT THEN
|
|
LblStatus.Caption = "Only text resources can be edited inline."
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM oldText AS STRING
|
|
oldText = ResGetText$(filePath, rName)
|
|
|
|
DIM newText AS STRING
|
|
newText = basInputBox2("Edit Text Resource", "Value for '" + rName + "':", oldText)
|
|
|
|
IF ResAddText(filePath, rName, newText) THEN
|
|
ReopenAndRefresh
|
|
LblStatus.Caption = "Updated: " + rName
|
|
ELSE
|
|
LblStatus.Caption = "Failed to update resource."
|
|
END IF
|
|
END SUB
|
|
|
|
|
|
SUB mnuExtract_Click
|
|
IF filePath = "" OR resHandle = 0 THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM sel AS LONG
|
|
sel = ResList.ListIndex
|
|
IF sel < 0 THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM rName AS STRING
|
|
rName = ResName$(resHandle, sel)
|
|
|
|
DIM outPath AS STRING
|
|
outPath = basFileSave("Extract Resource", "All Files (*.*)")
|
|
IF outPath = "" THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
IF ResExtract(filePath, rName, outPath) THEN
|
|
LblStatus.Caption = "Extracted '" + rName + "' to " + outPath
|
|
ELSE
|
|
LblStatus.Caption = "Failed to extract resource."
|
|
END IF
|
|
END SUB
|
|
|
|
|
|
SUB mnuRemove_Click
|
|
IF filePath = "" THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM sel AS LONG
|
|
sel = ResList.ListIndex
|
|
IF sel < 0 THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM rName AS STRING
|
|
rName = ResName$(resHandle, sel)
|
|
|
|
DIM ans AS INTEGER
|
|
ans = MsgBox("Remove resource '" + rName + "'?", vbYesNo)
|
|
IF ans = vbNo THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
' Close handle before modifying
|
|
ResClose resHandle
|
|
resHandle = 0
|
|
|
|
IF ResRemove(filePath, rName) THEN
|
|
ReopenAndRefresh
|
|
LblStatus.Caption = "Removed: " + rName
|
|
ELSE
|
|
ReopenAndRefresh
|
|
LblStatus.Caption = "Failed to remove resource."
|
|
END IF
|
|
END SUB
|
|
|
|
|
|
' ============================================================
|
|
' ListView selection change
|
|
' ============================================================
|
|
|
|
SUB ResList_Click
|
|
UpdateMenuState
|
|
END SUB
|
|
|
|
|
|
SUB ResList_DblClick
|
|
IF filePath = "" OR resHandle = 0 THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM sel AS LONG
|
|
sel = ResList.ListIndex
|
|
IF sel < 0 THEN
|
|
EXIT SUB
|
|
END IF
|
|
|
|
DIM t AS LONG
|
|
t = ResType(resHandle, sel)
|
|
|
|
IF t = RES_TYPE_TEXT THEN
|
|
mnuEditText_Click
|
|
ELSE
|
|
mnuExtract_Click
|
|
END IF
|
|
END SUB
|