文档章节

GdiPlus[5]: IGPColors

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 627
阅读 7
收藏 0

IGPColors 是一个泛型数组应用于 TGPColor 的接口, 需要一组颜色时可以用它; 当然用其他方法也不麻烦, 它在整个体系中并不重要.

本例把 TGPColor 中的 141 个颜色常量装载到一个 IGPColors, 顺便看看这些颜色.

运行效果图:



uses GdiPlus;

procedure TForm1.FormPaint(Sender: TObject);
const
  Count = 141;
var
  Colors: IGPColors;
  Graphics: IGPGraphics;
  Brush, BrushText: IGPSolidBrush;
  Pen: IGPPen;
  Rect: TGPRectF;
  Font: IGPFont;
  StringFormat: IGPStringFormat;
  str: string;
  i: Integer;
begin
  Colors := TGPArray<TGPColor>.Create(Count);

  Colors[0] := TGPColor.AliceBlue           ;
  Colors[1] := TGPColor.AntiqueWhite        ;
  Colors[2] := TGPColor.Aqua                ;
  Colors[3] := TGPColor.Aquamarine          ;
  Colors[4] := TGPColor.Azure               ;
  Colors[5] := TGPColor.Beige               ;
  Colors[6] := TGPColor.Bisque              ;
  Colors[7] := TGPColor.Black               ;
  Colors[8] := TGPColor.BlanchedAlmond      ;
  Colors[9] := TGPColor.Blue                ;
  Colors[10] := TGPColor.BlueViolet          ;
  Colors[11] := TGPColor.Brown               ;
  Colors[12] := TGPColor.BurlyWood           ;
  Colors[13] := TGPColor.CadetBlue           ;
  Colors[14] := TGPColor.Chartreuse          ;
  Colors[15] := TGPColor.Chocolate           ;
  Colors[16] := TGPColor.Coral               ;
  Colors[17] := TGPColor.CornflowerBlue      ;
  Colors[18] := TGPColor.Cornsilk            ;
  Colors[19] := TGPColor.Crimson             ;
  Colors[20] := TGPColor.Cyan                ;
  Colors[21] := TGPColor.DarkBlue            ;
  Colors[22] := TGPColor.DarkCyan            ;
  Colors[23] := TGPColor.DarkGoldenrod       ;
  Colors[24] := TGPColor.DarkGray            ;
  Colors[25] := TGPColor.DarkGreen           ;
  Colors[26] := TGPColor.DarkKhaki           ;
  Colors[27] := TGPColor.DarkMagenta         ;
  Colors[28] := TGPColor.DarkOliveGreen      ;
  Colors[29] := TGPColor.DarkOrange          ;
  Colors[30] := TGPColor.DarkOrchid          ;
  Colors[31] := TGPColor.DarkRed             ;
  Colors[32] := TGPColor.DarkSalmon          ;
  Colors[33] := TGPColor.DarkSeaGreen        ;
  Colors[34] := TGPColor.DarkSlateBlue       ;
  Colors[35] := TGPColor.DarkSlateGray       ;
  Colors[36] := TGPColor.DarkTurquoise       ;
  Colors[37] := TGPColor.DarkViolet          ;
  Colors[38] := TGPColor.DeepPink            ;
  Colors[39] := TGPColor.DeepSkyBlue         ;
  Colors[40] := TGPColor.DimGray             ;
  Colors[41] := TGPColor.DodgerBlue          ;
  Colors[42] := TGPColor.Firebrick           ;
  Colors[43] := TGPColor.FloralWhite         ;
  Colors[44] := TGPColor.ForestGreen         ;
  Colors[45] := TGPColor.Fuchsia             ;
  Colors[46] := TGPColor.Gainsboro           ;
  Colors[47] := TGPColor.GhostWhite          ;
  Colors[48] := TGPColor.Gold                ;
  Colors[49] := TGPColor.Goldenrod           ;
  Colors[50] := TGPColor.Gray                ;
  Colors[51] := TGPColor.Green               ;
  Colors[52] := TGPColor.GreenYellow         ;
  Colors[53] := TGPColor.Honeydew            ;
  Colors[54] := TGPColor.HotPink             ;
  Colors[55] := TGPColor.IndianRed           ;
  Colors[56] := TGPColor.Indigo              ;
  Colors[57] := TGPColor.Ivory               ;
  Colors[58] := TGPColor.Khaki               ;
  Colors[59] := TGPColor.Lavender            ;
  Colors[60] := TGPColor.LavenderBlush       ;
  Colors[61] := TGPColor.LawnGreen           ;
  Colors[62] := TGPColor.LemonChiffon        ;
  Colors[63] := TGPColor.LightBlue           ;
  Colors[64] := TGPColor.LightCoral          ;
  Colors[65] := TGPColor.LightCyan           ;
  Colors[66] := TGPColor.LightGoldenrodYellow;
  Colors[67] := TGPColor.LightGray           ;
  Colors[68] := TGPColor.LightGreen          ;
  Colors[69] := TGPColor.LightPink           ;
  Colors[70] := TGPColor.LightSalmon         ;
  Colors[71] := TGPColor.LightSeaGreen       ;
  Colors[72] := TGPColor.LightSkyBlue        ;
  Colors[73] := TGPColor.LightSlateGray      ;
  Colors[74] := TGPColor.LightSteelBlue      ;
  Colors[75] := TGPColor.LightYellow         ;
  Colors[76] := TGPColor.Lime                ;
  Colors[77] := TGPColor.LimeGreen           ;
  Colors[78] := TGPColor.Linen               ;
  Colors[79] := TGPColor.Magenta             ;
  Colors[80] := TGPColor.Maroon              ;
  Colors[81] := TGPColor.MediumAquamarine    ;
  Colors[82] := TGPColor.MediumBlue          ;
  Colors[83] := TGPColor.MediumOrchid        ;
  Colors[84] := TGPColor.MediumPurple        ;
  Colors[85] := TGPColor.MediumSeaGreen      ;
  Colors[86] := TGPColor.MediumSlateBlue     ;
  Colors[87] := TGPColor.MediumSpringGreen   ;
  Colors[88] := TGPColor.MediumTurquoise     ;
  Colors[89] := TGPColor.MediumVioletRed     ;
  Colors[90] := TGPColor.MidnightBlue        ;
  Colors[91] := TGPColor.MintCream           ;
  Colors[92] := TGPColor.MistyRose           ;
  Colors[93] := TGPColor.Moccasin            ;
  Colors[94] := TGPColor.NavajoWhite         ;
  Colors[95] := TGPColor.Navy                ;
  Colors[96] := TGPColor.OldLace             ;
  Colors[97] := TGPColor.Olive               ;
  Colors[98] := TGPColor.OliveDrab           ;
  Colors[99] := TGPColor.Orange              ;
  Colors[100] := TGPColor.OrangeRed           ;
  Colors[101] := TGPColor.Orchid              ;
  Colors[102] := TGPColor.PaleGoldenrod       ;
  Colors[103] := TGPColor.PaleGreen           ;
  Colors[104] := TGPColor.PaleTurquoise       ;
  Colors[105] := TGPColor.PaleVioletRed       ;
  Colors[106] := TGPColor.PapayaWhip          ;
  Colors[107] := TGPColor.PeachPuff           ;
  Colors[108] := TGPColor.Peru                ;
  Colors[109] := TGPColor.Pink                ;
  Colors[110] := TGPColor.Plum                ;
  Colors[111] := TGPColor.PowderBlue          ;
  Colors[112] := TGPColor.Purple              ;
  Colors[113] := TGPColor.Red                 ;
  Colors[114] := TGPColor.RosyBrown           ;
  Colors[115] := TGPColor.RoyalBlue           ;
  Colors[116] := TGPColor.SaddleBrown         ;
  Colors[117] := TGPColor.Salmon              ;
  Colors[118] := TGPColor.SandyBrown          ;
  Colors[119] := TGPColor.SeaGreen            ;
  Colors[120] := TGPColor.SeaShell            ;
  Colors[121] := TGPColor.Sienna              ;
  Colors[122] := TGPColor.Silver              ;
  Colors[123] := TGPColor.SkyBlue             ;
  Colors[214] := TGPColor.SlateBlue           ;
  Colors[125] := TGPColor.SlateGray           ;
  Colors[126] := TGPColor.Snow                ;
  Colors[127] := TGPColor.SpringGreen         ;
  Colors[128] := TGPColor.SteelBlue           ;
  Colors[129] := TGPColor.Tan                 ;
  Colors[130] := TGPColor.Teal                ;
  Colors[131] := TGPColor.Thistle             ;
  Colors[132] := TGPColor.Tomato              ;
  Colors[133] := TGPColor.Transparent         ;
  Colors[134] := TGPColor.Turquoise           ;
  Colors[135] := TGPColor.Violet              ;
  Colors[136] := TGPColor.Wheat               ;
  Colors[137] := TGPColor.White               ;
  Colors[138] := TGPColor.WhiteSmoke          ;
  Colors[139] := TGPColor.Yellow              ;
  Colors[140] := TGPColor.YellowGreen         ;

  Graphics := TGPGraphics.Create(Handle);
  Brush := TGPSolidBrush.Create($FFFFFFFF);
  BrushText := TGPSolidBrush.Create($FF000000);
  Pen := TGPPen.Create(TGPColor.Black, 0.5);
  Rect.Initialize(10, 10, 100, 20);

  StringFormat := TGPStringFormat.Create;
  StringFormat.Alignment := StringAlignmentCenter;
  StringFormat.LineAlignment := StringAlignmentCenter;
  Font := TGPFont.Create('Courier New', 9);

  Graphics.Clear(TGPColor.White);
  for i := 0 to Colors.Count - 1 do
  begin
    Brush.Color := Colors[i];
    Graphics.FillRectangle(Brush, Rect);
    Graphics.DrawRectangle(Pen, Rect);
    str := Format('$%.8x', [Colors[i].Value]);
    BrushText.Color := TGPColor.Create($00FFFFFF xor Colors[i].Value);
    Graphics.DrawString(str, Font, Rect, StringFormat, BrushText);
    Rect.Y := Rect.Y + Rect.Height + 5;
    if Rect.Y + Rect.Height > ClientHeight then
    begin
      Rect.Y := 10;
      Rect.X := Rect.X + Rect.Width + 10;
    end;
  end;
