procedure TForm1.JvFormStorage1RestorePlacement(Sender: TObject);
begin try
if vr1.ViewStyle =vsxIcon then IconView1.Checked := true
else if vr1.ViewStyle =vsxSmallIcon then ReportView1.Checked := true
else if vr1.ViewStyle =vsxList then ListView1.Checked := true
else if vr1.ViewStyle =vsxReport then SmallIcons1.Checked := true
else Thumbs1.Checked := true;
timer1.Enabled := true;
except end;End;