unit1.cpp

来自「<<C++Builder 6实用编程100例>>随书光盘」· C++ 代码 · 共 57 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
        Memo1->Font->Name=ComboBox1->Text;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox2Change(TObject *Sender)
{
        if(!ComboBox2->Text.IsEmpty())
                Memo1->Font->Size=ComboBox2->Text.ToInt();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox3Change(TObject *Sender)
{
        switch(ComboBox3->ItemIndex)
        {
                case 0:
                        Memo1->Font->Color=clBlack;
                        break;
                case 1:
                        Memo1->Font->Color=clRed;
                        break;
                case 2:
                        Memo1->Font->Color=clYellow;
                        break;
                case 3:
                        Memo1->Font->Color=clBlue;
                        break;
                case 4:
                        Memo1->Font->Color=clGreen;
                        break;
                case 5:
                        Memo1->Font->Color=clPurple;
                        break;
                default:
                        break;
        }
}
//---------------------------------------------------------------------------