На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> smooth edges of screen fonts
    В виндовс в настроках экрана есть пунктик : использовать сглаживание (smooth edges of screen fonts).
    Можно ли писать в приложении текст со сглаживанием или без, например функцией TextOut, но! быть независимым от этого параметра в настроках системы?...
      Никто так и не хочет подсказать...

      для наглядности беру пример из FAQа

      ExpandedWrap disabled
        procedure TForm1.Button5Click(Sender: TObject);
        var
          logfont: TLogFont;
          font: Thandle;
          count: integer;
        begin
          LogFont.lfheight := 20;
          logfont.lfwidth := 20;
          logfont.lfweight := 750;
          LogFont.lfEscapement := -200;
          logfont.lfcharset := 1;
          logfont.lfoutprecision := out_tt_precis;
          logfont.lfquality := PROOF_QUALITY;
          logfont.lfpitchandfamily := FF_Modern;
          font := createfontindirect(logfont);
          Selectobject(Form1.canvas.handle, font);
          SetTextColor(Form1.canvas.handle, rgb(0, 0, 200));
          SetBKmode(Form1.canvas.handle, transparent);
          for count := 1 to 100 do
          begin
            canvas.textout(Random(form1.width), Random(form1.height), 'Hello');
            SetTextColor(form1.canvas.handle, rgb(Random(255), Random(255), Random
              (255)));
          end;
          Deleteobject(font);
        end;


      1. запускаем прогу с кодом для кнопки (см.выше)
      2. жмем кнопку Button1 на форме - проверяем что буквы хотя бы видны
      3. идем в Display Properties -> Appearance -> Effects
      4. балуемся с настроками Use the folowing method to smooth edges of screen fonts
      5. жмем Apply!
      6. жмем кнопку Button1 на форме
      7. смотрим внимательно на результаты
      8. если неудовлетворение от пункта 4, то переходим к пункту 3(4)
      9. задаемся вопросом: можно ли не исполььзуя пункты 3-5 добиться подобных же результатов?
      10. end.
      Сообщение отредактировано: ermakov_ma -
        ура
        работает с таким набором констант
        ExpandedWrap disabled
              lfCharSet         := RUSSIAN_CHARSET;
              lfQuality         := ANTIALIASED_QUALITY; //DEFAULT_QUALITY
              lfClipPrecision   := CLIP_CHARACTER_PRECIS;
              lfOutPrecision    := OUT_CHARACTER_PRECIS;
              lfPitchAndFamily  := DEFAULT_PITCH;


        да кстати, по усмотрению модератора - может стоит перенести тему в winAPI, это я погорячился что создал тему тут...
        Сообщение отредактировано: ermakov_ma -
        0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
        0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0434 ]   [ 16 queries used ]   [ Generated: 8.10.24, 01:58 GMT ]