Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

День добрый! имеется программа списка задач конкретно в ней есть 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
Адрес: Северодонецк.ua
Сообщений: 18,493
Репутация: 6498
По умолчанию

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

Цитата:
Сообщение от Аватар Посмотреть сообщение
И что из этого кода можно увидеть по сути вопроса? Да и по сути нет никакой ясности. Хоть 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
Адрес: Северодонецк.ua
Сообщений: 18,493
Репутация: 6498
По умолчанию

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

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

skype: ReportCube
По умолчанию

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

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

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

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

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

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

skype: ReportCube
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


20:45.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru