Appliquer un cadre de couleur ou avec un bitmapRésolu

Question

Bonjour à toutes et à tous,

Voici mon problème du jour, après avoir redimensionné une image et avant de la sauver en jpeg, est t'il possible de lui appliquer un cadre de couleurs ou un cadre avec une image (gif) afin d'appliquer ce cadre sur mon image finale, si oui, quelqu'un peut t'il m'aider.

Je n'ai rien trouvé à ce sujet sur la toile ou je n'ai pas bien cherché !

Merci de votre attention.

@+,

Cincap

[mailto: mailto:]

Caribensila · Accepted Answer

Imaginons que ton cadre soit dans Image2...

Procedure Encadrer(BmpSource:TBitmap;CadreWidth:Integer;Cadre:TBitmap);
   var
      BmpDest : TBitmap;
  begin
    BmpDest := TBitmap.Create;
  try
    BmpDest.Width  := BmpSource.Width + CadreWidth + CadreWidth;
    BmpDest.Height := BmpSource.Height + CadreWidth + CadreWidth;
    BmpDest.Canvas.Brush.Bitmap := Cadre;
    BmpDest.Canvas.FillRect(BmpDest.Canvas.ClipRect);
    BmpDest.Canvas.Draw(CadreWidth,CadreWidth,BmpSource);
    BmpSource.Assign(BmpDest);
  finally 
    BmpDest.Canvas.Brush.Bitmap := nil;
    BmpDest.Free; 
  end;
end;

{Utilisation:}
procedure TForm1.Button1Click(Sender: TObject);
  begin
  Encadrer(Image1.Picture.Bitmap,4,Image2.Picture.Bitmap);
end;

Caribensila · Answer

Salut cincap,

Procedure Encadrer(BmpSource:TBitmap;CadreWidth:Integer;CadreColor:Tcolor);
   var
      BmpDest : TBitmap;
  begin
  BmpDest := TBitmap.Create;
  try
    BmpDest.Width  := BmpSource.Width  + CadreWidth + CadreWidth;
    BmpDest.Height := BmpSource.Height + CadreWidth + CadreWidth;
    BmpDest.Canvas.Brush.Color := CadreColor;
    BmpDest.Canvas.FillRect(BmpDest.Canvas.ClipRect);
    BmpDest.Canvas.Draw(CadreWidth,CadreWidth,BmpSource);
    BmpSource.Assign(BmpDest);
  finally BmpDest.Free; end;
end;





{Utilisation:}





procedure TForm1.Button1Click(Sender: TObject);
  begin
  Encadrer(Image1.Picture.Bitmap,4,clred);
end;

cincap · Answer

Bonjour,

@ Caribensila, merci de ta réponse, après l'essai, l'image est recouverte de rouge et l'application se bloque, j'ai du fermer ma session.

Pas évident, et je suppose qu'avec un cadre image ce sera en core plus difficile.

@+,

Cincap

[mailto: mailto:]

cincap · Answer

@ Caribensila, désolé cela fonctionne j'avais chargé un Jpg donc forcément un blocage.

Le cadre n'est pas adoucit mais ce code peut être nettement amélioré par la suite, c'est déjà une bonne approche.

As tu aussi une idée pour charger un bmp ou gif servant de cadre et l'appliquer à image1.

@+,

Cincap

[mailto: mailto:]

Caribensila · Answer

...Enfin, ça dépend de l'effet recherché...
Tu devras peut-être utiliser StretchDraw().
A tester selon le bitmap-cadre utilisé.

cincap · Answer

@ Caribensila, en fait, j'ai pas mal de mask de cadres divers en gif et j'aurai bien voulu avec la photo chargée, y appliquer un de ces cadres.

Avec ta solution, le cadre n'est pas mélangé avec la photo, il se trouve même derrière ce qui n'est pas ce que je cherche mais par contre cela crée un autre effet du moment que l'on répète le code de l'utilisation on a alors l'impression de donner un relief à l'image1.

@+,

Cincap

[mailto: mailto:]

Caribensila · Answer

« Avec ta solution, le cadre n'est pas mélangé avec la photo »

Je ne comprends pas bien ce que tu veux dire...
C'est quand même pas un sous-verre que tu veux faire?

cincap · Answer

Mais non, si tu connais Photofiltre, il permet de placer un cadre ou bordure si tu préfère avec une série de mask en gif.

A mon avis il utilise le format gif pour la transparence en utilisant la propriété transparentcolor.

Sinon merci déjà pour tes solutions.

@+,

Cincap

[mailto: mailto:]

cincap · Answer

Ok merci, je vais cloturer le topic.


@+,


Cincap

[mailto: mailto:]

Appliquer un cadre de couleur ou avec un bitmap

9 réponses

Votre réponse

Discussions similaires