ActiveDelphi

[felipearon]

gostaria de saber como é possivel juntas duas ou mais imagens e formar uma só.
Tenho duas imagens distintas e gostaria de \"colar\" uma ao lado da outra para formar uma única imagem. é possível ??
_________________
Com a força aprenda a suavidade. Através da suavidade a força prevalecerá.

[an.der.son]

Segue ae o codigo...

[code]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtDlgs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
OpenPictureDialog1: TOpenPictureDialog;
SavePictureDialog1: TSavePictureDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function ConcatenaBMP(Img1,Img2 : TBitmap) : TBitmap;
begin
Result := TBitmap.Create;

Result.Width := Img1.Width + Img2.Width;
if Img1.Height > Img2.Height then
Result.Height := Img1.Height
else
Result.Height := Img2.Height;

Result.Canvas.Draw(0,0,Img1);
Result.Canvas.Draw(Img1.Width+1,0,Img2);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Bmp1,Bmp2 : TBitmap;
begin
Bmp1 := TBitmap.Create;
Bmp2 := TBitmap.Create;

if OpenPictureDialog1.Execute then
Bmp1.LoadFromFile(OpenPictureDialog1.FileName);

if OpenPictureDialog1.Execute then
Bmp2.LoadFromFile(OpenPictureDialog1.FileName);

if SavePictureDialog1.Execute then
begin
if Assigned(Bmp1) and Assigned(Bmp2) then
ConcatenaBMP(Bmp1,Bmp2).SaveToFile(SavePictureDialog1.FileName);
end
end;

end.
[/code]

Abraços
_________________
Estou de volta!!!

[felipearon]

Amigo, ainda não testei o código mas pelo visto é exatamente oq eu procuro...
Preciso disto para implementar no meu sistema de lingua japonesa, onde eu tenho as imagens separadas de cada silaba do alfabeto hiragana/katakana e assim que eu gravar a palavra, eu a quebro para gerar a imagem da forma como se escreve.

Muito obrigado... vlw !!
_________________
Com a força aprenda a suavidade. Através da suavidade a força prevalecerá.

[an.der.son]

vlw, precisando de algo eh soh gritar (^.^)

Abraços
_________________
Estou de volta!!!