RÉGLE À CALCULS ET IMAGE TRANSPARANTE PARTIELLEMENT

Commentaire de Caribensila le 31/07/2007 13:33:45

Salut,



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)...

Commentaire de yvessimon le 31/07/2007 14:59:30

Bonjour,

Un grand merci. C'est la perfection.

Avec DELPHI et de l'aide tout est possible.


Salutations

Commentaire de Caribensila le 31/07/2007 16:14:27

Eh bein!
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

Commentaire de WhiteHippo le 31/07/2007 18:31:10

Yvessimon,

l'exemple fourni n'a pas été donné pour critiquer ton travail, et encore moins pour le rabaisser, mais simplement pour te montrer ce que quelqu'un d'autre avait proposé sur le même sujet (cela histoire que tu t'en inspires et/ou que cela t'ouvres d'autres voies de reflexion. Rien de plus :)

Cordialement.