| 1 | 
 inherited Form_TxmpReplace: TForm_TxmpReplace | 
 
 
 
 
 
 | 2 | 
   Caption = 'TxmpReplace' | 
 
 
 
 
 
 | 3 | 
   OnCreate = FormCreate | 
 
 
 
 
 
 | 4 | 
   PixelsPerInch = 96 | 
 
 
 
 
 
 | 5 | 
   TextHeight = 13 | 
 
 
 
 
 
 | 6 | 
   inherited Splitter1: TSplitter | 
 
 
 
 
 
 | 7 | 
     Height = 344 | 
 
 
 
 
 
 | 8 | 
     ExplicitHeight = 344 | 
 
 
 
 
 
 | 9 | 
   end | 
 
 
 
 
 
 | 10 | 
   inherited panel_files: TPanel | 
 
 
 
 
 
 | 11 | 
     Height = 344 | 
 
 
 
 
 
 | 12 | 
     ExplicitHeight = 344 | 
 
 
 
 
 
 | 13 | 
     object image_txmppreview: TImage [0] | 
 
 
 
 
 
 | 14 | 
       Left = 0 | 
 
 
 
 
 
 | 15 | 
       Top = 307 | 
 
 
 
 
 
 | 16 | 
       Width = 200 | 
 
 
 
 
 
 | 17 | 
       Height = 7 | 
 
 
 
 
 
 | 18 | 
       Align = alClient | 
 
 
 
 
 
 | 19 | 
       ExplicitTop = 111 | 
 
 
 
 
 
 | 20 | 
       ExplicitHeight = 211 | 
 
 
 
 
 
 | 21 | 
     end | 
 
 
 
 
 
 | 22 | 
     object splitter_txmp: TSplitter [1] | 
 
 
 
 
 
 | 23 | 
       Left = 0 | 
 
 
 
 
 
 | 24 | 
       Top = 299 | 
 
 
 
 
 
 | 25 | 
       Width = 200 | 
 
 
 
 
 
 | 26 | 
       Height = 8 | 
 
 
 
 
 
 | 27 | 
       Cursor = crVSplit | 
 
 
 
 
 
 | 28 | 
       Align = alTop | 
 
 
 
 
 
 | 29 | 
       AutoSnap = False | 
 
 
 
 
 
 | 30 | 
       Beveled = True | 
 
 
 
 
 
 | 31 | 
       MinSize = 60 | 
 
 
 
 
 
 | 32 | 
       ExplicitLeft = -6 | 
 
 
 
 
 
 | 33 | 
       ExplicitTop = 314 | 
 
 
 
 
 
 | 34 | 
     end | 
 
 
 
 
 
 | 35 | 
     inherited filelist: TListBox | 
 
 
 
 
 
 | 36 | 
       Height = 146 | 
 
 
 
 
 
 | 37 | 
       Align = alTop | 
 
 
 
 
 
 | 38 | 
       ExplicitHeight = 146 | 
 
 
 
 
 
 | 39 | 
     end | 
 
 
 
 
 
 | 40 | 
     inherited panel_extension: TPanel | 
 
 
 
 
 
 | 41 | 
       Visible = False | 
 
 
 
 
 
 | 42 | 
     end | 
 
 
 
 
 
 | 43 | 
     object panel_txmppreview: TPanel | 
 
 
 
 
 
 | 44 | 
       Left = 0 | 
 
 
 
 
 
 | 45 | 
       Top = 314 | 
 
 
 
 
 
 | 46 | 
       Width = 200 | 
 
 
 
 
 
 | 47 | 
       Height = 30 | 
 
 
 
 
 
 | 48 | 
       Align = alBottom | 
 
 
 
 
 
 | 49 | 
       BevelOuter = bvNone | 
 
 
 
 
 
 | 50 | 
       TabOrder = 2 | 
 
 
 
 
 
 | 51 | 
       object btn_save: TButton | 
 
 
 
 
 
 | 52 | 
         Left = 2 | 
 
 
 
 
 
 | 53 | 
         Top = 2 | 
 
 
 
 
 
 | 54 | 
         Width = 111 | 
 
 
 
 
 
 | 55 | 
         Height = 25 | 
 
 
 
 
 
 | 56 | 
         Caption = 'Save TXMP-Picture' | 
 
 
 
 
 
 | 57 | 
         TabOrder = 0 | 
 
 
 
 
 
 | 58 | 
         OnClick = btn_saveClick | 
 
 
 
 
 
 | 59 | 
       end | 
 
 
 
 
 
 | 60 | 
     end | 
 
 
 
 
 
 | 61 | 
   end | 
 
 
 
 
 
 | 62 | 
   inherited content: TPanel | 
 
 
 
 
 
 | 63 | 
     Height = 344 | 
 
 
 
 
 
 | 64 | 
     ExplicitHeight = 344 | 
 
 
 
 
 
 | 65 | 
     object group_bmpselect: TGroupBox | 
 
 
 
 
 
 | 66 | 
       Left = 0 | 
 
 
 
 
 
 | 67 | 
       Top = 0 | 
 
 
 
 
 
 | 68 | 
       Width = 283 | 
 
 
 
 
 
 | 69 | 
       Height = 344 | 
 
 
 
 
 
 | 70 | 
       Align = alClient | 
 
 
 
 
 
 | 71 | 
       Caption = '2. Open BMP to replace with' | 
 
 
 
 
 
 | 72 | 
       Enabled = False | 
 
 
 
 
 
 | 73 | 
       TabOrder = 0 | 
 
 
 
 
 
 | 74 | 
       object image_bmppreview: TImage | 
 
 
 
 
 
 | 75 | 
         Left = 2 | 
 
 
 
 
 
 | 76 | 
         Top = 45 | 
 
 
 
 
 
 | 77 | 
         Width = 279 | 
 
 
 
 
 
 | 78 | 
         Height = 297 | 
 
 
 
 
 
 | 79 | 
         Align = alClient | 
 
 
 
 
 
 | 80 | 
         ExplicitWidth = 182 | 
 
 
 
 
 
 | 81 | 
         ExplicitHeight = 302 | 
 
 
 
 
 
 | 82 | 
       end | 
 
 
 
 
 
 | 83 | 
       object panel_load: TPanel | 
 
 
 
 
 
 | 84 | 
         Left = 2 | 
 
 
 
 
 
 | 85 | 
         Top = 15 | 
 
 
 
 
 
 | 86 | 
         Width = 279 | 
 
 
 
 
 
 | 87 | 
         Height = 30 | 
 
 
 
 
 
 | 88 | 
         Align = alTop | 
 
 
 
 
 
 | 89 | 
         BevelOuter = bvNone | 
 
 
 
 
 
 | 90 | 
         TabOrder = 0 | 
 
 
 
 
 
 | 91 | 
         object btn_load: TButton | 
 
 
 
 
 
 | 92 | 
           Left = 2 | 
 
 
 
 
 
 | 93 | 
           Top = 2 | 
 
 
 
 
 
 | 94 | 
           Width = 121 | 
 
 
 
 
 
 | 95 | 
           Height = 25 | 
 
 
 
 
 
 | 96 | 
           Caption = 'Load BMP ...' | 
 
 
 
 
 
 | 97 | 
           TabOrder = 0 | 
 
 
 
 
 
 | 98 | 
           OnClick = btn_loadClick | 
 
 
 
 
 
 | 99 | 
         end | 
 
 
 
 
 
 | 100 | 
       end | 
 
 
 
 
 
 | 101 | 
     end | 
 
 
 
 
 
 | 102 | 
   end | 
 
 
 
 
 
 | 103 | 
   object group_options: TGroupBox [3] | 
 
 
 
 
 
 | 104 | 
     Left = 0 | 
 
 
 
 
 
 | 105 | 
     Top = 344 | 
 
 
 
 
 
 | 106 | 
     Width = 492 | 
 
 
 
 
 
 | 107 | 
     Height = 79 | 
 
 
 
 
 
 | 108 | 
     Align = alBottom | 
 
 
 
 
 
 | 109 | 
     Caption = '3. Options && Replace' | 
 
 
 
 
 
 | 110 | 
     Enabled = False | 
 
 
 
 
 
 | 111 | 
     TabOrder = 2 | 
 
 
 
 
 
 | 112 | 
     object btn_replace: TButton | 
 
 
 
 
 
 | 113 | 
       Left = 4 | 
 
 
 
 
 
 | 114 | 
       Top = 50 | 
 
 
 
 
 
 | 115 | 
       Width = 157 | 
 
 
 
 
 
 | 116 | 
       Height = 25 | 
 
 
 
 
 
 | 117 | 
       Caption = 'Replace' | 
 
 
 
 
 
 | 118 | 
       TabOrder = 0 | 
 
 
 
 
 
 | 119 | 
       OnClick = btn_replaceClick | 
 
 
 
 
 
 | 120 | 
     end | 
 
 
 
 
 
 | 121 | 
     object check_transparency: TCheckBox | 
 
 
 
 
 
 | 122 | 
       Left = 8 | 
 
 
 
 
 
 | 123 | 
       Top = 16 | 
 
 
 
 
 
 | 124 | 
       Width = 105 | 
 
 
 
 
 
 | 125 | 
       Height = 17 | 
 
 
 
 
 
 | 126 | 
       Caption = 'Transparency' | 
 
 
 
 
 
 | 127 | 
       TabOrder = 1 | 
 
 
 
 
 
 | 128 | 
     end | 
 
 
 
 
 
 | 129 | 
     object check_fading: TCheckBox | 
 
 
 
 
 
 | 130 | 
       Left = 8 | 
 
 
 
 
 
 | 131 | 
       Top = 32 | 
 
 
 
 
 
 | 132 | 
       Width = 105 | 
 
 
 
 
 
 | 133 | 
       Height = 17 | 
 
 
 
 
 
 | 134 | 
       Caption = 'MIP Mapping' | 
 
 
 
 
 
 | 135 | 
       TabOrder = 2 | 
 
 
 
 
 
 | 136 | 
     end | 
 
 
 
 
 
 | 137 | 
   end | 
 
 
 
 
 
 | 138 | 
   object opend: TOpenDialog [4] | 
 
 
 
 
 
 | 139 | 
     Filter = '24bit Bitmap (*.bmp)|*.bmp' | 
 
 
 
 
 
 | 140 | 
     Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing] | 
 
 
 
 
 
 | 141 | 
     Left = 352 | 
 
 
 
 
 
 | 142 | 
     Top = 16 | 
 
 
 
 
 
 | 143 | 
   end | 
 
 
 
 
 
 | 144 | 
   object saved: TSaveDialog [5] | 
 
 
 
 
 
 | 145 | 
     DefaultExt = 'bmp' | 
 
 
 
 
 
 | 146 | 
     Filter = 'Windows Bitmap (*.bmp)|*.bmp' | 
 
 
 
 
 
 | 147 | 
     Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing] | 
 
 
 
 
 
 | 148 | 
     Left = 104 | 
 
 
 
 
 
 | 149 | 
     Top = 320 | 
 
 
 
 
 
 | 150 | 
   end | 
 
 
 
 
 
 | 151 | 
 end |