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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.06.2013, 13:10   #1
waka2ebawer
Пользователь
 
Регистрация: 06.10.2009
Сообщений: 46
Восклицание Перестает работать процедура

День добрый! имеется программа списка задач конкретно в ней есть ListBox куда добавляются все списки заданий, а конкретно только их даты (например: 23.06.2013, 16.03.2021) далее вырезаются дни и после чего окрашиваются ячейки StringGrid в зеленый цвет дабы знать где какое задание. К любому заданию можно добавить изображение и суть проблемы такова, что после добавления изображения и сохранения перестает работать процедура по добавлению дат всех заданий и тем самым не окрашивается ячейки StringGrid.

вот процедура по поиску заданий

Код:
procedure findAndViewDir(LB:TListbox);
var FindRes:Integer;
APAth:string;
SR:TSearchRec;
begin
FindRes:=FindFirst(APath+'files\'+'*.*',faAnyFile,SR);

While FindRes=0 do
   begin
     if (SR.Attr=16)and(SR.Name<>'.')and(SR.Name<>'..') then
      begin
      LB.Items.Add(SR.Name);
      end;
      FindRes:=FindNext(SR);
   end;
FindClose(SR);
end;
waka2ebawer вне форума Ответить с цитированием
Старый 23.06.2013, 13:36   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

И что из этого кода можно увидеть по сути вопроса? Да и по сути нет никакой ясности. Хоть OnDrawCell стрингрида используется для окрашивания?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 23.06.2013, 13:41   #3
waka2ebawer
Пользователь
 
Регистрация: 06.10.2009
Сообщений: 46
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
И что из этого кода можно увидеть по сути вопроса? Да и по сути нет никакой ясности. Хоть OnDrawCell стрингрида используется для окрашивания?
тут StringGrid не причём он зависит от ListBox'a , в который загружается список дат. Так вот после добавления ИЗОБРАЖЕНИЯ к заданию перестает работать функция, которая описана выше. хотя логично добавить саму функции загрузки изображения

вот она
Код:
if checkbox1.Checked=true then
begin

  jpeg := TJpegImage.Create;
  jpeg.Scale := jsFullSize;
  jpeg.Performance := jpBestQuality;
  jpeg.PixelFormat := jf8Bit;
  jpeg.ProgressiveDisplay := false;
  jpeg.Smoothing := false;
  jpeg.Grayscale := false;
  if checkbox2.Checked=true then begin
  jpeg.LoadFromFile(Opendialog1.FileName); end else begin
  jpeg.Assign( image1.Picture.Bitmap ); end;

  bmp := TBitmap.Create;
  bmp.Width := jpeg.Width;
  bmp.Height := jpeg.Height;
  bmp.Assign( jpeg );
  bmp.SaveToFile( APath+'files\'+Edit1.Text+'\'+edt2.Text+'                                        [0]'+'.txt.bmp' );
  bmp.SaveToFile( APath+'files\'+Edit1.Text+'\'+edt2.Text+'                                        [1]'+'.txt.bmp' );
  bmp.Free;
  jpeg.Free;
  
end;
после этой процедуры должна сработать следующая продедура

findAndViewDir(form1.ListBox1); а она как раз не работает.

Если же все делать без добавления изображения то все работает нормально

Последний раз редактировалось waka2ebawer; 23.06.2013 в 13:43.
waka2ebawer вне форума Ответить с цитированием
Старый 23.06.2013, 13:50   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Что значит должна, и что значит не работает? В отладке в пошаговой трассировке входили? До процедурі дело вообще доходит? Если доходит, то в чем выражается её не "не работает"?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 23.06.2013, 14:00   #5
waka2ebawer
Пользователь
 
Регистрация: 06.10.2009
Сообщений: 46
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Что значит должна, и что значит не работает? В отладке в пошаговой трассировке входили? До процедурі дело вообще доходит? Если доходит, то в чем выражается её не "не работает"?
вот именно что доходит и ничего не происходит и все. Вот исходник
Вложения
Тип файла: rar QTL.rar (438.9 Кб, 8 просмотров)
waka2ebawer вне форума Ответить с цитированием
Старый 23.06.2013, 14:02   #6
ReportCube
Форумчанин
 
Аватар для ReportCube
 
Регистрация: 11.03.2011
Сообщений: 426
По умолчанию

Просто поиск осуществляется без вхождения в поддиректории - сохраняете картинки в одном месте, а ищете в другом
ReportCube вне форума Ответить с цитированием
Старый 23.06.2013, 15:21   #7
waka2ebawer
Пользователь
 
Регистрация: 06.10.2009
Сообщений: 46
По умолчанию

Цитата:
Сообщение от ReportCube Посмотреть сообщение
Просто поиск осуществляется без вхождения в поддиректории - сохраняете картинки в одном месте, а ищете в другом
не помогает да сейчас опишу весь процесс работы

http://s019.radikal.ru/i633/1306/c5/63cf5eae1499.png вот оригинал
Изображения
Тип файла: jpg 123123.jpg (25.9 Кб, 120 просмотров)
waka2ebawer вне форума Ответить с цитированием
Старый 23.06.2013, 15:42   #8
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

QTL.rar - какой-то исходник-невидимка
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 23.06.2013, 16:32   #9
waka2ebawer
Пользователь
 
Регистрация: 06.10.2009
Сообщений: 46
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
QTL.rar - какой-то исходник-невидимка
перезалил

возможно переобуются некоторые компоненты но их можно игнорировать в моей проблеме они не учавствуют
Вложения
Тип файла: rar QTL.rar (6.8 Кб, 9 просмотров)
waka2ebawer вне форума Ответить с цитированием
Старый 23.06.2013, 17:00   #10
ReportCube
Форумчанин
 
Аватар для ReportCube
 
Регистрация: 11.03.2011
Сообщений: 426
По умолчанию

А сами-то содержание архива пробовали посмотреть?
ReportCube вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перестает работать глобальный хук wanes101 Win Api 2 22.02.2013 15:00
Перестает работать анимация. Юрий90 Visual C++ 4 15.02.2012 13:32
Автоподстановка перестает работать GekFinn Microsoft Office Access 1 19.01.2012 11:38
ПЕРЕСТАЕТ РАБОТАТЬ МАКРОС Cone Microsoft Office Excel 3 15.08.2010 13:49
ПЕРЕСТАЕТ РАБОТАТЬ СОРТИРОВЩИК Cone Microsoft Office Excel 5 10.08.2010 16:36