Comment ajouter un scrollbar sur un OLEContainer ?

Version imprimable

25/10/2006, 11h38
elreybubu

Comment ajouter un scrollbar sur un OLEContainer ?

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.
25/10/2006, 13h01
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.
25/10/2006, 14h23
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;)
25/10/2006, 14h41
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.

Code:

OleContainer1: TOleContainer;
Code:

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:

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.

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

Code:

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;

11/12/2007, 14h43
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 ?