-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathFontForm.h
83 lines (69 loc) · 2.91 KB
/
FontForm.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
//---------------------------------------------------------------------------
#ifndef FontFormH
#define FontFormH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <FMX.Controls.hpp>
#include <FMX.Forms.hpp>
#include <FMX.Controls.Presentation.hpp>
#include <FMX.StdCtrls.hpp>
#include <FMX.Types.hpp>
#include <FMX.Layouts.hpp>
#include <FMX.ListBox.hpp>
#include <FMX.Edit.hpp>
#include <FMX.EditBox.hpp>
#include <FMX.NumberBox.hpp>
#include <Data.Bind.Components.hpp>
#include <Data.Bind.EngExt.hpp>
#include <Fmx.Bind.DBEngExt.hpp>
#include <System.Bindings.Outputs.hpp>
#include <System.Rtti.hpp>
#include <Fmx.Bind.Editors.hpp>
#include <FMX.SearchBox.hpp>
#ifdef __APPLE__
#include <MacApi.Apikit.hpp>
#include <MacApi.Corefoundation.hpp>
#include <MacApi.Foundation.hpp>
#else
#include <Winapi.Messages.hpp>
#include <Winapi.Windows.hpp>
#endif
//---------------------------------------------------------------------------
class TfontSelect : public TForm
{
__published: //IDE-managed Components
TBindingsList* BindingsList1;
TButton* cancelButton;
TButton* okButton;
TLabel* sizeLabel;
TGroupBox* GroupBox2;
TLabel* sample;
TGroupBox* GroupBox1;
TCheckBox* underline;
TCheckBox* strikeout;
TListBox* fontSizeList;
TNumberBox* fontSize;
TListBox* fontFamilyList;
TEdit* familyName;
TLabel* familyLabel;
TLinkFillControlToProperty* LinkFillControlToPropertyTextPrompt;
TLinkFillControlToProperty* LinkFillControlToPropertyFontFamily;
TLinkControlToProperty* LinkControlToPropertyFontSize;
TLinkFillControlToProperty* LinkFillControlToPropertyText2;
void __fastcall underlineChange(TObject* Sender);
void __fastcall FormCreate(TObject* Sender);
void __fastcall familyNameKeyUp(TObject* Sender, WORD& Key, System::WideChar& KeyChar, TShiftState Shift);
void __fastcall fontSizeKeyUp(TObject* Sender, WORD& Key, System::WideChar& KeyChar, TShiftState Shift);
void __fastcall okButtonClick(TObject* Sender);
private: //User declarations
public: //User declarations
__fastcall TfontSelect(TComponent* Owner, TFont* font);
//int __fastcall EnumFontsProc(TLogFont* LogFont, TTextMetric* TextMetric, long FontType, LPARAM lparam);
void __fastcall CollectFonts(TStringList* FontList);
TFont* Font;
};
int __stdcall EnumFontsProc(const TLogFont* LogFont, const TTextMetric* TextMetric, unsigned long FontType, LPARAM lparam);
//---------------------------------------------------------------------------
extern PACKAGE TfontSelect* fontSelect;
//---------------------------------------------------------------------------
#endif