1

Topic: Inscriptions disappear

The program old is written on Delphi 7
Began at setting of the program at many users to disappear inscriptions
Now at 60 % of inscriptions is not present at 40 % of users of an inscription is it is not dependent on an operating system
Under Win 10 inscriptions are not present, but at us only two machines and I can not precisely tell
Program source codes are lost
Setting of various fonts of effect did not give
That can be, dig in what a direction
I apply
In advance thanks

2

Re: Inscriptions disappear

3

Re: Inscriptions disappear

. And it not that case when a mouse you lead in a place where there is no inscription, and there is a magic)) Inscriptions appear?!

4

Re: Inscriptions disappear

222;

wrote:

Now at 60 % of inscriptions is not present at 40 % of users of an inscription is it is not dependent on an operating system

You say lies.
They disappear at the user plotting, since I do not remember what version of Windows.
What to select active by the current moment page: use standard properties (that  an icon)

5

Re: Inscriptions disappear

The magic does not happen, inscriptions from a mouse do not appear

6

Re: Inscriptions disappear

What to select active by the current moment page: use standard properties (that  an icon)
Source codes are not present

7

Re: Inscriptions disappear

222 wrote:

What to select active by the current moment page: use standard properties (that  an icon)
Source codes are not present

[spoiler 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;

[/spoiler]

8

Re: Inscriptions disappear

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;
Do not prompt that with this code to do????

9

Re: Inscriptions disappear

222;
Take the textbook what-thread.
Learn to anchor ImageList and to load in it icons.
Each page of a notepad has a property which is responsible for display of an appropriate icon.
At page change it is necessary on the active page and only on it to display an appropriate icon.

10

Re: Inscriptions disappear

Ishodniko is not present

11

Re: Inscriptions disappear

222 wrote:

Ishodniko is not present

Then employ , let rewrites.

12

Re: Inscriptions disappear

Then hardly here it is possible to advise something. Unless to rewrite anew under more modern version Delphi.

13

Re: Inscriptions disappear

By the way, there is still a variant. I do not remember, whether is in Vin10 of a subject or not. If is - to try to replace and look, helps or not.

14

Re: Inscriptions disappear

wrote:

By the way, there is still a variant. I do not remember, whether is in Vin10 of a subject or not. If is - to try to replace and look, helps or not.

Subjects did not help
But on many computers the text is displayed that means in what adjustments Windows it

15

Re: Inscriptions disappear

222;
And to launch compatibility? And to be played there?

16

Re: Inscriptions disappear

In windows 7 it is possible to try to play with color of elements of a window
[img=http://pc-optimize.ru/wp-content/uploads/2013/08/view_of_window.png]

17

Re: Inscriptions disappear

222 wrote:

But on many computers the text is displayed that means in what adjustments Windows it

There is such utility - Process Monitor.
It is possible to compare that happens at an application launch on two PCs.

18

Re: Inscriptions disappear

222;
Look in exe, resources \forms - that there is registered (what font).

19

Re: Inscriptions disappear

222;

while not Money do Font. Color: = GetBkColor;

ps.
Set Spy ++, whether there is there a text generally

20

Re: Inscriptions disappear

If is not present  that a problem it is possible to solve only Windows adjustments.