Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Апрель 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru - www.lycos.ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 22.04.02 09:04

Представляем вашему вниманию "Бойцовский клуб"
Вы хотите стать ангелом, демоном или просто почувствовать вкус победы в облике воина или мага, а может испытать горечь поражения и узнать сладкий вкус мести, влиять на судьбы других или изменить свою. А может, вы просто хотите пообщаться с другими людьми, или просто с удовольствием провести время.
У каждого свой путь, и никому не суждено прожить две одинаковые жизни, но можно прожить еще одну, ни на что не похожую жизнь, со своими законами и правилами.
Мы думаем, Вы сможете найти все это здесь.
Лучшее из нашего FAQ   |x|
При выполнении диалога FontDialog со свойством Device равным fdBoth or fdPrinter, появляется ошибка "There are no fonts installed".
Эти установки должны показать шрифты совместимые либо с принтером либо с экраном. В примере диалог Windows ChooseFont вызывается напрямую чтобы показать список шрифтов, совместимых одновременно и с экраном и с принтером.
Пример:

uses Printers, CommDlg;

procedure TForm1.Button1Click(Sender: TObject);
var
    cf : TChooseFont;
    lf : TLogFont;
    tf : TFont;
begin
    if PrintDialog1.Execute then
        begin
            GetObject(Form1.Canvas.Font.Handle, sizeof(lf),@lf);
            FillChar(cf, sizeof(cf), #0);
            cf.lStructSize := sizeof(cf);
            cf.hWndOwner := Form1.Handle;
  
         cf.hdc := Printer.Handle;
            cf.lpLogFont := @lf;
            cf.iPointSize := Form1.Canvas.Font.Size * 10;
            cf.Flags := CF_BOTH or CF_INITTOLOGFONTSTRUCT or
                CF_EFFECTS or CF_SCALABLEONLY or CF_WYSIWYG;
            cf.rgbColors := Form1.Canvas.Font.Color;
            if ChooseFont(cf) <> false then
                begin
                    tf := TFont.Create;
                    tf.Handle := CreateFontIndirect(lf);
          
         tf.COlor := cf.RgbColors;
                    Form1.Canvas.Font.Assign(tf);
                   &!
nbsp;tf.Free;
                    Form1.Canvas.TextOut(10, 10, 'Test');
                end;
        end;
end;



Источник: Дельфи. Вокруг да около.

»»» Прислать свои комментарии

Советы по программированию в Дельфи

Совет 20. Перезагрузка компьютера.

Для того, чтобы перезагрузить Windows вам необходимо где-нибудь написать этот код:
ExitWindowsEx(EWX_FORCE+EWX_REBOOT,0);
А для того, чтобы выключить компьютер вам необходимо поместить в программе такой код:
ExitWindowsEx(EWX_SHUTDOWN,0);
а затем протянуться ручками к кнопке Power...

Автор: Михаил Христосенко
Сайт о программировании в Дельфи http://MihanDelphi.narod.ru
(c) при публикации этого материала ссылка на автора обязательна

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Работа с Com портом под Windows
В отличие от DOS Win 9x,NT имеет другую идеологию работы с аппаратурой. Если в нашем уважаемом старичке DOS драйвер мог быть написан на asm с прямым доступом к портам, то в Win все немного сложнее...
Новинки книжного рынка   |x|
Самоучитель Kylix
Книга посвящена новому продукту фирмы Borland - объектно-ориентированной среде для быстрой разработки приложений под Linux. Рассматривается версия Kylix 1.0 Server Developer.
Приводятся приемы работы с графическими компонентами, принципы создания приложений баз данных и собственных компонентов.
Дается краткое описание языка программирования Object Pascal. Последняя часть книги посвящена проблеме создания межплатформенных приложений, которые работают как в среде Linux, так и в Windows.
Изложение сопровождается многочисленными примерами и фрагментами кода.Для программистов
Автор: Понамарев В.
Другие сайты о DELPHI   |x|
Imca Systems DevTeam
Компоненты Delphi, C++ Builder, ActiveX контролы, инструменты для программистов, .Net компоненты и контролы
» Оценка сайта: 2
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". За какую сумму вы готовы его покупать?
»»» 80р.
»»» 100р.
»»» 120р.
»»» 150р.
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
Летнее кресло
качается само собой
в порывах метели.

Афоризмы
Надо согласиться с Вовенаргом: Если афоризм нуждается в пояснениях, значит, он неудачен....

Фраза дня
Все гениальное просто...

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В гроде Литтл Рок в Арканзасе (США) запрещается выгуливать коров на главной улице после часа дня в воскресенье .
В Нью Хемпшире (США) считается преступлением вписыватся в отель под чужим именем.

И на закуску коротенький анекдот
- Как ты приучила своего мужа раньше возвращаться домой?
- Очень просто. Приходит он в очередной раз за полночь, а я и окликаю из комнаты: "Вася, это ты?"
- А он?
- А он Коля.

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=7892882

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное