recyclebinunitalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /trunk/Recycle Bin Unit v2/RecyclerListingMain.pas @ 82

  → /trunk/Recycle Bin Unit v2/RecyclerListingMain.pas @ 83

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 82 → Rev 83

/trunk/Recycle Bin Unit v2/RecyclerListingMain.pas
16,6 → 16,7
OpenDialog1: TOpenDialog;
LabeledEdit1: TLabeledEdit;
ImageList1: TImageList;
CheckBox2: TCheckBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
73,7 → 74,7
else
nDrive := TreeView1.Items.AddChildObject(localRecyclersNode, 'Drive '+drive.DriveLetter+':', drive);
nDrive.ImageIndex := 6;
nDrive.SelectedIndex := 6;
nDrive.SelectedIndex := nDrive.ImageIndex;
bins.Clear;
if CheckBox1.Checked then
86,7 → 87,7
nBin := TreeView1.Items.AddChildObject(nDrive, bin.FileOrDirectory, bin);
nBin.ImageIndex := 4;
nBin.SelectedIndex := 4;
nBin.SelectedIndex := nBin.ImageIndex;
items.Clear;
bin.ListItems(items);
93,9 → 94,16
for iItem := 0 to items.Count - 1 do
begin
item := items.Items[iItem] as TRbRecycleBinItem;
if not FileExists(item.PhysicalFile) and CheckBox2.Checked then continue;
nItem := TreeView1.Items.AddChildObject(nBin, item.Source, bin);
nItem.ImageIndex := 0;
nItem.SelectedIndex := 0;
if FileExists(item.PhysicalFile) then
nItem.ImageIndex := 0
else
nItem.ImageIndex := 8;
nItem.SelectedIndex := nItem.ImageIndex;
end;
end;
end;
131,9 → 139,16
for iItem := 0 to items.Count - 1 do
begin
item := items.Items[iItem] as TRbRecycleBinItem;
if not FileExists(item.PhysicalFile) and CheckBox2.Checked then continue;
nItem := TreeView1.Items.AddChildObject(nBin, item.Source, bin);
nItem.ImageIndex := 0;
nItem.SelectedIndex := 0;
if FileExists(item.PhysicalFile) then
nItem.ImageIndex := 0
else
nItem.ImageIndex := 8;
nItem.SelectedIndex := nItem.ImageIndex;
end;
finally
items.Free;
146,11 → 161,11
begin
localRecyclersNode := TreeView1.Items.Add(nil, 'Local recyclers');
localRecyclersNode.ImageIndex := 2;
localRecyclersNode.SelectedIndex := 2;
localRecyclersNode.SelectedIndex := localRecyclersNode.ImageIndex;
individualRecyclersNode := TreeView1.Items.Add(nil, 'Manually added recycle bins');
individualRecyclersNode.ImageIndex := 2;
individualRecyclersNode.SelectedIndex := 2;
individualRecyclersNode.SelectedIndex := individualRecyclersNode.ImageIndex;
end;
end.