dessiner un rectangle de taille donné dans une image de taille donnée
dessiner un rectangle de taille donné dans une image de taille donnée - Delphi/Pascal - Programmation
Sujets relatifs:
- insertion image dans fichier excel
- bloquer la taille d'une fenêtre popup
- html + tous les fichiers qui vont avec (image, css etc) en PDF
- récupérer les coordonnées des pixels d'une image bmp
- Entiers de taille précise en C++
- PB avec le lien sur 1 Bouton Image
- Recherche d'une librairie pour du traitement d'image
- [Resolu] Redimensionner image avec haut et larg max
- Problème image en FPDF
Marsh Posté le 06-10-2009 à 17:43:00
Bonjour,
alors voila mon soucis, je voudrais simplement enregistrer deux images bmp : un rectangle noir (dont je connais la largeur et la hauteur) et le même en blanc (dans un autre fichier) avec les mêmes dimensions : mais je n'y arrive pas : mon image mesure tout le temps 105x33 (taille du composant image1 que j'ai posé sur ma form !!)
Voilà le code que j'utilise :
var r:trect;
begin
if checkbox1.Checked=true then
begin
image1.Canvas.Brush.Color:=clblack;
r.Left:=0;
r.Top:=0;
r.Right:=updownlogolargeur.position;
r.Bottom:=updownlogohauteur.Position;
if r.Right mod 2=1 then r.right:=r.Right+1;
if r.Bottom mod 2=1 then r.Bottom:=r.Bottom+1;
image1.Width:=updownlogolargeur.position;
image1.Height:=updownlogohauteur.Position;
image1.Canvas.Rectangle(r);
image1.Picture.SaveToFile(formexternalappli.cheminappli+'logo\temp_x_'+editlogoposx.Text+'_y_'+editlogoposy.Text+'_0.bmp');
image1.Canvas.Brush.Color:=clwhite;
image1.Canvas.Rectangle(r);
image1.Picture.SaveToFile(formexternalappli.cheminappli+'logo\temp_x_'+editlogoposx.Text+'_y_'+editlogoposy.Text+'_1.bmp');
Quelqu'un peut-il m'aider ???
MEri bp