Модераторы: Snowy, Alexeis, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> использование Canvas.... нужна помощь!!! 
:(
    Опции темы
demon13
Дата 17.8.2006, 09:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 12.8.2006

Репутация: нет
Всего: нет
Чтоб похитрей придумать  smile  Если просто поставить OnMouseMove Close, то получается как с первым screenSever'ом smile 
PM MAIL   Вверх
Alexeis
Дата 17.8.2006, 10:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Цитата(demon13 @  17.8.2006,  09:33 Найти цитируемый пост)
Если просто поставить OnMouseMove Close, то получается как с первым screenSever'ом

Так надо поставить таймер и активизировать обработку события только через пол секунды

Код

procedure TForm1.FormCreate(Sender: TObject);
begin
  OnMouseMove := nil;
  tmr1.Interval := 500;
  tmr1.Enabled := True;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  tmr1.Enabled := False;
  OnMouseMove := FormMouseMove;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Close;
end;



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
demon13
Дата 17.8.2006, 10:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 12.8.2006

Репутация: нет
Всего: нет
Код

procedure TForm1.FormCreate(Sender: TObject);
begin
  OnMouseMove := nil;
  tmr1.Interval := 500;
  tmr1.Enabled := True;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  tmr1.Enabled := False;
  OnMouseMove := FormMouseMove;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Close;
end;

Работает пол секунды и выходит.
PM MAIL   Вверх
Alexeis
Дата 17.8.2006, 11:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Цитата(demon13 @  17.8.2006,  10:30 Найти цитируемый пост)
Работает пол секунды и выходит.

Что даже если мышь не шевилить?


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
demon13
Дата 17.8.2006, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 12.8.2006

Репутация: нет
Всего: нет
Дааааа, Adobe Photoshop CS2 мне не друг smile 
PM MAIL   Вверх
Alexeis
Дата 17.8.2006, 12:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Странно, у меня работает, тогда можно пределить малую облать при выходе из которой будет считатся, что мышь сдвинули.
Код

procedure TForm1.FormCreate(Sender: TObject);
begin
  OnMouseMove := nil;
  tmr1.Interval := 500;
  tmr1.Enabled := True;
end;

var
  p0 : TPoint;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  tmr1.Enabled := False;
  OnMouseMove := FormMouseMove;
  GetCursorPos(p0);
  p0 := Form1.ScreenToClient(p0)
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (abs(x - p0.x) > 20) or (abs(y - p0.y) > 20)
  then
    Close;
end;


Добавлено @ 12:34 
Цитата(demon13 @  17.8.2006,  12:22 Найти цитируемый пост)
Дааааа, Adobe Photoshop CS2 мне не друг 

Да ладно всавить нолик в картинку и применить фильтр, тут много ума не надо smile 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
demon13
Дата 17.8.2006, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 12.8.2006

Репутация: нет
Всего: нет
Так все отлично работает.
PM MAIL   Вверх
Alexeis
Дата 17.8.2006, 13:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Вот примерчик "1" с в масштабе 400%

Это сообщение отредактировал(а) alexeis1 - 17.8.2006, 13:07

Присоединённый файл ( Кол-во скачиваний: 11 )
Присоединённый файл  1.jpg 6,41 Kb


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
demon13
Дата 17.8.2006, 13:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 12.8.2006

Репутация: нет
Всего: нет
Это при помощи размытия зделано?
PM MAIL   Вверх
Alexeis
Дата 17.8.2006, 13:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
А вот нолик

Цитата

Это при помощи размытия зделано?

1) Градиентная заливка
2) Moution Blur -90 градусов 2 пиксела
3) Wave Blur


Это сообщение отредактировал(а) alexeis1 - 17.8.2006, 13:23

Присоединённый файл ( Кол-во скачиваний: 7 )
Присоединённый файл  0.jpg 11,42 Kb


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Alexeis
Дата 17.8.2006, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Вот и в масштабе 100%

Это сообщение отредактировал(а) alexeis1 - 17.8.2006, 13:43

Присоединённый файл ( Кол-во скачиваний: 12 )
Присоединённый файл  01.zip 7,56 Kb


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
demon13
Дата 17.8.2006, 17:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 12.8.2006

Репутация: нет
Всего: нет
Выглядит классно smile 
PM MAIL   Вверх
Alexeis
Дата 17.8.2006, 17:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
demon13, так вот предлагаю сделать плагиат, той красивой заставки, только улучшить ее маленько. Надо будет наш алгоритм доработать и еще проидется делать несколько вариантов нулей и единиц с разной яркостью. Рисовать их будем прям на канве, при помощи BitBlt.

Это сообщение отредактировал(а) alexeis1 - 17.8.2006, 17:25


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
demon13
Дата 17.8.2006, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 12.8.2006

Репутация: нет
Всего: нет
Цитата(alexeis1 @  17.8.2006,  17:24 Найти цитируемый пост)
Надо будет наш алгоритм доработать

Я думаю, что надо описать гдето 25 вертикальных рядов, чтоб они рандумом выберали по какому пикселю оси x будут спускаться, задать им разные скорости, зделать чтоб цифры не пропадали, а самим их стерать.

Это сообщение отредактировал(а) demon13 - 17.8.2006, 17:40
PM MAIL   Вверх
Alexeis
Дата 17.8.2006, 17:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Цитата(demon13 @  17.8.2006,  17:40 Найти цитируемый пост)
 а самим их стерать.
 выше определенной  позиции отсчиывая от головы "капли". Там так и сделано, но они пропадают с разной вероятностью, те что достаточно далеко почти, наверняка исчезают, те что поближе 50/50 что исчезнут, те что рядом никогда не исчезают. Если быстрый накрывает медленого, то он его "убивает" совсем. Для каждого потока надо будет создавать структуру(record), где будет хранится голова, скорость и яркость капли. Эти структуры надо будет динамически добавлять и убирать из очереди капель. И сделать обработчик который будет по очереди рисовать каждую каплю (бесконечный цикл).
И еще неплохо бы число линий подбирать динамически, в зависимости от разрешения экрана.
Попробую кое что из этого сделать. Если что отпишусь. smile 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Страницы: (5) Все 1 2 [3] 4 5 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0579 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.