TColorを保存するには？ (ID：11839)

名前

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

本文

前の方のログをあまり読んではいないのですが，とにかくTColorの値を
保存して読出すというだけでコーディングしてみました．
実際のアプリでは，TColorだけの読書きというのはないと思いますので，
いろいろ工夫は必要かと思います．

新規プロジェクトのFormにボタンとTColorDialogを各々一つづつ配置し
て下さい．ColorDialogで色を変更するとFormの色が変わります．
アプリを終了して，次回起動するとFormがその色になります．
動作確認は，WindowsXP(SP2)+Delphi5(UP1)です．

var
   AColor    : TColor;
   AFile     : TFileStream;
   AFilePath : String;

procedure TForm1.FormCreate(Sender: TObject);
begin
     AFilePath:=ChangeFileExt(Application.ExeName,'.fst');
     if FileExists(AFilePath) then begin
       AFile:=TFileStream.Create(AFilePath,fmOpenReadWrite);
       try
         AFile.Read(AColor,SizeOf(AColor));
         Self.Color:=AColor;
       finally
         AFile.Free;
       end;
     end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     if ColorDialog1.Execute then begin
       AColor:=ColorDialog1.Color;
       Self.Color:=AColor;
       AFile:=TFileStream.Create(AFilePath,fmCreate);
       try
         AFile.Write(AColor,SizeOf(AColor));
       finally
         AFile.Free;
       end;
     end;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る