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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Создание курсоров, редактор создания курсоров 
:(
    Опции темы
AndreiBes
  Дата 2.11.2004, 01:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: -2
:( Люди помогите пожалуйста! Не знаю Delphi ни капельки, а через 2 недели курсач сдавать. Посоветовали сюда обратиться. Если можете объясните как сделать программу редактор курсоров с использованием BitMap. Заранее всем большое спасибо! :qstn
PM MAIL   Вверх
Illusion Dolphin
Дата 2.11.2004, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 13
Всего: 63
Создавать за тебя прогу это дело неблагодарное, но могу кинуть кусок проги, где я делал динамически курсор в виде круга (как в фотожопе)

Код

procedure newcursor;
var   l:integer;
b:tbitmap;

       AndMask : TBitmap;
       IconInfo : TIconInfo;
       i,j:integer;
       bit:tbitmap;
begin
l:=math.min(200, math.max(2,round(strtoint(edit3.text)*zoom))); //т.е. нахожу величину курсора... юзалось для создания иммитации величины кисти для разного зума (редактор графический был)
bit:=tbitmap.create;
bit.Width:=l;
bit.Height:=l;
bit.PixelFormat:=pf4bit;
AndMask := TBitmap.Create;
AndMask.Monochrome := true;
AndMask.width:=l;
AndMask.height:=l;
AndMask.Canvas.Brush.Color := $ffffff;
AndMask.Canvas.pen.Color:=$ffffff;
AndMask.Canvas.FillRect(Rect(0, 0, bit.width, bit.height));

bit.Canvas.pen.color:=$0;
bit.Canvas.Brush.Color:=$0;
bit.Canvas.FillRect(Rect(0, 0, bit.width, bit.height));
bit.Canvas.pen.color:=$ffffff;
bit.Canvas.ellipse(Rect(0, 0, bit.width, bit.height));  

IconInfo.fIcon := true;
IconInfo.xHotspot := 1;
IconInfo.yHotspot := 1;
IconInfo.hbmMask := AndMask.Handle;
IconInfo.hbmColor := bit.Handle;
cur:=CreateIconIndirect(IconInfo); // вот тут мы создали курсор... по сути дальше можешь не смотреть. Т.е. тебе нужно сделать редактор битмапок с возможным прозрачным цветом, а потом просто-напросто преобразовать результат в курсор (да по сути в иконку).
AndMask.free;
bit.Free;
if brushmode_ then
begin
screen.Cursors[100]:=cur;
MyControl.Cursor:=100;
end else MyControl.Cursor:=crCross;
end;



--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
bartram
  Дата 2.11.2004, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: нет
Всего: 29
Цитата(AndreiBes @ 2.11.2004, 01:08)

а через 2 недели курсач сдавать

за две недели не успеешь :( , даже если бы ты знал что писать, а раз ты не знаешь тут ещё надо посидеть подумать :stena
Сложноватая темка :(

Это сообщение отредактировал(а) bartram - 2.11.2004, 22:51


--------------------
В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image 
PM MAIL ICQ   Вверх
MacTep
Дата 3.11.2004, 00:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: нет
Всего: 4
Попал ты парень. Я вот в Delphi сижу уже не две недели, а целый год, а сразу бы так и не накидал твою прогу. Так что отмазывайся от этого курсача как можешь! :) А писать за тебя здесь никто не будет! Вот такая беда! :(


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
S.A.P.
Дата 3.11.2004, 00:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 71
В демках Delphi должен быть простой графический редактор. Его спокойно можно переделать в редактор курсоров.

Это сообщение отредактировал(а) Perchilla - 3.11.2004, 00:36
PM MAIL   Вверх
Medved
Дата 3.11.2004, 00:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: нет
Всего: 154
Модератор: Постите темы в соответствующий раздел!


--------------------
http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...
PM MAIL WWW ICQ Skype GTalk   Вверх
shurik247
Дата 7.11.2004, 04:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Ну вы че мужики, помогите человеку. Ему нужно то простейший редактор, в котором можно карандашом, линией и прямоугольником рисовать. И курсоры достаточно 16-ти цветные.

Я-то не могу, сам еще свой курсач не дописал... smile

А вот хорошая ссылка в тему
http://kainsk.tomsk.ru/g2003/sys26/oswin.htm
PM MAIL   Вверх
Zero
Дата 7.11.2004, 10:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата
Попал ты парень. Я вот в Delphi сижу уже не две недели, а целый год, а сразу бы так и не накидал твою прогу. Так что отмазывайся от этого курсача как можешь!  А писать за тебя здесь никто не будет! Вот такая беда!

Мастер чё ты так обезнадёживаешь, человека, ему и так не легко, сейчас... smile
И с чего ты взял что курсач нельзя сделать за 2 недели, я например в том семестре, курсач по ТОЭ за 3 дня, сделал, правда я там знал, что писать, но я думая AndreiBes, быстро догадается как что делать, не такая уж и сложная та у него тема... smile
А графический редактор, это вообще можно за час накатать...
PM MAIL ICQ   Вверх
Dmi-Afonin
Дата 7.11.2004, 13:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Zero ты прав как никогда, я тоже думаю, что AndreiBes справиться, ведь не балбес же он.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

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

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

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

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

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

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


 




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


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

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