Changeset 221 for oup/current
- Timestamp:
- Jun 18, 2007, 4:20:33 PM (18 years ago)
- Location:
- oup/current/Tools
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/Tools/BinEdit.dfm
r219 r221 4 4 OnCreate = FormCreate 5 5 OnKeyUp = FormKeyUp 6 ExplicitWidth = 6067 ExplicitHeight = 5848 6 PixelsPerInch = 96 9 7 TextHeight = 13 10 8 inherited panel_basecontent: TPanel 11 9 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 15 27 end 16 28 object panel_imexport: TPanel … … 21 33 Align = alBottom 22 34 BevelOuter = bvNone 23 TabOrder = 235 TabOrder = 1 24 36 DesignSize = ( 25 37 200 -
oup/current/Tools/BinEdit.pas
r218 r221 8 8 StdCtrls, Menus, ExtCtrls, Buttons, 9 9 Data, TypeDefs, ConnectionManager, Template, 10 _TemplateFileList, VTHeaderPopup ;10 _TemplateFileList, VTHeaderPopup, ComCtrls; 11 11 12 12 type -
oup/current/Tools/RawEdit.dfm
r177 r221 1 1 inherited Form_RawEdit: TForm_RawEdit 2 Caption = 'RawEdit' 3 KeyPreview = True 2 Caption = 'Form_RawEdit' 4 3 OnCloseQuery = FormCloseQuery 5 4 OnCreate = FormCreate 6 5 OnKeyUp = FormKeyUp 7 ExplicitWidth = 5008 ExplicitHeight = 4509 6 PixelsPerInch = 96 10 7 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 47 111 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 57 158 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 161 178 AutoHotkeys = maManual 162 179 OnPopup = value_viewer_contextPopup 163 Left = 3 68164 Top = 264180 Left = 380 181 Top = 388 165 182 object value_viewer_context_copy: TMenuItem 166 183 Caption = 'Copy to &clipboard' … … 169 186 object value_viewer_context_copyasdec: TMenuItem 170 187 Caption = 'Copy to clipboard (as &dec)' 171 OnClick = value_viewer_context_copyClick172 188 end 173 189 object value_viewer_context_copyasfloat: TMenuItem 174 190 Caption = 'Copy to clipboard (as &float)' 175 OnClick = value_viewer_context_copyClick176 191 end 177 192 object value_viewer_context_copyasbitset: TMenuItem 178 193 Caption = 'Copy to clipboard (as &bitset)' 179 OnClick = value_viewer_context_copyClick180 194 end 181 195 object value_viewer_context_copyasstring: TMenuItem 182 196 Caption = 'Copy to clipboard (as &string)' 183 OnClick = value_viewer_context_copyClick184 197 end 185 198 object value_viewer_context_copyashex: TMenuItem 186 199 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 199 201 end 200 202 end -
oup/current/Tools/RawEdit.pas
r180 r221 1 1 unit RawEdit; 2 2 3 interface 4 3 5 uses 4 6 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; 8 9 9 10 type 10 TForm_RawEdit = class(TForm_ToolTemplate) 11 Splitter4: TSplitter; 11 TForm_RawEdit = class(TForm_TemplateFileList) 12 12 panel_imexport: TPanel; 13 13 btn_export: TButton; … … 15 15 GroupBox1: TGroupBox; 16 16 list_offset: TListBox; 17 Splitter4: TSplitter; 18 opend: TOpenDialog; 19 saved: TSaveDialog; 17 20 hex: TMPHexEditor; 21 value_viewer: TWrapGrid; 18 22 Splitter2: TSplitter; 19 value_viewer: TWrapGrid;20 23 value_viewer_context: TPopupMenu; 21 24 value_viewer_context_copy: TMenuItem; … … 25 28 value_viewer_context_copyasstring: TMenuItem; 26 29 value_viewer_context_copyashex: TMenuItem; 27 opend: TOpenDialog;28 saved: TSaveDialog;29 30 procedure list_offsetClick(Sender: TObject); 30 31 procedure NewFile(fileinfo: TFileInfo); … … 58 59 end; 59 60 60 var61 Form_RawEdit: TForm_RawEdit;62 61 63 62 implementation 64 63 {$R *.dfm} 65 uses Main, ValueEdit, RawList; 64 uses 65 _TemplateFile, ValueEdit, ConnectionManager, StrUtils, Functions, RawList, 66 Data, Clipbrd; 66 67 67 68 procedure TForm_RawEdit.NewFile(fileinfo: TFileInfo); … … 813 814 AddToolListEntry('rawedit', 'Binary .raw-Editor', ''); 814 815 end. 816 817 -
oup/current/Tools/_TemplateFileList.dfm
r219 r221 1 1 inherited Form_TemplateFileList: TForm_TemplateFileList 2 2 Caption = 'Form_TemplateFileList' 3 ExplicitWidth = 606 4 ExplicitHeight = 584 3 5 PixelsPerInch = 96 4 6 TextHeight = 13 … … 11 13 AutoSnap = False 12 14 Beveled = True 13 MinSize = 1 5015 MinSize = 175 14 16 end 15 17 object panel_files: TPanel … … 21 23 BevelOuter = bvNone 22 24 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 28 36 Align = alClient 29 ItemHeight = 1330 37 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 256 278 end 257 279 end -
oup/current/Tools/_TemplateFileList.pas
r219 r221 6 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 7 Dialogs, _TemplateFile, StdCtrls, ExtCtrls, Menus, Buttons, 8 TypeDefs;8 ComCtrls, TypeDefs; 9 9 10 10 type 11 11 TForm_TemplateFileList = class(TForm_TemplateFile) 12 12 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; 14 25 panel_extension: TPanel; 15 26 label_sort2: TLabel; … … 26 37 edit_filtername: TEdit; 27 38 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; 39 40 procedure NewCon(ID: Integer); 40 41
Note:
See TracChangeset
for help on using the changeset viewer.