Colors/ja

│ Deutsch (de) │ English (en) │ español (es) │ suomi (fi) │ français (fr) │ 日本語 (ja) │ русский (ru) │ 中文（中国大陆）‎ (zh_CN) │

概要

The standard color in the LCL is TColor, which is compatible to Delphi's TColor. TColor can be an RGB, 3x8bit, value or a system color like clDefault. The LCL can work together with the fpImage system which uses the TFPColor (RGBA, 4x16bit).

TColor から RGB への変換と逆変換

ユニット Graphics は以下の関数を提供しています。

function Blue(rgb: TColor): BYTE; // システムカラーでは動作しません
function Green(rgb: TColor): BYTE; // システムカラーでは動作しません
function Red(rgb: TColor): BYTE; // システムカラーでは動作しません
function RGBToColor(R, G, B: Byte): TColor;
procedure RedGreenBlue(rgb: TColor; out Red, Green, Blue: Byte); // システムカラーでは動作しません
function FPColorToTColor(const FPColor: TFPColor): TColor;
function TColorToFPColor(const c: TColor): TFPColor; // システムカラーでは動作しません

以下に示すように、あらかじめ定義されているカラー定数がいくつかあります。

  // 標準色
  clBlack   = TColor($000000);
  clMaroon  = TColor($000080);
  clGreen   = TColor($008000);
  clOlive   = TColor($008080);
  clNavy    = TColor($800000);
  clPurple  = TColor($800080);
  clTeal    = TColor($808000);
  clGray    = TColor($808080);
  clSilver  = TColor($C0C0C0);
  clRed     = TColor($0000FF);
  clLime    = TColor($00FF00);
  clYellow  = TColor($00FFFF);
  clBlue    = TColor($FF0000);
  clFuchsia = TColor($FF00FF);
  clAqua    = TColor($FFFF00);
  clLtGray  = TColor($C0C0C0); // clSilver の別名
  clDkGray  = TColor($808080); // clGray の別名
  clWhite   = TColor($FFFFFF);

システムカラー

例：clInfoBk、clInfoText

System colors are color constants with a special meaning. Their real value depends on the context and theme. They are not simple colors. For example clInfoBk:

Form1.Canvas.Brush.Color:=clInfoBk;  // use the default background brush of a hint window
Form1.Canvas.FillRect(10,10,50,50);

A hint window on MS Windows might have a white background so the above will draw white. On Linux/gtk2 it might be a metallic texture, so the above will draw the texture. If you want to put some text onto this you need a corresponding color like clInfoText, otherwise your text might be unreadable for the user. For example:

Form1.Canvas.Brush.Color:=clInfoBk;  // use the default background brush of a hint window
Form1.Canvas.FillRect(10,10,50,50);
Form1.Canvas.Font.Color:=clInfoText;  // use the default text color of a hint window
Form1.Canvas.TextOut(10,10,'Hint');

The system color clInfoBk can not be used for Pen.Color and not for Font.Color. If you do so the result is undefined and depends on the widgetset and user theme. The same for clInfoText: It can only be used as a Font.Color. Using it as Brush.Color may not work. At the moment all widgetsets allow to use it as Pen.Color too.

テーマの変更

When the user switches the theme the system colors changes. A clInfoBk might change from white to blue or from a color to a texture. This change will happen when you allocate a new Brush handle. Keep in mind that a simple assignment Brush.Color:=clInfoBk does not allocate a Brush Handle. The Brush Handle is allocated on use. For example:

Form1.Canvas.Brush.Color:=clInfoBk; // this will not create a new brush handle
Form1.Canvas.FillRect(10,10,50,50); // this will create the brush handle with the currently active theme brush for hint windows
...
// if the theme changes in this moment the Brush.Handle is still allocated with the old values
...
Form1.Canvas.FillRect(10,10,50,50); // this will paint with the old theme brush
Form1.Canvas.Brush.Color:=clInfoBk; // assigning the old value will not create a new brush handle
Form1.Canvas.FillRect(10,10,50,50); // this will paint with the old theme brush
Form1.Canvas.Brush.Color:=clRed;    // assigning a new color, old Handle invalid
Form1.Canvas.Brush.Color:=clInfoBk; // assigning a new color, old Handle invalid
Form1.Canvas.FillRect(10,10,50,50); // this will create a new handle and paint with the new theme

