procedure TForm1.IconView1Click(Sender: TObject);
begin try
vr1.ViewStyle := TViewStyleEx(TMenuItem(Sender).Tag);
TMenuItem(Sender).Checked:=true;
except end;End;