Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > ВЫвод изображения

Автор: FRESH 10.3.2006, 22:59

короч нужен исходник такой шараги...

есть
- поле вывода картинки ( выводит картинку(img.jpg - где img это переменая изначально равная 0) из папки bmp где лежит сама прога )
- Кнопка " >> " ( плюсует переменую img +1 )
- Кнопка " << " ( минусует переменую img -1 )

Автор: teplotaya 11.3.2006, 05:25

Код


var
  Form1: TForm1;
  path:string;
  img:integer;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
 img:=0;
 path:=ParamStr(0);
 path:=ExtractFilePath(path);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
inc(img);
image1.Picture.LoadFromFile(path+inttostr(img)+'.jpg');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
dec(img);
image1.Picture.LoadFromFile(path+inttostr(img)+'.jpg');
end;

end.