ПЕРЕЛІК ДИСЦИПЛІН:
  • Адміністративне право
  • Арбітражний процес
  • Архітектура
  • Астрологія
  • Астрономія
  • Банківська справа
  • Безпека життєдіяльності
  • Біографії
  • Біологія
  • Біологія і хімія
  • Ботаніка та сільське гос-во
  • Бухгалтерський облік і аудит
  • Валютні відносини
  • Ветеринарія
  • Військова кафедра
  • Географія
  • Геодезія
  • Геологія
  • Етика
  • Держава і право
  • Цивільне право і процес
  • Діловодство
  • Гроші та кредит
  • Природничі науки
  • Журналістика
  • Екологія
  • Видавнича справа та поліграфія
  • Інвестиції
  • Іноземна мова
  • Інформатика
  • Інформатика, програмування
  • Юрист по наследству
  • Історичні особистості
  • Історія
  • Історія техніки
  • Кибернетика
  • Комунікації і зв'язок
  • Комп'ютерні науки
  • Косметологія
  • Короткий зміст творів
  • Криміналістика
  • Кримінологія
  • Криптология
  • Кулінарія
  • Культура і мистецтво
  • Культурологія
  • Російська література
  • Література і російська мова
  • Логіка
  • Логістика
  • Маркетинг
  • Математика
  • Медицина, здоров'я
  • Медичні науки
  • Міжнародне публічне право
  • Міжнародне приватне право
  • Міжнародні відносини
  • Менеджмент
  • Металургія
  • Москвоведение
  • Мовознавство
  • Музика
  • Муніципальне право
  • Податки, оподаткування
  •  
    Бесплатные рефераты
     

     

     

     

     

     

         
     
    Про те, як вирощують текст за допомогою Delphi
         

     

    Інформатика, програмування

    Про те, як обертати текст за допомогою Delphi

    Зараз ми поговоримо з Вами про те як можна засобами Дельфі обертати який-небудь текст. На перший погляд завдання не з простих, адже навіть Windows не вміє обертати зображення (ну і текст відповідно теж), але ми ж не Windows :))

    Нам знадобиться мінлива-запис типу TLogFont, яка буде містити характеристики шрифту, такі як: розмір, стиль, шрифт, кут повороту. А також змінні типу hFont і TFont.

    Тепер, щоб не мучити Вас очікуванням привожу код прикладу (обробник події OnClick для командної кнопки):

    procedure TForm1.Button1Click (Sender: TObject);

    var

    Font: hFont;

    LogFont: TLogFont;

    F: TFont;

    begin

    FillChar (LogFont, SizeOf (LogFont), 0);

    With LogFont do

    Begin

    lfHeight : = 12;// висота шрифту

    lfOrientation : = 150;// кут повороту бажано, щоб збігався із

    lfEscapement : = 150;// значенням цієї змінної. У даному випадку це 15 '

    lfWeight : = FW_REGULAR;// наприклад жирний - FW_BOLD;

    lfCharSet : = RUSSIAN_CHARSET;// тут я думаю зрозуміло

    StrCopy (lfFaceName, 'Arial');// тут - ім'я шрифту

    End;

    Font: = CreateFontIndirect (LogFont);

    F: = TFont.Create;// створюємо екземпляр об'єкта

    F. Handle: = Font;

    Canvas.Font: = F;

    Canvas.Brush.Color: = Color;

    Canvas.TextOut (300, 100, 'Font Demo');// малюємо на формк

    F. Free ;//

    DeleteObject (Font);// звільняємо пам'ять, видаляючи об'єкт ...

    end;

    Ну ось власне і все, на основі цього можна наприклад компонент написати, може я звичайно й сам незабаром його напишу, але тим не менше презентую Вам цю ідею.

    Список літератури

    Михайло Хрістосенко. Про те, як вирощують текст за допомогою Delphi

    Для підготовки даної роботи були використані матеріали з сайту http://delphid.dax.ru .

         
     
         
    Реферат Банк
     
    Рефераты
     
    Бесплатные рефераты
     

     

     

     

     

     

     

     
     
     
      Все права защищены. Reff.net.ua - українські реферати ! DMCA.com Protection Status