[HeDiBo]

'Support' wrote:

I see defining of the LargeImages to SkinImage:

Code:

lvSkins.LargeImages := SkinImages;

How the SkinImages ImageList is filled? It looks like SkinImage is empty when images are not visible.

Thank you

Your answer made me rethink the logic. And sure enough, I made a silly mistake.

[HeDiBo]

'HeDiBo' wrote:

Align seems to work somewhat (although in some cases, the button is ghosted for a moment).

However Alignment still does not work (caption will always stay at the left hand side).

Also, the placement of the button in expanded state is only correct if placement is asTop. In all cases except asTop the button should move with the panel.

The combination Align = alBottom and Placement = asTop gives a very strange behavior.

No improvement in 14.02

[HeDiBo]

'Support' wrote:

Some skins have a changed checkbox already, some skins – not.

More time is needed.

Not much improvement in 14.02

[HeDiBo]

TsCharImageList cannot handle OTF fonts in 14.02

[HeDiBo]

'Support' wrote:

I see what you mean now.

But your code will not work correct if control is scaled. I will find a solution in the v14.02

It works now.

But if OnGetPopupFont is assigned the font is set twice. This is what you meant to do, isn't it?:

Code:

with TsPopupCalendar(FPopupWindow) do begin
if Assigned(OnGetPopupFont) then
OnGetPopupFont(Self, Font);
else begin
Font.Assign(Self.Font);
Font.Size := Font.Size * 96 div SkinData.CommonSkinData.PPI; // Return original font size if DateEdit is scaled
end;

[HeDiBo]

'Support' wrote:

Hi

I see that some Otf fonts doesn't work well under some systems.

So, correct work of all Otf fonts can't be guaranted.

I think to add support of Otf fonts soon, but with this warning to developers.

The original question was about the TsCharImageList.

Adding additional embedded fonts does not allow to select OTF fonts.

[HeDiBo]

'Support' wrote:

Thank you for screenshots, but, I'm sorry, I can't understand the problem still.

After assigning of font by “Font.Assign(Self.Font)”, fonts are still different in popupcalendar and in the dateedit control?

How it may be? Maybe you can give me a small demo where I can see it?

There's a miscommunication here.

My problem is, that in your code the “Font.Assign(Self.Font)” statement is missing

So, if you change the code similar to what I proposed, the problem is solved.

[HeDiBo]

'HeDiBo' wrote:

No change in 13.18

No change in 14.01

[HeDiBo]

'Support' wrote:

Yes. The Align property should not be published while not supported.

I will try to support it later.

Align seems to work somewhat (although in some cases, the button is ghosted for a moment).

However Alignment still does not work (caption will always stay at the left hand side).

Also, the placement of the button in expanded state is only correct if placement is asTop. In all cases except asTop the button should move with the panel.

The combination Align = alBottom and Placement = asTop gives a very strange behavior.

[HeDiBo]

Solved.

(You didn't need to keep my initials in the bug fix, but I appreciate it.)

[HeDiBo]

'Support' wrote:

This error will be fixed in the nearest release.

Solved

[HeDiBo]

'Support' wrote:

Thank you for the demo, I will check it soon.

Solved

[HeDiBo]

Solved

[HeDiBo]

'Support' wrote:

Thank you for the demo.

I hope to fix it in the v14.01

Solved

[HeDiBo]

'Support' wrote:

This issue will be solved in the v14.01

Solved

[HeDiBo]

'Support' wrote:

Hello!

Can you show a screenshot with the different fonts issue, please?

Developer receives actual font here (which may be changed partially).

This is the default behavior of a TsDateEdit control:

[attachment=8901:CalendarFont.jpg]

The calendar has become hardly readable, because the font size is not copied from the TsDateEdit control.

This is how it should look. The font is assigned to the calendar as before:

[attachment=8902:CalendarFontOK.jpg]

So please, change the code to this:

Code:

FPopupWindow := TsPopupCalendar.Create(Self);
sPopupCalendar := TForm(FPopupWindow);
with TsPopupCalendar(FPopupWindow) do begin
if Assigned(OnGetPopupFont)
then OnGetPopupFont(Self, Font)
else Font.Assign(Self.Font);

[HeDiBo]

'Support' wrote:

Thank you, this tool works with all fonts without problems.

But Word or Excel can't use some Otf fonts. I will research it.

Any progress yet ❓

[HeDiBo]

'Support' wrote:

Hello!

Can you show a screenshot with the different fonts issue, please?

Code:

with TsPopupCalendar(FPopupWindow) do begin
Font.Assign(Self.Font); (**** DB ***)
if Assigned(OnGetPopupFont) then
OnGetPopupFont(Self, Font);

Developer receives actual font here (which may be changed partially).

No, I changed the code to this:

Code:

with TsPopupCalendar(FPopupWindow) do begin
if Assigned(OnGetPopupFont)
then OnGetPopupFont(Self, Font)
else Font.Assign(Self.Font);

and it worked well.

[HeDiBo]

'Support' wrote:

Is it possible to make a demo with this issue?

Click the button a couple of times. Its image will show up as a ghost in the split view part:

[attachment=8899:acSplitView.zip]

[HeDiBo]

'Support' wrote:

Will be better to use the acColorToRGB function.

slBtnGreenText is not RGB color, this color should be converted to the current skin color:

Code:

lfx.Kind.Color := acColorToRGB(slBtnGreenText);

Uses sVCLUtils;

That's great!

Now can you repair the missing OnAfterChange and OnActivate events. They are not fired if the application starts.

Also OnDeactivate is not fired when the application closes.

[Author]

Posts