c++快速开发例子--font draw

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

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

0 ·

CC 4.0 BY-SA版权

文章标签：

#p2p #linq #webview

编程实例专栏收录该内容

25 篇文章

订阅专栏

本文档介绍了如何在Delphi应用中使用FontList.h，展示了如何获取系统字体并应用到ListBox控件中，以及如何响应用户选择字体并实时更新Label内容。

#include "FontList.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TFormMain *FormMain;
//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::FormCreate(TObject *Sender)
{
ListBox1->Items = Screen->Fonts;
}
//---------------------------------------------------------------------
void __fastcall TFormMain::ListBox1Click(TObject *Sender)
{
FontLabel->Caption = ListBox1->Items->Strings[ListBox1->ItemIndex].c_str();
}
//---------------------------------------------------------------------
void __fastcall TFormMain::DrawItem(TWinControl *Control,
int Index, TRect &Rect, TOwnerDrawState State)
{
ListBox1->Canvas->FillRect(Rect);
ListBox1->Canvas->Font->Name =ListBox1->Items->Strings[Index].c_str();
ListBox1->Canvas->Font->Size = 0;
ListBox1->Canvas->TextOut(Rect.Left+1, Rect.Top+1, ListBox1->Items->Strings[Index].c_str());
}
//---------------------------------------------------------------------
void __fastcall TFormMain::ListBox1MeasureItem(TWinControl *Control,
int Index, int &Height)
{
ListBox1->Canvas->Font->Name =ListBox1->Items->Strings[Index].c_str();
ListBox1->Canvas->Font->Size = 0;
Height = ListBox1->Canvas->TextHeight("Wg") +2;
}
//---------------------------------------------------------------