Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 6

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

Frodo_Torbins

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
  procedure FlipFont(Font: TFont; Degree: Integer);
  const
    CardinalBool: array[Boolean] of Cardinal = (0, 1);
    PitchVal: array[TFontPitch] of Cardinal = (DEFAULT_PITCH, VARIABLE_PITCH,
      FIXED_PITCH);
  var
    Weight: Integer;
    Italic, Underline, StrikeOut: Cardinal;
  begin
    with Font do
      begin
        if fsBold in Style then
          Weight := FW_BOLD
        else
          Weight := FW_NORMAL;
        Italic := CardinalBool[fsItalic in Style];
        Underline := CardinalBool[fsUnderline in Style];
        StrikeOut := CardinalBool[fsStrikeOut in Style];
 
        Handle:=CreateFont(Height, 0, Degree*10, Degree*10, Weight, Italic,
          Underline, StrikeOut, Charset, Out_TT_Precis, Clip_Default_Precis,
          Default_Quality, PitchVal[Pitch], PChar(Name));
      end;
  end;

Всего записей: 2318 | Зарегистр. 24-05-2007 | Отправлено: 11:15 14-06-2010
Открыть новую тему     Написать ответ в эту тему

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

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


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru