CnPack VCL组件库中 TCnButtonEdit 组件的BUG修正

最新推荐文章于 2022-02-28 18:37:27 发布

快乐老猫

最新推荐文章于 2022-02-28 18:37:27 发布

阅读量349

点赞数

分类专栏：优雅的 Delphi 文章标签： alignment 2010

本文链接：https://blog.csdn.net/快乐老猫/article/details/5964679

版权

优雅的 Delphi 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

　　CnVCL 组件包版本：[2010-10-01] 20101001

　　１．当ButtonVisible 为True的时候，Alignment 不会有任何问题，当ButtonVisible 为False时，修改Alignment 为taRightJustify，这个时候，会发现文字的右边会缺少几个字符，他们跑到右侧边界外面了，宽度大概就是按钮宽度，原因在UpdateFormatRect函数中，如下屏蔽代码，问题解决。
　　原因应该是ClientRect代表的就是整个对象的绘图区。

procedure TCnButtonEdit.UpdateFormatRect;
var
  Rect: TRect;
begin
  Rect := ClientRect;
  if FButtonVisible then
Dec(Rect.Right, FButton.Height) {
  else
Inc(Rect.Right, FButton.Height)};
  SendMessage(Handle, EM_SETRECTNP, 0, Longint(@Rect));
end;

　　２．解决上一个问题后，依旧设置ButtonVisible 为False，在设计期间修改Alignment属性，按钮会莫名其妙出现，如下增加一段判断代码，问题解决。

procedure TCnButtonEdit.WMSize(var Msg: TWMSize);
begin
  inherited;
  if FButtonVisible then
FButton.Width := FButton.Height;
  UpdateFormatRect;
end;