История изображений

[AidarBik]

Во многих программах есть история, я попытался сделать массив из TImage, но когда пытаюсь получить Image из этого массива ничего не происходит.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

  Form1: TForm1;
  images: array of TImage;
  index: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.Rectangle(10, random(50), 50, random(100));
SetLength(images, Length(images) + 1);
images[High(images)]:=TImage.Create(nil);
images[High(images)]:=Image1;
index:=index + 1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
index:=index - 1;
Image1.Picture.Assign(images[index].Picture);
Image1.Refresh;
end;
end.

Это упрощенная версия кода.

[bill]

Я делал по другому. Вот мой вариант, что нужно подправишь:

var
  Form1: TForm1;a:array[1..3] of timage;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
for i:=1 to 3 do
a[i]:=timage.Create(nil);
a[1].Height:=image1.Height;
a[1].Width:=image1.Width;
a[1].Picture:=image1.Picture;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('d:\у.ico');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
image1.Height:=a[1].Height;
image1.Width:=a[1].Width;
image1.Picture:=a[1].Picture;
end;

Можешь присваивать Битмап, метафайл, icо ит.п. Остальные картинки можно сделать аналогично.

[mutabor]

Не совсем понял о какой истории речь. Отмена изменений в изображении или последние открытые файлы? Или что-то другое?

[AidarBik]

Отмена изменений

[mutabor]

Можно сделать массив битмапов - array of TBitmap, раз изображение можно изменять то это точно битмап, так что TBitmap отлично подходит.
У тебя ограничено кол-во отмен или до самого начала? Если до начала то нужно динамический массив делать.
Вот пример наращивания такого массива

SetLength(massiv,Length(massiv)+1);
massiv[Length(massiv)-1]:=TBitmap.Create;
massiv[Length(massiv)-1].Assign(источник картинки); //или заполняешь любым другим способом

[AidarBik]

Все, вопрос решен. Спасибо Биллу!