Окно для выбора шрифта

Для вывода окна для выбора шрифта подойдет функция, приведенная в листинге 2.27.

Листинг 2.27. Окно для выбора шрифта

function ShowChooseFont(var font: LOGFONT):BOOL;

var

choose: TChooseFont;

begin

ZeroMemory(Addr(choose), SizeOf(choose));

//Заполнение структуры для окна

choose.lStructSize:= SizeOf(choose);

choose.hWndOwner:= hParentWnd;

choose.hInstance:= hAppInst;

choose.lpLogFont:= Addr(font);

choose.Flags:= CF_BOTH or CF_INITTOLOGFONTSTRUCT;

//Отображение окна и обработка результата

if (ChooseFont (choose) = True) then

begin

CopyMemory(Addr(font), choose.lpLogFont, SizeOf(font));

ShowChooseFont:= True;

end

else ShowChooseFont:= False;

end;

Здесь используются флаги окна, имеющие следующие значения:

• CF_BOTH – позволяет отображать экранные и принтерные шрифты (для отображения либо экранных, либо принтерных шрифтов можно использовать флаги CF_SCREENFONTS и CF_PRINTERFONTS соответственно);

• CF_INITTOLOGFONTSTRUCT – позволяют выбрать в окне шрифт, соответствующий (или максимально похожий) шрифту, описываемому структурой LOGFONT, указатель на которую сохраняется в поле lpLogFont.