Changeset 321


Ignore:
Timestamp:
May 6, 2009, 3:47:23 PM (16 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • oup/current/DataAccess/Access_OUP_ADB.pas

    r243 r321  
    545545var
    546546  i: Integer;
    547   rawlist: TRawDataList;
    548547begin
    549548  SetLength(Result, 0);

  • oup/current/DataAccess/Access_OniArchive.pas

    r256 r321  
    589589  begin
    590590    raw_info := Self.GetRawInfo(FileID, DatOffset);
     591    if raw_info.RawSize = 0 then
     592      exit;
    591593    if not raw_info.LocSep then
    592594    begin

  • oup/current/Global/Functions.pas

    r245 r321  
    151151function ReadString(Stream: TStream; Offset: Integer): String;
    152152var
    153   i: Integer;
    154153  c: Char;
    155154begin

  • oup/current/Tools/Extractor.dfm

    r224 r321  
    77    inherited splitter_content: TSplitter
    88      Left = 300
     9      ExplicitLeft = 300
    910    end
    1011    inherited panel_files: TPanel
    1112      Width = 300
    1213      ExplicitWidth = 300
    13       inherited filelist: TListBox
    14         Width = 300
    15       end
    16       inherited panel_extension: TPanel
    17         Width = 300
    18         inherited combo_extension: TComboBox
    19           Width = 296
    20         end
    21         inherited edit_filtername: TEdit
    22           Width = 296
     14      inherited FilePages: TPageControl
     15        Width = 298
     16        inherited tab_files: TTabSheet
     17          ExplicitWidth = 290
     18          inherited panel_extension: TPanel
     19            Width = 290
     20            ExplicitWidth = 290
     21            inherited combo_extension: TComboBox
     22              Width = 286
     23              ExplicitWidth = 286
     24            end
     25            inherited edit_filtername: TEdit
     26              Width = 286
     27              ExplicitWidth = 286
     28            end
     29          end
     30          inherited filelist: TListBox
     31            Width = 290
     32            ExplicitWidth = 290
     33          end
    2334        end
    2435      end
    … …  
    2738      Left = 308
    2839      Width = 290
     40      ExplicitLeft = 308
     41      ExplicitWidth = 290
    2942      object group_extract: TGroupBox
    3043        AlignWithMargins = True
    … …  
    3851        Caption = '2. Select extract-method'
    3952        TabOrder = 0
    40         ExplicitWidth = 138
    41         ExplicitHeight = 374
    4253        DesignSize = (
    4354          278
    … …  
    112123          TabOrder = 5
    113124          Text = 'C:\'
    114           ExplicitWidth = 276
    115125        end
    116126        object btn_path: TButton
    … …  
    123133          TabOrder = 6
    124134          OnClick = btn_pathClick
    125           ExplicitLeft = 318
    126135        end
    127136        object btn_export: TButton
    … …  
    149158        TabOrder = 1
    150159        Visible = False
    151         ExplicitTop = 381
    152         ExplicitWidth = 138
    153160        DesignSize = (
    154161          278
    … …  
    182189          Smooth = True
    183190          TabOrder = 0
    184           ExplicitWidth = 369
    185191        end
    186192        object btn_abort: TButton

  • oup/current/Tools/Extractor.pas

    r220 r321  
    55uses
    66  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7   Dialogs, _TemplateFileList, Menus, StdCtrls, ExtCtrls, Buttons, ComCtrls;
     7  Dialogs, _TemplateFileList, Menus, StdCtrls, ExtCtrls, Buttons, ComCtrls,
     8  VirtualTrees;
    89
    910type

  • oup/current/Tools/MetaEditor.dfm

    r248 r321  
    170170          Colors.EvenColumn = clNavy
    171171          Colors.CurrentOffsetBackground = clBtnShadow
    172           Colors.OffsetBackground = clBtnFace
     172          Colors.OffsetBackGround = clBtnFace
    173173          Colors.CurrentOffset = clBtnHighlight
    174174          Colors.Grid = clBtnFace
    … …  
    179179          AllowInsertMode = False
    180180          DrawGridLines = False
    181           Version = 'september 30, 2007; '#169' markus stephany, vcl[at]mirkes[dot]de'
     181          Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
    182182          ShowPositionIfNotFocused = True
    183183        end

  • oup/current/Tools/MetaEditor.pas

    r248 r321  
    150150  data: PNodeData;
    151151  ffile: TResource;
    152 //*******************************************************************
    153   fs: TFileStream;
    154 //*******************************************************************
    155152begin
    156153  data := Sender.GetNodeData(Node);
    … …  
    169166      ffile.Opened := True;
    170167    end;
    171 //*******************************************************************
    172 //    fs := TFileStream.Create('C:\Spiele\Oni\GameDataFolder\tests\'+IntToStr(ffile.FileInfo.ID)+'_recreated.hex', fmCreate);
    173 //    ffile.ReCreateFile(fs);
    174 //    fs.Free;
    175 //*******************************************************************
    176168  end;
    177169end;
    … …  
    265257  CellText: WideString;
    266258
    267   i: Integer;
    268   links: TStrings;
    269259  ifile: TResource;
    270260begin
Note: See TracChangeset for help on using the changeset viewer.