|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Нужна помощь по курсовой работе
Всем привет, ребят, мне очень нужна помощь по курсовой работе.
Тема: Разработать компонент для редактирования графических файлов, реализовать функции осветления и затемнения, установки прозрачности, поворота на заданный угол, пошаговую отмену последнего действия. Обладаю очень малым количеством информации по теме, и даже не представляю с чего начать. Глянул как создавать компоненты, я так понял нужен компонент на основе Timage, но что делать дальше, не пойму, может кто поделится интересными ссылками на статьи или что-то подобное, что может помочь мне в написании курсовой. Буду рад, любой информации по теме. Спасибо. |
#3
|
||||
|
||||
Цитата:
Как-то на компонент не тянет. Слишком "просто" все Редактирование, спец. функции. Лучше Paint'а в Ole запихни, попроще будет . Лучше задавай вопросы по порядку, так легче будет что-нибудь объяснить, а то так сразу хоть готовый компонент пиши и выкладывай. |
#4
|
||||
|
||||
Цитата:
Вопросы: 1) Что писать внутри компонента? Желательно привести пример люого компонента обработки изображения. 2) Как проверить то что я написал? |
#5
|
||||
|
||||
Цитата:
2. в runtime создать объект Пишу программы за еду. __________________ |
#6
|
||||
|
||||
Цитата:
2. Я, например, при редактировании "уже готового" компонента довольствуюсь ctrl+shift+S,project- "Build all projects", "Compile all projects", run - изменения вступают в силу (правда не всегда, но как правило). Создаешъ самый примитивный компонент, устанавливаешь его в Делфи, бросаешь на форму а потом редактируешь. У меня на Delphi7 так катит. Приду сработыприведупример какого-нибудь компонента. |
#7
|
||||
|
||||
Вот например таков компонент на основе TGraphicControl - умеет загружать битмапы и вращать на определенный угол. Понятное дело, недоделанный
Но по сути, должно быть что-то такое. |
#8
|
||||
|
||||
Давайте лучше начнём с чего попроще, установка прозрачности.
Я тут на сайте нашел: Код:
procedure TForm1.Button1Click(Sender: TObject); var bm : TBitmap; il : TImageList; begin bm := TBitmap.Create; bm.LoadFromFile('C:\DownLoad\TEST.BMP'); il := TImageList.CreateSize(bm.Width,bm.Height); il.DrawingStyle := dsTransparent; il.Masked := true; il.AddMasked(bm, clRed); il.Draw(Form1.Canvas, 0, 0, 0); bm.Free; il.Free; end; Вот думаю как теперь под компонент переделать. Последний раз редактировалось Admin, 06.11.2012 в 22:52. |