| 1 | object Form5: TForm5 | 
 
 
 
 
 | 2 | Left = 0 | 
 
 
 
 
 | 3 | Top = 0 | 
 
 
 
 
 | 4 | Width = 480 | 
 
 
 
 
 | 5 | Height = 500 | 
 
 
 
 
 | 6 | Caption = 'Preview' | 
 
 
 
 
 | 7 | Color = clBtnFace | 
 
 
 
 
 | 8 | Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 | 9 | Font.Color = clWindowText | 
 
 
 
 
 | 10 | Font.Height = -11 | 
 
 
 
 
 | 11 | Font.Name = 'Tahoma' | 
 
 
 
 
 | 12 | Font.Style = [] | 
 
 
 
 
 | 13 | FormStyle = fsMDIChild | 
 
 
 
 
 | 14 | OldCreateOrder = False | 
 
 
 
 
 | 15 | Visible = True | 
 
 
 
 
 | 16 | WindowState = wsMaximized | 
 
 
 
 
 | 17 | OnActivate = FormActivate | 
 
 
 
 
 | 18 | OnClose = FormClose | 
 
 
 
 
 | 19 | OnCreate = FormCreate | 
 
 
 
 
 | 20 | OnResize = FormResize | 
 
 
 
 
 | 21 | PixelsPerInch = 96 | 
 
 
 
 
 | 22 | TextHeight = 13 | 
 
 
 
 
 | 23 | object Splitter1: TSplitter | 
 
 
 
 
 | 24 | Left = 150 | 
 
 
 
 
 | 25 | Top = 0 | 
 
 
 
 
 | 26 | Width = 9 | 
 
 
 
 
 | 27 | Height = 473 | 
 
 
 
 
 | 28 | AutoSnap = False | 
 
 
 
 
 | 29 | Beveled = True | 
 
 
 
 
 | 30 | MinSize = 150 | 
 
 
 
 
 | 31 | end | 
 
 
 
 
 | 32 | object panel_preview: TPanel | 
 
 
 
 
 | 33 | Left = 159 | 
 
 
 
 
 | 34 | Top = 0 | 
 
 
 
 
 | 35 | Width = 313 | 
 
 
 
 
 | 36 | Height = 473 | 
 
 
 
 
 | 37 | Align = alClient | 
 
 
 
 
 | 38 | BevelOuter = bvNone | 
 
 
 
 
 | 39 | TabOrder = 0 | 
 
 
 
 
 | 40 | object img: TImage | 
 
 
 
 
 | 41 | Left = 0 | 
 
 
 
 
 | 42 | Top = 20 | 
 
 
 
 
 | 43 | Width = 313 | 
 
 
 
 
 | 44 | Height = 453 | 
 
 
 
 
 | 45 | Align = alClient | 
 
 
 
 
 | 46 | end | 
 
 
 
 
 | 47 | object lbl_notpossible: TLabel | 
 
 
 
 
 | 48 | Left = 16 | 
 
 
 
 
 | 49 | Top = 56 | 
 
 
 
 
 | 50 | Width = 97 | 
 
 
 
 
 | 51 | Height = 65 | 
 
 
 
 
 | 52 | AutoSize = False | 
 
 
 
 
 | 53 | Caption = 'No preview possible for this filetype' | 
 
 
 
 
 | 54 | Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 | 55 | Font.Color = clWindowText | 
 
 
 
 
 | 56 | Font.Height = -16 | 
 
 
 
 
 | 57 | Font.Name = 'Tahoma' | 
 
 
 
 
 | 58 | Font.Style = [] | 
 
 
 
 
 | 59 | ParentFont = False | 
 
 
 
 
 | 60 | Visible = False | 
 
 
 
 
 | 61 | WordWrap = True | 
 
 
 
 
 | 62 | end | 
 
 
 
 
 | 63 | object panel_buttons: TPanel | 
 
 
 
 
 | 64 | Left = 0 | 
 
 
 
 
 | 65 | Top = 0 | 
 
 
 
 
 | 66 | Width = 313 | 
 
 
 
 
 | 67 | Height = 20 | 
 
 
 
 
 | 68 | Align = alTop | 
 
 
 
 
 | 69 | BevelOuter = bvNone | 
 
 
 
 
 | 70 | TabOrder = 0 | 
 
 
 
 
 | 71 | Visible = False | 
 
 
 
 
 | 72 | OnResize = panel_buttonsResize | 
 
 
 
 
 | 73 | object btn_dec: TButton | 
 
 
 
 
 | 74 | Left = 0 | 
 
 
 
 
 | 75 | Top = 0 | 
 
 
 
 
 | 76 | Width = 20 | 
 
 
 
 
 | 77 | Height = 20 | 
 
 
 
 
 | 78 | Caption = '-' | 
 
 
 
 
 | 79 | Enabled = False | 
 
 
 
 
 | 80 | TabOrder = 0 | 
 
 
 
 
 | 81 | OnClick = btn_decClick | 
 
 
 
 
 | 82 | end | 
 
 
 
 
 | 83 | object btn_startstop: TButton | 
 
 
 
 
 | 84 | Left = 21 | 
 
 
 
 
 | 85 | Top = 0 | 
 
 
 
 
 | 86 | Width = 80 | 
 
 
 
 
 | 87 | Height = 20 | 
 
 
 
 
 | 88 | Caption = 'Stop automatic' | 
 
 
 
 
 | 89 | TabOrder = 1 | 
 
 
 
 
 | 90 | OnClick = btn_startstopClick | 
 
 
 
 
 | 91 | end | 
 
 
 
 
 | 92 | object btn_inc: TButton | 
 
 
 
 
 | 93 | Left = 102 | 
 
 
 
 
 | 94 | Top = 0 | 
 
 
 
 
 | 95 | Width = 20 | 
 
 
 
 
 | 96 | Height = 20 | 
 
 
 
 
 | 97 | Caption = '+' | 
 
 
 
 
 | 98 | Enabled = False | 
 
 
 
 
 | 99 | TabOrder = 2 | 
 
 
 
 
 | 100 | OnClick = btn_incClick | 
 
 
 
 
 | 101 | end | 
 
 
 
 
 | 102 | end | 
 
 
 
 
 | 103 | end | 
 
 
 
 
 | 104 | object panel_files: TPanel | 
 
 
 
 
 | 105 | Left = 0 | 
 
 
 
 
 | 106 | Top = 0 | 
 
 
 
 
 | 107 | Width = 150 | 
 
 
 
 
 | 108 | Height = 473 | 
 
 
 
 
 | 109 | Align = alLeft | 
 
 
 
 
 | 110 | BevelOuter = bvNone | 
 
 
 
 
 | 111 | TabOrder = 1 | 
 
 
 
 
 | 112 | object list: TListBox | 
 
 
 
 
 | 113 | Left = 0 | 
 
 
 
 
 | 114 | Top = 0 | 
 
 
 
 
 | 115 | Width = 150 | 
 
 
 
 
 | 116 | Height = 370 | 
 
 
 
 
 | 117 | Align = alClient | 
 
 
 
 
 | 118 | ItemHeight = 13 | 
 
 
 
 
 | 119 | TabOrder = 0 | 
 
 
 
 
 | 120 | OnClick = listClick | 
 
 
 
 
 | 121 | end | 
 
 
 
 
 | 122 | object panel_extension: TPanel | 
 
 
 
 
 | 123 | Left = 0 | 
 
 
 
 
 | 124 | Top = 370 | 
 
 
 
 
 | 125 | Width = 150 | 
 
 
 
 
 | 126 | Height = 103 | 
 
 
 
 
 | 127 | Align = alBottom | 
 
 
 
 
 | 128 | BevelOuter = bvNone | 
 
 
 
 
 | 129 | TabOrder = 1 | 
 
 
 
 
 | 130 | OnResize = panel_extensionResize | 
 
 
 
 
 | 131 | object lbl_filter: TLabel | 
 
 
 
 
 | 132 | Left = 2 | 
 
 
 
 
 | 133 | Top = 62 | 
 
 
 
 
 | 134 | Width = 100 | 
 
 
 
 
 | 135 | Height = 17 | 
 
 
 
 
 | 136 | AutoSize = False | 
 
 
 
 
 | 137 | Caption = 'Filter by &extension:' | 
 
 
 
 
 | 138 | FocusControl = combo_extension | 
 
 
 
 
 | 139 | end | 
 
 
 
 
 | 140 | object combo_extension: TComboBox | 
 
 
 
 
 | 141 | Left = 2 | 
 
 
 
 
 | 142 | Top = 76 | 
 
 
 
 
 | 143 | Width = 145 | 
 
 
 
 
 | 144 | Height = 21 | 
 
 
 
 
 | 145 | Style = csDropDownList | 
 
 
 
 
 | 146 | DropDownCount = 12 | 
 
 
 
 
 | 147 | Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 | 148 | Font.Color = clWindowText | 
 
 
 
 
 | 149 | Font.Height = -11 | 
 
 
 
 
 | 150 | Font.Name = 'Tahoma' | 
 
 
 
 
 | 151 | Font.Style = [] | 
 
 
 
 
 | 152 | ItemHeight = 13 | 
 
 
 
 
 | 153 | ParentFont = False | 
 
 
 
 
 | 154 | Sorted = True | 
 
 
 
 
 | 155 | TabOrder = 3 | 
 
 
 
 
 | 156 | OnClick = combo_extensionClick | 
 
 
 
 
 | 157 | end | 
 
 
 
 
 | 158 | object check_zerobyte: TCheckBox | 
 
 
 
 
 | 159 | Left = 2 | 
 
 
 
 
 | 160 | Top = 44 | 
 
 
 
 
 | 161 | Width = 130 | 
 
 
 
 
 | 162 | Height = 13 | 
 
 
 
 
 | 163 | Caption = 'Show &zero-byte files' | 
 
 
 
 
 | 164 | TabOrder = 2 | 
 
 
 
 
 | 165 | OnClick = check_zerobyteClick | 
 
 
 
 
 | 166 | end | 
 
 
 
 
 | 167 | object edit_filtername: TEdit | 
 
 
 
 
 | 168 | Left = 2 | 
 
 
 
 
 | 169 | Top = 20 | 
 
 
 
 
 | 170 | Width = 145 | 
 
 
 
 
 | 171 | Height = 18 | 
 
 
 
 
 | 172 | AutoSize = False | 
 
 
 
 
 | 173 | TabOrder = 1 | 
 
 
 
 
 | 174 | end | 
 
 
 
 
 | 175 | object check_filtername: TCheckBox | 
 
 
 
 
 | 176 | Left = 2 | 
 
 
 
 
 | 177 | Top = 5 | 
 
 
 
 
 | 178 | Width = 130 | 
 
 
 
 
 | 179 | Height = 15 | 
 
 
 
 
 | 180 | Caption = 'Filter by file&name:' | 
 
 
 
 
 | 181 | TabOrder = 0 | 
 
 
 
 
 | 182 | OnClick = check_filternameClick | 
 
 
 
 
 | 183 | end | 
 
 
 
 
 | 184 | end | 
 
 
 
 
 | 185 | end | 
 
 
 
 
 | 186 | object timer: TTimer | 
 
 
 
 
 | 187 | Enabled = False | 
 
 
 
 
 | 188 | OnTimer = timerTimer | 
 
 
 
 
 | 189 | Left = 144 | 
 
 
 
 
 | 190 | Top = 24 | 
 
 
 
 
 | 191 | end | 
 
 
 
 
 | 192 | end |