画像を合成するには？ (ID:18572)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 早速の”レス”をありがとうございます。 Mr.XRAYさんへ。 下記のように"TImage"の配列を使い"ボタン３"をクリックすると一つずつ画像を 表示します。（下記ステップ） "TOpenPictureDialog"が画像のプレビュー付きで便利そうだったので使ってみましたが”ｊｐｅｇ”が使えないんです。あとで変換すれば、と思っていましたが行き詰まり、はじめから"Jpeg"でできないかな？と。 junkiさんへ "TBitMap"の名前から"Jpeg"は使えないと思ってました。 Helpファイルを調べたら使えそうなのが見つかりました。今、試行錯誤 しているところです。 取っ掛かりができたので、なんとかできそうです。ありがとうございました。 - - - - - - - - - - - - - - - - - - type TForm1 = class(TForm) Button3: TButton; OpenPictureDialog1: TOpenPictureDialog; procedure Button3Click(Sender: TObject); procedure FormOpen(Sender: TObject); - - - - - - - - - - - - - - var Form1: TForm1; Images: Array[0..3] of TImage ; //TImageの配列 ImagesCount: Integer; CurrentFile: string; implementation {$R *.dfm} //フォームオープン（初期値設定） procedure TForm1.FormOpen(Sender: TObject); begin ImagesCount := 0 end; //ボタン３をクリック procedure TForm1.Button3Click(Sender: TObject); var w_Top : integer; w_Left: integer; begin if OpenPictureDialog1.Execute then //jpegが選択できない begin if ImagesCount > 2 then begin ImagesCount := 0 end; Images[ImagesCount] := TImage.Create(Self); Images[ImagesCount].Parent := Form1; Images[ImagesCount].Width := 100; //Sizeはテスト用 Images[ImagesCount].Height := 100; w_Top := 10; w_Left := ImagesCount; if ImagesCount > 1 then begin w_Top := 120; w_Left := w_Left - 2; end; Images[ImagesCount].Top := w_Top; Images[ImagesCount].Left := w_Left * 100 + (w_Left + 1) * 10; CurrentFile := OpenPictureDialog1.FileName; Images[ImagesCount].Picture.LoadFromFile(CurrentFile); ImagesCount := ImagesCount + 1; end; end; end.