c12_2f.cpp

C++Builder编程实例详解,用具体的例子阐明C++的一些基本操作,所有程序均在BC++上编译过.可靠,建议下载

//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include "C12_2F.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NewClick(TObject *Sender)
{
    RichEdit1->Lines->Clear();	
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OpenClick(TObject *Sender)
{
    if(!CheckFileSave())
    { // 放弃打开文件操作
        return;
    }

    if(OpenDialog1->Execute())
    { // 打开文件，修改标志位
        RichEdit1->ReadOnly = OpenDialog1->Options.Contains(ofReadOnly);
        RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
        RichEdit1->SetFocus();
        RichEdit1->Modified = False;
        FileName = OpenDialog1->FileName; // 保存文件名
        FilterIndex = OpenDialog1->FilterIndex; // 保存文件类型索引
    }

}
//---------------------------------------------------------------------------bool TForm1::CheckFileSave()
bool TForm1::CheckFileSave()
{
    if(RichEdit1->Modified)
    { // 需要保存文本
        switch(MessageBox(Form1->Handle, "是否保存修改？", "提示...",
                MB_YESNOCANCEL | MB_ICONQUESTION))
        {
            case ID_YES: // 选择保存文件
                SaveDialog1->FileName = FileName; // 设置文件名
                SaveDialog1->FilterIndex = FilterIndex; // 设置文件类型
                if(SaveDialog1->Execute()); // 打开“保存”对话框保存文件
                {                           // 并判断保存情况
                    RichEdit1->Modified = false;
                }
                break;
            case ID_CANCEL: // 取消操作
                return(false); // 放弃操作
        }
    }
    return(true); // 继续
}

//---------------------------------------------------------------------------
void __fastcall TForm1::SaveClick(TObject *Sender)
{
    SaveDialog1->FileName = FileName; // 设置文件名
    SaveDialog1->FilterIndex = FilterIndex; // 设置文件类型
    if(SaveDialog1->Execute()) // 打开“保存”对话框保存文件
    { // 用户选择“保存”按钮。
        if(SaveDialog1->FilterIndex == 1)
        {
            RichEdit1->PlainText = false;
            FileName = SaveDialog1->FileName + ".rtf";
        }
        else if(SaveDialog1->FilterIndex == 2)
        {
            RichEdit1->PlainText = true;
            FileName = SaveDialog1->FileName + ".txt";
        }
        else
        {
            RichEdit1->PlainText = true;
            FileName = SaveDialog1->FileName;
        }
        RichEdit1->Lines->SaveToFile(FileName);
        RichEdit1->Modified = false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    FileName = "Untitled";
    Application->OnHint = &DisplayHint; // 设置Hint事件响应程序
                                        // Application对象为缺省定义对象，
                                        // Hint为Application对象事件
                                        // DisplayHint为自定义函数
    FilterIndex = 1; // 初始化文件类型索引
    FileName = "Untitled"; // 设置缺省文件名
    GetFontNames();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PrintClick(TObject *Sender)
{
    if(PrintDialog1->Execute())
    { // 打印
        RichEdit1->Print(FileName);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sPrintClick(TObject *Sender)
{
    RichEdit1->Print(FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
    PrinterSetupDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sCutClick(TObject *Sender)
{
    RichEdit1->CutToClipboard(); // 剪切文本（RichEdit1->SelText）
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sCopyClick(TObject *Sender)
{
    RichEdit1->CopyToClipboard(); // 复制文本到剪贴版
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sPasteClick(TObject *Sender)
{
    RichEdit1->PasteFromClipboard(); // （从剪贴版中）粘贴文本
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FontNameChange(TObject *Sender)
{
    RichEdit1->SelAttributes->Name =
            FontName->Items->Strings[FontName->ItemIndex];
    RichEdit1->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FontNameKeyPress(TObject *Sender, char &Key)
{
    Key = '\n';
    RichEdit1->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FontSizeChange(TObject *Sender)
{
     int fontsize = atoi(FontSize->Text.c_str()); // 将文本转换为整数

     if (fontsize)
     { // fontsize 大于0
         if (fontsize < 1)
         {  // 小于1
             ShowMessage("The number must be between 1 and 1638.");
             FontSize->Text = 1;
         }
         else if (fontsize > 1638)
         {  // fontsize 过大
             ShowMessage("The number must be between 1 and 1638.");
             FontSize->Text = 1638;
         }
         RichEdit1->SelAttributes->Size = atoi(FontSize->Text.c_str());
         // SelAttributes 对象用于设置选择文本的字体、颜色、等
     }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::sBoldClick(TObject *Sender)
{
    if(sBold->Down)
    {  // sBold 按钮按下
        RichEdit1->SelAttributes->Style =
                RichEdit1->SelAttributes->Style << fsBold;
        // Style 属性的各二进制位分别代表不同的类型，
        // 该类型的变量可以用“<<”操作时设置，用“>>”取消设置
    }
    else
    {
         RichEdit1->SelAttributes->Style =
                 RichEdit1->SelAttributes->Style >> fsBold;
    }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::sItalicClick(TObject *Sender)
{
    if(sItalic->Down)
    {  // 斜体键按下
        RichEdit1->SelAttributes->Style =
                RichEdit1->SelAttributes->Style << fsItalic;
    }
    else
    {
         RichEdit1->SelAttributes->Style =
                 RichEdit1->SelAttributes->Style >> fsItalic;
    }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::sUnderlineClick(TObject *Sender)
{
    if(sUnderline->Down)
    { // 粗体键按下
        RichEdit1->SelAttributes->Style =
                RichEdit1->SelAttributes->Style << fsUnderline;
    }
    else
    {
         RichEdit1->SelAttributes->Style =
                 RichEdit1->SelAttributes->Style >> fsUnderline;
    }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::sLeftAlignClick(TObject *Sender)
{
    TControl *cTmp = (TControl*)(Sender);

    RichEdit1->Paragraph->Alignment = (TAlignment)cTmp->Tag;
    // Paragraph 对象用于设置段落属性
	
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BulletsButtonClick(TObject *Sender)
{
    RichEdit1->Paragraph->Numbering = (TNumberingStyle)BulletsButton->Down;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DisplayHint(TObject* Owner)
{
    StatusBar1->SimpleText = Application->Hint;
}
//---------------------------------------------------------------------------
// 处理字体列表项函数，在TForm1::GetFontNames函数中使用，并由系统调用。
int __stdcall EnumFontsProc(TLogFontA &LogFont, TTextMetricA &TextMetric,
                                int FontType, Pointer Data)
{   ((TStrings *)Data)->Add((AnsiString)LogFont.lfFaceName);
     return 1;
}

void __fastcall TForm1::GetFontNames(void)
{    HDC hDC = GetDC(0);
     void * cTmp = (void *)FontName->Items;
     EnumFonts(hDC, NULL, (FONTENUMPROC) EnumFontsProc, (long) cTmp );
         // EnumFonts 为系统（Windows API）函数,
         // 用于获得系统可用的字体列表。
         // EnumFontsProc 为自定义函数，作为系统回调函数，用于处理字体列表项
         // 当系统返回列表项时，调用该函数并返回字体名。
         // cTmp 为用户参数（此处为指向复合列表框FontName->Items的指针），
         // 当系统调用 EnumFontsProc 函数时，返回该参数。
     ReleaseDC(0,hDC);
     FontName->Sorted = True;
}
//----------------------------------------------------------------------------