La propriété Transparent de TImage ne fonctionne pas
Salut!!
Code:
1 2 3 4 5 6 7 8
|
Image2->Picture->Bitmap->Transparent=true;
Image2->Canvas->TextOutA(0,0,"RIJANIAINA");
Image2->Picture->SaveToFile("text.bmp");
bmp->LoadFromFile("text.bmp");
bmp->TransparentColor=clWhite;
bmp->Transparent=true;
Image1->Picture->Bitmap->Canvas->Draw(50,50,bmp); |
Lorsque le TextOutA est exécuté, il laisse une partie vide de couleur blanche qui n'est pas transparente. Alors mon idée c'est de sauver Image2 dans un fichier avant de le tracer sur Image1.
Et ben la partie de couleur blanche n'est pas toujours transparente alors que le fichier bmp est une blanche #FFFFFF