- Timestamp:
- Jun 18, 2007, 4:49:24 PM (17 years ago)
- Location:
- oup/current
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/Main.pas
r222 r224 739 739 end; 740 740 const 741 Tools: array[0.. 4] of TTool = (741 Tools: array[0..5] of TTool = ( 742 742 (name: 'binedit'; icon: 5; caption: 'Binary .dat-Editor'; classt: TForm_BinEdit), 743 743 (name: 'extractor'; icon: 8; caption: 'Extractor'; classt: TForm_Extractor), 744 744 (name: 'preview'; icon: 4; caption: 'Preview-Window'; classt: TForm_Preview), 745 745 (name: 'rawedit'; icon: 6; caption: 'Binary .raw-Editor'; classt: TForm_RawEdit), 746 //(name: 'txmpreplace'; icon: 7; caption: 'TXMP Replacer'; classt: TForm_TxmpReplace),746 (name: 'txmpreplace'; icon: 7; caption: 'TXMP Replacer'; classt: TForm_TxmpReplace), 747 747 (name: 'meta'; icon: 11; caption: 'MetaEditor'; classt: TForm_Meta) 748 748 ); -
oup/current/OniUnPacker.bdsproj
r222 r224 176 176 <Language Name="ProjectLang">$00000000</Language> 177 177 <Language Name="RootDir"></Language> 178 </Language> 179 180 181 182 <Excluded_Packages> 178 </Language> <Excluded_Packages> 183 179 <Excluded_Packages Name="d:\programme\borland\bds\3.0\Bin\dbwebxprt.bpl">Borland Web Wizard Package</Excluded_Packages> 184 180 </Excluded_Packages> -
oup/current/OniUnPacker.dpr
r222 r224 21 21 Exporters in 'Global\Exporters.pas', 22 22 ValueEdit in 'Helper\ValueEdit.pas' {Form_ValueEdit}, 23 TxmpReplace in 'Tools\TxmpReplace.pas' {Form_TxmpReplace},23 _TxmpReplace in 'Tools\_TxmpReplace.pas' {Form_TxmpReplace_}, 24 24 WhatLinksHere in 'Helper\WhatLinksHere.pas' {Form_WhatLinksHere}, 25 25 DatLinks in 'Global\DatLinks.pas', … … 150 150 Extractor in 'Tools\Extractor.pas' {Form_Extractor}, 151 151 Preview in 'Tools\Preview.pas' {Form_Preview}, 152 RawEdit in 'Tools\RawEdit.pas' {Form_RawEdit}; 152 RawEdit in 'Tools\RawEdit.pas' {Form_RawEdit}, 153 TxmpReplace in 'Tools\TxmpReplace.pas' {Form_TxmpReplace}; 153 154 154 155 {$R *.res} -
oup/current/Tools/Extractor.dfm
r220 r224 16 16 inherited panel_extension: TPanel 17 17 Width = 300 18 inherited bevel_filelist: TBevel19 Width = 29920 end21 18 inherited combo_extension: TComboBox 22 19 Width = 296 -
oup/current/Tools/TxmpReplace.dfm
r209 r224 1 1 inherited Form_TxmpReplace: TForm_TxmpReplace 2 Caption = 'TxmpReplace' 2 Caption = 'Form_TxmpReplace' 3 ClientHeight = 573 3 4 OnCreate = FormCreate 4 ExplicitWidth = 500 5 ExplicitHeight = 450 5 ExplicitHeight = 600 6 6 PixelsPerInch = 96 7 7 TextHeight = 13 8 inherited Splitter1: TSplitter 9 Height = 344 10 OnMoved = Splitter1Moved 11 ExplicitHeight = 344 12 end 13 inherited panel_files: TPanel 14 Height = 344 15 ExplicitHeight = 344 16 object image_txmppreview: TImage [0] 17 Left = 0 18 Top = 307 19 Width = 200 20 Height = 7 21 Align = alClient 22 ExplicitTop = 111 23 ExplicitHeight = 211 8 inherited panel_basecontent: TPanel 9 Height = 548 10 inherited splitter_content: TSplitter 11 Height = 548 12 OnMoved = Splitter1Moved 24 13 end 25 object splitter_txmp: TSplitter [1] 26 Left = 0 27 Top = 299 28 Width = 200 29 Height = 8 30 Cursor = crVSplit 31 Align = alTop 32 AutoSnap = False 33 Beveled = True 34 MinSize = 60 35 ExplicitLeft = -6 36 ExplicitTop = 314 37 end 38 inherited filelist: TListBox 39 Height = 146 40 Align = alTop 41 ExplicitHeight = 146 42 end 43 inherited panel_extension: TPanel 44 inherited label_ext: TLabel 45 Visible = False 46 end 47 inherited combo_extension: TComboBox 48 Visible = False 49 end 50 inherited check_zerobyte: TCheckBox 51 Visible = False 14 inherited panel_files: TPanel 15 Height = 548 16 inherited FilePages: TPageControl 17 Height = 547 18 Constraints.MinHeight = 250 19 ExplicitHeight = 280 20 inherited tab_files: TTabSheet 21 inherited panel_extension: TPanel 22 inherited edit_filtername: TEdit 23 ExplicitWidth = 189 24 end 25 end 26 inherited filelist: TListBox 27 Height = 394 28 end 29 end 30 inherited tab_meta: TTabSheet 31 ExplicitLeft = 4 32 ExplicitTop = 24 33 ExplicitWidth = 190 34 ExplicitHeight = 424 35 end 52 36 end 53 37 end 54 object panel_txmppreview: TPanel 55 Left = 0 56 Top = 314 57 Width = 200 58 Height = 30 59 Align = alBottom 60 BevelOuter = bvNone 61 TabOrder = 2 62 object btn_save: TButton 63 Left = 2 64 Top = 2 65 Width = 111 66 Height = 25 67 Caption = 'Save TXMP-Picture' 38 inherited panel_content: TPanel 39 Height = 548 40 object Splitter1: TSplitter 41 Left = 0 42 Top = 220 43 Width = 390 44 Height = 8 45 Cursor = crVSplit 46 Align = alTop 47 AutoSnap = False 48 Beveled = True 49 MinSize = 75 50 OnMoved = Splitter1Moved 51 ExplicitTop = 105 52 end 53 object group_options: TGroupBox 54 Left = 0 55 Top = 469 56 Width = 390 57 Height = 79 58 Align = alBottom 59 Caption = '3. Options && Replace' 60 Enabled = False 68 61 TabOrder = 0 69 OnClick = btn_saveClick 62 ExplicitTop = 441 63 ExplicitWidth = 492 64 object btn_replace: TButton 65 Left = 4 66 Top = 50 67 Width = 157 68 Height = 25 69 Caption = 'Replace' 70 TabOrder = 0 71 OnClick = btn_replaceClick 72 end 73 object check_transparency: TCheckBox 74 Left = 8 75 Top = 16 76 Width = 105 77 Height = 17 78 Caption = 'Transparency' 79 Enabled = False 80 TabOrder = 1 81 end 82 object check_fading: TCheckBox 83 Left = 8 84 Top = 32 85 Width = 105 86 Height = 17 87 Caption = 'MIP Mapping' 88 TabOrder = 2 89 end 70 90 end 71 end 72 end 73 inherited content: TPanel 74 Height = 344 75 ExplicitHeight = 344 76 object group_bmpselect: TGroupBox 77 Left = 0 78 Top = 0 79 Width = 283 80 Height = 344 81 Align = alClient 82 Caption = '2. Open BMP to replace with' 83 Enabled = False 84 TabOrder = 0 85 object image_bmppreview: TImage 86 AlignWithMargins = True 87 Left = 5 88 Top = 48 89 Width = 273 90 Height = 291 91 object GroupBox1: TGroupBox 92 Left = 0 93 Top = 0 94 Width = 390 95 Height = 220 96 Align = alTop 97 Caption = '1. Select a TXMP to be replaced' 98 TabOrder = 1 99 object image_txmppreview: TImage 100 Left = 2 101 Top = 15 102 Width = 386 103 Height = 173 104 Align = alClient 105 ExplicitLeft = 0 106 ExplicitTop = 111 107 ExplicitWidth = 200 108 ExplicitHeight = 211 109 end 110 object panel_txmppreview: TPanel 111 Left = 2 112 Top = 188 113 Width = 386 114 Height = 30 115 Align = alBottom 116 BevelOuter = bvNone 117 TabOrder = 0 118 ExplicitLeft = 0 119 ExplicitTop = 411 120 ExplicitWidth = 200 121 object btn_save: TButton 122 Left = 2 123 Top = 2 124 Width = 121 125 Height = 25 126 Caption = 'Save TXMP-Picture ...' 127 TabOrder = 0 128 OnClick = btn_saveClick 129 end 130 end 131 end 132 object group_bmpselect: TGroupBox 133 Left = 0 134 Top = 228 135 Width = 390 136 Height = 241 91 137 Align = alClient 92 ExplicitLeft = 2 93 ExplicitTop = 45 94 ExplicitWidth = 182 95 ExplicitHeight = 302 96 end 97 object panel_load: TPanel 98 Left = 2 99 Top = 15 100 Width = 279 101 Height = 30 102 Align = alTop 103 BevelOuter = bvNone 104 TabOrder = 0 105 object btn_load: TButton 138 Caption = '2. Open BMP to replace with' 139 Enabled = False 140 TabOrder = 2 141 ExplicitTop = 0 142 ExplicitWidth = 283 143 ExplicitHeight = 441 144 object image_bmppreview: TImage 145 AlignWithMargins = True 146 Left = 5 147 Top = 48 148 Width = 380 149 Height = 188 150 Align = alClient 151 ExplicitLeft = 2 152 ExplicitTop = 45 153 ExplicitWidth = 182 154 ExplicitHeight = 302 155 end 156 object panel_load: TPanel 106 157 Left = 2 107 Top = 2 108 Width = 121 109 Height = 25 110 Caption = 'Load image...' 158 Top = 15 159 Width = 386 160 Height = 30 161 Align = alTop 162 BevelOuter = bvNone 111 163 TabOrder = 0 112 OnClick = btn_loadClick 164 object btn_load: TButton 165 Left = 2 166 Top = 2 167 Width = 121 168 Height = 25 169 Caption = 'Load image...' 170 TabOrder = 0 171 OnClick = btn_loadClick 172 end 113 173 end 114 174 end 115 175 end 116 176 end 117 object group_options: TGroupBox [3] 118 Left = 0 119 Top = 344 120 Width = 492 121 Height = 79 122 Align = alBottom 123 Caption = '3. Options && Replace' 124 Enabled = False 125 TabOrder = 2 126 object btn_replace: TButton 127 Left = 4 128 Top = 50 129 Width = 157 130 Height = 25 131 Caption = 'Replace' 132 TabOrder = 0 133 OnClick = btn_replaceClick 134 end 135 object check_transparency: TCheckBox 136 Left = 8 137 Top = 16 138 Width = 105 139 Height = 17 140 Caption = 'Transparency' 141 Enabled = False 142 TabOrder = 1 143 end 144 object check_fading: TCheckBox 145 Left = 8 146 Top = 32 147 Width = 105 148 Height = 17 149 Caption = 'MIP Mapping' 150 TabOrder = 2 151 end 152 end 153 object opend: TOpenDialog [4] 154 Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing] 155 Left = 352 156 Top = 16 157 end 158 object saved: TSaveDialog [5] 177 object saved: TSaveDialog 159 178 DefaultExt = 'bmp' 160 179 Filter = … … 164 183 'pg, *.jpeg)|*.jpg;*.jpeg|PNG (*.png)|*.png|All files (*.*)|*' 165 184 Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing] 166 Left = 104 167 Top = 320 185 Left = 352 186 Top = 212 187 end 188 object opend: TOpenDialog 189 Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing] 190 Left = 352 191 Top = 264 168 192 end 169 193 end -
oup/current/Tools/TxmpReplace.pas
r214 r224 1 1 unit TxmpReplace; 2 2 3 interface 4 3 5 uses 4 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 5 Dialogs, Template, StdCtrls, ExtCtrls,6 Functions, Data, OniImgClass, Menus, Buttons, TypeDefs;7 Dialogs, _TemplateFileList, Menus, StdCtrls, Buttons, ComCtrls, ExtCtrls, 8 OniImgClass, TypeDefs; 7 9 8 10 type 9 TForm_TxmpReplace = class(TForm_T oolTemplate)11 TForm_TxmpReplace = class(TForm_TemplateFileList) 10 12 group_options: TGroupBox; 11 13 btn_replace: TButton; 12 14 check_transparency: TCheckBox; 13 15 check_fading: TCheckBox; 14 panel_txmppreview: TPanel; 15 btn_save: TButton; 16 image_txmppreview: TImage; 17 splitter_txmp: TSplitter; 16 GroupBox1: TGroupBox; 17 Splitter1: TSplitter; 18 18 group_bmpselect: TGroupBox; 19 19 image_bmppreview: TImage; 20 20 panel_load: TPanel; 21 21 btn_load: TButton; 22 image_txmppreview: TImage; 23 panel_txmppreview: TPanel; 24 btn_save: TButton; 25 saved: TSaveDialog; 22 26 opend: TOpenDialog; 23 saved: TSaveDialog;24 27 procedure SelectFile(fileinfo: TFileInfo); 25 28 procedure FormCreate(Sender: TObject); … … 37 40 end; 38 41 39 var40 Form_TxmpReplace: TForm_TxmpReplace;41 42 42 implementation 43 43 {$R *.dfm} 44 uses Main, ConnectionManager, ImagingTypes, TXMP; 45 46 44 uses 45 _TemplateFile, ConnectionManager, ImagingTypes; 47 46 48 47 procedure TForm_TxmpReplace.SelectFile(fileinfo: TFileInfo); … … 246 245 AddToolListEntry('txmpreplace', 'TXMP Replacer', 'TXMP'); 247 246 end. 247
Note:
See TracChangeset
for help on using the changeset viewer.