//--------------------------------------------------------------------------- #include #pragma hdrstop #include "optionfrm.h" //--------------------------------------------------------------------------- #pragma resource "*.dfm" TOptionsfrm *Optionsfrm; //--------------------------------------------------------------------------- __fastcall TOptionsfrm::TOptionsfrm(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TOptionsfrm::ChooseColorbtnClick(TObject *Sender) { ColorDialog1->Execute(); CurrentVSColor->Brush->Color = ColorDialog1->Color; } //---------------------------------------------------------------------------