![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 28.10.2007
Сообщений: 61
|
![]()
Здраствуйте осваиваю редактор для посмотра картинок, загрузка идет с каталока картинок потом просматриваю все подрят до последней кнопкой Next. вот ее код:
void __fastcall TForm1::Button2Click(TObject *Sender) { Image1->Picture->LoadFromFile(aPath + aSearchRec.Name); GroupBox1->Caption = aSearchRec.Name; if(FindNext(aSearchRec) != 0) { Button2->Enabled = false; } } AnsiString aPath; // каталог, в котором находится картинка TSearchRec aSearchRec; // результат поиска файла а как сделать кнопку предыдущей картинки??? должна же быть какая -то функция по навигации в данных для предыдущего открываю первую картинку так: void TForm1::FirstPicture() { Image1->Visible = false; Button2->Enabled = false; GroupBox1->Caption = ""; if ( FindFirst(aPath+ "*.jpg", faAnyFile, aSearchRec) == 0) { Image1->Picture->LoadFromFile(aPath+aSearchRec.Name ); Image1->Visible = true; GroupBox1->Caption = " " + aSearchRec.Name + " "; if ( FindNext(aSearchRec) == 0 ) { Button2->Enabled = true; } } } Последний раз редактировалось Kocapb; 22.11.2007 в 19:03. |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 28.10.2007
Сообщений: 61
|
![]()
и тишина =))) что нико не знает как?
|
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Просмотр изображения | Artem | Мультимедиа в Delphi | 4 | 08.05.2012 18:58 |
Просмотр мультиков | ElenaA | Общие вопросы Delphi | 8 | 19.05.2008 12:09 |
Просмотр базы | Isthmus | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 14.05.2008 22:31 |
просмотр dll | jziiiiiii | Win Api | 5 | 26.02.2008 18:54 |
Просмотр картинки | Terran | Общие вопросы Delphi | 4 | 07.02.2008 08:05 |