Créer un bitmap transparent
Bonjour,
Je cherche un moyen pour créer une ligne qui se mettrait à jour à chaque mouvement de ma souris.
J'ai donc fait plusieurs essais :
- j'ai utilisé la méthode lineto sur le canvas de mon tform, mais le problème est qu'à chaque fois que je crée une nouvelle ligne la ligne précédent ne peut être effacée car j'ai aussi sur le canvas un bitmap qui me sert de fond pour mon application.
- j'ai créé un Timage et sur le canvas de mon tImage j'ai créé aussi une ligne, mais il subsiste toujours un fond noir qui m’empêche de faire apparaître seulement la ligne en question.
Voici un bout de code où j'essaye de créer un ligne quelconque sur ma form :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
begin
fPosition:=aPosition;
fCanne:=timage.create(self);
fCanne.height:=200;
fcanne.visible:=TRUE;
fcanne.top:=0;
fcanne.left:=0;
fcanne.parent:=form1;
with fcanne.canvas do
begin
pen.Color:=clred;
pen.Width:=5;
MoveTo(10,20);
LineTo(200,220);
end;
end; |
