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

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

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

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

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


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

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

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

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

Врёшь.

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

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

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

Откуда:
Сообщений: 4410
Алексей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

Откуда:
Сообщений: 64
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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

Откуда: РФ
Сообщений: 624
Алексей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

Откуда:
Сообщений: 4339
Если нет сорцов то проблему можно решить только настройками винды.
11 янв 18, 18:12    [21098675]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
Алексей222
Member

Откуда:
Сообщений: 64
Удалось открыть с помощью программы Restorator 200
Не подскажите что можно здесь подправить
object tsGoods: TTabSheet
Tag = 4
Caption = 'Товары'
ImageIndex = 3
inline frInvoiceGoods: TfrInvoiceGoods
Tag = 4
Left = 0
Top = 0
Width = 784
Height = 403
Align = alClient
TabOrder = 0
inherited Splitter1: TSplitter
Top = 247
Width = 784
end
inherited Panel1: TPanel
Width = 784
inherited btnComplex: TBitBtn
Left = 640
end
22 мар 18, 11:18    [21276556]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
DimaBr
Member

Откуда:
Сообщений: 10661
Так как надписи рисуются программно (в коде), то ничего в настройках формы сделать нельзя
22 мар 18, 11:37    [21276623]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
GunSmoker
Member

Откуда:
Сообщений: 3068
Алексей222, указанное поведение - это баг в Delphi 7.

Необходимо пересобрать программу в новой версии Delphi, либо же в старой, но добавив исправление этого бага.
Если исходников нет, то программу исправить нельзя. Ты попал, поздравляем.

Можно попытаться обойти баг:
- Отключить в ОС темы (переключить UI на классический вид)
- Отключить в ОС скрытие акселераторов при нажатии ALT (не проверял)
- Удалить или изменить манифест программы, убрав подключение
Common Controls 6.0 - это отключит темы в конкретной программе (не проверял)
22 мар 18, 13:15    [21277200]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
под ван
Guest
GunSmoker
Алексей222, указанное поведение - это баг в Delphi 7.

Необходимо пересобрать программу в новой версии Delphi, либо же в старой, но добавив исправление этого бага.
Если исходников нет, то программу исправить нельзя. Ты попал, поздравляем.

Можно попытаться обойти баг:
- Отключить в ОС темы (переключить UI на классический вид)
- Отключить в ОС скрытие акселераторов при нажатии ALT (не проверял)
- Удалить или изменить манифест программы, убрав подключение
Common Controls 6.0 - это отключит темы в конкретной программе (не проверял)

Я заметил когда сам гансмокер говорит *ты попал* то это звучит особено цинично и страшно — потому что если даже если он говорит , то тогда пиши пропало, тем более от него я это слышу чуть ли не впервые
22 мар 18, 19:07    [21278746]     Ответить | Цитировать Сообщить модератору
 Re: Пропадают надписи  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 10490
под ван
потому что если даже если он говорит , то тогда пиши пропало,
И тут же приводит три воркараунда :)
22 мар 18, 19:48    [21278788]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: [1] 2   вперед  Ctrl      все
Все форумы / Delphi Ответить