[BP]Borland Pascal : modifier les couleurs par défaut.

Version imprimable

10/10/2004, 20h23
Pipoland

[BP]Borland Pascal : modifier les couleurs par défaut.

Bonjour,

Existe-t-il un moyen de modifier et donc personnaliser les 15 couleurs par défaut de Borland Pascal 7 pour le mode texte ? (ClBlue, etc...)

Merci :wink:
11/10/2004, 07h42
Alcatîz

Bonjour !

Il est possible de modifier les valeurs de palette au niveau de la carte vidéo à l'aide de l'interruption BIOS 10h. Mais n'est-ce pas un peu "hard" ? Que veux-tu faire exactement ?
11/10/2004, 09h15
Pipoland

Ce que je veux faire exactement?
Pour des raisons purement esthétiques pour l'interface du logiciel, utiliser d'autres couleurs que les 16 proposées par défaut.
11/10/2004, 13h18
M.Dlb

Si tu utilises Turbo Vision (je ne sais pas si Turbo Vision est disponible pour BP7, mais à priori il n'y a pas de raison :P), tu peux "déplacer" les couleurs (les échanger entre elles) mais tu ne pourras en aucun cas en redéfinir de nouvelles. Et même en trifouillant la palette, via l'int 10h ou les registres VGA, je ne suis pas sûr que cela marche pour le mode texte... C'est à tester ! :D

a+
11/10/2004, 13h32
Pipoland

Bon ben tant pis :(

Merci quand meme.
11/10/2004, 16h46
Alcatîz

Citation:

Envoyé par wormful_sickfoot

(je ne sais pas si Turbo Vision est disponible pour BP7)

Turbo Vision est bien disponible.

Citation:

Envoyé par wormful_sickfoot

Et même en trifouillant la palette, via l'int 10h ou les registres VGA, je ne suis pas sûr que cela marche pour le mode texte... C'est à tester !

Ca marche aussi pour le mode texte.

Citation:

Envoyé par Pipoland

Bon ben tant pis

Il ne faut pas baisser les bras ! C'est relativement facile à réaliser.
11/10/2004, 19h19
M.Dlb

Citation:

Envoyé par Alcatîz

Ca marche aussi pour le mode texte.

Merci du renseignement ;) Ca peut être intéressant :D

a+
11/10/2004, 19h29
Pipoland

Citation:

Envoyé par Alcatîz

Citation:

Envoyé par wormful_sickfoot

"]Et même en trifouillant la palette, via l'int 10h ou les registres VGA, je ne suis pas sûr que cela marche pour le mode texte... C'est à tester !

Ca marche aussi pour le mode texte.

Vous pouvez m'en dire plus? Je ne connais pas trop la programmation hard sous DOS.

Cordialement,
11/10/2004, 21h11
M.Dlb

Je pense que nous parlons de la même chose, Alcatîz et moi, c'est-à-dire reprogrammer le DAC. Pour celà, deux possibilités donc :
- utiliser les fonction 1010h et 1012h de l'int 10h;
- modifier les valeurs directement avec les ports VGA, les ports concernés étant les ports 03C7h à 03C9h (si je me souviens bien)

Concernant la programmation du DAC, tu peux déjà regarder les unités d'Haypo, disponibles ici : http://turbo-pascal.developpez.com (dans la partie 'Unité', regarder les fichiers 'EcranVGA', 'ModeX'). Ca ne demande pas de très hautes compétences, mais il faut tout de même une certaine maîtrise du langage ;)

a+
11/10/2004, 21h18
Alcatîz

Effectivement, je pensais à la modification du contenu des 16 registres de palette du contrôleur d'attributs.

Mais il faut absolument être sous DOS pur car ce genre d'opérations engendre des violations système dans toutes les versions de Windows (je viens même d'essayer sur Windows 3.11 :wink: ).
12/10/2004, 16h01
M.Dlb
Voilà à la demande générale :?, et surtout parce que j'avais envie de tester en mode texte, voici le code pour changer une couleur :
Code:

1 2 3 4 5 6 7 8 9 10 procedure SetPalette(Index: Word; Red, Green, Blue: Byte); assembler; asm MOV AX, 1010h; MOV BX, Index; MOV DH, Red; MOV CH, Green; MOV CL, Blue; INT 10h; end;
Testé en mode texte, et c'est assez impressionant ! Les valeurs pour Red, Green et Blue doivent être comprises entre 0 et 63...

a+
12/10/2004, 16h18
Pipoland

Ah ben voilà ce que je voulais :D

Merci, je m'en vais de ce pas tester la chose.
12/10/2004, 20h53
Eric Sigoillot
Bon, la modification des couleurs peut se faire (et se fait générallement) en touchant directement aux ports VGA $3C7, $3C8 et $3C9.
En mode texte, il suffit de redéfinir les couleurs de 0 à 15. En mode graphique (la BGI), ce sont des index de couleurs plus originaux, puisqu'il faut piocher dans les codes 54 et suivants. Je peux les retrouver dans la doc au besoin.

En attendant, pour le simple mode texte :
Code:

1 2 3 4 5 6 7 procedure SetRGBPalette(Index, R, G, B: Byte); begin Port[$3C7] := Index; Port[$3C9] := R; Port[$3C9] := G; Port[$3C9] := B; end;
Il faut bien prendre garde au fait que les composantes (R, G, B) doivent être codés sur 6 bits, donc doivent se situer dans l'intervalle de 0 à 63.

A+
12/10/2004, 21h32
M.Dlb

Le résultat est assez marrant, puisque vous pouvez repeindre l'interface de l'IDE de turbo pascal... Car à la fin de l'exécution de votre programme, l'IDE ne redessine pas la palette quand vous êtes en mode texte évidemment... Si vous voulez "customizer" votre IDE, vous pouvez commencer par ça ;)

a+