Загрузка картинки на форму по выделении записи в DBGrid

@dumser2 · Регистрация: 24.07.2011

Студворк — интернет-сервис помощи студентам

Как сделать что при выделение ячейки в DBGrid отображалась картинка в Image.

@alexan0308 · 27.07.2011, 00:25

Я так понимаю, что в ячейке написан адрес фото? Тогда клик на другую ячейку вызовет ИС.

Может так:
(использовано http://www.infocity.kiev.ua/pr... ре TDBGrid )

Вводи две глобальные переменные
var
Col, Row: Integer;

События DBGrid:
Раз

Code
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.MyDBGridDrawDataCell(Sender: TObject; const Rect: TRect;  
  Field: TField; State: TGridDrawState);  
var  
  RowHeight: Integer;  
begin  
  if gdFocused in State then  
  begin  
    RowHeight := Rect.Bottom - Rect.Top;  
    Row := (Rect.Top div RowHeight) - 1;  
    Col := Field.Index;  
  end;  
end;

Два

Code
1
2
3
4
5
6
procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if DBGrid1.Columns[col].Title.caption='Путь к фото' then
   Image1.Picture.LoadFromFile(DBGrid1.Fields[col].Text);
end;

@sharky123 · 27.07.2011, 00:33

Кинь на форму DBImage, свяжи с набором данных, теперь перемещаясь по записям будет отображаться и картинка. Смотри demo\db\fishfacts

@dumser2 · 27.07.2011, 00:42 **[ТС]**

Спасибо за совет ща посмотрим.

Вот это то что мне нада. спосиба. Буду разбиратся.

@MsGuns · 27.07.2011, 11:48

>alexan0308

Вы, батенька, глупость советуете, к тому же еще и несъедобную для компиллятора

@dumser2 · 27.07.2011, 11:50 **[ТС]**

А в чем то глупость. Есть пример можно по компонентах разобраться.

@alexan0308 · 27.07.2011, 11:57

Сообщение от MsGuns

>alexan0308

Вы, батенька, глупость советуете, к тому же еще и несъедобную для компиллятора

Почему, у меня все работало. Конечно, может есть способ полегче, так я разве возражаю.

@MsGuns · 27.07.2011, 12:10

Delphi
1
А в чем то глупость

Глупость в том, чтобы советовать пурген всем посетителям районной поликлиннике только на том основании что он помог лично советчику.
Если лирику отбросить, то:

1 фрагмент: - Код, мягко говоря, не универсален
2 фрагмент: - Жуткие тормоза и недоумение юзера, переходящее в стойкое желание выросить и забыть эту программу, обеспечены

Delphi
1
Почему, у меня все работало

Очевидно, потому, что Вы используете не стандартный ДБгрид, потому что в стандартном св-ва RowHeight просто нет. Аргумент "у меня все работало" - см. предыдущий абзац про пурген

@alexan0308 · 27.07.2011, 12:41

Сообщение от MsGuns

Очевидно, потому, что Вы используете не стандартный ДБгрид, потому что в стандартном св-ва RowHeight просто нет. Аргумент "у меня все работало" - см. предыдущий абзац про пурген

ДБгрид вполне стандартный.
Если смотреть внимательно код, то можно увидеть, что переменная вводится.

var RowHeight: Integer;

Человек с пургеном и Комп с программой все таки не одно и тоже. Замечено, что если программа в Delphi со стандартным набором компонентов работает на одном компьютере, то она работает на сотнях тысячах других компьютеров....

А вообще, если говорить твоими словами, то на форумах все только и делают, что рассказывают про свои пургены. И выбирают пурген получше!

@MsGuns · 27.07.2011, 13:31

Delphi
1
2
3
ДБгрид вполне стандартный. 
Если смотреть внимательно код, то можно увидеть, что переменная вводится.
var RowHeight: Integer;

Виноват, просмотрел про переменную (а нефик называть ее зарезервированными словами, пусть даже в текущем класса не используемыми). Однако от этого код становится еще мутнее, потому что неясно что происходит далее с глобальными переменными col и row (за объявление глобальных переменных с такими именами вообще надо отрывать кое-что !) .
Далее. Вы увязали событие отрисовки каждой ячейки сетки с нажатием (точнее с финальной стадией нажатия - отжатием) мыши (при этом я мог клацать сто раз на одной и той же ячейке или же клацнуть правой кнопкой для вызова контекстного меню и каждый клац будет сопровождатьс я загрузкой картинки !) - просто закат солнца вручную
Еще. С какого бодуна Вы решили что картинка хранится в файле, а в базе лишь строка-путь к ней ? Сейчас за такое даже на 1-м курсе отсылают за хвостовкой. Ибо все популярные СУБД имеют достаточные средства для хранения графики в самих базах. Но предположим что картинки лежат в папках, тогда то что если:

1) файла с указанной картинкой нет по указанному пути ?
2) файл есть, но он не картинка хоть и имеет соотв.расширение (препод тестирует типа) ?
3) файл есть и он картинка, но картинка - скриншот с сайта Берковой (недруг-сосед по парте подменил, собака) ?
...

