Gnom3 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: procedure SetClearType(AhWndG:hWnd); var   Fnt: TLogFont; begin   if not Assigned(FindControl(AhWndG)) then Exit;   with TControlCrack(FindControl(AhWndG)) do   begin     GetObject(Font.Handle, SizeOf(TLogFont), @Fnt);     Fnt.lfQuality := NONANTIALIASED_QUALITY;     Font.Handle := CreateFontIndirect(Fnt);   end; end; Всего записей: 864 | Зарегистр. 14-11-2010 | Отправлено: 18:03 09-08-2011

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (версии 2009, 2010 Weaver, 2011 Fulcrum)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование