CnPack Forum


 
Subject: TCnInputHelper Windows 10 阴影问题
mrliyouliang
新警察
Rank: 1



UID 293053
Digest Posts 0
Credits 10
Posts 3
点点分 10
Reading Access 10
Registered 2016-3-8
Status Offline
Post at 2016-3-8 10:18  Profile | Blog | P.M. 
TCnInputHelper Windows 10 阴影问题

TCnInputHelper 弹出的几个窗口在 Windows 10 环境中会出现双阴影,看捉挺别扭的,建议判断一下 Windows 10 吧。
下面这段代码中的 CheckWinXP
procedure TCnInputListBox.CreateParams(var Params: TCreateParams);
  if CheckWinXP then
    Params.WindowClass.style := CS_DBLCLKS or CS_DROPSHADOW
  else
    Params.WindowClass.style := CS_DBLCLKS;

// 这有段代码,看能不能用,或是有更好的方法。
function IsWindows10: Boolean;
var
  VerInfoSize, VerValueSize, Dummy: Dword;
  VerInfo: Pointer;
  VerValue: PVSFixedFileInfo;
  V1: Word;
begin
  VerInfoSize := GetFileVersionInfoSize(kernel32, Dummy);
  GetMem(VerInfo, VerInfoSize);
  try
    GetFileVersionInfo(kernel32, 0, VerInfoSize, VerInfo);
    VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
    with VerValue^ do
    begin
      V1 := dwFileVersionMS shr 16;
    end;
    Result := V1 >= 10;
  finally
    FreeMem(VerInfo, VerInfoSize);
  end;
end;
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6750
Posts 3551
点点分 6750
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2016-3-10 23:41  Profile | Blog | P.M. 
暂时没有Win10来测试。
Top
 




All times are GMT++8, the time now is 2024-3-29 03:05

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.005570 second(s), 7 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP