// Install the view definition. InstallScript := func( partFrame,removeframe ) begin //********************************************************** if GetViewDefs('image).default then RegisterViewDef( GetViewDefs('image).default, '|image/jpeg| ); MyJPEGDef:=GetViewDefs('|image/jpeg|); MyJPEGDef.default:=clone(MyJPEGDef.default); MyJPEGDef.default.ViewSetupFormScript:=clone(MyJPEGDef.default.ViewSetupFormScript); MyJPEGDef.default.ViewSetupFormScript:= func() begin if not target then begin noData.viewFlags := bor(noData.viewFlags, 1); floatingBar.viewFlags := 0; imageContainer.viewFlags := 0; end else begin SetClass(target, 'image); SetClass(target.data, 'jpeg) end; inherited:?viewSetupFormScript() end; //********************************************************** if GetViewDefs('image).default then RegisterViewDef( GetViewDefs('image).default,'|image/gif|); MyGIFDef:=GetViewDefs('|image/gif|); MyGIFDef.default:=clone(MyGIFDef.default); MyGIFDef.default.ViewSetupFormScript:=clone(MyGIFDef.default.ViewSetupFormScript); MyGIFDef.default.ViewSetupFormScript:= func() begin if not target then begin noData.viewFlags := bor(noData.viewFlags, 1); floatingBar.viewFlags := 0; imageContainer.viewFlags := 0; end else begin SetClass(target, 'image); SetClass(target.data, 'gif) end; inherited:?viewSetupFormScript() end; //********************************************************** end; RemoveScript := func( removeFrame ) begin if GetViewDefs('|image/gif|) then UnregisterViewDef( 'default, '|image/gif|); if GetViewDefs('|image/jpeg|) then UnregisterViewDef( 'default, '|image/jpeg| ); end;