ZPatch File View

qiuqiu · November 16, 2021, 9:42am

This area is

Creating a simple data visualizer - Help & Support - Directory Opus Resource Centre (dopus.com)

laoqiuqiu/DOpus-Script/blob/master/Button/ZPatch File View.dcf

<?xml version="1.0"?>
<button backcol="none" display="both" label_pos="right" textcol="none">
	<label>ZPatch File View</label>
	<tip>View .ZPatch File</tip>
	<icon1>#newcommand</icon1>
	<function type="script">
		<instruction>@disablenosel:numfiles=1,type=*.zpatch</instruction>
		<instruction>@script VBScript</instruction>
		<instruction>Option Explicit</instruction>
		<instruction>Function OnClick(ByRef clickData)</instruction>
		<instruction>	Dim Viewer, ZPatchFile, Header, Operation, DataSize, FileName, RawDataSize, ListView, Item, ItemIndex, FileCount</instruction>
		<instruction>	Set Viewer = DOpus.Dlg</instruction>
		<instruction>	With Viewer</instruction>
		<instruction>		.Template = &quot;dlgViewer&quot;</instruction>
		<instruction>		.Title = &quot;ZPatch File Viewer - &quot; &amp; clickData.func.sourcetab.selected_files(0)</instruction>
		<instruction>		.Create</instruction>
		<instruction>		.Show</instruction>
		<instruction>		Set ListView = .Control(&quot;lstList&quot;)</instruction>
		<instruction>	End With</instruction>
		<instruction>	ListView.Columns(0).Width = 150</instruction>

This file has been truncated. show original