Fixed an error when TLISTVIEW application XP theme

xiaoxiao2021-03-06  63

DEPHI6 (and below) does not provide XP style support, because the XP is still testing when the DEPHI6 is launched. To enable the application to support the XP style, you must add the "manifest XML" resource file to the application, tell the system to use 6.0 COMCTL32.DLL for this application, not 5.0. However, some VCL controls are compatible with 6.0.

When TlistView is vsreport, the mouse will be thrown out when the mouse is moved, and this problem needs to modify the comCtrls.PAS, the steps are as follows:

1. Open the comCtrls.PAS file to find TCUSTOMLISTVIEW.UPDATECOLUMN;

2. Find the following statement:

IF FimageIndex <> -1

THEN

FMT: = FMT

OR LVCFMT_IMAGE

OR LVCFMT_COL_HAS_IMAGES;

3. Change to:

IF FimageIndex <> -1

THEN

FMT: = FMT

OR LVCFMT_IMAGE

OR LVCFMT_COL_HAS_IMAGES

Else

Mask: = Mask

and

NOT (LVCF_Image);

3. Save Comctrls.Pas, OK, and solve the problem!

In addition,

Www.tmssoftware.com provides a free control, which can correct problems without changing the original VCL control code.

转载请注明原文地址:https://www.9cbs.com/read-113082.html

New Post(0)