システムカラーの一覧

The following table lists the system colors and their meaning. Using them outside the scope of the definition is undefined and the result depends on the widgetset and theme. For example clDefault is the normal background brush of the used device context. If you want to paint button elements on your own custom controls use the drawing functions of the unit Themes.

カラー定数	LCL definition	Delphi notes	ウィジェットセットのサポート状況
clNone	drawsnothing. Using it as Control's color is undefined. The control will not get transparent.	-	全部
clDefault	Using it for Brush will use the normal background brush of the target DC (device context). On a Form's canvas a FillRect will paint a rectangular area filled with the normal background of a standard window. This is whatever the widgetset and theme defines. This might be the color gray or a gradient or a picture. Using clDefault on the Canvas of a TListBox will paint with the normal background, which is normally white on Windows. So in a TListBox clDefault is the same as clWindow. Using it as Pen color will use the default line color for the device context. Using it as Font color will use the normal text color of the device context.	-	全部
clScrollBar	Scrollbar body	-	全部
clBackground	?	-	全部
clActiveCaption	Active window titlebar	-	none
clInactiveCaption	Inactive window titlebar	-	none
clMenu	Regular menu item background color	-	none
clWindow	The normal background brush of unselected text. Defined for controls like TEdit, TComboBox, TMemo, TListBox, TTreeView.	-	none
clWindowFrame	Color of frame around the window	-	none
clMenuText	The font color to use together with clMenu	-	none
clWindowText	Font color to use together with clWindow	-	none
clCaptionText	Active window titlebar text color	-	none
clActiveBorder	?	-	none
clInactiveBorder	?	-	none
clAppWorkspace	MDI メインフォームの背景色	-	none
clHighlight	The brush color of selected element	-	none
clHighlightText	Font color of selected text (to use together with clHighligh).	-	none
clBtnFace	ボタンの背景色	-	none
clBtnShadow	Button shadow color (bottom right) used to achieve 3D effect	-	none
clGrayText	The font color of disabled element	-	none
clBtnText	Button font color to use together with clBtnFace	-	none
clInactiveCaptionText	Inactive window titlebar text color	-	none
clBtnHighlight	Button highlight color (top left) used to achieve 3D effect	-	none
cl3DDkShadow	?	-	none
cl3DLight	?	-	none
clInfoText	Font color for hints. Use together with clInfoBk	-	全部
clInfoBk	Brush color for hints. Use together with clInfoText	-	全部
clHotLight	?	-	none
clGradientActiveCaption	The second color used to make gradient of active window titlebar	-	none
clGradientInactiveCaption	The second color used to make gradient for inactive window titlebar	-	none
clMenuHighlight	選択されているメニューアイテムの背景色	-	none
clMenuBar	メニューバーの背景色	-	none
clForm	?	-	none
clColorDesktop	?	-	none
cl3DFace	?	-	none
cl3DShadow	?	-	none
cl3DHiLight	?	-	none
clBtnHiLight	clBtnHighlight と同じ	-	none

Drawing theme elements on your custom controls

The unit Themes provides functions to draw single elements of standard controls. For example to draw an expand sign like a TTreeView use the following code:

uses Themes;

...

procedure TYourCustomControl.Paint;
const
  PlusMinusDetail: array[Boolean {Hot}, Boolean {Expanded}] of TThemedTreeview =
  (
    (ttGlyphClosed, ttGlyphOpened),
    (ttHotGlyphClosed, ttHotGlyphOpened)
  );
var
  Details: TThemedElementDetails;
  R: TRect;
  Collapse: boolean;
begin
  ...
  //draw a themed expand sign.
  Details := ThemeServices.GetElementDetails(PlusMinusDetail[False, Collapse]);
  R := Rect(ALeft, ATop, ARight + 1, ABottom + 1);
  ThemeServices.DrawElement(Canvas.Handle, Details, R, nil);
  ...
end;