Исходники Delphi: Звездопад.

Опубиковано: 11.08.2008 г., автор: , просмотров: 34639

    Примеры Delphi работаем с пикселами.

    Пример программы выполненой на delphi. В примере мы работаем с пикселами, а именно на форме рисуються падающие звезды. Интерестная реализация советую посмотреть этот исходничек.

    Исходник компилировался: на 6,7 версиях delphi.

    P.S. Не забываем подписываться на бесплатную мультимедийную рассылку.
    Форма для подписки расположена с права и с лева.

    До встречи DelphiExpert.ru !!!

    Скачать компонентСкачать исходник Звездопад.

    Похожие материалы

    Последние из рубрики

    Платим за лайки! - Оплата сдельная! 26 Aug 2017 в 11:46 #
    Наш сервис предоставляет настоящие лайки на фотографии заказчиков, которые готовы платить за качество.

    Именно для этого мы и набираем удалённых сотрудников, которые будут выполнять работу, то есть ставить лайки и получить за это деньги.

    Чтобы стать нашим удалённым сотрудником и начать ставить лайки, зарабатывая при этом 45 рублей за 1 поставленный лайк,

    достаточно просто зарегистрироваться на нашем сервисе. > oplata-vklike.tk
    Вывод заработанных средств ежедневно в течении нескольких минут.
    Никто 06 Aug 2011 в 00:00 #
    пиксельпад
    Роман 12 Jul 2010 в 00:00 #
    Поставьте alphablend := false;
    А transparentcolor := true;
    Затем borderstyle := bsNone;
    И добавьте в on_Create у формы(главной) строку
    ShowWindow(handle,sw_maximize);
    Затем удалите главное меню.
    Вуаля - снег на вашем рабочем столе!
    Можно ещё у toolbar поставить свойство
    align := alCustom;
    Anchors := [akRight,akBottom];
    Затем сузить toolBar и придвинуть к правому краю вплотную, а от нижнего с отступом примерно в толщину панели задач(где пуск и время сидят).
    Полный шик!
    3240 22 May 2009 в 00:00 #
    Хорошая вещь, применю её в своей заставке к программе
    > eve_10 15 Apr 2009 в 00:00 #
    Этот исходник учит не рисовать звезды, а учит работать с канвой вообще!

    ОтменитьДобавить комментарий