TImage et BitMap

Version imprimable

TImage et BitMap

dans le code suivant, je ne comprends pas pourquoi, lorsque l'on fait ASSIGN de l'image Image1, qui d'après la doc est une COPIE dans le bitmap temporaire, l'image disparait de l'écran.

Code:

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
interface
uses...   
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  end;
 
var
  Form1: TForm1;
  BitMapTemp: TBitMap;
implementation
 
{$R *.dfm}
//--------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  BitMapTemp := TBitMap.Create;
  BitMapTemp.Assign(Image1.Picture.Bitmap); // <---l'image Image1 disparait de la fiche
end;
//--------------------------------------------
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  BitMapTemp.Free;
end;

15/10/2005, 12h17
delphichem

Ceci peut arrivé si ton image n'est pas une bitmap.
.picture.Par exemple si ton image est une Jpg, le Image1.picture.bitmap contient Nil, c'est pour cette raison que ton image disparait, par contre il faut mettre

Code:

BitMapTemp.Assign(Image1.Picture.Graphic);
15/10/2005, 16h31
jcs2

Merci beaucoup DelphiChem pour ta réponse.
Effectivement j'avais un JPEG dans le TImage et avec Graphic cela fonctionne parfaitement.

Reste que je n'arrive pas complètement à saisir les subtilités que renferment les notions de TBitMap, TImage, TPicture et TGraphic qui a priori sont toutes destinées à gérer des images.
Il y aurait-il un tutoriel clair sur la question?