C++ Builder Font Styles Formatting

最新推荐文章于 2024-09-01 15:02:12 发布

原创最新推荐文章于 2024-09-01 15:02:12 发布 · 2.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#styles #c++

C++ Builder 专栏收录该内容

4 篇文章

订阅专栏

本文展示了一个使用VCL库来动态改变字体样式的简单示例程序。该程序通过下拉菜单选择不同的字体、字号及颜色，并可通过复选框启用加粗、斜体、下划线和删除线等字体效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

http://www.functionx.com/bcb/howto/fontstyles.htm

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

#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)
{
    for(int i = 0; i < Screen->Fonts->Count; i++)
        cboFont->Items->Add(Screen->Fonts->Strings[i]);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::cboFontChange(TObject *Sender)
{
    lblPreview->Font->Name = cboFont->Items->Strings[cboFont->ItemIndex];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::cboFontSizeChange(TObject *Sender)
{
    lblPreview->Font->Size = StrToInt(cboFontSize->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::cboColorChange(TObject *Sender)
{
    lblPreview->Font->Color = cboColor->Selected;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::chkBoldClick(TObject *Sender)
{
    if( chkBold->Checked )
        lblPreview->Font->Style = lblPreview->Font->Style << fsBold;
    else
        lblPreview->Font->Style = lblPreview->Font->Style >> fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::chkItalicClick(TObject *Sender)
{
    if( chkItalic->Checked )
        lblPreview->Font->Style = lblPreview->Font->Style << fsItalic;
    else                                                    
        lblPreview->Font->Style = lblPreview->Font->Style >> fsItalic;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::chkUnderlineClick(TObject *Sender)
{
    if( chkUnderline->Checked )
        lblPreview->Font->Style = lblPreview->Font->Style << fsUnderline;
    else
        lblPreview->Font->Style = lblPreview->Font->Style >> fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::chkStrikeoutClick(TObject *Sender)
{
    if( chkStrikeout->Checked )
        lblPreview->Font->Style = lblPreview->Font->Style << fsStrikeOut;
    else
        lblPreview->Font->Style = lblPreview->Font->Style >> fsStrikeOut;
}
//---------------------------------------------------------------------------