procedure TForm2.Stretched1Click(Sender: TObject);
begin try
play_snd(1);
case TMenuItem(Sender).Tag of
   0:DSVideoWindowEx1.AspectRatio := rmStretched;
   1:DSVideoWindowEx1.AspectRatio := rmLetterBox;
   2:DSVideoWindowEx1.AspectRatio := rmCrop;
end;
RegWriteInteger(HKEY_CURRENT_USER,'Software\WikiBrowse\1.0','videomode',TMenuItem(Sender).Tag);
TMenuItem(Sender).Checked:=true;
abfApplicationProperties1Restore(Sender);
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'C10000');
end;End;