Checking whether a document is visible

[corbpm]

Any one know how to find out if a document is actually visible, what i want to do is loop through any open documents and close them if they are hidden

any hints will be appreciated

Following snippet in Delphi tells me there are OOobjects there
FDesktop := FOpenOffice.createInstance('com.sun.star.frame.Desktop');
FDispatcher := FOpenOffice.createInstance('com.sun.star.frame.DispatchHelper') ;
tVal:=FDesktop.Frames.GetbyIndex(0);
ShowMessage(IntToStr(FDesktop.Frames.GetCount - 1)); ************

The idea is for clean up code, if the program is restarted and finds hidden documents it closes them BUT not visible documents. I have read elsewhere here that u cannot make the document visible if it was created/opened hidden which would have been preferred .


Doesn't have to be delphi code, just would like a pointer on how to do it plz

[pitonyak]

I do not really understand what you mean by hidden, but have you inspected things such as the frame or the component window?

[corbpm]

Thanks for the suggestion will try them out today

By hidden i meant the following

Params := VarArrayCreate([0,2], VarVariant);
Params[0] := MakePropertyValue('AsTemplate',True);
Params[1] := MakePropertyValue('Hidden',True);
Params[2] := MakePropertyValue('ReadOnly',ReadOnly);

Template := FormatFilename( Template ) ;
tDoc := FDesktop.loadComponentFromURL( Template,'_blank',0,Params );

Srry for the Delphi code again

[corbpm]

// This seems to work for any1 who's interested

FDesktop := FOpenOffice.createInstance('com.sun.star.frame.Desktop');
For iCount:=FDesktop.Frames.GetCount - 1 downto 0 do
begin
// Get the frame
tVal:=FDesktop.Frames.GetbyIndex(iCount);
// Is active no help as only the topmost visible is active
tVal2:=tVal.IsActive;

// Get the container window and find the size
tVal3:=tVal.GetContainerWindow.GetPosSize;

// The window size is Zero , probably hidden ???
// So Get rid
if tVal3.Width=0 then
begin
tVal.Close( True ) ;
end;
end;