画像を合成するには？ (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.

←解決時は質問者本人がここをチェックしてください。

戻る