|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.06.2022, 07:11 | #1 |
Новичок
Джуниор
Регистрация: 02.06.2022
Сообщений: 3
|
TDBGrid - баг или?
Категорически всех приветствую, господа кодеры.
Столкнулся с интересным багом или... непонятка, короче. Ковыряю очередное приложение для себя. В приложении использую считывание параметров проекта для вывода версии ПО. procedure TfmMain.FormCreate(Sender: TObject); var VersionBuffer,VersionNoText,Product NameText, LegalCopyrightText,CompanyText:stri ng; VersionSize:cardinal; Dummy:cardinal; begin VersionSize:=GetFileVersionInfoSize (PChar(Application. ExeName),Dummy); if (VersionSize<>0) then begin SetLength(VersionBuffer,VersionSize ); SetLength(VersionNoText,VersionSize ); SetLength(ProductNameText,VersionSi ze); SetLength(LegalCopyrightText,Versio nSize); SetLength(CompanyText,VersionSize); if (GetFileVersionInfo(PChar(Applicati on.ExeName), Dummy,VersionSize,PChar(VersionBuff er))) and (VerQueryValue(PChar(VersionBuffer) , '\StringFileInfo\041904E3\FileVersi on', Pointer(VersionNoText),VersionSize) ) and (VerQueryValue(PChar(VersionBuffer) , '\StringFileInfo\041904E3\ProductNa me', Pointer(ProductNameText),VersionSiz e)) and (VerQueryValue(PChar(VersionBuffer) , '\StringFileInfo\041904E3\LegalCopy right', Pointer(LegalCopyrightText),Version Size)) and (VerQueryValue(PChar(VersionBuffer) , '\StringFileInfo\041904E3\CompanyNa me', Pointer(CompanyText),VersionSize)) then begin Version.Caption:=VersionNoText; Version.Caption:='Версия: '+Copy(Version.Caption,5,4); end; end; end; Все работает, никаких проблем. Version пихаю куда угодно (Caption кнопки, лейба, панель...), но... как только помещаю на форму TDBGrid - Version исчезает. Ахринеть! Это как? И как это может быть связано? |
02.06.2022, 09:09 | #2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
версия первая. DBGrid перекрывает тот самый "куда угодно".
(располагается в том же самом месте).
программа — запись алгоритма на языке понятном транслятору
|
03.06.2022, 08:30 | #3 |
Новичок
Джуниор
Регистрация: 02.06.2022
Сообщений: 3
|
Версия отметается... хотелось бы мне увидеть Grid на кнопке
|
03.06.2022, 09:16 | #4 | |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Цитата:
доказательство что там есть и кнопка и панель и надпись и еще что-нибудь в приложенном dfm
программа — запись алгоритма на языке понятном транслятору
|
|
04.06.2022, 11:46 | #5 |
Новичок
Джуниор
Регистрация: 02.06.2022
Сообщений: 3
|
Ладно, чтобы не считали меня полным... попробуем по-другому...
Скрин раз - запущено приложение, лейба на верхней панели и в статус баре (Версия: 0.4) Скрин два - перенес лейбу на основное поле (увеличил площадь для лучшего вида) Скрин три - запуск - лейба на месте (как и в статусе) Скрин 4 - Кинул на форму Грид (маааленький, чтобы не закрыть ничего (совсем из меня дурня-то не надо сотворять)) Скрин 5!!! - Запуск - лейбы тю-тю... в том числе и в Статусе. Черт, как не гружу, все-равно порядок скринов сбит... Последний раз редактировалось UA0FHT; 04.06.2022 в 11:49. |
04.06.2022, 12:31 | #6 |
Участник клуба
Регистрация: 17.04.2022
Сообщений: 1,833
|
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
TDBGrid DrawColumnCell | AnBychkov | Общие вопросы Delphi | 0 | 16.09.2010 22:04 |
CopyGRDToClb(dbg: TDBGrid) | Abricosko | Помощь студентам | 0 | 04.06.2010 18:00 |
Вопросы по TDBGrid! | $T@LKER | БД в Delphi | 21 | 04.05.2010 15:08 |
TDBGrid | Blackmore | БД в Delphi | 2 | 26.05.2008 09:39 |
Поля в TDBGrid | Lynx | БД в Delphi | 5 | 15.02.2007 18:36 |