Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Ocultar Barra de Windows (Azul) en objeto oleautomation (https://www.clubdelphi.com/foros/showthread.php?t=41971)

apicito 30-03-2007 11:15:30

Ocultar Barra de Windows (Azul) en objeto oleautomation
 
Estoy tratando de automatizar OpenOffice dentro de un formulario de mi aplicación.
Utilizo el siguiente codigo:
Código Delphi [-]
var ooParams, ooElements,oFrame,layout: variant;
           h : HWND;
begin
  Programa:= CreateOleObject('com.sun.star.ServiceManager');
  DeskTop:= Unassigned;
  Desktop:= Programa.CreateInstance('com.sun.star.frame.Desktop');
  ooParams:= VarArrayCreate([0, 0], varVariant);
  ooParams[0]:= ooCreateValue('Hidden',false);
  Document:= Desktop.LoadComponentFromURL('private:factory/swriter', '_blank', 0, ooParams);
  OFrame := Document.CurrentController.Frame;
  layout := OFrame.LayoutManager;
  layout.HideElement('private:resource/toolbar/menubar');
  layout.HideElement('private:resource/toolbar/standardbar');
  h := FindWindow(PChar('SALFRAME'), nil);
  DeleteMenu(GetSystemMenu(h, false), SC_MOVE, MF_BYCOMMAND);
  if (h <> 0) then begin
    Windows.SetParent(h, Form1.Panel2.Handle);
    ShowWindow(h, SW_MAXIMIZE  );
  end ;
end;
Y tengo dos problemas:
1. Necesito que no aparezca la barra azul de la aplicación Open Office para que no pueda moverse dentro del panel.
2. Ocultar el menu principal de OpenOffice. Lo intento con
Código Delphi [-]
layout.HideElement('private:resource/toolbar/standardbar');
pero no funciona.
Gracias por cualquier ayuda al respecto.

apicito 30-03-2007 11:44:53

Solucionado lo de ocultar el menubar:
Código Delphi [-]
layout.hideElement('private:resource/menubar/menubar');
Falta lo de la barra azul.

apicito 04-05-2007 15:00:11

Por fin !!! lo de la barra azul se hace colocando antes de
Código:

ShowWindow(h, SW_MAXIMIZE  );
esto
Código:

windows.SetWindowLong( h, GWL_STYLE,WS_DLGFRAME ) ;


La franja horaria es GMT +2. Ahora son las 17:01:34.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi