Changeset 218


Ignore:
Timestamp:
Jun 16, 2007, 12:12:39 AM (17 years ago)
Author:
alloc
Message:
 
Location:
oup/current/Tools
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • oup/current/Tools/BinEdit.dfm

    r198 r218  
    11inherited Form_BinEdit: TForm_BinEdit
    2   Caption = 'BinEdit'
    3   KeyPreview = True
     2  Caption = 'Form_BinEdit'
    43  OnCloseQuery = FormCloseQuery
    54  OnCreate = FormCreate
    65  OnKeyUp = FormKeyUp
    7   ExplicitWidth = 500
    8   ExplicitHeight = 450
    96  PixelsPerInch = 96
    107  TextHeight = 13
    11   inherited panel_files: TPanel
    12     inherited filelist: TListBox
    13       Height = 210
    14       ExplicitHeight = 210
    15     end
    16     object panel_imexport: TPanel
    17       Left = 0
    18       Top = 363
    19       Width = 200
    20       Height = 60
    21       Align = alBottom
    22       BevelOuter = bvNone
    23       TabOrder = 2
    24       DesignSize = (
    25         200
    26         60)
    27       object btn_export: TButton
    28         Left = 4
    29         Top = 4
    30         Width = 190
    31         Height = 25
    32         Anchors = [akLeft, akTop, akRight]
    33         Caption = 'Export to file...'
     8  inherited panel_basecontent: TPanel
     9    inherited panel_files: TPanel
     10      ExplicitHeight = 532
     11      inherited filelist: TListBox
     12        Height = 347
     13        OnClick = nil
     14        OnMouseDown = nil
     15        ExplicitTop = 125
     16        ExplicitHeight = 407
     17      end
     18      inherited panel_extension: TPanel
     19        inherited btn_sort_id_asc: TSpeedButton
     20          OnClick = nil
     21        end
     22        inherited btn_sort_id_desc: TSpeedButton
     23          OnClick = nil
     24        end
     25        inherited btn_sort_name_asc: TSpeedButton
     26          OnClick = nil
     27        end
     28        inherited btn_sort_name_desc: TSpeedButton
     29          OnClick = nil
     30        end
     31        inherited btn_sort_ext_asc: TSpeedButton
     32          OnClick = nil
     33        end
     34        inherited btn_sort_ext_desc: TSpeedButton
     35          OnClick = nil
     36        end
     37        inherited combo_extension: TComboBox
     38          OnClick = nil
     39        end
     40        inherited check_zerobyte: TCheckBox
     41          OnClick = nil
     42        end
     43        inherited check_filtername: TCheckBox
     44          OnClick = nil
     45        end
     46      end
     47      object panel_imexport: TPanel
     48        Left = 0
     49        Top = 472
     50        Width = 200
     51        Height = 60
     52        Align = alBottom
     53        BevelOuter = bvNone
     54        TabOrder = 2
     55        ExplicitTop = 363
     56        DesignSize = (
     57          200
     58          60)
     59        object btn_export: TButton
     60          Left = 4
     61          Top = 4
     62          Width = 190
     63          Height = 25
     64          Anchors = [akLeft, akTop, akRight]
     65          Caption = 'Export to file...'
     66          TabOrder = 0
     67        end
     68        object btn_import: TButton
     69          Left = 4
     70          Top = 32
     71          Width = 190
     72          Height = 25
     73          Anchors = [akLeft, akTop, akRight]
     74          Caption = 'Import from file...'
     75          TabOrder = 1
     76        end
     77      end
     78    end
     79    inherited panel_content: TPanel
     80      ExplicitTop = 0
     81      ExplicitWidth = 390
     82      ExplicitHeight = 532
     83      object Splitter2: TSplitter
     84        Left = 0
     85        Top = 209
     86        Width = 390
     87        Height = 8
     88        Cursor = crVSplit
     89        Align = alTop
     90        AutoSnap = False
     91        Beveled = True
     92        MinSize = 40
     93      end
     94      object Splitter3: TSplitter
     95        Left = 0
     96        Top = 435
     97        Width = 390
     98        Height = 0
     99        Cursor = crVSplit
     100        Align = alBottom
     101        AutoSnap = False
     102        Beveled = True
     103        MinSize = 40
     104        ExplicitLeft = 32
     105        ExplicitTop = 447
     106      end
     107      object hex: TMPHexEditor
     108        Left = 0
     109        Top = 0
     110        Width = 390
     111        Height = 209
     112        Cursor = crIBeam
     113        Align = alTop
     114        Font.Charset = DEFAULT_CHARSET
     115        Font.Color = clWindowText
     116        Font.Height = -16
     117        Font.Name = 'Courier'
     118        Font.Style = []
     119        OnKeyUp = hexKeyUp
     120        ParentFont = False
    34121        TabOrder = 0
    35         OnClick = popup_exportClick
    36       end
    37       object btn_import: TButton
    38         Left = 4
    39         Top = 32
    40         Width = 190
    41         Height = 25
    42         Anchors = [akLeft, akTop, akRight]
    43         Caption = 'Import from file...'
     122        BytesPerRow = 16
     123        Translation = tkASCII
     124        OffsetFormat = '6!10:0x|'
     125        Colors.Background = clWindow
     126        Colors.ChangedBackground = clWindow
     127        Colors.ChangedText = clRed
     128        Colors.CursorFrame = clNavy
     129        Colors.Offset = clBlack
     130        Colors.OddColumn = clBlue
     131        Colors.EvenColumn = clNavy
     132        Colors.CurrentOffsetBackground = clBtnShadow
     133        Colors.OffsetBackGround = clBtnFace
     134        Colors.CurrentOffset = clBtnHighlight
     135        Colors.Grid = clBtnFace
     136        Colors.NonFocusCursorFrame = clAqua
     137        Colors.ActiveFieldBackground = clWindow
     138        FocusFrame = True
     139        NoSizeChange = True
     140        AllowInsertMode = False
     141        DrawGridLines = False
     142        Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
     143        OnChange = hexChange
     144        ShowPositionIfNotFocused = True
     145        OnSelectionChanged = hexSelectionChanged
     146        ExplicitLeft = 32
     147        ExplicitTop = 12
     148      end
     149      object value_viewer: TWrapGrid
     150        Left = 0
     151        Top = 217
     152        Width = 390
     153        Height = 218
     154        Align = alClient
     155        ColCount = 1
     156        DefaultColWidth = 80
     157        DefaultRowHeight = 18
     158        FixedCols = 0
     159        RowCount = 8
     160        FixedRows = 0
     161        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
     162        ScrollBars = ssVertical
    44163        TabOrder = 1
    45         OnClick = popup_importClick
     164        OnDblClick = value_viewerDblClick
     165        OnMouseDown = value_viewerMouseDown
     166        ExplicitLeft = 32
     167        ExplicitTop = 544
     168        ExplicitHeight = 0
     169      end
     170      object VST: TVirtualStringTree
     171        Left = 0
     172        Top = 435
     173        Width = 390
     174        Height = 97
     175        Align = alBottom
     176        AnimationDuration = 0
     177        AutoExpandDelay = 300
     178        BiDiMode = bdLeftToRight
     179        Colors.UnfocusedSelectionColor = clGradientActiveCaption
     180        Colors.UnfocusedSelectionBorderColor = clGradientActiveCaption
     181        Ctl3D = True
     182        DragOperations = []
     183        DrawSelectionMode = smBlendedRectangle
     184        EditDelay = 200
     185        Font.Charset = DEFAULT_CHARSET
     186        Font.Color = clWindowText
     187        Font.Height = -11
     188        Font.Name = 'Tahoma'
     189        Font.Style = []
     190        Header.AutoSizeIndex = 0
     191        Header.Font.Charset = DEFAULT_CHARSET
     192        Header.Font.Color = clWindowText
     193        Header.Font.Height = -11
     194        Header.Font.Name = 'Tahoma'
     195        Header.Font.Style = []
     196        Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible]
     197        Header.Style = hsFlatButtons
     198        HintAnimation = hatNone
     199        HintMode = hmTooltip
     200        Indent = 14
     201        ParentBiDiMode = False
     202        ParentCtl3D = False
     203        ParentFont = False
     204        ParentShowHint = False
     205        ShowHint = True
     206        TabOrder = 2
     207        TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
     208        TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toUseBlendedImages]
     209        TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect]
     210        OnDblClick = VSTDblClick
     211        OnFocusChanged = VSTFocusChanged
     212        OnGetText = VSTGetText
     213        OnHeaderDragged = VSTHeaderDragged
     214        ExplicitLeft = 32
     215        ExplicitTop = 447
     216        Columns = <
     217          item
     218            MaxWidth = 300
     219            MinWidth = 100
     220            Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
     221            Position = 0
     222            Spacing = 20
     223            Width = 150
     224            WideText = 'Name'
     225            WideHint = 'Name of the item.'
     226          end
     227          item
     228            MaxWidth = 110
     229            MinWidth = 80
     230            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
     231            Position = 1
     232            Spacing = 20
     233            Width = 85
     234            WideText = 'Offset'
     235            WideHint = 'Offset of the data-item.'
     236          end
     237          item
     238            MaxWidth = 110
     239            MinWidth = 75
     240            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
     241            Position = 2
     242            Width = 75
     243            WideText = 'Type'
     244            WideHint = 'Data type of the item.'
     245          end
     246          item
     247            MaxWidth = 250
     248            MinWidth = 80
     249            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
     250            Position = 3
     251            Width = 100
     252            WideText = 'Value'
     253            WideHint = 'Value of the item.'
     254          end
     255          item
     256            MaxWidth = 400
     257            MinWidth = 80
     258            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
     259            Position = 4
     260            Width = 400
     261            WideText = 'Description'
     262          end>
     263        WideDefaultText = ''
    46264      end
    47265    end
    48266  end
    49   inherited content: TPanel
    50     object Splitter2: TSplitter
    51       Left = 0
    52       Top = 209
    53       Width = 283
    54       Height = 9
    55       Cursor = crVSplit
    56       Align = alTop
    57       AutoSnap = False
    58       Beveled = True
    59       MinSize = 40
    60       ExplicitWidth = 425
    61     end
    62     object Splitter3: TSplitter
    63       Left = 0
    64       Top = 318
    65       Width = 283
    66       Height = 8
    67       Cursor = crVSplit
    68       Align = alBottom
    69       AutoSnap = False
    70       Beveled = True
    71       MinSize = 40
    72       ExplicitLeft = -9
    73       ExplicitTop = 430
    74       ExplicitWidth = 425
    75     end
    76     object hex: TMPHexEditor
    77       Left = 0
    78       Top = 0
    79       Width = 283
    80       Height = 209
    81       Cursor = crIBeam
    82       Align = alTop
    83       Font.Charset = DEFAULT_CHARSET
    84       Font.Color = clWindowText
    85       Font.Height = -16
    86       Font.Name = 'Courier'
    87       Font.Style = []
    88       OnKeyUp = hexKeyUp
    89       ParentFont = False
    90       TabOrder = 0
    91       BytesPerRow = 16
    92       Translation = tkASCII
    93       OffsetFormat = '6!10:0x|'
    94       Colors.Background = clWindow
    95       Colors.ChangedBackground = clWindow
    96       Colors.ChangedText = clRed
    97       Colors.CursorFrame = clNavy
    98       Colors.Offset = clBlack
    99       Colors.OddColumn = clBlue
    100       Colors.EvenColumn = clNavy
    101       Colors.CurrentOffsetBackground = clBtnShadow
    102       Colors.OffsetBackGround = clBtnFace
    103       Colors.CurrentOffset = clBtnHighlight
    104       Colors.Grid = clBtnFace
    105       Colors.NonFocusCursorFrame = clAqua
    106       Colors.ActiveFieldBackground = clWindow
    107       FocusFrame = True
    108       NoSizeChange = True
    109       AllowInsertMode = False
    110       DrawGridLines = False
    111       Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
    112       OnChange = hexChange
    113       ShowPositionIfNotFocused = True
    114       OnSelectionChanged = hexSelectionChanged
    115     end
    116     object value_viewer: TWrapGrid
    117       Left = 0
    118       Top = 218
    119       Width = 283
    120       Height = 100
    121       Align = alClient
    122       ColCount = 1
    123       DefaultColWidth = 80
    124       DefaultRowHeight = 18
    125       FixedCols = 0
    126       RowCount = 8
    127       FixedRows = 0
    128       Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
    129       PopupMenu = value_viewer_context
    130       ScrollBars = ssVertical
    131       TabOrder = 1
    132       OnDblClick = value_viewerDblClick
    133       OnMouseDown = value_viewerMouseDown
    134     end
    135     object VST: TVirtualStringTree
    136       Left = 0
    137       Top = 326
    138       Width = 283
    139       Height = 97
    140       Align = alBottom
    141       AnimationDuration = 0
    142       AutoExpandDelay = 300
    143       BiDiMode = bdLeftToRight
    144       Colors.UnfocusedSelectionColor = clGradientActiveCaption
    145       Colors.UnfocusedSelectionBorderColor = clGradientActiveCaption
    146       Ctl3D = True
    147       DragOperations = []
    148       DrawSelectionMode = smBlendedRectangle
    149       EditDelay = 200
    150       Font.Charset = DEFAULT_CHARSET
    151       Font.Color = clWindowText
    152       Font.Height = -11
    153       Font.Name = 'Tahoma'
    154       Font.Style = []
    155       Header.AutoSizeIndex = 0
    156       Header.Font.Charset = DEFAULT_CHARSET
    157       Header.Font.Color = clWindowText
    158       Header.Font.Height = -11
    159       Header.Font.Name = 'Tahoma'
    160       Header.Font.Style = []
    161       Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible]
    162       Header.PopupMenu = VTHPopup
    163       Header.Style = hsFlatButtons
    164       HintAnimation = hatNone
    165       HintMode = hmTooltip
    166       Indent = 14
    167       ParentBiDiMode = False
    168       ParentCtl3D = False
    169       ParentFont = False
    170       ParentShowHint = False
    171       ShowHint = True
    172       TabOrder = 2
    173       TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
    174       TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toUseBlendedImages]
    175       TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect]
    176       OnDblClick = VSTDblClick
    177       OnFocusChanged = VSTFocusChanged
    178       OnGetText = VSTGetText
    179       OnHeaderDragged = VSTHeaderDragged
    180       Columns = <
    181         item
    182           MaxWidth = 300
    183           MinWidth = 100
    184           Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
    185           Position = 0
    186           Spacing = 20
    187           Width = 150
    188           WideText = 'Name'
    189           WideHint = 'Name of the item.'
    190         end
    191         item
    192           MaxWidth = 110
    193           MinWidth = 80
    194           Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
    195           Position = 1
    196           Spacing = 20
    197           Width = 85
    198           WideText = 'Offset'
    199           WideHint = 'Offset of the data-item.'
    200         end
    201         item
    202           MaxWidth = 110
    203           MinWidth = 75
    204           Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
    205           Position = 2
    206           Width = 75
    207           WideText = 'Type'
    208           WideHint = 'Data type of the item.'
    209         end
    210         item
    211           MaxWidth = 250
    212           MinWidth = 80
    213           Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
    214           Position = 3
    215           Width = 100
    216           WideText = 'Value'
    217           WideHint = 'Value of the item.'
    218         end
    219         item
    220           MaxWidth = 400
    221           MinWidth = 80
    222           Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
    223           Position = 4
    224           Width = 400
    225           WideText = 'Description'
    226         end>
    227       WideDefaultText = ''
     267  inherited filepopup: TPopupMenu
     268    OnPopup = nil
     269    inherited popup_linkshere: TMenuItem
     270      OnClick = nil
     271    end
     272    inherited popup_import: TMenuItem
     273      OnClick = nil
     274    end
     275    inherited popup_export: TMenuItem
     276      OnClick = nil
    228277    end
    229278  end
    230   object value_viewer_context: TPopupMenu [3]
     279  object VTHPopup: TVTHeaderPopupMenu
     280    OnColumnChange = VTHPopupColumnChange
     281    Left = 272
     282    Top = 376
     283  end
     284  object value_viewer_context: TPopupMenu
    231285    AutoHotkeys = maManual
    232286    AutoLineReduction = maManual
    … …  
    240294    object value_viewer_context_copyasdec: TMenuItem
    241295      Caption = 'Copy to clipboard (as &dec)'
    242       OnClick = value_viewer_context_copyClick
    243296    end
    244297    object value_viewer_context_copyasfloat: TMenuItem
    245298      Caption = 'Copy to clipboard (as &float)'
    246       OnClick = value_viewer_context_copyClick
    247299    end
    248300    object value_viewer_context_copyasbitset: TMenuItem
    249301      Caption = 'Copy to clipboard (as &bitset)'
    250       OnClick = value_viewer_context_copyClick
    251302    end
    252303    object value_viewer_context_copyasstring: TMenuItem
    253304      Caption = 'Copy to clipboard (as &string)'
    254       OnClick = value_viewer_context_copyClick
    255305    end
    256306    object value_viewer_context_copyashex: TMenuItem
    257307      Caption = 'Copy to clipboard (as &hex)'
    258       OnClick = value_viewer_context_copyClick
    259     end
    260   end
    261   object VTHPopup: TVTHeaderPopupMenu [4]
    262     OnColumnChange = VTHPopupColumnChange
    263     Left = 272
    264     Top = 376
     308    end
    265309  end
    266310end

  • oup/current/Tools/BinEdit.pas

    r217 r218  
    11unit BinEdit;
     2
    23interface
     4
    35uses
    46  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    5   Dialogs, VirtualTrees, Grids, Wrapgrid, MPHexEditor, StdCtrls,
    6   Menus, VTHeaderPopup, ExtCtrls, Buttons, StrUtils, Clipbrd,
     7  Dialogs, VirtualTrees, Grids, Wrapgrid, MPHexEditor,
     8  StdCtrls, Menus, ExtCtrls, Buttons,
    79  Data, TypeDefs, ConnectionManager, Template,
    8   _BaseTemplate, _TemplateFile, _TemplateFileList;
     10  _TemplateFileList, VTHeaderPopup;
    911
    1012type
    11   TForm_BinEdit = class(TForm_ToolTemplate)
     13  TForm_BinEdit = class(TForm_TemplateFileList)
     14    panel_imexport: TPanel;
     15    btn_export: TButton;
     16    btn_import: TButton;
    1217    hex: TMPHexEditor;
    1318    Splitter2: TSplitter;
    1419    value_viewer: TWrapGrid;
     20    Splitter3: TSplitter;
    1521    VST: TVirtualStringTree;
    16     Splitter3: TSplitter;
     22    VTHPopup: TVTHeaderPopupMenu;
    1723    value_viewer_context: TPopupMenu;
    1824    value_viewer_context_copy: TMenuItem;
    … …  
    2228    value_viewer_context_copyasstring: TMenuItem;
    2329    value_viewer_context_copyashex: TMenuItem;
    24     VTHPopup: TVTHeaderPopupMenu;
    25     panel_imexport: TPanel;
    26     btn_export: TButton;
    27     btn_import: TButton;
    28     procedure FormCreate(Sender: TObject);
    2930    procedure NewFile(fileinfo: TFileInfo);
    30 
    31     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    32     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    33 
    34     procedure hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    35     procedure hexSelectionChanged(Sender: TObject);
    36     procedure hexChange(Sender: TObject);
    3731
    3832    procedure LoadDat(_fileid: Integer);
    … …  
    4337    procedure WriteStructureInfos;
    4438    procedure ClearStructViewer;
     39
     40    procedure ClearValues;
     41    procedure WriteValues;
     42
     43    procedure FormCreate(Sender: TObject);
     44    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     45    procedure hexChange(Sender: TObject);
     46    procedure hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     47    procedure hexSelectionChanged(Sender: TObject);
     48    procedure value_viewerDblClick(Sender: TObject);
     49    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     50    procedure value_viewer_contextPopup(Sender: TObject);
     51    procedure value_viewerMouseDown(Sender: TObject; Button: TMouseButton;
     52      Shift: TShiftState; X, Y: Integer);
     53    procedure value_viewer_context_copyClick(Sender: TObject);
    4554    procedure VSTDblClick(Sender: TObject);
    4655    procedure VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
    4756      Column: TColumnIndex);
     57    procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
     58      Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
     59    procedure VSTHeaderDragged(Sender: TVTHeader; Column: TColumnIndex;
     60      OldPosition: Integer);
    4861    procedure VTHPopupColumnChange(const Sender: TBaseVirtualTree;
    4962      const Column: TColumnIndex; Visible: Boolean);
    50     procedure VSTHeaderDragged(Sender: TVTHeader; Column: TColumnIndex;
    51       OldPosition: Integer);
    52     procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
    53       Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
    54 
    55     procedure ClearValues;
    56     procedure WriteValues;
    57     procedure value_viewerDblClick(Sender: TObject);
    58     procedure value_viewer_context_copyClick(Sender: TObject);
    59     procedure value_viewerMouseDown(Sender: TObject; Button: TMouseButton;
    60       Shift: TShiftState; X, Y: Integer);
    61     procedure value_viewer_contextPopup(Sender: TObject);
    6263  private
    6364    fileid: Integer;
    … …  
    6768  end;
    6869
    69 var
    70   Form_BinEdit: TForm_BinEdit;
    71 
    7270implementation
    73 
    74 uses ValueEdit, Main, Functions, DatStructureLoader, RawEdit;
    7571{$R *.dfm}
     72uses ValueEdit, Main, Functions, DatStructureLoader, RawEdit, RawList,
     73  StrUtils, Clipbrd;
     74
    7675
    7776type
    … …  
    119118  //
    120119end;
     120
    121121
    122122procedure TForm_BinEdit.NewFile(fileinfo: TFileInfo);
    … …  
    991991
    992992
    993 
    994993procedure TForm_BinEdit.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    995994begin

  • oup/current/Tools/MetaEditor.dfm

    r217 r218  
    4848      OnPaintText = VSTPaintText
    4949      OnInitChildren = VSTInitChildren
    50       ExplicitLeft = 8
    51       ExplicitTop = 60
    52       ExplicitWidth = 353
    53       ExplicitHeight = 325
    5450      Columns = <
    5551        item
    … …  
    8076      Caption = 'Panel2'
    8177      TabOrder = 1
    82       ExplicitLeft = 376
    83       ExplicitTop = 92
    84       ExplicitHeight = 285
    8578    end
    8679  end

  • oup/current/Tools/MetaEditor.pas

    r217 r218  
    234234  inherited;
    235235  OnNewConnection := NewCon;
    236   FConnectionID := -1;
    237236
    238237  VST.NodeDataSize := SizeOf(TNodeData);

  • oup/current/Tools/_BaseTemplate.pas

    r217 r218  
    125125  FOnCheckCloseable := nil;
    126126  FConnectionID := -1;
    127   UpdateConList;
    128127end;
    129128

  • oup/current/Tools/_TemplateFileList.dfm

    r217 r218  
    3030        ItemHeight = 13
    3131        TabOrder = 0
     32        OnClick = listClick
     33        OnMouseDown = listMouseDown
    3234        ExplicitTop = 153
    3335        ExplicitHeight = 379
    … …  
    100102          ParentShowHint = False
    101103          ShowHint = True
     104          OnClick = btn_sortClick
    102105        end
    103106        object btn_sort_id_desc: TSpeedButton
    … …  
    119122          ParentShowHint = False
    120123          ShowHint = True
     124          OnClick = btn_sortClick
    121125        end
    122126        object btn_sort_name_asc: TSpeedButton
    … …  
    138142          ParentShowHint = False
    139143          ShowHint = True
     144          OnClick = btn_sortClick
    140145        end
    141146        object btn_sort_name_desc: TSpeedButton
    … …  
    157162          ParentShowHint = False
    158163          ShowHint = True
     164          OnClick = btn_sortClick
    159165        end
    160166        object btn_sort_ext_asc: TSpeedButton
    … …  
    176182          ParentShowHint = False
    177183          ShowHint = True
     184          OnClick = btn_sortClick
    178185        end
    179186        object btn_sort_ext_desc: TSpeedButton
    … …  
    195202          ParentShowHint = False
    196203          ShowHint = True
     204          OnClick = btn_sortClick
    197205        end
    198206        object bevel_filelist: TBevel
    … …  
    221229          Sorted = True
    222230          TabOrder = 3
     231          OnClick = combo_extensionClick
    223232        end
    224233        object check_zerobyte: TCheckBox
    … …  
    229238          Caption = 'Show &zero-byte files'
    230239          TabOrder = 2
     240          OnClick = check_zerobyteClick
    231241        end
    232242        object edit_filtername: TEdit
    … …  
    246256          Caption = 'Filter by file&name:'
    247257          TabOrder = 0
     258          OnClick = check_filternameClick
    248259        end
    249260      end

  • oup/current/Tools/_TemplateFileList.pas

    r217 r218  
    3737    importd: TOpenDialog;
    3838    exportd: TSaveDialog;
    39   private
    40     FSortBy: TSortType;
    41     FAllowedExts: String;
    42     FAllowMultiSelect: Boolean;
    43     procedure SetAllowedExts(exts: String);
    44     procedure SetMultiSelect(allow: Boolean);
     39    procedure NewCon(ID: Integer);
    4540
    4641    procedure check_filternameClick(Sender: TObject);
    … …  
    5752    procedure popup_linkshereClick(Sender: TObject);
    5853    procedure filepopupPopup(Sender: TObject);
     54  private
     55    FSortBy: TSortType;
     56    FAllowedExts: String;
     57    FAllowMultiSelect: Boolean;
     58    procedure SetAllowedExts(exts: String);
     59    procedure SetMultiSelect(allow: Boolean);
    5960  public
    6061    constructor Create(AOwner: TComponent); override;
    … …  
    7172implementation
    7273{$R *.dfm}
    73 uses ConnectionManager, Exporters, Functions, StrUtils, WhatLinksHere, Main;
     74uses ConnectionManager, Exporters, Functions, StrUtils, WhatLinksHere, Main,
     75  _BaseTemplate;
    7476
    7577
    … …  
    131133end;
    132134
     135
     136procedure TForm_TemplateFileList.NewCon(ID: Integer);
     137begin
     138  RecreateExtList;
     139end;
    133140
    134141procedure TForm_TemplateFileList.popup_exportClick(Sender: TObject);
    … …  
    333340  FAllowedExts := '';
    334341  FAllowMultiSelect := False;
     342  FOnNewConnection := NewCon;
     343  UpdateConList;
    335344  if Length(ToolList) > 0 then
    336345  begin
Note: See TracChangeset for help on using the changeset viewer.