colorform.cpp

一个麻将程序。我的。

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "colorform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tcolorset *colorset;
//---------------------------------------------------------------------------
__fastcall Tcolorset::Tcolorset(TComponent* Owner,int &image)
    : TForm(Owner),imagetype(image)
{
}
//---------------------------------------------------------------------------

void __fastcall Tcolorset::FormCreate(TObject *Sender)
{
    if(imagetype==1) RadioButton2->Checked=true;
    else RadioButton1->Checked=true;

    //CheckBox1->Checked=bigsize;
}
//---------------------------------------------------------------------------
void __fastcall Tcolorset::FormClose(TObject *Sender, TCloseAction &Action)
{
    if(RadioButton2->Checked==true)
        imagetype=1;
    else
        imagetype=2;

    //bigsize= CheckBox1->Checked;
}
//---------------------------------------------------------------------------
void __fastcall Tcolorset::Image2Click(TObject *Sender)
{
    RadioButton1->Checked=true;    
}
//---------------------------------------------------------------------------
void __fastcall Tcolorset::Image1Click(TObject *Sender)
{
    RadioButton2->Checked=true;    
}
//---------------------------------------------------------------------------