Discussion :

[Just-Soft]

Bonjour
je relance mon autre souci ...

Au fait, j'ai trois panels, un sur la gauche de ma forme et deux autres dont l'un est contenu dans l'autre. Pour les deux panels, le second sert comme afficheur d'un objet OLE cartographique. Entre le panel de gauche et le conteneur du panel CARTO j'ai déposé un splitter pour redimensionner la vue selon besoin. Sauf que quand je déplace le splitter mon panel CARTO se déplace sans prendre la totalité de la zone qui lui est dédiée bien qu'il soit positionné à alClient.

Avez vous une idée sur la nature de ce problème ?

[retwas]

Si ton premier Panel est en alLeft, les deux autres doivent être alClient, le parent et le conteneur.

Peux tu poser une capture d'écran pour nous montrer ?

[Just-Soft]

Si ton premier Panel est en alLeft, les deux autres doivent être alClient, le parent et le conteneur.
?

Tout à fait, c'est ce que j'ai fait.

Peux tu poser une capture d'écran pour nous montrer ?

Voilà Monsieur
Dans la 1ère capture tout parait normal
Dans la 2ème capture, si vous regardez à droite, et sur effet de déplacement du splitter j'ai le vide qui parait flagrant.

[anapurna]

a priori ce n'est pas tes panel qui pose problème mais ton client ole ... il faut peut être forcer le redimensionnement

[retwas]

Si tu met ton panel en couleur rouge tu verras qu'il prend toute la place, c'est ton image intérieur qui n'est pas redimensionné

EDIT: Grillé

[Just-Soft]

a priori ce n'est pas tes panel qui pose problème mais ton client ole ... il faut peut être forcer le redimensionnement

Si tu met ton panel en couleur rouge tu verras qu'il prend toute la place, c'est ton image intérieur qui n'est pas redimensionné
EDIT: Grillé

merci à vous deux ... c'est ce que j'ai dû moi même comprendre mais le hic c'est que mon OLE me refuse ça même si je repeins la vue ainsi :

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
21
procedure TfmMain.RzPanel_TreeResize(Sender: TObject);
var
  msg_mi, DOC_CARTE : string;
begin
  // Affichage dans le panel carto
  Str(RzPanel_CARTO_Map.Handle, sWinHand);
  // Préparation de l'affichage pour les cartes MI
  msg_mi := 'Set Application Window ' + sWinHand +
    ' Set Window Info Parent ' + sWinHand +
    ' Set Window Info ReadOnly ' + ' Set Next Document Parent ' + sWinHand +
    ' Style 1 ';
  OleMapInfo.do(msg_mi);
  try
    if DM.Rep_courant = '' then
       DOC_CARTE := GetCurrentDir + '\Map ZONE\GEXPLOITE_DESK.wor'
    else DOC_CARTE := DM.Rep_courant + '\Map ZONE\GEXPLOITE_DESK.wor';
    msg_mi := 'Run Application "' + DOC_CARTE + '"';
    OleMapInfo.do(msg_mi);
  Except
  end;
end;

[anapurna]

je pense que l'on a pas bien du se comprendre ^^

ton objet ole une fois posé ne doit pas se redimensionner automatiquement
il te faut donc a mon avis lui redefinir les propriété left,top,width et height pour les synchroniser avec ton panel

[Just-Soft]

ton objet ole une fois posé ne doit pas se redimensionner automatiquement
il te faut donc a mon avis lui redefinir les propriété left,top,width et height pour les synchroniser avec ton panel

même avec ça le résultat est toujours le même !

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
procedure TfmMain.RzPanel_TreeResize(Sender: TObject);
var
  msg_mi, DOC_CARTE : string;
begin
  RzPanel_CARTO_Map.Parent := RzPanel_CARTO;
  RzPanel_CARTO_Map.Top := RzPanel_CARTO.Top;
  RzPanel_CARTO_Map.Width := RzPanel_CARTO.Width;
  RzPanel_CARTO_Map.Left := RzPanel_CARTO.Left;
  RzPanel_CARTO_Map.Height := RzPanel_CARTO.Height;
  RzPanel_CARTO_Map.Align := alClient;
  // Affichage dans le panel carto
  Str(RzPanel_CARTO_Map.Handle, sWinHand);
  // Préparation de l'affichage pour les cartes MI
  msg_mi := 'Set Application Window ' + sWinHand +
    ' Set Window Info Parent ' + sWinHand +
    ' Set Window Info ReadOnly ' + ' Set Next Document Parent ' + sWinHand +
    ' Style 1 ';
  OleMapInfo.do(msg_mi);
end;

[Just-Soft]

Si tu met ton panel en couleur rouge tu verras qu'il prend toute la place, c'est ton image intérieur qui n'est pas redimensionné

EDIT: Grillé

ce n'est pas une image ... au sens propre du mot c'est un objet OLE
au fait, la ligne

Code :

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

Str(RzPanel_CARTO_Map.Handle, sWinHand);

récupère le handle du panel qui servira de conteneur
et la propriété alClient dans le code

Code :

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

RzPanel_CARTO_Map.Align := alClient;

indique bien qu'il doit occupé tout le conteneur. Donc, je ne vois pas pourquoi l'affichage ne prend pas tout le panel CARTO ? quelque chose m'échappe

[Just-Soft]

Re,

j'ai même essayé de reproduire la séquence affiche la carte comme si elle l'ouvrait pour la 1ère fois mais sans résultat !!!!

une autre piste peut-être ?!

[free07]

Une autre piste ?

Et bien si cela m'arrivait, j'afficherai dans des labels la position X et la largeur du panel ainsi que de l'objet ole affiché pour vérifier que c'est bien identique.

[Just-Soft]

Une autre piste ?

Et bien si cela m'arrivait, j'afficherai dans des labels la position X et la largeur du panel ainsi que de l'objet ole affiché pour vérifier que c'est bien identique.

bizarre ... tout à fait rison, les dimensions ne sont pas les mêmes. Alors, tout naturellement j'ai affecté les dimensions du parent à l'enfant mais la situation est resté quasiment la même . La solution était de récréer la panel enfant en lui définissant les propriétés parent et autres pour que cela marche

en finalité voici le code :

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
 if CARTO_ZONE then
    begin
      RzPanel_CARTO_Map := nil;
      RzPanel_CARTO_Map.Free;
      RzPanel_CARTO_Map := TRzPanel.Create(Self);
      RzPanel_CARTO_Map.Parent := RzPanel_CARTO;
      RzPanel_CARTO_Map.Align := alClient;
      RzPanel_CARTO_Map.Top := RzPanel_CARTO.Top;
      RzPanel_CARTO_Map.Height := RzPanel_CARTO.Height;
      RzPanel_CARTO_Map.Left := RzPanel_CARTO.Left;
      RzPanel_CARTO_Map.Width := RzPanel_CARTO.Width;
      // Affichage dans le panel carto
      Str(RzPanel_CARTO_Map.Handle, sWinHand);
      // Préparation de l'affichage pour les cartes MI
// suite du code

un grand merci pour chacun de vous.