Changeset 221 for oup/current


Ignore:
Timestamp:
Jun 18, 2007, 4:20:33 PM (17 years ago)
Author:
alloc
Message:
 
Location:
oup/current/Tools
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • oup/current/Tools/BinEdit.dfm

    r219 r221  
    44  OnCreate = FormCreate
    55  OnKeyUp = FormKeyUp
    6   ExplicitWidth = 606
    7   ExplicitHeight = 584
    86  PixelsPerInch = 96
    97  TextHeight = 13
    108  inherited panel_basecontent: TPanel
    119    inherited panel_files: TPanel
    12       inherited filelist: TListBox
    13         Height = 347
    14         ExplicitHeight = 347
     10      inherited FilePages: TPageControl
     11        Height = 471
     12        inherited tab_files: TTabSheet
     13          ExplicitWidth = 191
     14          ExplicitHeight = 443
     15          inherited panel_extension: TPanel
     16            ExplicitWidth = 191
     17            inherited combo_extension: TComboBox
     18              ExplicitWidth = 190
     19            end
     20          end
     21          inherited filelist: TListBox
     22            Height = 318
     23            ExplicitWidth = 191
     24            ExplicitHeight = 318
     25          end
     26        end
    1527      end
    1628      object panel_imexport: TPanel
    … …  
    2133        Align = alBottom
    2234        BevelOuter = bvNone
    23         TabOrder = 2
     35        TabOrder = 1
    2436        DesignSize = (
    2537          200

  • oup/current/Tools/BinEdit.pas

    r218 r221  
    88  StdCtrls, Menus, ExtCtrls, Buttons,
    99  Data, TypeDefs, ConnectionManager, Template,
    10   _TemplateFileList, VTHeaderPopup;
     10  _TemplateFileList, VTHeaderPopup, ComCtrls;
    1111
    1212type

  • oup/current/Tools/RawEdit.dfm

    r177 r221  
    11inherited Form_RawEdit: TForm_RawEdit
    2   Caption = 'RawEdit'
    3   KeyPreview = True
     2  Caption = 'Form_RawEdit'
    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     object Splitter4: TSplitter [0]
    13       Left = 0
    14       Top = 205
    15       Width = 200
    16       Height = 8
    17       Cursor = crVSplit
    18       Align = alBottom
    19       AutoSnap = False
    20       Beveled = True
    21       MinSize = 150
    22       ExplicitLeft = 3
    23       ExplicitTop = 89
    24     end
    25     inherited filelist: TListBox
    26       Height = 52
    27       ExplicitHeight = 52
    28     end
    29     object panel_imexport: TPanel
    30       Left = 0
    31       Top = 363
    32       Width = 200
    33       Height = 60
    34       Align = alBottom
    35       BevelOuter = bvNone
    36       TabOrder = 3
    37       DesignSize = (
    38         200
    39         60)
    40       object btn_export: TButton
    41         Left = 4
    42         Top = 4
    43         Width = 190
    44         Height = 25
    45         Anchors = [akLeft, akTop, akRight]
    46         Caption = 'Export to file...'
     8  inherited panel_basecontent: TPanel
     9    inherited panel_files: TPanel
     10      inherited FilePages: TPageControl
     11        inherited tab_files: TTabSheet
     12          object Splitter4: TSplitter [0]
     13            Left = 0
     14            Top = 285
     15            Width = 190
     16            Height = 8
     17            Cursor = crVSplit
     18            Align = alBottom
     19            AutoSnap = False
     20            Beveled = True
     21            MinSize = 150
     22            ExplicitTop = 125
     23          end
     24          inherited filelist: TListBox
     25            Height = 160
     26          end
     27          object panel_imexport: TPanel
     28            Left = 0
     29            Top = 443
     30            Width = 190
     31            Height = 60
     32            Align = alBottom
     33            BevelOuter = bvNone
     34            TabOrder = 2
     35            ExplicitTop = 363
     36            ExplicitWidth = 200
     37            DesignSize = (
     38              190
     39              60)
     40            object btn_export: TButton
     41              Left = 4
     42              Top = 4
     43              Width = 183
     44              Height = 25
     45              Anchors = [akLeft, akTop, akRight]
     46              Caption = 'Export to file...'
     47              TabOrder = 0
     48              OnClick = btn_exportClick
     49            end
     50            object btn_import: TButton
     51              Left = 4
     52              Top = 32
     53              Width = 183
     54              Height = 25
     55              Anchors = [akLeft, akTop, akRight]
     56              Caption = 'Import from file...'
     57              TabOrder = 1
     58              OnClick = btn_importClick
     59            end
     60          end
     61          object GroupBox1: TGroupBox
     62            Left = 0
     63            Top = 293
     64            Width = 190
     65            Height = 150
     66            Align = alBottom
     67            Caption = '2. Select .dat-link-offset'
     68            TabOrder = 3
     69            ExplicitTop = 213
     70            ExplicitWidth = 200
     71            object list_offset: TListBox
     72              Left = 2
     73              Top = 15
     74              Width = 186
     75              Height = 133
     76              Align = alClient
     77              ItemHeight = 13
     78              TabOrder = 0
     79              OnClick = list_offsetClick
     80            end
     81          end
     82        end
     83      end
     84    end
     85    inherited panel_content: TPanel
     86      object Splitter2: TSplitter
     87        Left = 0
     88        Top = 300
     89        Width = 390
     90        Height = 8
     91        Cursor = crVSplit
     92        Align = alTop
     93        AutoSnap = False
     94        Beveled = True
     95        MinSize = 40
     96      end
     97      object hex: TMPHexEditor
     98        Left = 0
     99        Top = 0
     100        Width = 390
     101        Height = 300
     102        Cursor = crIBeam
     103        Align = alTop
     104        Font.Charset = DEFAULT_CHARSET
     105        Font.Color = clWindowText
     106        Font.Height = -16
     107        Font.Name = 'Courier'
     108        Font.Style = []
     109        OnKeyUp = hexKeyUp
     110        ParentFont = False
    47111        TabOrder = 0
    48         OnClick = btn_exportClick
    49       end
    50       object btn_import: TButton
    51         Left = 4
    52         Top = 32
    53         Width = 190
    54         Height = 25
    55         Anchors = [akLeft, akTop, akRight]
    56         Caption = 'Import from file...'
     112        BytesPerRow = 16
     113        Translation = tkAsIs
     114        OffsetFormat = '6!10:0x|'
     115        Colors.Background = clWindow
     116        Colors.ChangedBackground = clWindow
     117        Colors.ChangedText = clRed
     118        Colors.CursorFrame = clNavy
     119        Colors.Offset = clBlack
     120        Colors.OddColumn = clBlue
     121        Colors.EvenColumn = clNavy
     122        Colors.CurrentOffsetBackground = clBtnShadow
     123        Colors.OffsetBackGround = clBtnFace
     124        Colors.CurrentOffset = clBtnHighlight
     125        Colors.Grid = clBtnFace
     126        Colors.NonFocusCursorFrame = clAqua
     127        Colors.ActiveFieldBackground = clWindow
     128        FocusFrame = True
     129        NoSizeChange = True
     130        AllowInsertMode = False
     131        DrawGridLines = False
     132        Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
     133        OnChange = hexChange
     134        ShowPositionIfNotFocused = True
     135        OnSelectionChanged = hexSelectionChanged
     136        ExplicitWidth = 283
     137      end
     138      object value_viewer: TWrapGrid
     139        Left = 0
     140        Top = 308
     141        Width = 390
     142        Height = 224
     143        Align = alClient
     144        ColCount = 2
     145        DefaultColWidth = 80
     146        DefaultRowHeight = 18
     147        FixedCols = 0
     148        RowCount = 8
     149        FixedRows = 0
     150        Font.Charset = DEFAULT_CHARSET
     151        Font.Color = clWindowText
     152        Font.Height = -11
     153        Font.Name = 'Tahoma'
     154        Font.Style = []
     155        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
     156        ParentFont = False
     157        ScrollBars = ssVertical
    57158        TabOrder = 1
    58         OnClick = btn_importClick
    59       end
    60     end
    61     object GroupBox1: TGroupBox
    62       Left = 0
    63       Top = 213
    64       Width = 200
    65       Height = 150
    66       Align = alBottom
    67       Caption = '2. Select .dat-link-offset'
    68       TabOrder = 2
    69       object list_offset: TListBox
    70         Left = 2
    71         Top = 15
    72         Width = 196
    73         Height = 133
    74         Align = alClient
    75         ItemHeight = 13
    76         TabOrder = 0
    77         OnClick = list_offsetClick
    78       end
    79     end
    80   end
    81   inherited content: TPanel
    82     object Splitter2: TSplitter
    83       Left = 0
    84       Top = 300
    85       Width = 283
    86       Height = 9
    87       Cursor = crVSplit
    88       Align = alTop
    89       AutoSnap = False
    90       Beveled = True
    91       MinSize = 40
    92       ExplicitTop = 414
    93     end
    94     object hex: TMPHexEditor
    95       Left = 0
    96       Top = 0
    97       Width = 283
    98       Height = 300
    99       Cursor = crIBeam
    100       Align = alTop
    101       Font.Charset = DEFAULT_CHARSET
    102       Font.Color = clWindowText
    103       Font.Height = -16
    104       Font.Name = 'Courier'
    105       Font.Style = []
    106       OnKeyUp = hexKeyUp
    107       ParentFont = False
    108       TabOrder = 0
    109       BytesPerRow = 16
    110       Translation = tkAsIs
    111       OffsetFormat = '6!10:0x|'
    112       Colors.Background = clWindow
    113       Colors.ChangedBackground = clWindow
    114       Colors.ChangedText = clRed
    115       Colors.CursorFrame = clNavy
    116       Colors.Offset = clBlack
    117       Colors.OddColumn = clBlue
    118       Colors.EvenColumn = clNavy
    119       Colors.CurrentOffsetBackground = clBtnShadow
    120       Colors.OffsetBackGround = clBtnFace
    121       Colors.CurrentOffset = clBtnHighlight
    122       Colors.Grid = clBtnFace
    123       Colors.NonFocusCursorFrame = clAqua
    124       Colors.ActiveFieldBackground = clWindow
    125       FocusFrame = True
    126       NoSizeChange = True
    127       AllowInsertMode = False
    128       DrawGridLines = False
    129       Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
    130       OnChange = hexChange
    131       ShowPositionIfNotFocused = True
    132       OnSelectionChanged = hexSelectionChanged
    133     end
    134     object value_viewer: TWrapGrid
    135       Left = 0
    136       Top = 309
    137       Width = 283
    138       Height = 114
    139       Align = alClient
    140       ColCount = 2
    141       DefaultColWidth = 80
    142       DefaultRowHeight = 18
    143       FixedCols = 0
    144       RowCount = 8
    145       FixedRows = 0
    146       Font.Charset = DEFAULT_CHARSET
    147       Font.Color = clWindowText
    148       Font.Height = -11
    149       Font.Name = 'Tahoma'
    150       Font.Style = []
    151       Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
    152       ParentFont = False
    153       PopupMenu = value_viewer_context
    154       ScrollBars = ssVertical
    155       TabOrder = 1
    156       OnDblClick = value_viewerDblClick
    157       OnMouseDown = value_viewerMouseDown
    158     end
    159   end
    160   object value_viewer_context: TPopupMenu [3]
     159        OnDblClick = value_viewerDblClick
     160        OnMouseDown = value_viewerMouseDown
     161        ExplicitTop = 309
     162        ExplicitWidth = 283
     163        ExplicitHeight = 114
     164      end
     165    end
     166  end
     167  object opend: TOpenDialog
     168    Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing]
     169    Left = 88
     170    Top = 396
     171  end
     172  object saved: TSaveDialog
     173    Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing]
     174    Left = 88
     175    Top = 420
     176  end
     177  object value_viewer_context: TPopupMenu
    161178    AutoHotkeys = maManual
    162179    OnPopup = value_viewer_contextPopup
    163     Left = 368
    164     Top = 264
     180    Left = 380
     181    Top = 388
    165182    object value_viewer_context_copy: TMenuItem
    166183      Caption = 'Copy to &clipboard'
    … …  
    169186    object value_viewer_context_copyasdec: TMenuItem
    170187      Caption = 'Copy to clipboard (as &dec)'
    171       OnClick = value_viewer_context_copyClick
    172188    end
    173189    object value_viewer_context_copyasfloat: TMenuItem
    174190      Caption = 'Copy to clipboard (as &float)'
    175       OnClick = value_viewer_context_copyClick
    176191    end
    177192    object value_viewer_context_copyasbitset: TMenuItem
    178193      Caption = 'Copy to clipboard (as &bitset)'
    179       OnClick = value_viewer_context_copyClick
    180194    end
    181195    object value_viewer_context_copyasstring: TMenuItem
    182196      Caption = 'Copy to clipboard (as &string)'
    183       OnClick = value_viewer_context_copyClick
    184197    end
    185198    object value_viewer_context_copyashex: TMenuItem
    186199      Caption = 'Copy to clipboard (as &hex)'
    187       OnClick = value_viewer_context_copyClick
    188     end
    189   end
    190   object opend: TOpenDialog [4]
    191     Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing]
    192     Left = 128
    193     Top = 256
    194   end
    195   object saved: TSaveDialog [5]
    196     Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing]
    197     Left = 128
    198     Top = 280
     200    end
    199201  end
    200202end

  • oup/current/Tools/RawEdit.pas

    r180 r221  
    11unit RawEdit;
     2
    23interface
     4
    35uses
    46  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    5   Dialogs, Template, StdCtrls, ExtCtrls, Menus, Grids, Wrapgrid,
    6   MPHexEditor, Clipbrd, StrUtils, TypeDefs,
    7   Data, Functions, DatStructureLoader, ConnectionManager, Buttons;
     7  Dialogs, _TemplateFileList, Menus, StdCtrls, ExtCtrls, Buttons, ComCtrls,
     8  TypeDefs, Grids, Wrapgrid, MPHexEditor;
    89
    910type
    10   TForm_RawEdit = class(TForm_ToolTemplate)
    11     Splitter4: TSplitter;
     11  TForm_RawEdit = class(TForm_TemplateFileList)
    1212    panel_imexport: TPanel;
    1313    btn_export: TButton;
    … …  
    1515    GroupBox1: TGroupBox;
    1616    list_offset: TListBox;
     17    Splitter4: TSplitter;
     18    opend: TOpenDialog;
     19    saved: TSaveDialog;
    1720    hex: TMPHexEditor;
     21    value_viewer: TWrapGrid;
    1822    Splitter2: TSplitter;
    19     value_viewer: TWrapGrid;
    2023    value_viewer_context: TPopupMenu;
    2124    value_viewer_context_copy: TMenuItem;
    … …  
    2528    value_viewer_context_copyasstring: TMenuItem;
    2629    value_viewer_context_copyashex: TMenuItem;
    27     opend: TOpenDialog;
    28     saved: TSaveDialog;
    2930    procedure list_offsetClick(Sender: TObject);
    3031    procedure NewFile(fileinfo: TFileInfo);
    … …  
    5859  end;
    5960
    60 var
    61   Form_RawEdit: TForm_RawEdit;
    6261
    6362implementation
    6463{$R *.dfm}
    65 uses Main, ValueEdit, RawList;
     64uses
     65  _TemplateFile, ValueEdit, ConnectionManager, StrUtils, Functions, RawList,
     66  Data, Clipbrd;
    6667
    6768procedure TForm_RawEdit.NewFile(fileinfo: TFileInfo);
    … …  
    813814  AddToolListEntry('rawedit', 'Binary .raw-Editor', '');
    814815end.
     816
     817

  • oup/current/Tools/_TemplateFileList.dfm

    r219 r221  
    11inherited Form_TemplateFileList: TForm_TemplateFileList
    22  Caption = 'Form_TemplateFileList'
     3  ExplicitWidth = 606
     4  ExplicitHeight = 584
    35  PixelsPerInch = 96
    46  TextHeight = 13
    … …  
    1113      AutoSnap = False
    1214      Beveled = True
    13       MinSize = 150
     15      MinSize = 175
    1416    end
    1517    object panel_files: TPanel
    … …  
    2123      BevelOuter = bvNone
    2224      TabOrder = 0
    23       object filelist: TListBox
    24         Left = 0
    25         Top = 125
    26         Width = 200
    27         Height = 407
     25      object FilePages: TPageControl
     26        AlignWithMargins = True
     27        Left = 1
     28        Top = 1
     29        Width = 198
     30        Height = 531
     31        Margins.Left = 1
     32        Margins.Top = 1
     33        Margins.Right = 1
     34        Margins.Bottom = 0
     35        ActivePage = tab_files
    2836        Align = alClient
    29         ItemHeight = 13
    3037        TabOrder = 0
    31         OnClick = listClick
    32         OnMouseDown = listMouseDown
    33       end
    34       object panel_extension: TPanel
    35         Left = 0
    36         Top = 0
    37         Width = 200
    38         Height = 125
    39         Align = alTop
    40         BevelOuter = bvNone
    41         TabOrder = 1
    42         DesignSize = (
    43           200
    44           125)
    45         object label_sort2: TLabel
    46           Left = 98
    47           Top = 105
    48           Width = 17
    49           Height = 18
    50           AutoSize = False
    51           Caption = '.'
    52           Font.Charset = DEFAULT_CHARSET
    53           Font.Color = clWindowText
    54           Font.Height = -13
    55           Font.Name = 'Tahoma'
    56           Font.Style = [fsBold]
    57           ParentFont = False
    58         end
    59         object label_sort1: TLabel
    60           Left = 45
    61           Top = 105
    62           Width = 17
    63           Height = 18
    64           AutoSize = False
    65           Caption = '-'
    66           Font.Charset = DEFAULT_CHARSET
    67           Font.Color = clWindowText
    68           Font.Height = -13
    69           Font.Name = 'Tahoma'
    70           Font.Style = [fsBold]
    71           ParentFont = False
    72         end
    73         object label_extension: TLabel
    74           Left = 0
    75           Top = 62
    76           Width = 100
    77           Height = 17
    78           AutoSize = False
    79           Caption = 'Filter by &extension:'
    80           FocusControl = combo_extension
    81         end
    82         object btn_sort_id_asc: TSpeedButton
    83           Left = 1
    84           Top = 101
    85           Width = 20
    86           Height = 22
    87           Hint = 'Sort files by id, ascending'
    88           GroupIndex = 1
    89           Down = True
    90           Glyph.Data = {
    91             F6000000424DF600000000000000760000002800000010000000100000000100
    92             0400000000008000000000000000000000001000000000000000C0C0C0000000
    93             9900990000000000000000000000000000000000000000000000000000000000
    94             0000000000000000000000000000000000000000000000000000000000000000
    95             0000000001100000300000001001000030000000000100033300000001110003
    96             3300000010010033333000001001000030000000011000003000000000000000
    97             3000000002200000300000002002000030000000200200003000000020020000
    98             3000000020020000300000002002000030000000022000003000}
    99           ParentShowHint = False
    100           ShowHint = True
    101           OnClick = btn_sortClick
    102         end
    103         object btn_sort_id_desc: TSpeedButton
    104           Left = 21
    105           Top = 101
    106           Width = 20
    107           Height = 22
    108           Hint = 'Sort files by id, descending'
    109           GroupIndex = 1
    110           Glyph.Data = {
    111             F6000000424DF600000000000000760000002800000010000000100000000100
    112             0400000000008000000000000000000000001000000000000000C0C0C0000000
    113             9900990000000000000000000000000000000000000000000000000000000000
    114             0000000000000000000000000000000000000000000000000000000000000000
    115             0000000002200000300000002002000030000000200200033300000020020003
    116             3300000020020033333000002002000030000000022000003000000000000000
    117             3000000001100000300000001001000030000000000100003000000001110000
    118             3000000010010000300000001001000030000000011000003000}
    119           ParentShowHint = False
    120           ShowHint = True
    121           OnClick = btn_sortClick
    122         end
    123         object btn_sort_name_asc: TSpeedButton
    124           Left = 56
    125           Top = 101
    126           Width = 20
    127           Height = 22
    128           Hint = 'Sort files by name, ascending'
    129           GroupIndex = 1
    130           Glyph.Data = {
    131             F6000000424DF600000000000000760000002800000010000000100000000100
    132             0400000000008000000000000000000000001000000000000000C0C0C0000000
    133             9900990000000000000000000000000000000000000000000000000000000000
    134             0000000000000000000000000000000000000000000000000000000000000000
    135             0000011111100000300001100010000030000011000000033300000110000003
    136             3300000011000033333001000110000030000111111000003000000000000000
    137             3000022202220000300000200020000030000022222000003000000202000000
    138             3000000222000000300000002000000030000000200000003000}
    139           ParentShowHint = False
    140           ShowHint = True
    141           OnClick = btn_sortClick
    142         end
    143         object btn_sort_name_desc: TSpeedButton
    144           Left = 76
    145           Top = 101
    146           Width = 20
    147           Height = 22
    148           Hint = 'Sort files by name, descending'
    149           GroupIndex = 1
    150           Glyph.Data = {
    151             F6000000424DF600000000000000760000002800000010000000100000000100
    152             0400000000008000000000000000000000001000000000000000C0C0C0000000
    153             9900990000000000000000000000000000000000000000000000000000000000
    154             0000000000000000000000000000000000000000000000000000000000000000
    155             0000022202220000300000200020000030000022222000033300000202000003
    156             3300000222000033333000002000000030000000200000003000000000000000
    157             3000011111100000300001100010000030000011000000003000000110000000
    158             3000000011000000300001000110000030000111111000003000}
    159           ParentShowHint = False
    160           ShowHint = True
    161           OnClick = btn_sortClick
    162         end
    163         object btn_sort_ext_asc: TSpeedButton
    164           Left = 106
    165           Top = 101
    166           Width = 20
    167           Height = 22
    168           Hint = 'Sort files by extension, ascending'
    169           GroupIndex = 1
    170           Glyph.Data = {
    171             F6000000424DF600000000000000760000002800000010000000100000000100
    172             0400000000008000000000000000000000001000000000000000C0C0C0000000
    173             9900990000000000000000000000000000000000000000000000000000000000
    174             0000000000000000000000000000000000000000000000000000000000000000
    175             0000011111100000300001100010000030000011000000033300000110000003
    176             3300000011000033333001000110000030000111111000003000000000000000
    177             3000022202220000300000200020000030000022222000003000000202000000
    178             3000000222000000300000002000000030000000200000003000}
    179           ParentShowHint = False
    180           ShowHint = True
    181           OnClick = btn_sortClick
    182         end
    183         object btn_sort_ext_desc: TSpeedButton
    184           Left = 126
    185           Top = 101
    186           Width = 20
    187           Height = 22
    188           Hint = 'Sort files by extension, descending'
    189           GroupIndex = 1
    190           Glyph.Data = {
    191             F6000000424DF600000000000000760000002800000010000000100000000100
    192             0400000000008000000000000000000000001000000000000000C0C0C0000000
    193             9900990000000000000000000000000000000000000000000000000000000000
    194             0000000000000000000000000000000000000000000000000000000000000000
    195             0000022202220000300000200020000030000022222000033300000202000003
    196             3300000222000033333000002000000030000000200000003000000000000000
    197             3000011111100000300001100010000030000011000000003000000110000000
    198             3000000011000000300001000110000030000111111000003000}
    199           ParentShowHint = False
    200           ShowHint = True
    201           OnClick = btn_sortClick
    202         end
    203         object bevel_filelist: TBevel
    204           Left = 0
    205           Top = 0
    206           Width = 199
    207           Height = 3
    208           Anchors = [akLeft, akTop, akRight]
    209           Style = bsRaised
    210         end
    211         object combo_extension: TComboBox
    212           Left = 0
    213           Top = 76
    214           Width = 196
    215           Height = 21
    216           Style = csDropDownList
    217           Anchors = [akLeft, akTop, akRight]
    218           DropDownCount = 20
    219           Font.Charset = DEFAULT_CHARSET
    220           Font.Color = clWindowText
    221           Font.Height = -11
    222           Font.Name = 'Courier'
    223           Font.Style = []
    224           ItemHeight = 13
    225           ParentFont = False
    226           Sorted = True
    227           TabOrder = 3
    228           OnClick = combo_extensionClick
    229         end
    230         object check_zerobyte: TCheckBox
    231           Left = 0
    232           Top = 44
    233           Width = 130
    234           Height = 13
    235           Caption = 'Show &zero-byte files'
    236           TabOrder = 2
    237           OnClick = check_zerobyteClick
    238         end
    239         object edit_filtername: TEdit
    240           Left = 0
    241           Top = 20
    242           Width = 196
    243           Height = 18
    244           Anchors = [akLeft, akTop, akRight]
    245           AutoSize = False
    246           TabOrder = 1
    247         end
    248         object check_filtername: TCheckBox
    249           Left = 0
    250           Top = 5
    251           Width = 130
    252           Height = 15
    253           Caption = 'Filter by file&name:'
    254           TabOrder = 0
    255           OnClick = check_filternameClick
     38        ExplicitLeft = -41
     39        ExplicitTop = 28
     40        ExplicitWidth = 241
     41        ExplicitHeight = 381
     42        object tab_files: TTabSheet
     43          Caption = 'Files'
     44          ExplicitWidth = 233
     45          ExplicitHeight = 353
     46          object panel_extension: TPanel
     47            Left = 0
     48            Top = 0
     49            Width = 190
     50            Height = 125
     51            Align = alTop
     52            BevelOuter = bvNone
     53            TabOrder = 0
     54            ExplicitWidth = 233
     55            DesignSize = (
     56              190
     57              125)
     58            object label_sort2: TLabel
     59              Left = 98
     60              Top = 105
     61              Width = 17
     62              Height = 18
     63              AutoSize = False
     64              Caption = '.'
     65              Font.Charset = DEFAULT_CHARSET
     66              Font.Color = clWindowText
     67              Font.Height = -13
     68              Font.Name = 'Tahoma'
     69              Font.Style = [fsBold]
     70              ParentFont = False
     71            end
     72            object label_sort1: TLabel
     73              Left = 45
     74              Top = 105
     75              Width = 17
     76              Height = 18
     77              AutoSize = False
     78              Caption = '-'
     79              Font.Charset = DEFAULT_CHARSET
     80              Font.Color = clWindowText
     81              Font.Height = -13
     82              Font.Name = 'Tahoma'
     83              Font.Style = [fsBold]
     84              ParentFont = False
     85            end
     86            object label_extension: TLabel
     87              Left = 0
     88              Top = 59
     89              Width = 100
     90              Height = 17
     91              AutoSize = False
     92              Caption = 'Filter by &extension:'
     93              FocusControl = combo_extension
     94            end
     95            object btn_sort_id_asc: TSpeedButton
     96              Left = 1
     97              Top = 101
     98              Width = 20
     99              Height = 22
     100              Hint = 'Sort files by id, ascending'
     101              GroupIndex = 1
     102              Down = True
     103              Glyph.Data = {
     104                F6000000424DF600000000000000760000002800000010000000100000000100
     105                0400000000008000000000000000000000001000000000000000C0C0C0000000
     106                9900990000000000000000000000000000000000000000000000000000000000
     107                0000000000000000000000000000000000000000000000000000000000000000
     108                0000000001100000300000001001000030000000000100033300000001110003
     109                3300000010010033333000001001000030000000011000003000000000000000
     110                3000000002200000300000002002000030000000200200003000000020020000
     111                3000000020020000300000002002000030000000022000003000}
     112              ParentShowHint = False
     113              ShowHint = True
     114              OnClick = btn_sortClick
     115            end
     116            object btn_sort_id_desc: TSpeedButton
     117              Left = 21
     118              Top = 101
     119              Width = 20
     120              Height = 22
     121              Hint = 'Sort files by id, descending'
     122              GroupIndex = 1
     123              Glyph.Data = {
     124                F6000000424DF600000000000000760000002800000010000000100000000100
     125                0400000000008000000000000000000000001000000000000000C0C0C0000000
     126                9900990000000000000000000000000000000000000000000000000000000000
     127                0000000000000000000000000000000000000000000000000000000000000000
     128                0000000002200000300000002002000030000000200200033300000020020003
     129                3300000020020033333000002002000030000000022000003000000000000000
     130                3000000001100000300000001001000030000000000100003000000001110000
     131                3000000010010000300000001001000030000000011000003000}
     132              ParentShowHint = False
     133              ShowHint = True
     134              OnClick = btn_sortClick
     135            end
     136            object btn_sort_name_asc: TSpeedButton
     137              Left = 56
     138              Top = 101
     139              Width = 20
     140              Height = 22
     141              Hint = 'Sort files by name, ascending'
     142              GroupIndex = 1
     143              Glyph.Data = {
     144                F6000000424DF600000000000000760000002800000010000000100000000100
     145                0400000000008000000000000000000000001000000000000000C0C0C0000000
     146                9900990000000000000000000000000000000000000000000000000000000000
     147                0000000000000000000000000000000000000000000000000000000000000000
     148                0000011111100000300001100010000030000011000000033300000110000003
     149                3300000011000033333001000110000030000111111000003000000000000000
     150                3000022202220000300000200020000030000022222000003000000202000000
     151                3000000222000000300000002000000030000000200000003000}
     152              ParentShowHint = False
     153              ShowHint = True
     154              OnClick = btn_sortClick
     155            end
     156            object btn_sort_name_desc: TSpeedButton
     157              Left = 76
     158              Top = 101
     159              Width = 20
     160              Height = 22
     161              Hint = 'Sort files by name, descending'
     162              GroupIndex = 1
     163              Glyph.Data = {
     164                F6000000424DF600000000000000760000002800000010000000100000000100
     165                0400000000008000000000000000000000001000000000000000C0C0C0000000
     166                9900990000000000000000000000000000000000000000000000000000000000
     167                0000000000000000000000000000000000000000000000000000000000000000
     168                0000022202220000300000200020000030000022222000033300000202000003
     169                3300000222000033333000002000000030000000200000003000000000000000
     170                3000011111100000300001100010000030000011000000003000000110000000
     171                3000000011000000300001000110000030000111111000003000}
     172              ParentShowHint = False
     173              ShowHint = True
     174              OnClick = btn_sortClick
     175            end
     176            object btn_sort_ext_asc: TSpeedButton
     177              Left = 106
     178              Top = 101
     179              Width = 20
     180              Height = 22
     181              Hint = 'Sort files by extension, ascending'
     182              GroupIndex = 1
     183              Glyph.Data = {
     184                F6000000424DF600000000000000760000002800000010000000100000000100
     185                0400000000008000000000000000000000001000000000000000C0C0C0000000
     186                9900990000000000000000000000000000000000000000000000000000000000
     187                0000000000000000000000000000000000000000000000000000000000000000
     188                0000011111100000300001100010000030000011000000033300000110000003
     189                3300000011000033333001000110000030000111111000003000000000000000
     190                3000022202220000300000200020000030000022222000003000000202000000
     191                3000000222000000300000002000000030000000200000003000}
     192              ParentShowHint = False
     193              ShowHint = True
     194              OnClick = btn_sortClick
     195            end
     196            object btn_sort_ext_desc: TSpeedButton
     197              Left = 126
     198              Top = 101
     199              Width = 20
     200              Height = 22
     201              Hint = 'Sort files by extension, descending'
     202              GroupIndex = 1
     203              Glyph.Data = {
     204                F6000000424DF600000000000000760000002800000010000000100000000100
     205                0400000000008000000000000000000000001000000000000000C0C0C0000000
     206                9900990000000000000000000000000000000000000000000000000000000000
     207                0000000000000000000000000000000000000000000000000000000000000000
     208                0000022202220000300000200020000030000022222000033300000202000003
     209                3300000222000033333000002000000030000000200000003000000000000000
     210                3000011111100000300001100010000030000011000000003000000110000000
     211                3000000011000000300001000110000030000111111000003000}
     212              ParentShowHint = False
     213              ShowHint = True
     214              OnClick = btn_sortClick
     215            end
     216            object combo_extension: TComboBox
     217              Left = 0
     218              Top = 74
     219              Width = 189
     220              Height = 21
     221              Style = csDropDownList
     222              Anchors = [akLeft, akTop, akRight]
     223              DropDownCount = 20
     224              Font.Charset = DEFAULT_CHARSET
     225              Font.Color = clWindowText
     226              Font.Height = -11
     227              Font.Name = 'Courier'
     228              Font.Style = []
     229              ItemHeight = 13
     230              ParentFont = False
     231              Sorted = True
     232              TabOrder = 3
     233              OnClick = combo_extensionClick
     234              ExplicitWidth = 232
     235            end
     236            object check_zerobyte: TCheckBox
     237              Left = 0
     238              Top = 40
     239              Width = 130
     240              Height = 13
     241              Caption = 'Show &zero-byte files'
     242              TabOrder = 2
     243              OnClick = check_zerobyteClick
     244            end
     245            object edit_filtername: TEdit
     246              Left = 0
     247              Top = 16
     248              Width = 189
     249              Height = 18
     250              Anchors = [akLeft, akTop, akRight]
     251              AutoSize = False
     252              TabOrder = 1
     253              ExplicitWidth = 232
     254            end
     255            object check_filtername: TCheckBox
     256              Left = 0
     257              Top = 0
     258              Width = 130
     259              Height = 15
     260              Caption = 'Filter by file&name:'
     261              TabOrder = 0
     262              OnClick = check_filternameClick
     263            end
     264          end
     265          object filelist: TListBox
     266            Left = 0
     267            Top = 125
     268            Width = 190
     269            Height = 378
     270            Align = alClient
     271            ItemHeight = 13
     272            TabOrder = 1
     273            OnClick = listClick
     274            OnMouseDown = listMouseDown
     275            ExplicitWidth = 233
     276            ExplicitHeight = 228
     277          end
    256278        end
    257279      end

  • oup/current/Tools/_TemplateFileList.pas

    r219 r221  
    66  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    77  Dialogs, _TemplateFile, StdCtrls, ExtCtrls, Menus, Buttons,
    8   TypeDefs;
     8  ComCtrls, TypeDefs;
    99
    1010type
    1111  TForm_TemplateFileList = class(TForm_TemplateFile)
    1212    panel_files: TPanel;
    13     filelist: TListBox;
     13    splitter_content: TSplitter;
     14    panel_content: TPanel;
     15    filepopup: TPopupMenu;
     16    popup_separator2: TMenuItem;
     17    popup_linkshere: TMenuItem;
     18    popup_separator: TMenuItem;
     19    popup_import: TMenuItem;
     20    popup_export: TMenuItem;
     21    importd: TOpenDialog;
     22    exportd: TSaveDialog;
     23    FilePages: TPageControl;
     24    tab_files: TTabSheet;
    1425    panel_extension: TPanel;
    1526    label_sort2: TLabel;
    … …  
    2637    edit_filtername: TEdit;
    2738    check_filtername: TCheckBox;
    28     bevel_filelist: TBevel;
    29     splitter_content: TSplitter;
    30     panel_content: TPanel;
    31     filepopup: TPopupMenu;
    32     popup_separator2: TMenuItem;
    33     popup_linkshere: TMenuItem;
    34     popup_separator: TMenuItem;
    35     popup_import: TMenuItem;
    36     popup_export: TMenuItem;
    37     importd: TOpenDialog;
    38     exportd: TSaveDialog;
     39    filelist: TListBox;
    3940    procedure NewCon(ID: Integer);
    4041
Note: See TracChangeset for help on using the changeset viewer.