unitabout.cpp

来自「我写的利用IDEA算法的加密程序」· C++ 代码 · 共 63 行

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

#include <vcl.h>
#pragma hdrstop

#include "UnitAbout.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIForm"
#pragma link "SUIButton"
#pragma link "SUIURLLabel"
#pragma link "SUIForm"
#pragma link "SUIURLLabel"
#pragma resource "*.dfm"
TFormAbout *FormAbout;
//---------------------------------------------------------------------------
__fastcall TFormAbout::TFormAbout(TComponent* Owner)
    : TForm(Owner)
{
}

__fastcall TFormAbout::TFormAbout(int style, TComponent* Owner)
    : TForm(Owner)
{
    this->style = style;
}
//---------------------------------------------------------------------------
void __fastcall TFormAbout::suiForm1Click(TObject *Sender)
{
    ModalResult = mrOk;
}
//---------------------------------------------------------------------------

void __fastcall TFormAbout::Image1Click(TObject *Sender)
{
    ModalResult = mrOk;
}
//---------------------------------------------------------------------------

void __fastcall TFormAbout::FormCreate(TObject *Sender)
{
    switch (style)
    {
        case 0:
            suiForm1->UIStyle = DeepBlue;
            break;
        case 1:
            suiForm1->UIStyle = WinXP;
            break;
        case 2:
            suiForm1->UIStyle = MacOS;
            break;
        case 3:
            suiForm1->UIStyle = BlueGlass;
            break;
        default:
            suiForm1->UIStyle = Protein;
            break;
    }
}
//---------------------------------------------------------------------------