end;

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/12/12/1622273.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
MFC用GDI+动感歌词的制作

源代码:http://download.csdn.net/detail/nuptboyzhb/4219669 源代码: 1. 插入一个对话框的资源,删除默认控件,并为对话框创建一个类,命名为ClyricDlg; 2. 在对话框的头文件中添加GDI+相...

长平狐
2012/10/08
236
0
vs 2005 添加GDI配置

在VS2005当中由于自带了GDI+的开发包,所以不需要在安装GDI开发包,这些头文件的位置由VS中的$(WindowsSdkDir)/include自动包含进来了 下午自己添加了好几次,总是出现有报错,,在 stdafx.h...

种地瓜
2015/12/08
85
0
GDI+里面的问题。。。。。。。。。。

error C2248: “Gdiplus::Bitmap::Bitmap”: 无法访问 private 成员(在“Gdiplus::Bitmap”类中声明) 1> c:program filesmicrosoft sdkswindowsv7.0aincludegdiplusheaders.h(630) : 参见“G......

xxdd
2013/10/24
60
0
模仿酷狗7(Kugou7)音乐魔方界面源码

源码名称:模仿酷狗7(Kugou7)界面源码 源码作者:邓学彬(泪闯天涯) 源码说明:内含VC++源码、易语言源码各一份.包含所有图片源码(使用Fireworks编辑) 开发环境:VC版--VS2005、Gdiplus;易语...

