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

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

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

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

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

←   Сентябрь 2001   →
 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 проекта Citycat.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Кое-что из нашей кладовки   |x|
  • Fractal Forge Mixan mixanoid@mail.ru   (02.09.01 05:43)
    Программа прорисовки фракталов (кто не знает, что это такое - см. screenshot). Полностью функциональная и рабочая. Огромная скорость и большое количество настроек. Есть возможность делать AVI-файлы (!) , постеры до 20х30 метров (из А4 листов), встроенные фильтры, бесконечный ZOOM.
    Взят с сайта http://mixan.narod.ru
    »»» Скачать: исходные тексты (185кб) посмотреть скриншот
Лучшее из нашего FAQ   |x|
Как создать иконку из bitmap'а?
Нужно создать два bitmap'а: bitmap-маску ("AND" bitmap) и bitmap-картинку (XOR bitmap). Потом передать дескрипторы "AND" и "XOR" bitmap-ов API функции CreateIconIndirect()
Пример:

     procedure TForm1.Button1Click(Sender: TObject);
     var
       IconSizeX : integer;
       IconSizeY : integer;
       AndMask : TBitmap;
       XOrMask : TBitmap;
       IconInfo : TIconInfo;
       Icon : TIcon;
     begin
      {Get the icon size}
       IconSizeX := GetSystemMetrics(SM_CXICON);
       IconSizeY := GetSystemMetrics(SM_CYICON);

      {Create the "And" mask}
       AndMask := TBitmap.Create;
       AndMask.Monochrome := true;
       AndMask.Width := IconSizeX;
       AndMask.Height := IconSizeY;

      {Draw on the "And" mask}
       AndMask.Canvas.Brush.Color := clWhite;
       AndMask.Canvas.FillRect(Rect(0, 0, IconSizeX, IconSizeY));
       AndMask.Canvas.Brush.Color := clBlack;
       AndMask.Canvas.Ellipse(4, 4, IconSizeX - 4, IconSizeY - 4);

      {Draw as a test}
       Form1.Canvas.Draw(IconSizeX * 2, IconSizeY, AndMask);

      {Create the "XOr" mask}
       XOrMask := TBitmap.Create;
       XOrMask.Width := IconSizeX;
       XOrMask.Height := IconSizeY;

      {Draw on the "XOr" mask}
       XOrMask.Canvas.Brush.Color := ClBlack;
       XOrMask.Canvas.FillRect(Rect(0, 0, IconSizeX, IconSizeY));
       XOrMask.Canvas.Pen.Color := clRed;
       XOrMask.Canvas.Brush.Color := clRed;
       XOrMask.Canvas.Ellipse(4, 4, IconSizeX - 4, IconSizeY - 4);

      {Draw as a test}
       Form1.Canvas.Draw(IconSizeX * 4, IconSizeY, XOrMask);

      {Create a icon}
       Icon := TIcon.Create;
       IconInfo.fIcon := true;
       IconInfo.xHotspot := 0;
       IconInfo.yHotspot := 0;
       IconInfo.hbmMask := AndMask.Handle;
       IconInfo.hbmColor := XOrMask.Handle;
       Icon.Handle := CreateIconIndirect(IconInfo);
      {Destroy the temporary bitmaps}
       AndMask.Free;
       XOrMask.Free;

      {Draw as a test}
       Form1.Canvas.Draw(IconSizeX * 6, IconSizeY, Icon);

      {Assign the application icon}
       Application.Icon := Icon;

      {Force a repaint}
       InvalidateRect(Application.Handle, nil, true);

      {Free the icon}
       Icon.Free;
     end;


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

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Использование HTTP в Delphi.
Данная статья посвящена программированию на Borland Delphi с использованием одного из самых популярных Интернет-протоколов - HTTP.
А именно, здесь мы рассмотрим компонент TNMHTTP (NetMasters HTTP), который можно обнаружить на вкладке FastNet палитры компонентов Дельфи.
Другие сайты о DELPHI   |x|
Polaris Software
Русификация Delphi
Русские строковые ресурсы и экранные формы
> run-time в виде набора PAS-модулей для Delphi 3,4,5.
> run-time пакеты VCL Delphi 4 и 5.
> run-time пакеты ...
Опрос населения :)
Образование программиста?
»»» Высшее
»»» Незаконченное высшее
»»» Среднее специальное
»»» Среднее
Для души

Хокку дня
зима пришла
вода
остолбенела

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

Фраза дня
Мы делили апельсин - много наших полегло

И на закуску коротенький анекдот
- Алло! Алло! Простите, а Машу можно?
- А кто её спрашивает?
- Действительно! А кто её вообще спрашивает?! Чтоб в 23.00 была у меня!

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

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

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