Discussion :

['ti programmeur]

Bonjour, j'ai une question : comment faire un defilement fluide ?

[krachik]

j'ai une derniere question : comment faire un defilement fluide ?

c'est a dire?

['ti programmeur]

C'est à dire un texte qui defile comme sur les lecteur mp3 par exemple, le defilement ne se déplace pas d'un caractere mais d'un point.

[thewho]

Bonjour,

C'est à dire un texte qui defile comme sur les lecteur mp3 par exemple, le defilement ne se déplace pas d'un caractere mais d'un point.

Ce n'est pas possible en mode console, il faut passer en mode graphique.

[diden138]

ce n'est pas possible en mode graphique comme te l'a dit thewho par contre voici un lien qui contient ce que tu veux (voir le 2eme exemple) : un petit coup d'oeil ici
http://developpez.net/forums/showthr...ight=d%E9filer
Cordialement..@++

[thewho]

Bonjour,

ce n'est pas possible en mode graphique comme te l'a dit thewho

Hum...

C'est précisément le contraire que j'ai dit (hi hi)

[Auteur]

bonjour,

voici un (vieux ) programme qui utlise SetWriteMode()

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Uses Crt, Graph, Dos;
 
Var
    pilote, mode : Integer;
    x1, y1, dx, dy : Integer;
    FillInfo : FillSettingsType;
 
  Begin
    DirectVideo := false;
 
    pilote := Detect;
    InitGraph(pilote, mode, '');
    if GraphResult < 0 then Halt(1);
 
    SetFillStyle(SolidFill,Red);
    bar(100,200,200,300);
 
 
    GetFillSettings(FillInfo);
    SetFillStyle(SolidFill, Blue);
 
    x1:=200;
    y1:=10;
    dx:=10;
    dy:=10;
 
    Bar(300,5,420,15);
    SetColor(Green);
    OutTextXY(400,y1,'BONJOUR');
 
    SetWriteMode(XorPut);
 
    Repeat
      Rectangle(x1, y1, x1 + dx, y1 + dy);   (*dessin du rectangle*);
      delay(2000);
      Rectangle(x1, y1, x1 + dx, y1 + dy);   (*rectangle eteint*)
      x1:=x1+1;
    Until KeyPressed;
    Closegraph;
 
  End.

Si mes souvenirs sont bons seul le rectangle créé dans la boucle se déplace. Le premier appel de Rectangle() créé le rectangle, le second l'efface (un appel sur deux efface le rectangle de l'écran) et ce sans effacer le contenu de la page.

Renseigne toi sur la fonction SetWriteMode() et ses attributs. Je crois que cette fonction doit être appelée après la créartion des objets "fixes".

['ti programmeur]

ce programme est il compatible pour un compilateur linux ?
parce qu'a la compilation il y a une erreur :"/usr/bin/ld: cannot find -lvga
pp.pp(41,3) Error: Error while linking
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)"
peut-être me manque t-il une librairie, je ne sais pas...
merci de me répondre.

[Auteur]

voici un (vieux ) programme

Code :

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

Uses Crt, Graph, Dos;

je ne suis pas sûr qu'une librairie Dos existe pour Linux

Donc il te faudra modifier au moins cette ligne, l'adapter à ton système d'exploitation.
Ensuite, ce qui peut poser problème sont delay() et Keypressed.
Peut-être que les unités Crt et Graph suffiront.

Comme je ne travaille pas sur Linux, je ne peux t'en dire plus.

[Alcatîz]

je ne suis pas sûr qu'une librairie Dos existe pour Linux

Et pourtant si
S'il s'agit bien de Free Pascal, cette unité est disponible pour toutes les plateformes, excepté PalmOS.

['ti programmeur]

Ah...
je croyais pourtant moi aussi qu'une librairie DOS n'éxistait pas ...
mais merci beaucoup pour tout les renseignements
Au revoir.