Discussion :

[RoM_CoOl]

Bonjour,

J'ai un projet à faire, qui est un jeu de rôle, dans lequel je dois faire une barre de progression lorsqu'on clique sur un icone de construction. Don j'ai créé une image, dans laquelle j'ai mis un btmp, et une succession de rectangles verts montrent l'avancement de la progression. Tout marche bien sauf que je n'ai pas trouver la technique pour suprimer ces rectangles, de manière à retrouver mon btmp sans aucun rectangles verts dessus. J'esprère que j'ai été à peu près clair!!

Mon code est le suivant:

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  nbre: integer;
  truc: boolean;
 
implementation
 
procedure delay(delai:Double);
Var HeureDepart:TDateTime;
 
begin
  HeureDepart:=now;
  Delai:=delai/24/60/60/1000; 
  repeat
    Application.ProcessMessages; 
  Until Now>HeureDepart+Delai;
end;
 
{$R *.dfm}
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Visible:=true;
nbre:=0;
image1.Canvas.Pen.Color:=clgreen;
image1.Canvas.Brush.color:=clgreen;
while (nbre<260) and (truc=false) do
    begin
      image1.Canvas.Rectangle(nbre,0,1,17);
      nbre:=nbre+1;
      delay(30);
    end;
if nbre=260 then label1.Visible:=true;
if (truc=true) then truc:=false;
image1.Visible:=false;
 
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
truc:=true;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
truc:=false;
image1.Visible:=false;
Label1.Visible:=false;
end;
 
end.

[ShaiLeTroll]

1- Bienvenue
2- Modifie ton Post pour ajouter les Balises [CODE] (via le # du menu)
3- Effacer une image revient à remplir a la couleur de fond, un Rectangle ou FillRect devrait faire l'affaire

[ero-sennin]

Salut et Bienvenue sur Developpez.com,

Je suppose que tu utilises le composant TImage ?

Logiquement, lorsque l'on veut vider (entend par là tout supprimer) le contenu d'un TImage, on met à nil sa propriété Picture (apparemment c'est pas trop ce que tu souhaite faire ...)

Code :

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

Image1.Picture:=nil;

Si j'ai bien compris, tu as un TImage, sur lequel une image fait office d'arrière plan, et qui contient des carrés verts (créés par la suite). Ton but, c'est de vouloir garder l'image de fond intacte (restaurer l'état initial de ton bitmap), c'est bien ça ?

EDIT : Posts croisés

[Gilbert Geyer]

Bonjour,

dois faire une barre de progression lorsqu'on clique sur un icone de construction. Don j'ai créé une image, dans laquelle j'ai mis un btmp, et une succession de rectangles verts montrent l'avancement de la progression. Tout marche bien sauf que je n'ai pas trouver la technique pour suprimer ces rectangles, de manière à retrouver mon btmp sans aucun rectangles vert dessus

... à ta place, au-lieu de dessiner tes rectangles verts directement dans le canvas de l'image j'aurais tout simplement superposé plusieurs TPanels de couleur verte par-dessus l'image en faisant varier leur Width de 0 à la largeur de progression et hop, avec Width=0 tu retouve ton bmp sans aucun rectangle vert.

A+

[RoM_CoOl]

Alors oui ero-sennin c'est bien ca que je veux faire.
Mais par contre pour utiliser des Tpanels ca va etre un peu l'horreur étant donné que je remplie ma barre de progr pixel par pixel. Donc c'est des tous petits rectangles qui s'enchainent et j'aimerais simplement tout gommer quoi pour recommencer et retrouver mon image en dessous

[RoM_CoOl]

a oui j'ai compris l'histoire du panel j'avais pas bien capter au début j'vais essayer comme ca merci bien je vous tiens au courant

[RoM_CoOl]

Alors la panel ca marche pas mal du tout. Le seul petit soucils, qui je pense est facilement réglable, c'est que y'a toujours affiché "panel1" au fur et a mesure que la barre avance. Donc comment faire pour ne pas afficher le nom du panel sur celui ci svp? Après j'vous embete plus jusqu'à la prochaine fois =D

[RoM_CoOl]

Je m'auto répond pour la troisieme fois, mais c'est bon j'ai trouvé c'était tout con en fait! merci bien

[ShaiLeTroll]

Finalement, tu gère cela avec un Panel ?
C'est une méthode, mais en général lorsque l'on développe un Jeu, pour avoir de beau graphisme, on dessine tout à la main dans une image tampon, en général c'est un thread qui déssine, il switch le tampon avec un autre, envoie un message au thread VCL qui lit le tampon et ainsi de suite, ...


J'ignore le résultat que tu souhaite obtenir, mais la solution bidouille a base de composant, cela risque d'être très lent

[RoM_CoOl]

Alors en fait mon projet c'est pas créer le jeu en entier c'est juste l'interface. L'histoire du panel marche assez bien et me suffit, mais si tu veux m'expliquer la méthode que tu dis je veux bien.

et tant qu'on y est... j'ai delphi 7 sous vista, et en fait je n'ai pas accès à l'aide de delphi car il me dit que vista ne prend pas en charge cette aide blabla. Donc si tu avais une solution pour ce petit soucil également ce serait nickel!

[Cl@udius]

et tant qu'on y est... j'ai delphi 7 sous vista, et en fait je n'ai pas accès à l'aide de delphi car il me dit que vista ne prend pas en charge cette aide blabla. Donc si tu avais une solution pour ce petit soucil également ce serait nickel!

Jette un coup d'œil là chez MS.

@+

[GO]

Si tu avais utilisé un TPaintBox, il aurait fallu le rafraichir en faisant un Repaint puis en rechargeant ton Bitmap avec la methode Assign.
A+