| 18,11 → 18,14 |
|---|
| ImageList1: TImageList; |
| CheckBox2: TCheckBox; |
| Button3: TButton; |
| Button4: TButton; |
| SaveDialog1: TSaveDialog; |
| procedure Button1Click(Sender: TObject); |
| procedure Button2Click(Sender: TObject); |
| procedure FormShow(Sender: TObject); |
| procedure TreeView1DblClick(Sender: TObject); |
| procedure Button3Click(Sender: TObject); |
| procedure Button4Click(Sender: TObject); |
| private |
| localRecyclersNode: TTreeNode; |
| individualRecyclersNode: TTreeNode; |
| 50,6 → 53,9 |
|---|
| ICON_UNKNOWN = 8; |
| ICON_FOLDER = 10; |
| |
| resourcestring |
| S_PLEASE_WAIT = 'Please wait'; |
| |
| procedure TRecyclerListingMainForm.Button1Click(Sender: TObject); |
| var |
| drives: TObjectList{TRbDrive}; |
| 67,9 → 73,14 |
|---|
| item: TRbRecycleBinItem; |
| nItem: TTreeNode; |
| sCaption: string; |
| |
| bakCaption: string; |
| resourcestring |
| S_DRIVE = 'Drive %s'; |
| begin |
| bakCaption := Button1.Caption; |
| Button1.Caption := S_PLEASE_WAIT; |
| try |
| localRecyclersNode.DeleteChildren; // TODO: Will the objects be freed? This is important to avoid memory leaks. |
| |
| TreeView1.Items.BeginUpdate; |
| 135,7 → 146,10 |
|---|
| end; |
| |
| localRecyclersNode.Expand(false); |
| finally |
| Button1.Caption := bakCaption; |
| end; |
| end; |
| |
| procedure TRecyclerListingMainForm.Button2Click(Sender: TObject); |
| var |
| 147,7 → 161,11 |
|---|
| item: TRbRecycleBinItem; |
| nItem: TTreeNode; |
| sCaption: string; |
| bakCaption: string; |
| begin |
| bakCaption := Button2.Caption; |
| Button2.Caption := S_PLEASE_WAIT; |
| try |
| bin := TRbRecycleBin.Create(LabeledEdit1.Text); |
| |
| nBin := TreeView1.Items.AddChildObject(individualRecyclersNode, bin.FileOrDirectory, bin); |
| 184,7 → 202,10 |
|---|
| end; |
| |
| nBin.Expand(false); |
| finally |
| Button2.Caption := bakCaption; |
| end; |
| end; |
| |
| procedure TRecyclerListingMainForm.Button3Click(Sender: TObject); |
| begin |
| 192,6 → 213,14 |
|---|
| LabeledEdit1.Text := OpenDialog1.FileName; |
| end; |
| |
| procedure TRecyclerListingMainForm.Button4Click(Sender: TObject); |
| begin |
| if SaveDialog1.Execute then |
| begin |
| TreeView1.SaveToFile(SaveDialog1.FileName); |
| end; |
| end; |
| |
| procedure TRecyclerListingMainForm.FormShow(Sender: TObject); |
| resourcestring |
| S_LOCAL_RECYCLE_BINS = 'Local recycle bins'; |