Subversion Repositories recyclebinunit

recyclebinunit/trunk/Recycle Bin Unit v2/RecyclerListingMain.pas – Rev 88 → 90



end;
 
procedure TRecyclerListingMainForm.TreeView1DblClick(Sender: TObject);
var
  item: TRbRecycleBinItem;
 
begin
  if TreeView1.Selected.ImageIndex = 0 then
  begin
    // File
    item := TRbRecycleBinItem(TreeView1.Selected.Data);

Rev 88	Rev 90
Line 189...	Line 189...
189	end;	189	end;
190		190
191	procedure TRecyclerListingMainForm.TreeView1DblClick(Sender: TObject);	191	procedure TRecyclerListingMainForm.TreeView1DblClick(Sender: TObject);
192	var	192	var
193	item: TRbRecycleBinItem;	193	item: TRbRecycleBinItem;
194	tempFile, tempDir: string;	-
195	begin	194	begin
196	if TreeView1.Selected.ImageIndex = 0 then	195	if TreeView1.Selected.ImageIndex = 0 then
197	begin	196	begin
198	// File	197	// File
199	item := TRbRecycleBinItem(TreeView1.Selected.Data);	198	item := TRbRecycleBinItem(TreeView1.Selected.Data);