邓学彬
2012/12/09
0
0
MFC边框重绘

? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 pragma once incl......

江河海流
2016/01/30
509
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

jquery创建类似于java的map

var map = {}; // Map map = new HashMap(); map[key] = value; // map.put(key, value); var value = map[key]; // Object value = map.get(key); var has = key in map; // boolean has = ......

SuperDabai
34分钟前
0
0
java大数据转换16进制转10进制

public static void main(String[] args) {String hex = "0xdbf3accc683297cf0000";BigInteger amount = new BigInteger(hex.substring(2), 16);System.out.println(amount);......

任梁荣
昨天
2
0
OSChina 周六乱弹 —— 目测我们程序员丁克的几率不大

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @真Skr小机灵鬼儿:8.13分享Jocelyn Pook/Russian Red的单曲《Loving Strangers》 《Loving Strangers》- Jocelyn Pook/Russian Red 手机党少...

小小编辑
昨天
9
3
TypeScript基础入门 - 函数 - 剩余参数

转载 TypeScript基础入门 - 函数 - 剩余参数 项目实践仓库 https://github.com/durban89/typescript_demo.gittag: 1.2.1 为了保证后面的学习演示需要安装下ts-node,这样后面的每个操作都能...

durban
昨天
1
0
OpenCV边缘检测算子原理总结及实现

1. 拉普拉斯算子 原理:是一种基于图像导数运算的高通线性滤波器。它通过二阶导数来度量图像函数的曲率。 拉普拉斯算子是最简单的各向同性微分算子,它具有旋转不变性。一个二维图像函数的拉...

漫步当下
昨天
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部