Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Пропадают надписи  [new]
Алексей222
Member

Откуда:
Сообщений: 60
Программа старая написана на Delphi 7
Стали при установке программы у многих пользователей пропадать надписи
Сейчас у 60% надписей нет у 40% пользователей надписи есть не зависимо от операционной системы
Под Win 10 надписей нет, но у нас только две машины и точно сказать не могу
Исходники программы утеряны
Установка различных шрифтов эффекта не дала
Что может быть, копать в каком направление
Принскрины прилагаю

Заранее спасибо

К сообщению приложен файл. Размер - 91Kb
11 янв 18, 11:13    [21096113]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Алексей222
Member

Откуда:
Сообщений: 60


К сообщению приложен файл. Размер - 89Kb
11 янв 18, 11:13    [21096117]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
kamero
Member

Откуда:
Сообщений: 177
М... а это не тот случай когда мышкой проводишь в месте где нет надписи, и происходит магия)) Надписи появляются?!
11 янв 18, 11:17    [21096136]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Gerasimenko
Member

Откуда:
Сообщений: 4340
Алексей222,

автор
Сейчас у 60% надписей нет у 40% пользователей надписи есть не зависимо от операционной системы

Врёшь.

Пропадают они при пользовательской прорисовке, начиная с не помню какой версии винды.
Что бы выделить активную на текущий момент страницу: используй стандартный свойства (то биш иконку)
11 янв 18, 11:23    [21096166]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Алексей222
Member

Откуда:
Сообщений: 60
магия не происходит, надписи от мышки не появляются
11 янв 18, 11:37    [21096283]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Алексей222
Member

Откуда:
Сообщений: 60
Что бы выделить активную на текущий момент страницу: используй стандартный свойства (то биш иконку)
Исходников нет
11 янв 18, 11:41    [21096308]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Gerasimenko
Member

Откуда:
Сообщений: 4340
Алексей222
Что бы выделить активную на текущий момент страницу: используй стандартный свойства (то биш иконку)
Исходников нет


+ Pages.ImageIndex

procedure myIFacePageControl(var tmpPageControl:TPageControl);
var
 i:Integer;
begin
  try
    for i:=0 to tmpPageControl.PageCount-1
     do tmpPageControl.Pages[i].ImageIndex:=-1;
    tmpPageControl.Pages[tmpPageControl.ActivePageIndex].ImageIndex:=0;
  except
  end;
end;

11 янв 18, 11:50    [21096387]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Алексей222
Member

Откуда:
Сообщений: 60
procedure myIFacePageControl(var tmpPageControl:TPageControl);
var
i:Integer;
begin
try
for i:=0 to tmpPageControl.PageCount-1
do tmpPageControl.Pages[i].ImageIndex:=-1;
tmpPageControl.Pages[tmpPageControl.ActivePageIndex].ImageIndex:=0;
except
end;
end;

Не подскажите что с этим кодом делать????
11 янв 18, 12:12    [21096514]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Gerasimenko
Member

Откуда:
Сообщений: 4340
Алексей222,

Возьми учебник какой-нить.
Научись привязывать ImageList и загружать в него иконки.
У каждой странички блокнота есть свойство, отвечающее за отображение соответствующей иконки.
При смене страницы нужно на активной странице и только на ней отображать соответствующую иконку.
11 янв 18, 12:22    [21096556]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Алексей222
Member

Откуда:
Сообщений: 60
Исходнико нет
11 янв 18, 12:22    [21096559]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Vizit0r
Member

Откуда:
Сообщений: 464
Алексей222
Исходнико нет


тогда наймите погромиста, пусть переписывает.
11 янв 18, 12:32    [21096601]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Любезный
Member

Откуда:
Сообщений: 460
Тогда вряд ли тут можно что-то посоветовать. Разве что переписывать заново под более современную версию Delphi.
11 янв 18, 12:37    [21096623]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Любезный
Member

Откуда:
Сообщений: 460
Кстати, есть еще вариант. Не помню, есть ли в Вин10 темы или нет. Если есть - попробовать сменить и посмотреть, поможет или нет.
11 янв 18, 12:39    [21096628]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Алексей222
Member

Откуда:
Сообщений: 60
Любезный
Кстати, есть еще вариант. Не помню, есть ли в Вин10 темы или нет. Если есть - попробовать сменить и посмотреть, поможет или нет.

Темы не помогли
Но на многих компах текст отображается значит в каких та настройках Windows это
11 янв 18, 13:12    [21096852]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
kamero
Member

Откуда:
Сообщений: 177
Алексей222,

А запустить совместимость? И поиграться там?
11 янв 18, 13:53    [21097137]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
free_walker
Member

Откуда: Эта страна
Сообщений: 823
В windows 7 можно попробовать поиграть с цветом элементов окна

Картинка с другого сайта.
11 янв 18, 14:51    [21097620]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Alibek B.
Member

Откуда:
Сообщений: 2541
Алексей222
Но на многих компах текст отображается значит в каких та настройках Windows это

Есть такая утилита - Process Monitor.
Можно сравнить, что происходит при запуске приложения на двух ПК.
11 янв 18, 15:50    [21098030]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
sql2012
Member

Откуда: РФ
Сообщений: 557
Алексей222,

посмотри в exe, ресурсы\формы - что там прописано (какой шрифт).
11 янв 18, 16:49    [21098348]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
colorolor
Guest
Алексей222,
while not Money do Font.Color := GetBkColor;
ps.
натрави Spy++, есть ли там текст вообще
11 янв 18, 17:54    [21098625]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
rgreat
Member

Откуда:
Сообщений: 3862
Если нет сорцов то проблему можно решить только настройками винды.
11 янв 18, 18:12    [21098675]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить