- // Video Ausgabe handle anpassen und zum ersten mal das Bild resizen
- if Assigned(fVW) then
- begin
- fVW.put_Owner(_VideoHandle);
- fVW.put_WindowStyle(WS_CHILD or WS_CLIPSIBLINGS);
- fVW.put_WindowStyleEx(0);
- fVW.put_MessageDrain(_MsgHandle);
- Windows.GetClientRect(_VideoHandle, R);
- W := R.Right - R.Left;
- H := R.Bottom - R.Top;
- ResizeEngine(W, H, _Ratio);
- fVW.put_Visible(True);
- end;