Можешь посмотреть что там не так. Я уже все перепробовал не могу понять в чем ошибка наверняка какая нибудь фигня мелкая. Вкратце о программе: Мне нужно копировать ряд картинок из папки 1 в папку 2, но перед копирование нужно посмотреть какие картинки в папке. Интересуют только *.jpg
проблемы:
1. При ручном просмотре картинки через Listbox они не уменьшаются,
2. Если в папке нет картинок он выдает ошибку т.к. программа при запуске выполняет функцию отобразит картинку
Цитата:
Кнопка Button3
Image1.Visible := true;
image2.Visible := false;
Inc(Index);
if Index > High(Files) then Index := 0;
Image1.Picture.LoadFromFile(Files[Index]);
|
3. в Label1 нужно отобразит состояние копировании, у меня в любом случай показывает что копирование выполнено, не могу догнать как подвязать к копированию.
4. Если директория "Kat" задана не верно, нужно сделать Radiobutton неактивным, чтобы знать в чем проблема.
5. Копировать выбранную картинку из Listbox'a
Возможно ли упростить код в каких нибудь местах, если не трудно.
P.S. У меня просто времени в обрез мне целую неделю нужно работать с 9 утра до 10 вечера, не высыпаюсь.
А работы до кучи а программа даже недописанная до конца выручает,
а если она полностью заработает то еще и время на отдых будет
Я давненько не писал немного подзабыл даже элементарные вещи не замечаю, и все таки 4 года это время.
Заранее огромное спасибо!!!