Собрать все Image и сохранить в один файл как реализовать?

[Vans888]

Собрать все Image и сохранить в один файл как реализовать?

вот код программы:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan, ExtCtrls, jpeg, ImgList;

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
XPManifest1: TXPManifest;
Image1: TImage;
Button1: TButton;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
ComboBox7: TComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
ImageList1: TImageList;
Image2: TImage;
ImageList2: TImageList;
ImageList3: TImageList;
ImageList4: TImageList;
ImageList5: TImageList;
ImageList6: TImageList;
ImageList7: TImageList;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
procedure Button1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox5Change(Sender: TObject);
procedure ComboBox6Change(Sender: TObject);
procedure ComboBox7Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure ComboBox4Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.SaveToFile(ExtractFi lePath(Application.ExeName) + 'images\nomer_saved.bmp');
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Form1.ImageList1.GetBitmap(ComboBox 1.ItemIndex, Image2.Picture.Bitmap);
Image2.Repaint;
end;

procedure TForm1.ComboBox5Change(Sender: TObject);
begin
Form1.ImageList2.GetBitmap(ComboBox 5.ItemIndex, Image3.Picture.Bitmap);
Image3.Repaint;
end;

procedure TForm1.ComboBox6Change(Sender: TObject);
begin
Form1.ImageList3.GetBitmap(ComboBox 6.ItemIndex, Image4.Picture.Bitmap);
Image4.Repaint;
end;

procedure TForm1.ComboBox7Change(Sender: TObject);
begin
Form1.ImageList4.GetBitmap(ComboBox 7.ItemIndex, Image5.Picture.Bitmap);
Image5.Repaint;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
Form1.ImageList5.GetBitmap(ComboBox 2.ItemIndex, Image6.Picture.Bitmap);
Image6.Repaint;
end;

procedure TForm1.ComboBox3Change(Sender: TObject);
begin
Form1.ImageList6.GetBitmap(ComboBox 3.ItemIndex, Image7.Picture.Bitmap);
Image7.Repaint;
end;

procedure TForm1.ComboBox4Change(Sender: TObject);
begin
Form1.ImageList7.GetBitmap(ComboBox 4.ItemIndex, Image8.Picture.Bitmap);
Image8.Repaint;
end;

end.

[evg_m]

берем один большой Tbitmap и несколько маленьких и копируем маленькие в НУЖНЫЕ места большого.

Tbitmap Сanvas copyRect F1 (справка)

Copies part of an image from another canvas into the canvas .

можно посмотреть другие методы Tcanvas.

[Пепел Феникса]

http://programmersforum.ru/showthread.php?t=57206

[Vans888]

вобщем здесь Image1 это большая картинка а все остальные Image2-7 лежат сверху на Image1 нужно что бы при сохранении они все были в одном файле одной картинкой.
вот моя программа глянте

[digital-stream]

http://delphidevelop.ru/publ/2-1-0-157