Changeset 224


Ignore:
Timestamp:
Jun 18, 2007, 4:49:24 PM (15 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • oup/current/Main.pas

    r222 r224  
    739739  end;
    740740const
    741   Tools: array[0..4] of TTool = (
     741  Tools: array[0..5] of TTool = (
    742742    (name: 'binedit';     icon: 5; caption: 'Binary .dat-Editor'; classt: TForm_BinEdit),
    743743    (name: 'extractor';   icon: 8; caption: 'Extractor';          classt: TForm_Extractor),
    744744    (name: 'preview';     icon: 4; caption: 'Preview-Window';     classt: TForm_Preview),
    745745    (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),
    747747    (name: 'meta'; icon: 11; caption: 'MetaEditor'; classt: TForm_Meta)
    748748  );
  • oup/current/OniUnPacker.bdsproj

    r222 r224  
    176176                        <Language Name="ProjectLang">$00000000</Language>
    177177                        <Language Name="RootDir"></Language>
    178                 </Language> 
    179    
    180    
    181    
    182     <Excluded_Packages>
     178                </Language>  <Excluded_Packages>
    183179      <Excluded_Packages Name="d:\programme\borland\bds\3.0\Bin\dbwebxprt.bpl">Borland Web Wizard Package</Excluded_Packages>
    184180    </Excluded_Packages>
  • oup/current/OniUnPacker.dpr

    r222 r224  
    2121  Exporters in 'Global\Exporters.pas',
    2222  ValueEdit in 'Helper\ValueEdit.pas' {Form_ValueEdit},
    23   TxmpReplace in 'Tools\TxmpReplace.pas' {Form_TxmpReplace},
     23  _TxmpReplace in 'Tools\_TxmpReplace.pas' {Form_TxmpReplace_},
    2424  WhatLinksHere in 'Helper\WhatLinksHere.pas' {Form_WhatLinksHere},
    2525  DatLinks in 'Global\DatLinks.pas',
     
    150150  Extractor in 'Tools\Extractor.pas' {Form_Extractor},
    151151  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};
    153154
    154155{$R *.res}
  • oup/current/Tools/Extractor.dfm

    r220 r224  
    1616      inherited panel_extension: TPanel
    1717        Width = 300
    18         inherited bevel_filelist: TBevel
    19           Width = 299
    20         end
    2118        inherited combo_extension: TComboBox
    2219          Width = 296
  • oup/current/Tools/TxmpReplace.dfm

    r209 r224  
    11inherited Form_TxmpReplace: TForm_TxmpReplace
    2   Caption = 'TxmpReplace'
     2  Caption = 'Form_TxmpReplace'
     3  ClientHeight = 573
    34  OnCreate = FormCreate
    4   ExplicitWidth = 500
    5   ExplicitHeight = 450
     5  ExplicitHeight = 600
    66  PixelsPerInch = 96
    77  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
    2413    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
    5236      end
    5337    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
    6861        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
    7090      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
    91137        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
    106157          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
    111163          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
    113173        end
    114174      end
    115175    end
    116176  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
    159178    DefaultExt = 'bmp'
    160179    Filter =
     
    164183      'pg, *.jpeg)|*.jpg;*.jpeg|PNG (*.png)|*.png|All files (*.*)|*'
    165184    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
    168192  end
    169193end
  • oup/current/Tools/TxmpReplace.pas

    r214 r224  
    11unit TxmpReplace;
     2
    23interface
     4
    35uses
    46  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;
    79
    810type
    9   TForm_TxmpReplace = class(TForm_ToolTemplate)
     11  TForm_TxmpReplace = class(TForm_TemplateFileList)
    1012    group_options: TGroupBox;
    1113    btn_replace: TButton;
    1214    check_transparency: TCheckBox;
    1315    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;
    1818    group_bmpselect: TGroupBox;
    1919    image_bmppreview: TImage;
    2020    panel_load: TPanel;
    2121    btn_load: TButton;
     22    image_txmppreview: TImage;
     23    panel_txmppreview: TPanel;
     24    btn_save: TButton;
     25    saved: TSaveDialog;
    2226    opend: TOpenDialog;
    23     saved: TSaveDialog;
    2427    procedure SelectFile(fileinfo: TFileInfo);
    2528    procedure FormCreate(Sender: TObject);
     
    3740  end;
    3841
    39 var
    40   Form_TxmpReplace: TForm_TxmpReplace;
    41 
    4242implementation
    4343{$R *.dfm}
    44 uses Main, ConnectionManager, ImagingTypes, TXMP;
    45 
    46 
     44uses
     45  _TemplateFile, ConnectionManager, ImagingTypes;
    4746
    4847procedure TForm_TxmpReplace.SelectFile(fileinfo: TFileInfo);
     
    246245  AddToolListEntry('txmpreplace', 'TXMP Replacer', 'TXMP');
    247246end.
     247
Note: See TracChangeset for help on using the changeset viewer.