unit1.cpp

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

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

#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::FormCreate(TObject *Sender)
{
        Edit1->Text="0";
        Edit2->Text=RichEdit1->Font->Size;
        Edit3->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
        RichEdit1->Paragraph->Alignment=taLeftJustify;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
        RichEdit1->Paragraph->Alignment=taCenter;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton3Click(TObject *Sender)
{
        RichEdit1->Paragraph->Alignment=taRightJustify;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
        RichEdit1->Paragraph->FirstIndent=StrToInt(Edit1->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(Edit2->Text!="")
                RichEdit1->SelAttributes->Size=StrToInt(Edit2->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        int length,line;
        length=(RichEdit1->Text).Length();
        line=RichEdit1->FindText(Edit3->Text,0,length,TSearchTypes()<<stMatchCase);
        if(line==-1)
                ShowMessage("抱歉，没有找到！");
        else
        {
                RichEdit1->SetFocus();
                RichEdit1->SelStart=line;
                RichEdit1->SelLength=(Edit3->Text).Length();
        }
}
//---------------------------------------------------------------------------