Delphi 7 Image

[Itachi]

Здравствуйте. Я хотел бы спросить: как вывести в Image картинки из папки с возможностью листания по нажатию на кнопки "Вперед" и "Назад"? На код процедуры не расчитываю, напишите хотябы примерно как это сделать. Заранее спасибо.

[Mad_Cat]

1)найти в папке все картинки
2)сохранить к ним путь например в StringList
3)по кнопкам перемещаться по нему и загружать картинки в image

[Stilet]

Вот легкий пример насчет листания картинок вперед:

unit Unit1;

interface

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

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

var  sr:TSearchRec; s:TStringList;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FindFirst('I:\Clipart\*.jpg',faAnyFile,sr);
  s:=TStringList.Create;
  s.Add(sr.Name);
end;

procedure TForm1.Button1Click(Sender: TObject);
var j:TJPEGImage;b:TBitmap;pth:string;
begin
 pth:=sr.Name;
 if tag<s.Count then pth:=s[tag];
 tag:=tag+1;
 j:=TJPEGImage.Create;b:=TBitmap.Create;
 j.LoadFromFile('I:\Clipart\'+pth);
 b.Assign(j);
 Canvas.FillRect(ClientRect);
 BitBlt(Canvas.Handle,0,0,Width,Height,b.Canvas.Handle,0,0,SRCCOPY);
 j.Free;b.Free;
 if tag>s.Count then begin
  FindNext(sr);
  s.Add(sr.Name);
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 tag:=tag-2;
 Button1Click(nil);
end;

end.

Требует легкой доработки

[Itachi]

Сообщение от Mad_Cat

1)найти в папке все картинки
2)сохранить к ним путь например в StringList
3)по кнопкам перемещаться по нему и загружать картинки в image

ты не правильно меня понял. мне к примеру требуется через опен диалог открыть папку, а в имаге выводится первое изображение, когда листаю они меняются. там наверно в цикле над чего то делать, но я не знаю чего

[Itachi]

Stilet спасибо, попробую разобраться и исправить что потребуется.

[Mad_Cat]

ты не правильно меня понял

Stilet спасибо, попробую разобраться и исправить что потребуется

дык у стилета это

1)найти в папке все картинки
2)сохранить к ним путь например в StringList
3)по кнопкам перемещаться по нему и загружать картинки в image

в коде и реализовано))

[Itachi]

чет не получается((((