Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > Общие вопросы C/C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.11.2007, 18:10   #1
Kocapb
Пользователь
 
Регистрация: 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.
Kocapb вне форума Ответить с цитированием
Старый 25.11.2007, 16:51   #2
Kocapb
Пользователь
 
Регистрация: 28.10.2007
Сообщений: 61
По умолчанию

и тишина =))) что нико не знает как?
Kocapb вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Просмотр изображения 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