Программирование в Delphi. Трюки и эффекты

Name: Программирование в Delphi. Трюки и эффекты
Rating: 5 (5 reviews)
Author: Александр Анатольевич Чиртик

Автор

Александр Анатольевич Чиртик

Жанр

Программирование

Год написания книги

2010

Теги

<< 1 ... 30 31 32 33 34 35 36 37 38 ... 42 >>

На страницу:

Перейти

34 из 42

Настройки чтения

Размер шрифта

Высота строк

Поля

SetText(2001, 'Выбранный цвет:'+ #13 + #10 + strBuf);

end;

1004: //Выбор шрифта

begin

if (ShowChooseFont(font) = True) then

begin

//Замена шрифта в Edit

hOldFont:= HFONT(

SendDlgItemMessage(hMainWnd,2001,WM_GETFONT, 0,0));

hCurFont:= CreateFontIndirect(font);

SendDlgItemMessage(hMainWnd, 2001, WM_SETFONT,

Integer(hCurFont), Integer(True));

SetText(2001, 'Текст, записанный выбранным шрифтом');

if (hOldFont <> 0) then DeleteObject(hOldFont);

end;

end;

1010: //Выбор папки

begin

SetText(2 001, 'Выбранная папка:'+ #13 + #10 +

ShowChooseFolder());

end;

1011: //Подключение сетевого ресурса

begin

ShowConnection();

end;

1012: //Отключение сетевого ресурса

begin

ShowDisconnect();

end;

1013: //Окно "О программе"

begin

ShowAbout('Standart windows',

'Демонстрация использования стандартных '+

'окон из чистого API-приложения');

end;

end;

end;

else

begin

//Обработка по умолчанию

WindowFunc:= DefWindowProc(hWnd, msg, wParam, lParam);

Exit;

end;

end;

WindowFunc:= S_OK; //Сообщение обработано

end;

Обработка сообщений здесь довольно проста, за исключением изменения шрифта текстового поля. Обратите внимание на следующий отрывок листинга 2.34:

//Замена шрифта в Edit

hOldFont:= HFONT(SendDlgItemMessage(hMainWnd,2001,WM_GETFONT, 0,0));

hCurFont:= CreateFontIndirect(font);