Discussion :

[elreybubu]

Bonjour,
le titre résume pas mal a lui tout seul ce que je recherche.
J'affiche un fichier word à l'intérieur de mon OleConatiner mais le problème est qu'il n'y a pas de scroll bar et que je ne peux pas naviguer dans le fichier, meme avec le clavier.
Est ce que quelqu'un sait comment scroller ce type d'objet?
Merci d'avance pour votre aide.

[flash_math]

Je te propose une autre solution.

Tu crée ton TOlecontainer dans un panel qui contient tes scrollbar. Lorsque tu charge ton document, tu récupère la taille du document et tu redéfini la taille de container en fonction de la taille du document. Ensuite tu gère les scrollbars. A chaque changement de position du scrollbar tu change la position de ton container dans ton panel.

J'espère que j'ai été assez clair.

[elreybubu]

Merci.
J'avoue que c'est une plutot bonne idée, par contre ce qui risque de poser problème c'est recupere la taille du fichier word.
Je vais essayer de creuser ca, il doit peut etre y avoir une manière de recupere le nombre de page du fichier, et de calculer sa taille grace a ca.
Je vous tiens au courant.
En attendant toutes autres propositions sont les bienvenues

[flash_math]

aie je n'avais pas pensé aux nombres de pages.

Regarde du côté de IOleObject.GetExtent pour récupérer la taille de l'objet.

[elreybubu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OleContainer1: TOleContainer;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TMainForm.Open1Click(Sender: TObject);
var oWord, oCommandBars, oActiveWindow:OleVariant;
begin
 
   with OleContainer1 do begin
    Align:=alClient;
    CreateObjectFromFile('c:\Auchan\Utilisation_ecran_validation.doc',false);
    Doverb(ovPrimary);
  end;
 
  //Variables objets
  oActiveWindow:=oWord.ActiveWindow;
  oCommandBars.Item.visible:=false;
  OleContainer1.oleobject.CommandBars.close;
 
 end;

Bon alors cette premiere version ouvre une instance de Word qui est situé à l'interieur de ma fenetre, c ets tres joli, le temps de chargement est etonement très lent mais je ne souhaite pas afficher le menu et je veux rendre le texte en lecture seule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure TMainForm.Open1Click(Sender: TObject);
begin
 
   with OleContainer1 do begin
    Align:=alClient;
    CreateObjectFromFile('c:\Auchan\Utilisation_ecran_validation.doc',false);  
  end;
 
 end;

Avec ce code ci, seul le texte de fichier word apparait sur mon OleContainer et peu importe la taille que je lui donne, c est toujours la meme partie de texte qui est affiché, sans possibilité de scroller.

Alors si quelqu un sait comment faire pour arriver a mon resultat souhaité, qui est de voir le texte du fichier, de pouvoir naviguer a travers ce texte,d'avoir tous les composants de Word cachés et un texte en lecture seule.
En ce qui concerne le passge en lecture seule cela ne devrait pas trop poser de problèmes, par contre pour masquer le menu et les fonctionalité, c'est un peu plus dur.
J'ai trouver quelque infos sur l objet, CommandBars, mais comment acceder aux attributs de cet objet ??? Les seuls indices que j'ai trouvé sont en VBA!!!!

Merci d'avance.

[elreybubu]

Après de nombreuses heures de galère, j ai enfin réussi à masquer les elements du menu de Word
Voila le code pour les gens que ca pourrait interesser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
var oActiveWindow, oActiveWorkBook, oSelection, oActiveSheet, oCells, oColumns :OleVariant;
i:Integer;
begin
 
   with OleContainer1 do begin
    Align:=alClient;
    CreateObjectFromFile('c:\Auchan\Utilisation_ecran_validation.doc',false);
    Doverb(ovInPlaceActivate);
  end;
  //Variables objets
  oWord:=OleContainer1.OleObject.Application;
  oCommandBars:=OleContainer1.oleobject.CommandBars;
  oActiveWindow:=oWord.ActiveWindow;
  Olecontainer1.OleObject.application.CommandBars['Standard'].Visible:=false;
  Olecontainer1.OleObject.application.CommandBars['Formatting'].Visible:=false;
  Olecontainer1.OleObject.application.CommandBars['Reviewing'].Visible:=false;
 
  for i:=1 to 10 do
       Olecontainer1.OleObject.application.CommandBars['Menu Bar'].Controls[i].visible:=false;

[dacid]

Salut à tous.

Sympa de connaitre cette méthode...

Mais elle ne me convient pas vraiment.
En plus, dans une interface MDI, les menus s'affichent malgré tout.

Il n'y a pas moyen de garder l'affichage simple de l'oleContainer en affichant toutes les pages et en pouvant scroller ?