И главное ! Пользователь программы не хочет в данный момент смотреть картинки - ну не нужны они ему ! Как отключить чтоб не раздражало ?

Delphi
1
Человек с пургеном и Комп с программой все таки не одно и тоже.

А за компом что, не человеки сидят ? С нервной системой между прочем, которой программеры вроде Вас устраивают тесты на прочность. Есть некоторые программы, работе с которыми "человек" предпочтет пурген.

Delphi
1
Замечено, что если программа в Delphi со стандартным набором компонентов работает на одном компьютере, то она работает на сотнях тысячах других компьютеров....

Кем замечено. Вами ?

Delphi
1
А вообще, если говорить твоими словами, то на форумах все только и делают, что рассказывают про свои пургены. И выбирают пурген получше!

Ну не все. Некоторые спешат выложить свои говнононаработки, "на их компах работающие" и потом гордо давать комментарии. При этом либо просто не въехав в тему, либо зная о ней только понаслышке

@dumser2 · 27.07.2011, 13:36 **[ТС]**

Ого ну и вы тут развиле тему. Хватет.
Я лутше вообще откажусь пока от этой темы. Сделаю базу без картинок. Может кадась вернусь к теме и я прийму участие в споре.

@alexan0308 · 27.07.2011, 14:48

Сообщение от MsGuns

Delphi
1
Замечено, что если программа в Delphi со стандартным набором компонентов работает на одном компьютере, то она работает на сотнях тысячах других компьютеров....

Кем замечено. Вами ?

Не, это Борланд так задумал.. ))

Сообщение от MsGuns

Delphi
1
А вообще, если говорить твоими словами, то на форумах все только и делают, что рассказывают про свои пургены. И выбирают пурген получше!

Ну не все. Некоторые спешат выложить свои говнононаработки, "на их компах работающие" и потом гордо давать комментарии. При этом либо просто не въехав в тему, либо зная о ней только понаслышке

Я ж не волшебник, а токо учусь....

@MsGuns · 27.07.2011, 14:54

Delphi
1
Не, это Борланд так задумал..

Да нет, Борланд не такой вумный чтобы нести ахинею про стотыщ одинаковых компов. Это Вы сами придумали, так что не скромничайте

Новые блоги и статьи Все статьи Все блоги /
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Old Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .

@dumser2 1 / 1 / 0 Регистрация: 24.07.2011 Сообщений: 47

	Загрузка картинки на форму по выделении записи в DBGrid 26.07.2011, 23:18. Показов 3084. Ответов 12 Метки нет (Все метки) Как сделать что при выделение ячейки в DBGrid отображалась картинка в Image. 0

@sharky123 47 / 47 / 5 Регистрация: 02.03.2010 Сообщений: 119
	27.07.2011, 00:33
	Кинь на форму DBImage, свяжи с набором данных, теперь перемещаясь по записям будет отображаться и картинка. Смотри demo\db\fishfacts 0

@dumser2 1 / 1 / 0 Регистрация: 24.07.2011 Сообщений: 47
	27.07.2011, 00:42 [ТС]
	Спасибо за совет ща посмотрим. Вот это то что мне нада. спосиба. Буду разбиратся. 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	27.07.2011, 11:48
	>alexan0308 Вы, батенька, глупость советуете, к тому же еще и несъедобную для компиллятора 0

@dumser2 1 / 1 / 0 Регистрация: 24.07.2011 Сообщений: 47
	27.07.2011, 11:50 [ТС]
	А в чем то глупость. Есть пример можно по компонентах разобраться. 0

@dumser2 1 / 1 / 0 Регистрация: 24.07.2011 Сообщений: 47
	27.07.2011, 13:36 [ТС]
	Ого ну и вы тут развиле тему. Хватет. Я лутше вообще откажусь пока от этой темы. Сделаю базу без картинок. Может кадась вернусь к теме и я прийму участие в споре. 0