Fotoğraf Görüntüleyici

[yhackup]

Güzel oldu,
Atayım buraya örnek teşkil eder.

var
  Form1: TForm1;
  GlobalName: String;
  img: TStrings;
  index: integer = 0;
  maxindex: integer;

implementation

{$R *.dfm}

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  left.Height := Image1.Height;
  right.Height := Image1.Height;
end;

procedure TForm1.FormShow(Sender: TObject);
  procedure DrawImage(AFileName: String; AIndex: Integer);
  begin
    with TImage.Create(ScrollBox1) do
    begin
      Parent := ScrollBox1;
      Width := 50;
      Height := 50;
      Stretch := True;
      OnClick := ImageOnClick;
      Picture.LoadFromFile(AFileName);
      Top := 0;
      Left := 5 + (AIndex * (Width + 5));
      BringToFront();
    end;
  end;
  var
    i: Integer;
  begin
    img := TStringList.Create;
    img.Add('C:\38LP712\1.jpg');
    img.Add('C:\38LP712\2.jpg');
    img.Add('C:\38LP712\3.jpg');
    img.Add('C:\38LP712\4.jpg');
    img.Add('C:\38LP712\5.jpg');
    img.Add('C:\38LP712\6.jpg');
    img.Add('C:\38LP712\7.jpg');
    maxindex := img.Count-1;
    for i := 0 to img.Count - 1 do
      DrawImage(img[i], i);

      Image1.Picture.LoadFromFile(img[0]);
  end;
procedure TForm1.ImageOnClick(Sender: TObject);
begin
  if Sender is TImage then Image1.Picture := TImage(Sender).Picture;
end;

procedure TForm1.leftClick(Sender: TObject);
begin
   if (index > 0) then begin
    index := index - 1;
    Image1.Picture.LoadFromFile(img[index]);
    if (index = 0) then index := maxindex+1;
   end;
  Caption := 'Fotoğraf Görüntüleyici '+inttostr(index);
end;

procedure TForm1.rightClick(Sender: TObject);
begin

   if (index < maxindex) then begin
     index := index + 1;
     Image1.Picture.LoadFromFile(img[index]);
   if (index = maxindex) then index := -1;
   end;
   Caption := 'Fotoğraf Görüntüleyici '+inttostr(index);
end;

end.