[Lasse]

Hi,

Any idea why virtual tree button and checkbox are not skinned in Delphi 10 Seattle? Or is the tree button skinned? But at least the checkbox is not. In XE8 those are different anyway (see attachment).

I am running exactly same project and using the latest AlphaSkins 10.17 build and VirtualTree v. 6.1 (v. 6.2 does not work) with Windows 10. I tried different skins and no difference.

Brgds,

Lasse

[Lasse]

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

[Support]

Can you upload a demo-program, please? (with sources)

[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]

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

[Author]

Posts