RÉGLE À CALCULS ET IMAGE TRANSPARANTE PARTIELLEMENT
Caribensila
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
-
31 juil. 2007 à 13:33
yvessimon Messages postés 637 Date d'inscription mardi 22 avril 2003 Statut Membre Dernière intervention 9 janvier 2017 - 1 août 2007 à 08:52
yvessimon Messages postés 637 Date d'inscription mardi 22 avril 2003 Statut Membre Dernière intervention 9 janvier 2017 - 1 août 2007 à 08:52
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/43616-regle-a-calculs-et-image-transparante-partiellement
https://codes-sources.commentcamarche.net/source/43616-regle-a-calculs-et-image-transparante-partiellement
31 juil. 2007 à 13:33
Un petit exemple pour te mettre sur la voie:
procedure TForm1.FormCreate(Sender: TObject);
var MonBitmap : Tbitmap;
begin
MonBitmap := TBitmap.Create;
MonBitmap.Height:=100;
MonBitmap.Width:=100;
MonBitmap.Canvas.Brush.Color := clBlack;
MonBitmap.Canvas.FillRect(MonBitmap.Canvas.Cliprect);
MonBitmap.Transparent := true;
MonBitmap.TransparentColor := clBlack;
MonBitmap.Canvas.Pen.Color := clred;
MonBitmap.Canvas.MoveTo(50,0);
MonBitmap.Canvas.LineTo(50,100);
Image1.Transparent := true;
Image1.Picture.Assign(MonBitmap);
MonBitmap.Free;
end;
Ca te donnera une image transparente avec un trait vertical rouge (avec XP)...
31 juil. 2007 à 14:47
il y avait un moyen bien plus simple ...
@ YvesSimon : je t'ai mis le source ici : http://vampirus.pirus.free.fr/Delphi/YvesSimon.zip
Fait moi signe quand tu l'auras téléchargé (elle sera supprimée par la suite)
La correction est vite faite et ne concerne que la transparence du curseur
L'image BMP n'est plus utile puisqu'elle se trouve dans le DFM ... je l'ai juste laisser pour que tu puisses voir les changements apportés.
Le reste se passe dans le code
@+
Cirec
31 juil. 2007 à 14:59
Un grand merci. C'est la perfection.
Avec DELPHI et de l'aide tout est possible.
Salutations
31 juil. 2007 à 16:09
http://www.taswegian.com/SRTP/JavaSlide/javaslide.html
Cordialement.
31 juil. 2007 à 16:14
Ca faisait des années que je n'avais pas vu de régle à calcul!
Il existe encore des gens qui savent s'en servir? mdr