Rev 87 | Rev 90 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 87 | Rev 88 | ||
|---|---|---|---|
| Line 196... | Line 196... | ||
| 196 | if TreeView1.Selected.ImageIndex = 0 then |
196 | if TreeView1.Selected.ImageIndex = 0 then |
| 197 | begin |
197 | begin |
| 198 | // File |
198 | // File |
| 199 | item := TRbRecycleBinItem(TreeView1.Selected.Data); |
199 | item := TRbRecycleBinItem(TreeView1.Selected.Data); |
| 200 | // TODO: Does not work if the file type is unknown |
200 | // TODO: Does not work if the file type is unknown |
| - | 201 | // TODO: Maybe we should add a feature to drag'n'drop a file/folder out of RecycleBinUnit into the explorer (With options copy or move, depending on the ShiftState) |
|
| 201 | ShellExecute(Handle, 'open', PChar(item.PhysicalFile), '', '', SW_NORMAL); |
202 | ShellExecute(Handle, 'open', PChar(item.PhysicalFile), '', '', SW_NORMAL); |
| 202 | end; |
203 | end; |
| 203 | if TreeView1.Selected.ImageIndex = 10 then |
204 | if TreeView1.Selected.ImageIndex = 10 then |
| 204 | begin |
205 | begin |
| 205 | // Folder |
206 | // Folder |