Changeset 227


Ignore:
Timestamp:
Jun 20, 2007, 12:06:10 AM (17 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
2 added
8 edited

Legend:

Unmodified
Added
Removed

  • oup/current/DataAccess/DataAccess.pas

    r193 r227  
    22interface
    33
    4 uses TypeDefs, Classes, StrUtils, SysUtils;
     4uses TypeDefs, Classes, StrUtils, SysUtils, _MetaManager;
    55
    66type
    … …  
    1414    FLevelNumber:   Integer;
    1515    FChangeRights:  TChangeRights;
     16    FMeta:          TMetaManager;
    1617    procedure SetDataOS(DataOS: TDataOS);
    1718  public
    … …  
    2223    property LevelNumber:  Integer      read FLevelNumber;
    2324    property ChangeRights: TChangeRights read FChangeRights;
     25    property MetaData:     TMetaManager read FMeta;
    2426
    2527    constructor Create(FileName: String; ConnectionID: Integer; var Msg: TStatusMessages); virtual; abstract;

  • oup/current/Main.dfm

    r222 r227  
    139139          OnClick = menu_metaClick
    140140        end
     141        object menu_filemanager: TTBItem
     142          Caption = '&FileManager'
     143          OnClick = menu_filemanagerClick
     144        end
    141145        object menu_filecompare: TTBItem
    142146          Caption = '&File compare ...'
    … …  
    198202            Checked = True
    199203            OnClick = menu_view_toolbarClick
     204          end
     205          object menu_view_toolbar_tools: TTBItem
     206            Caption = '&Toolbar (Tools)'
     207            Checked = True
     208            OnClick = menu_view_toolbar_toolsClick
    200209          end
    201210          object menu_view_statusbar: TTBItem
    … …  
    216225      end
    217226    end
    218     object Toolbar: TTBToolbar
     227    object Toolbar_main: TTBToolbar
    219228      Left = 0
    220229      Top = 23
    221       Caption = 'Toolbar'
     230      Caption = 'Toolbar_main'
    222231      DragHandleStyle = dhDouble
    223232      Images = MenuImages
    224233      TabOrder = 1
    225       OnDockChanged = ToolbarDockChanged
     234      OnDockChanged = Toolbar_mainDockChanged
    226235      object tbOpen: TTBItem
    227236        Caption = 'Open .dat'
    … …  
    252261      object TBSeparatorItem1: TTBSeparatorItem
    253262      end
    254       object tb_preview: TTBItem
    255         Caption = 'Preview'
    256         DisplayMode = nbdmImageAndText
    257         Enabled = False
    258         ImageIndex = 4
    259         OnClick = menu_previewClick
    260       end
    261       object tb_datedit: TTBItem
    262         Caption = 'DatEditor'
    263         DisplayMode = nbdmImageAndText
    264         Enabled = False
    265         ImageIndex = 5
    266         OnClick = menu_bineditClick
    267       end
    268       object tb_rawedit: TTBItem
    269         Caption = 'RawEditor'
    270         DisplayMode = nbdmImageAndText
    271         Enabled = False
    272         ImageIndex = 6
    273         OnClick = menu_raweditClick
    274       end
    275       object tb_txmpreplacer: TTBItem
    276         Caption = 'TXMP replacer'
    277         DisplayMode = nbdmImageAndText
    278         Enabled = False
    279         ImageIndex = 7
    280         OnClick = menu_txmpreplaceClick
    281       end
    282       object tb_extractor: TTBItem
    283         Caption = 'File extractor'
    284         DisplayMode = nbdmImageAndText
    285         Enabled = False
    286         ImageIndex = 8
    287         OnClick = menu_extractorClick
    288       end
    289       object tb_meta: TTBItem
    290         Caption = 'MetaEditor'
    291         DisplayMode = nbdmImageAndText
    292         Enabled = False
    293         ImageIndex = 11
    294         OnClick = menu_metaClick
    295       end
    296       object tb_compare: TTBItem
    297         Caption = 'File compare'
    298         DisplayMode = nbdmImageAndText
    299         Enabled = False
    300         ImageIndex = 10
    301         OnClick = menu_filecompareClick
    302       end
    303       object tb_structure: TTBItem
    304         Caption = 'Level structure'
    305         DisplayMode = nbdmImageAndText
    306         Enabled = False
    307         ImageIndex = 12
    308       end
    309263    end
    310264    object MDIToolbar: TTBToolbar
    311       Left = 0
     265      Left = 29
    312266      Top = 49
    313267      Caption = 'MDIToolbar'
    314268      DockableTo = [dpTop, dpBottom]
    315269      DockMode = dmCannotFloat
    316       DockPos = 0
    317       DockRow = 2
     270      DockPos = 29
     271      DockRow = 3
    318272      DragHandleStyle = dhDouble
    319273      TabOrder = 2
    … …  
    341295        OnMouseMove = MDITabMouseMove
    342296        OnMouseUp = MDITabMouseUp
     297      end
     298    end
     299    object Toolbar_tools: TTBToolbar
     300      Left = 328
     301      Top = 23
     302      Caption = 'Toolbar'
     303      DockPos = 334
     304      DragHandleStyle = dhDouble
     305      Images = MenuImages
     306      TabOrder = 3
     307      OnDockChanged = Toolbar_mainDockChanged
     308      object tb_preview: TTBItem
     309        Caption = 'Preview'
     310        DisplayMode = nbdmImageAndText
     311        Enabled = False
     312        ImageIndex = 4
     313        OnClick = menu_previewClick
     314      end
     315      object tb_datedit: TTBItem
     316        Caption = 'DatEditor'
     317        DisplayMode = nbdmImageAndText
     318        Enabled = False
     319        ImageIndex = 5
     320        OnClick = menu_bineditClick
     321      end
     322      object tb_rawedit: TTBItem
     323        Caption = 'RawEditor'
     324        DisplayMode = nbdmImageAndText
     325        Enabled = False
     326        ImageIndex = 6
     327        OnClick = menu_raweditClick
     328      end
     329      object tb_txmpreplacer: TTBItem
     330        Caption = 'TXMP replacer'
     331        DisplayMode = nbdmImageAndText
     332        Enabled = False
     333        ImageIndex = 7
     334        OnClick = menu_txmpreplaceClick
     335      end
     336      object tb_extractor: TTBItem
     337        Caption = 'File extractor'
     338        DisplayMode = nbdmImageAndText
     339        Enabled = False
     340        ImageIndex = 8
     341        OnClick = menu_extractorClick
     342      end
     343      object tb_meta: TTBItem
     344        Caption = 'MetaEditor'
     345        DisplayMode = nbdmImageAndText
     346        Enabled = False
     347        ImageIndex = 11
     348        OnClick = menu_metaClick
     349      end
     350      object tb_filemanager: TTBItem
     351        Caption = 'FileManager'
     352        OnClick = menu_filemanagerClick
     353      end
     354      object tb_compare: TTBItem
     355        Caption = 'File compare'
     356        DisplayMode = nbdmImageAndText
     357        Enabled = False
     358        ImageIndex = 10
     359        OnClick = menu_filecompareClick
     360      end
     361      object tb_structure: TTBItem
     362        Caption = 'Level structure'
     363        DisplayMode = nbdmImageAndText
     364        Enabled = False
     365        ImageIndex = 12
    343366      end
    344367    end

  • oup/current/Main.pas

    r224 r227  
    4545    menu_sep2:  TTBSeparatorItem;
    4646    menu_About: TTBItem;
    47     Toolbar:    TTBToolbar;
     47    Toolbar_main: TTBToolbar;
    4848    tbOpen:     TTBItem;
    4949    DockLeft:   TTBDock;
    … …  
    5858    menu_view_toolbar: TTBItem;
    5959    tb_separator1: TTBSeparatorItem;
    60     tb_preview: TTBItem;
    61     tb_structure: TTBItem;
    62     tb_compare: TTBItem;
    63     tb_extractor: TTBItem;
    64     tb_txmpreplacer: TTBItem;
    65     tb_rawedit: TTBItem;
    66     tb_datedit: TTBItem;
    6760    menu_windows_tilevert: TTBItem;
    68     tb_meta: TTBItem;
    6961    menu_meta: TTBItem;
    7062    TBSeparatorItem1: TTBSeparatorItem;
    … …  
    7668    menu_conns: TTBSubmenuItem;
    7769    menu_windows: TTBSubmenuItem;
     70    menu_filemanager: TTBItem;
     71    Toolbar_tools: TTBToolbar;
     72    tb_preview: TTBItem;
     73    tb_datedit: TTBItem;
     74    tb_rawedit: TTBItem;
     75    tb_txmpreplacer: TTBItem;
     76    tb_extractor: TTBItem;
     77    tb_meta: TTBItem;
     78    tb_filemanager: TTBItem;
     79    tb_compare: TTBItem;
     80    tb_structure: TTBItem;
     81    menu_view_toolbar_tools: TTBItem;
    7882    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    7983    procedure FormResize(Sender: TObject);
    … …  
    9094    procedure MDITabMouseMove(Sender: TObject; Shift: TShiftState; X,
    9195      Y: Integer);
    92     procedure ToolbarDockChanged(Sender: TObject);
     96    procedure Toolbar_mainDockChanged(Sender: TObject);
    9397    procedure CreateConnection(filename: String);
    9498    function CheckConnectionCloseable(index: Integer): Boolean;
    … …  
    125129
    126130    procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;
     131    procedure menu_filemanagerClick(Sender: TObject);
     132    procedure menu_view_toolbar_toolsClick(Sender: TObject);
    127133  private
    128134  public
    … …  
    139145
    140146uses
    141   LevelDB, MetaEditor;
     147  LevelDB, MetaEditor, FileManager;
    142148
    143149{$R *.dfm}
    … …  
    448454
    449455
    450 procedure TForm_Main.ToolbarDockChanged(Sender: TObject);
     456procedure TForm_Main.Toolbar_mainDockChanged(Sender: TObject);
    451457var
    452458  toolbar: TTBToolbar;
    … …  
    618624
    619625
    620  {#################################}
     626 procedure TForm_Main.menu_filemanagerClick(Sender: TObject);
     627begin
     628  open_child('filemanager');
     629end;
     630
     631{#################################}
    621632 {#####   View-Menu-Handlers  #####}
    622633 {#################################}
    … …  
    703714begin
    704715  menu_view_toolbar.Checked := not menu_view_toolbar.Checked;
    705   Toolbar.Visible := menu_view_toolbar.Checked;
     716  Toolbar_main.Visible := menu_view_toolbar.Checked;
     717end;
     718
     719procedure TForm_Main.menu_view_toolbar_toolsClick(Sender: TObject);
     720begin
     721  menu_view_toolbar_tools.Checked := not menu_view_toolbar_tools.Checked;
     722  Toolbar_tools.Visible := menu_view_toolbar_tools.Checked;
    706723end;
    707724
    … …  
    739756  end;
    740757const
    741   Tools: array[0..5] of TTool = (
     758  Tools: array[0..6] of TTool = (
    742759    (name: 'binedit';     icon: 5; caption: 'Binary .dat-Editor'; classt: TForm_BinEdit),
    743760    (name: 'extractor';   icon: 8; caption: 'Extractor';          classt: TForm_Extractor),
    … …  
    745762    (name: 'rawedit';     icon: 6; caption: 'Binary .raw-Editor'; classt: TForm_RawEdit),
    746763    (name: 'txmpreplace'; icon: 7; caption: 'TXMP Replacer';      classt: TForm_TxmpReplace),
     764    (name: 'filemanager'; icon:-1; caption: 'FileManager';        classt: TForm_FileManager),
    747765    (name: 'meta'; icon: 11; caption: 'MetaEditor'; classt: TForm_Meta)
    748766  );

  • oup/current/OniUnPacker.bdsproj

    r224 r227  
    176176                        <Language Name="ProjectLang">$00000000</Language>
    177177                        <Language Name="RootDir"></Language>
    178                 </Language>  <Excluded_Packages>
     178                </Language> 
     179   
     180    <Excluded_Packages>
    179181      <Excluded_Packages Name="d:\programme\borland\bds\3.0\Bin\dbwebxprt.bpl">Borland Web Wizard Package</Excluded_Packages>
    180182    </Excluded_Packages>

  • oup/current/OniUnPacker.dpr

    r226 r227  
    149149  Preview in 'Tools\Preview.pas' {Form_Preview},
    150150  RawEdit in 'Tools\RawEdit.pas' {Form_RawEdit},
    151   TxmpReplace in 'Tools\TxmpReplace.pas' {Form_TxmpReplace};
     151  TxmpReplace in 'Tools\TxmpReplace.pas' {Form_TxmpReplace},
     152  FileManager in 'Tools\FileManager.pas' {Form_FileManager};
    152153
    153154{$R *.res}

  • oup/current/Tools/_TemplateFileList.dfm

    r222 r227  
    3838        object tab_files: TTabSheet
    3939          Caption = 'Files'
    40           ExplicitWidth = 233
    41           ExplicitHeight = 353
    4240          object panel_extension: TPanel
    4341            Left = 0
    … …  
    4846            BevelOuter = bvNone
    4947            TabOrder = 0
    50             ExplicitWidth = 233
    5148            DesignSize = (
    5249              190
    … …  
    228225              TabOrder = 3
    229226              OnClick = combo_extensionClick
    230               ExplicitWidth = 232
    231227            end
    232228            object check_zerobyte: TCheckBox
    … …  
    247243              AutoSize = False
    248244              TabOrder = 1
    249               ExplicitWidth = 232
    250245            end
    251246            object check_filtername: TCheckBox
    … …  
    269264            OnClick = listClick
    270265            OnMouseDown = listMouseDown
    271             ExplicitWidth = 233
    272             ExplicitHeight = 228
    273266          end
    274267        end
    … …  
    276269          Caption = 'Meta'
    277270          ImageIndex = 1
     271          object filelist_meta: TVirtualStringTree
     272            Left = 0
     273            Top = 0
     274            Width = 190
     275            Height = 503
     276            Align = alClient
     277            Header.AutoSizeIndex = 0
     278            Header.Font.Charset = DEFAULT_CHARSET
     279            Header.Font.Color = clWindowText
     280            Header.Font.Height = -11
     281            Header.Font.Name = 'Tahoma'
     282            Header.Font.Style = []
     283            Header.MainColumn = -1
     284            Header.Options = [hoColumnResize, hoDrag]
     285            TabOrder = 0
     286            Columns = <>
     287          end
    278288        end
    279289      end

  • oup/current/Tools/_TemplateFileList.pas

    r222 r227  
    66  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    77  Dialogs, _TemplateFile, StdCtrls, ExtCtrls, Menus, Buttons,
    8   ComCtrls, TypeDefs;
     8  ComCtrls, TypeDefs, VirtualTrees;
    99
    1010type
    … …  
    3939    filelist: TListBox;
    4040    tab_meta: TTabSheet;
     41    filelist_meta: TVirtualStringTree;
    4142    procedure NewCon(ID: Integer);
    4243
Note: See TracChangeset for help on using the changeset viewer.