[TP][Mode Graphique]SetActivePage

Voilà, j'ai écrit un petit exemple pour apprendre à utiliser les fonctions SetActivePage et SetViewPage.

C'est assez simple. A l'aide de la commande Rectangle, je dessine un rectangle dans la page active, ensuite un autre rectangle mais cette fois dans une autre page. J'affiche la seconde page (sans problème) mais lorsque j'affiche la presmière page, je vois un bout de la seconde (l'image semble décalée!!)

Le code ressemble à ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

(* On est déjà en mode graphique *) SetActivePage(0); Rectangle(70,80,120,150); SetActivePage(1); Rectangle(50,50,100,100); SetViewPage(1); readln; (* On appuie sur une touche pour voir le contenu de la Page 0 *) SetViewPage(0); (* Ici, à l'extrême gauche de l'écran, on voir un bout du deuximème rectangle, celui qu'on a dessiné dans la page 1!*) SetViewPage(0);

---

Et si tu effaçait la page avec ClearViewPort ?

En fait, en partant de l'idée qu'on avait des pages différentes, je me disais qu'on ne devait pas avoir besoin de ClerViewPort (effectivement, cà marche). Puisqu'il s'agit d'utiliser parallélement des sortes d'écran virtuels qu'on affiche lorsqu'on veut.

En principe, à mon avis, chaque écran devrait garder son contenu et lorsqu'on l'affiche on ne voit que son contenu. ce n'est pas logique?

Si c'est parfaitement logique ! Il doit y avoir un bug dans la BGI de Borland ( quoi ? un bug de Borland ?? )

a+

Naaaaan !!! Pas de bugs !!!!

Tu utilises le mode de la BGI 640x480x16 couleurs qui possède... Tadaaa !! 1 page !

Alors forcément, quand tu veux en utiliser 2, elles ont une légère tendance à se chevaucher.

Si tu veux 2 pages, il faut utiliser le mode 640x400x16, (le mode 1 du pilote VGA).

Sinon, il faut utiliser les modes VESA.

A+

Hum! Donc en fin de compte, si j'ai bien compris je dois initialiser le mode graphique avec vesa16.bgi?

Tu choisis le mode d'un pilote comment?

Avec la BGI, pour initialiser le mode 1 640x400, il faut faire comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

uses Graph;   var Gm, Gd: Integer;   begin Gd := VGA; Gm := 1; InitGraph(Gd, Gm, 'C:\TP\BGI'); ... CloseGraph; end.

---

Je te déconseille l'utilisation de VESA16 : peu de cartes acceptent les modes VESA 16 couleurs. Par contre, il existe un package de driver BGI qui ne gère pas trop mal les modes VESA jusqu'en 65536 couleurs je crois. Mais le pilote est lent... Il s'appelle Svgabg55.zip. Si tu ne le trouve pas, je te le passerai. Il doit être dans un coin de mon disque.

A+

Ok merci, j'aurai dû y penser (mode d'initialisation :? ).
Cà m'interessait quand même de recevoir le pilote. Juste pour effectuer un test...

Par ailleurs(cà n'a rien à voir avec SetActivePage :lol: ), je trouve cà assez impressionnant que tu connaisse tout en Pascal quand même :) Perso, j'aimerai savoir combien de temps tu as mis dessus pour connaître de fond en comble.

Merci.