Discussion :

[magdani]

Bonsoir

J'essaye de créer une Image avec un Bitmap.

Mon code*:

Fichier Jeu.cpp

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
//---------------------------------------------------------------------------
 
#include <fmx.h>
#pragma hdrstop
 
#include "Jeu.h"
#include <string>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.fmx"
 
TForm1 *Form1;
TBitmap *MyBitmap; // création d'un Bitmap nommé MyBitmap
TImage *NewImage; // création d'une Image nommées NewImage
 
using namespace std;
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Glyph1->ImageIndex =8; // j'ai mis dans le composant Glyph la liste d'images de ImageList1
                                             en nommant la propriété Images de Glyph ImageList1
MyBitmap = new TBitmap(0,0);
MyBitmap->Assign(Glyph1->MakeScreenshot()); // récupère le Bitmap
Image1->Bitmap = MyBitmap; // le Bitmap s'affiche bien dans Image1, ça marche
 
// J'aimerais faire pareil avec un Timage et afficher l'image sur l'écran
NewImage = new Timage; // cette ligne provoque l'erreur ci-dessous (*)
NewImage->Bitmap = MyBitmap;
NewImage->Height = 115;
NewImage->Width = 80;
NewImage->Position->X = 100;
NewImage->Position->Y = 100;
}

• [bcc32 Avertissement] W8123 Le chemin 'C:\Users\Public\Documents\Embarcadero\Studio\18.0\hpp\Win32' est introuvable - chemin ignoré dans l'option '-I'
• [bcc32 Erreur] Jeu.cpp(76): E2285 Impossible de trouver une correspondance pour 'TImage::TImage()'
• [bcc32 Avertissement] Jeu.cpp(118): W8111 Accès à l'entité 'Graphics::bkSolid' désapprouvée

Si je retire cette ligne et que je clique sur Button1, ce message d'erreur apparaît : violation d'accès à l'adresse 00CFD81E dans le module 'fmx240.bpl' Lecture de l'adresse 00000228

Si quelqu'un peut m'aider … Merci d'avance

[kurul1]

Si je ne dit pas de bétise, il faut que tu mettes le owner dans le constructeur de TImage.

Ici ta form s'appelle Form1 alors essaye

Code :

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

1
2
 
NewImage = new TImage(Form1);

[magdani]

Merci pour ta réponse Kurul1

Il n'y a plus de message d'erreur avec NewImage = new TImage(Form1);Par contre, l'image ne s'affiche pas.

J'ai essayé avec NewImage->Assign(MyBitmap) et NewImage->Assign(Glyph1->MakeScreenshot());En cliquant sur le bouton, un message d'erreur s'affiche : "Impossible d'affecter TBitmap à TImage".

[magdani]

En fait le BitMap est bien créé et s'affiche dans

Code :

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

Image2->Bitmap = NewImage->Bitmap;

Reste à trouver comment l'afficher sans passer avec un autre composant TImage

Code :

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

1
2
3
4
NewImage->Height = 115;
NewImage->Width = 80;
NewImage->Position->X = 100;
NewImage->Position->Y = 100;

[henderson]

Salut !

Code :

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

1
2
NewImage = new TImage(this); // this est Form1 à cause de TForm1::
NewImage->Parent = this; // idem

A plus !

[magdani]

Ca marche !

Merci henderson.

Cordialement.