Changeset 218 for oup/current/Tools
- Timestamp:
- Jun 16, 2007, 12:12:39 AM (18 years ago)
- Location:
- oup/current/Tools
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/Tools/BinEdit.dfm
r198 r218 1 1 inherited Form_BinEdit: TForm_BinEdit 2 Caption = 'BinEdit' 3 KeyPreview = True 2 Caption = 'Form_BinEdit' 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 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 34 121 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 44 163 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 = '' 46 264 end 47 265 end 48 266 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 228 277 end 229 278 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 231 285 AutoHotkeys = maManual 232 286 AutoLineReduction = maManual … … 240 294 object value_viewer_context_copyasdec: TMenuItem 241 295 Caption = 'Copy to clipboard (as &dec)' 242 OnClick = value_viewer_context_copyClick243 296 end 244 297 object value_viewer_context_copyasfloat: TMenuItem 245 298 Caption = 'Copy to clipboard (as &float)' 246 OnClick = value_viewer_context_copyClick247 299 end 248 300 object value_viewer_context_copyasbitset: TMenuItem 249 301 Caption = 'Copy to clipboard (as &bitset)' 250 OnClick = value_viewer_context_copyClick251 302 end 252 303 object value_viewer_context_copyasstring: TMenuItem 253 304 Caption = 'Copy to clipboard (as &string)' 254 OnClick = value_viewer_context_copyClick255 305 end 256 306 object value_viewer_context_copyashex: TMenuItem 257 307 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 265 309 end 266 310 end -
oup/current/Tools/BinEdit.pas
r217 r218 1 1 unit BinEdit; 2 2 3 interface 4 3 5 uses 4 6 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, 7 9 Data, TypeDefs, ConnectionManager, Template, 8 _ BaseTemplate, _TemplateFile, _TemplateFileList;10 _TemplateFileList, VTHeaderPopup; 9 11 10 12 type 11 TForm_BinEdit = class(TForm_ToolTemplate) 13 TForm_BinEdit = class(TForm_TemplateFileList) 14 panel_imexport: TPanel; 15 btn_export: TButton; 16 btn_import: TButton; 12 17 hex: TMPHexEditor; 13 18 Splitter2: TSplitter; 14 19 value_viewer: TWrapGrid; 20 Splitter3: TSplitter; 15 21 VST: TVirtualStringTree; 16 Splitter3: TSplitter;22 VTHPopup: TVTHeaderPopupMenu; 17 23 value_viewer_context: TPopupMenu; 18 24 value_viewer_context_copy: TMenuItem; … … 22 28 value_viewer_context_copyasstring: TMenuItem; 23 29 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);29 30 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);37 31 38 32 procedure LoadDat(_fileid: Integer); … … 43 37 procedure WriteStructureInfos; 44 38 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); 45 54 procedure VSTDblClick(Sender: TObject); 46 55 procedure VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; 47 56 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); 48 61 procedure VTHPopupColumnChange(const Sender: TBaseVirtualTree; 49 62 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);62 63 private 63 64 fileid: Integer; … … 67 68 end; 68 69 69 var70 Form_BinEdit: TForm_BinEdit;71 72 70 implementation 73 74 uses ValueEdit, Main, Functions, DatStructureLoader, RawEdit;75 71 {$R *.dfm} 72 uses ValueEdit, Main, Functions, DatStructureLoader, RawEdit, RawList, 73 StrUtils, Clipbrd; 74 76 75 77 76 type … … 119 118 // 120 119 end; 120 121 121 122 122 procedure TForm_BinEdit.NewFile(fileinfo: TFileInfo); … … 991 991 992 992 993 994 993 procedure TForm_BinEdit.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); 995 994 begin -
oup/current/Tools/MetaEditor.dfm
r217 r218 48 48 OnPaintText = VSTPaintText 49 49 OnInitChildren = VSTInitChildren 50 ExplicitLeft = 851 ExplicitTop = 6052 ExplicitWidth = 35353 ExplicitHeight = 32554 50 Columns = < 55 51 item … … 80 76 Caption = 'Panel2' 81 77 TabOrder = 1 82 ExplicitLeft = 37683 ExplicitTop = 9284 ExplicitHeight = 28585 78 end 86 79 end -
oup/current/Tools/MetaEditor.pas
r217 r218 234 234 inherited; 235 235 OnNewConnection := NewCon; 236 FConnectionID := -1;237 236 238 237 VST.NodeDataSize := SizeOf(TNodeData); -
oup/current/Tools/_BaseTemplate.pas
r217 r218 125 125 FOnCheckCloseable := nil; 126 126 FConnectionID := -1; 127 UpdateConList;128 127 end; 129 128 -
oup/current/Tools/_TemplateFileList.dfm
r217 r218 30 30 ItemHeight = 13 31 31 TabOrder = 0 32 OnClick = listClick 33 OnMouseDown = listMouseDown 32 34 ExplicitTop = 153 33 35 ExplicitHeight = 379 … … 100 102 ParentShowHint = False 101 103 ShowHint = True 104 OnClick = btn_sortClick 102 105 end 103 106 object btn_sort_id_desc: TSpeedButton … … 119 122 ParentShowHint = False 120 123 ShowHint = True 124 OnClick = btn_sortClick 121 125 end 122 126 object btn_sort_name_asc: TSpeedButton … … 138 142 ParentShowHint = False 139 143 ShowHint = True 144 OnClick = btn_sortClick 140 145 end 141 146 object btn_sort_name_desc: TSpeedButton … … 157 162 ParentShowHint = False 158 163 ShowHint = True 164 OnClick = btn_sortClick 159 165 end 160 166 object btn_sort_ext_asc: TSpeedButton … … 176 182 ParentShowHint = False 177 183 ShowHint = True 184 OnClick = btn_sortClick 178 185 end 179 186 object btn_sort_ext_desc: TSpeedButton … … 195 202 ParentShowHint = False 196 203 ShowHint = True 204 OnClick = btn_sortClick 197 205 end 198 206 object bevel_filelist: TBevel … … 221 229 Sorted = True 222 230 TabOrder = 3 231 OnClick = combo_extensionClick 223 232 end 224 233 object check_zerobyte: TCheckBox … … 229 238 Caption = 'Show &zero-byte files' 230 239 TabOrder = 2 240 OnClick = check_zerobyteClick 231 241 end 232 242 object edit_filtername: TEdit … … 246 256 Caption = 'Filter by file&name:' 247 257 TabOrder = 0 258 OnClick = check_filternameClick 248 259 end 249 260 end -
oup/current/Tools/_TemplateFileList.pas
r217 r218 37 37 importd: TOpenDialog; 38 38 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); 45 40 46 41 procedure check_filternameClick(Sender: TObject); … … 57 52 procedure popup_linkshereClick(Sender: TObject); 58 53 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); 59 60 public 60 61 constructor Create(AOwner: TComponent); override; … … 71 72 implementation 72 73 {$R *.dfm} 73 uses ConnectionManager, Exporters, Functions, StrUtils, WhatLinksHere, Main; 74 uses ConnectionManager, Exporters, Functions, StrUtils, WhatLinksHere, Main, 75 _BaseTemplate; 74 76 75 77 … … 131 133 end; 132 134 135 136 procedure TForm_TemplateFileList.NewCon(ID: Integer); 137 begin 138 RecreateExtList; 139 end; 133 140 134 141 procedure TForm_TemplateFileList.popup_exportClick(Sender: TObject); … … 333 340 FAllowedExts := ''; 334 341 FAllowMultiSelect := False; 342 FOnNewConnection := NewCon; 343 UpdateConList; 335 344 if Length(ToolList) > 0 then 336 345 begin
Note:
See TracChangeset
for help on using the changeset viewer.