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

名前

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

本文 記述間違いでした。 "#0"でなく、'#0'です。 > なぜcolorAを引用符でくくるのですか？お教えいただければ幸いです。 ヘルプを見ましょう。 TStrings型の、Valuesプロパティは、 property Values[const Name: string]: string; となっていますよね。だから引用符でくくる(文字列が入る)のです。 > あの、まだ試せないでいますけど、これだと一色の保存のために一ファイルが必要になるわけですね。 もしかして、ColorDialogは１色を取得するために使用しています？ CustomColorsの値を、SelAttributes.Colorに設定していたので、てっきりColorDialogのパレットに全ての色を設定して、それを使って何かしようとしているのかと思いましたが・・・。 それとも、パレットに値を設定して、OKを押す、ということでしょうか。 それならば、今までの説明でできるはずです。 １色ずつ設定する場合は次のようになります。 ColorDialog1.ExecuteでTrueが帰ってきたとき、取得したい色はColorDialog1.Colorに入っています。 TColor型なので、 .SelAttributes.Color := ColorDialog1.Color; でうまく動きます。 各色を、ColorDialog1.Executeで１色ずつ指定した後、Attributesに指定された色(４〜５色)を保存するには、また別の方法をとります。 これらを保存したい場合は、その形式にも依りますが、TStringList型を用意して、Values['Color1'] := IntToStr(...)として、最後にSaveToFileするか、TIniFileやTMemIniFileを用意して、WriteIntegerして最後にUpdateFilesするかです。 それぞれ、TStringList, TIniFile, TMemIniFileを参照してください。 # 64KB以上のINIFILEは扱えない場合があります。