Salut !
En fait, j'ai un double problème :
- J'ai positionné ma fenêtre principale au milieu de l'écran (poDesktopCenter) d'affichage et pour tenir sur tout l'écran j'ai mis WindowState à wsMaximized mais quand j'exécute je n'ai pas tout l'écran qui est couvert, un double clic que la barre de haut et la fenêtre se maximise sans tenir sur la totalité de l'écran donc je refais un autre double clic pour avoir le bon résultat. Ai-je un paramètre activé ou désactivé par défaut qui influe sur mon affichage ?
- J'ai déposé deux panels, un ancré sur la partie gauche (alLeft) et l'autre qui prend la reste et est ancré comme client (alClient). Je voudrais dans le panel client affiché une carte que je récupère d'un SIG, le problème est que ma carte ne tient pas sur tout le panel bien que celui-ci est son conteneur ? que peut-il bien se passé ? Voici le bout de code qui est chargé de cette tâche :
La ligne en question est :
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
22
23 try OleMapInfo := CreateOleObject('MapInfo.Application'); except ShowMessage('Désolé, vous ne pouvez bénéficier de la CARTO ZONE'); //TabSheet_CARTO.Visible := False; Exit; end; MessageDlg('CARTO ZONE initialisé avec succés.' + #10#13 + 'Vous allez pouvoir bénéficier du SIG' + #10#13 + 'associé à GEXPLOITE DESK.' + #10#13 + '-------------------------------------' + #10#13 + 'CARTO ZONE Ver 1.0 - 2014', mtInformation, [mbOK], 0); RzPageControl_GEXPLOITE.ActivePage := TabSheet_CARTO; // TabSheet_CARTO.Visible := True; Str(RzPanel_CARTO.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'; // + ' Create Legend From Window ' + sWinHand; OleMapInfo.do(msg_mi);
Le principe étant assez simple; récupérer le handle de la carte et le passé au panel. Donc, pourquoi la carte ne tient pas sur tout le panel mais uniquement une partie de celui-ci ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part Str(RzPanel_CARTO.Handle, sWinHand);
Partager