[Lasse]

I managed to solve this when not using extended borders mode:

Code:

procedure TBaseForm.FormCreate(Sender: TObject);
begin
inherited;

SetClassLong(Handle, GCL_HBRBACKGROUND, GetSysColorBrush(COLOR_WINDOW));
end;

[Lasse]

Thanks, atleast my problem is fixed. 🙂

[Lasse]

I have noticed similar slow down with my own editor control – basic text selection seems very sluggish. I used a sampling profiler and there seems to be a lot of FillRect32 calls in sAlphaGraph. This has not been noticeable before.

I am using SkinManager.Options.OptimizingPriority = opSpeed.

[Lasse]

Oh, I see GetExternalSkinNames has changed and is now creating objects which I need to free. Ok, that fixed this.

[Lasse]

Thanks, that is working. I did fix static border color thou.

Code:

Bmp.Canvas.Brush.Color := clBlack; // ColorToBorderColor(ColorToRGB(C));

[Lasse]

Thanks, it fixed that.

[Lasse]

I used Windows 10 skin. Unfortunately I already went back to version 10.29.

[Lasse]

You can use your demo:

1. Add new item into sTitleBar1

2. Set Align = tbaRight

3. Set Caption = This_is_a_test.pas

4. Set DropdownMenu = PopupMenu1

5. Set Style = bsMenu

[Lasse]

If FontData.UseSysFontName is False, it works. Ok, I can live with that. 🙂

[Lasse]

Ok, I will test your demo when I get home tonight. With an underscore the arrow disappears (see attachment).

[Lasse]

This seems to be fixed but there is now same problem, if the menu button is the last page.

[Lasse]

You can close this. “Enable Runtime Themes” was false in project options. I go to the corner ashamed. 🙂

[Lasse]

I created this simple demo. But guess what, it works with both XE8 and Seattle. 🙂 I will investigate why my project does not.

Code:

var
i: Integer;
LNode: PVirtualNode;
begin
VirtualDrawTree.BeginUpdate;
for i := 0 to 5 do
begin
LNode := VirtualDrawTree.AddChild(nil);
LNode.CheckType := ctCheckBox;
case i of
0: LNode.CheckState := csUncheckedNormal; // unchecked and not pressed
1: LNode.CheckState := csUncheckedPressed; // unchecked and pressed
2: LNode.CheckState := csCheckedNormal; // checked and not pressed
3: LNode.CheckState := csCheckedPressed; // checked and pressed
4: LNode.CheckState := csMixedNormal; // 3-state check box and not pressed
5: LNode.CheckState := csMixedPressed;
end;
VirtualDrawTree.AddChild(LNode); // child
end;
VirtualDrawTree.EndUpdate;
end;

[Lasse]

That Delphi XE8 build in Windows 7 is showing checkbox without skin (see attachment).

[Lasse]

Version is the latest 10.12 (Delphi XE8).

Thanks, “Selected” property works fine.

[Lasse]

Here is a simple sample project (see attachment). Change the project path.

1. Run

2. Move mouse over the close button. (first time it looks ok)

3. Push button and 'X' is inserted into caption

4. Repeat from 2.

Just tested and the problem is still there.

[Lasse]

This can be closed. The reason for this was an unnecessary set of tab sheet's SkinData.SkinSection when a tab sheet was created. After removing it everything works like it should. 🙂

[Lasse]

I forgot to mention that I was using Delphi XE8 on Windows 7, if that is relevant.

[Lasse]

There are still Windows 10 skin related problems with resizing (see attachment). Other skins are working perfectly.

[Lasse]

I did fix the problem. It was caused by setting the editor's Visible property from False to True when creating a frame for a tab sheet. Not sure why it didn't work with the Windows 10 skin but now it works. 🙂

[Author]

Posts