Delphi：frame + colorbox = bug

Question

Delphi XE（これはDelphi 2010で問題なく動作します）。

試してみてください：フレームとその中にカラーボックスを作成してください。カラーボックス - >設定する黒以外の選択した色とスタイル= cbCustomColor（cbCustomColorsではありません）;フレームをフォームに貼り付け、プロジェクトを保存します。

プロジェクトを閉じます。 Reopen->エラーを以下のように：私は、カラーボックス、フレームまたは全部デルファイ：私はおかしくされ、この「カスタムカラー」を、必要

？ :) ありがとう！

ソースコード：

object Form1: TForm1 
    Left = 0 
    Top = 0 
    Caption = 'Form1' 
    ClientHeight = 202 
    ClientWidth = 447 
    Color = clBtnFace 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -11 
    Font.Name = 'Tahoma' 
    Font.Style = [] 
    OldCreateOrder = False 
    PixelsPerInch = 96 
    TextHeight = 13 
    inline Frame21: TFrame2 
    Left = 72 
    Top = -38 
    Width = 320 
    Height = 240 
    TabOrder = 0 
    ExplicitLeft = 72 
    ExplicitTop = -38 
    end 
end 

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, Unit2; 

type 
    TForm1 = class(TForm) 
    Frame21: TFrame2; 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

end. 

object Frame2: TFrame2 
    Left = 0 
    Top = 0 
    Width = 320 
    Height = 240 
    TabOrder = 0 
    object ColorBox1: TColorBox 
    Left = 72 
    Top = 48 
    Width = 145 
    Height = 22 
    Selected = clGreen 
    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor] 
    TabOrder = 0 
    end 
end 


unit Unit2; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, ExtCtrls; 

type 
    TFrame2 = class(TFrame) 
    ColorBox1: TColorBox; 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

implementation 

{$R *.dfm} 

end. 

Answer 1

これは、Delphi XEのバグです。これをQC bug reporting system at Embarcaderoに追加してください。