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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.06.2022, 07:11   #1
UA0FHT
Новичок
Джуниор
 
Регистрация: 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 исчезает.
Ахринеть! Это как? И как это может быть связано?
UA0FHT вне форума Ответить с цитированием
Старый 02.06.2022, 09:09   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

версия первая. DBGrid перекрывает тот самый "куда угодно".
(располагается в том же самом месте).
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 03.06.2022, 08:30   #3
UA0FHT
Новичок
Джуниор
 
Регистрация: 02.06.2022
Сообщений: 3
По умолчанию

Версия отметается... хотелось бы мне увидеть Grid на кнопке
UA0FHT вне форума Ответить с цитированием
Старый 03.06.2022, 09:16   #4
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Цитата:
хотелось бы мне увидеть Grid на кнопке
не НА кнопке, а ПОВЕРХ кнопки.

доказательство что там есть и кнопка и панель и надпись и еще что-нибудь в приложенном dfm
Изображения
Тип файла: jpg випкшв.JPG (33.6 Кб, 21 просмотров)
Вложения
Тип файла: txt випкшв.dfm.txt (1.4 Кб, 2 просмотров)
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 04.06.2022, 11:46   #5
UA0FHT
Новичок
Джуниор
 
Регистрация: 02.06.2022
Сообщений: 3
По умолчанию

Ладно, чтобы не считали меня полным... попробуем по-другому...
Скрин раз - запущено приложение, лейба на верхней панели и в статус баре (Версия: 0.4)
Скрин два - перенес лейбу на основное поле (увеличил площадь для лучшего вида)
Скрин три - запуск - лейба на месте (как и в статусе)
Скрин 4 - Кинул на форму Грид (маааленький, чтобы не закрыть ничего (совсем из меня дурня-то не надо сотворять))
Скрин 5!!! - Запуск - лейбы тю-тю... в том числе и в Статусе.

Черт, как не гружу, все-равно порядок скринов сбит...
Изображения
Тип файла: jpg 001.jpg (33.7 Кб, 16 просмотров)
Тип файла: jpg 002.jpg (38.9 Кб, 0 просмотров)
Тип файла: jpg 003.jpg (33.7 Кб, 15 просмотров)
Тип файла: jpg 004.jpg (33.3 Кб, 0 просмотров)
Тип файла: jpg 005.jpg (36.3 Кб, 15 просмотров)

Последний раз редактировалось UA0FHT; 04.06.2022 в 11:49.
UA0FHT вне форума Ответить с цитированием
Старый 04.06.2022, 12:31   #6
macomics
Участник клуба
 
Регистрация: 17.04.2022
Сообщений: 1,833
По умолчанию

Код:
Version.Caption:='Версия: '+Copy(Version.Caption,5,4);
Вот эту строчку попробуйте убрать для начала.
macomics вне форума Ответить с цитированием
Ответ


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

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

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


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