zoukankan      html  css  js  c++  java
  • 自定义“组合”组件使用 VCL Style

    这类组件继承自“TwinControl”或其子类如“TCustomControl”,其实大多数特性都已经继承过来了,但是有个问题,背景不能应用属性。

    如:

    没有处理的效果

    我最开始的想法是 用主要窗体背景Color替换控件窗体的Color;

    constructor TLyStateLabel.Create(AOwner: TComponent);
    begin
     …
      self.Color:=AOwner.Color;
     …
    end;

    并且重载 procedure Paint; virtual;

    结果没有效果。

    后来想参见Delphi XE2自己的组合组件的写法,看了好多,就一个简单的问题(就没有耐心),那么完整的代码……,看了5~6个小时,也没有太多头绪,后来看看Rz的代码实现(两个方案实现有些区别),也没有太多头绪,他们毕竟都有各自的体系。

    但我认为开始的方向是没有太多错误的。

    一天后决定还是使用原来的方法,不过改改,仍旧放在Create里面;

    if TStyleManager.Enabled then
    begin
      LColor := StyleServices.GetStyleColor(TStyleColor.scWindow);
      if (Self.Color <> LColor) then
      begin
        Self.Color := LColor;
       // Invalidate;
      end;
    end;

    问题解决。

    没有处理的效果更改后

  • 相关阅读:
    简单的股票分析系统
    gtest日志在工程项目中的应用
    doctest初次体验
    python写的读取json配置文件
    logbook日志系统
    python3 pyodbc简单使用
    numpy中dtype
    python获取代码行号
    Python操作SQLServer示例(转)
    log4j与log4j.properties的配置
  • 原文地址:https://www.cnblogs.com/hieroly/p/2377909.html
Copyright © 2011-2022 走看看