Discussion :

[chrysbi]

Bonsoir,

bon, en fait, j'ouvre ce topic, parce que je me suis rendue compte que j'en ai déjà ouvert pas mal, et que si je continue comme ça, je risque de spammer le forum... :p
En fait, mon projet consiste en une simulation de la gravitation universelle (je tiens à préciser que je n'ai rien à voir avec l'autre topic créer récemment, car je ne plussoie pas du tout le post en question )
Donc, en fait, pour réaliser mon projet, je m'aide de TPs effectués en cours, mais parfois, y'a des trucs qu'on n'a pas forcement vus... donc je risque d'avoir pas mal de questions et problèmes... :p



Donc j'ai déjà une question:
j'aimerais dessiner un cercle en fait. Je sais comment faire, et comment le placer dans le repère de mon TImage, mais dans un de mes anciens TP, je le déclarais comme un TImage, dans ce genre:

Code :

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

1
2
3
4
5
Procedure CCercle.Dessiner (aImage:TImage);
var aImage:TImage;
begin
aImage.Canvas.Ellipse (x1,y1,x2,y2)
end;

Dans mon TP, cela fonctionnait très bien.

Mais dans mon projet, je l'ai réécris sous la même forme, mais à la compilation, il y a une erreur: Lazarus m'indique "Identifier not found" à propos du TImage... J'ai donc rajouté ce que j'ai mis en rouge dans le code pour essaiyer de corriger l'erreur, mais cela ne change rien...
Dois-je le délcarer autre part?

[SergioMaster]

Timage ne serait pas plutôt un TBitmap ? ou son parent

[chrysbi]

Timage ne serait pas plutôt un TBitmap ? ou son parent

Je viens de tester TBitmap, et ça ne marche pas non plus... (même problème: Identifier not found). Je n'ai jamais utilisé TBitmap, même en TP, mais est-ce-que ça ne serait pas plutôt pour lorsque l'on intègre un fichier image?

[winow]

Bonjour

J'ai pas tout compris mais pour créer un composant TImage avec du code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  var aImage : TImage;
 
begin
    with TImage.Create( Form1 ) do
      begin
        Canvas.Ellipse ( 10,10,20,20 );
 
      { etc... }
 
    Parent := Form1;
  end;

[chrysbi]

J'ai pas tout compris mais pour créer un composant TImage avec du code:

Ba en fait, quand je compile, Lazarus ne reconnaît pas le TImage... Comme s'il n'était pas déclaré...

[winow]

Il doit peut être manquer:

Code :

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

1
2
 
uses ExtCtrls;

A+