Lazarus中文社区

 找回密码
 立即注册(注册审核可向QQ群索取)

QQ登录

只需一步,快速开始

版权申明
查看: 6686|回复: 0

在ColorDialog里预置自定义颜色

[复制链接]
  • TA的每日心情
    奋斗
    2022-6-24 15:56
  • 签到天数: 10 天

    [LV.3]偶尔看看II

    发表于 2010-1-16 11:34:16 | 显示全部楼层 |阅读模式
    转自:http://www.solokey.cn/
    用起来还真的挺麻烦.
    const
      ColorPrefix = 'Color';
    var
      i: integer;
    begin
    for i := 0 to 15 do
      ColorDialog1.CustomColors.Values[ColorPrefix + Char(Ord('A') + i)] := IntToHex(Color_Ary, 8); 
    end;
    回复

    使用道具 举报

    *滑块验证:

    本版积分规则

    QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1 )

    GMT+8, 2024-4-21 07:48 , Processed in 0.031920 second(s), 10 queries , Redis On.

    Powered by Discuz! X3.4

    Copyright © 2001-2021, Tencent Cloud.

    快速回复 返回顶部 返回列表