TcolorのcustomColor値を保存するには？ (ID:738)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 TColorDialogのCustomColorsは、ヘルプを見ての通り ColorX=１６進数文字列 です。 つまり、ここに複数色が格納されています。 myColorsは２色分だけです。 やりたいことは、 １．複数色のうち、２色だけ保存したい。 ２，複数色全てを保存したい。 のどちらでしょうか。 １ならば、 myColors.color1 := TColor(StrToIntDef("#0" + ColorDialog1.CustomColors.Values['ColorA'], 0); myColors.color2 := TColor(StrToIntDef("#0" + ColorDialog1.CustomColors.Values['ColorB'], 0); としまｓ。 ２ならば、TMyColors型から間違っています。 # ２色分しか保存できないため 作るのであれば、 TMyColors=record Colors: array [0..15] of TColor; end; とし、 for i := 0 to 15 do MyColors.Colors[i] := TColor(StrToIntDef("#0" + ColorDialog1.CustomColors.Values['Color' + Chr(Ord('A') + i)], 0); とするべきです。 # １６色全て保存します。 使い方は、 RichEdit１.SelAttributes.Color := MyColors.Colors[0]; のようになります。 付属の開発者ガイドより、初心者向けDelphi解説書を読んだ方がわかりやすいと思います。