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
|
{%MainUnit ../dialogs.pp}
{******************************************************************************
TFontDialog
******************************************************************************
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
{------------------------------------------------------------------------------
Method: TFontDialog.Apply
Params: Wnd: HWND
Returns: Nothing
Called whenever the Apply button is clicked.
------------------------------------------------------------------------------}
procedure TFontDialog.ApplyClicked;
begin
if Assigned(FOnApplyClicked) then FOnApplyClicked(Self);
end;
{------------------------------------------------------------------------------
Method: TFontDialog.Create
Params: AOwner: the owner of the class
Returns: Nothing
Constructor for the class.
------------------------------------------------------------------------------}
constructor TFontDialog.Create (AOwner : TComponent);
begin
inherited Create(AOwner);
fCompStyle := csFontDialog;
FFont := TFont.Create;
FOptions := [fdEffects];
end;
destructor TFontDialog.Destroy;
begin
FFont.Free;
inherited Destroy;
end;
procedure TFontDialog.SetFont(const AValue: TFont);
begin
FFont.Assign(AValue);
end;
class procedure TFontDialog.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterFontDialog;
end;
function TFontDialog.DefaultTitle: string;
begin
Result:=rsSelectFontTitle;
end;
|
