разработка компонента

[Bibendum]

Hi! на вас уповаю, так как на себя не приходится по причине отсутствия интелекта и органа, за него отвечающего...
скажу прямо: требуется курсовая работа.
Задание:
Разработать компонент «Пересекающиеся записки». На нажатии левой кнопки мыши на элементе управления в этом месте появляется записка случайной формы (квадрат или круг), на которой записано время создания записки. Записки нельзя перетаскивать, но можно изменять их размер (навести курсор мыши на край записки, нажать на левую кнопку мыши, перетащить, отпустить кнопку). Записки могут пересекаться и выходить за края элемента управления. При нажатии правой кнопки мыши по записке её цвет меняется на случайный. При изменении размера записки изображение курсора должно отличаться от заданного по умолчанию.
Свойства компонента:
«Цвет фона записок», «Формат времени» («13.10.07 10:25:01», либо «13 октября 2007 года в 10:25:01», либо «10:25:01»).
События компонента: «Размер записки изменён».
Разработать оконное приложение с тремя элементами управления «Пересекающиеся записки».

на помощь вашу уповаю...если что - пишите. Заранее благодарю))

[Marsel737]

Сообщение от Bibendum

На нажатии левой кнопки мыши на элементе управления в этом месте появляется записка случайной формы (квадрат или круг)...

Незнаю про какой элемент управления идет речь, и не знаю при чём тут разработка компонента, но могу предложить такой вариант, при клике по "Элементу управления" создаётся новая форма, причём без заголовка и рамки:

procedure CreateParams(var Params: TCreateParams); override;

...

procedure TfrmMain.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
    Style := (Style OR WS_POPUP) AND NOT WS_DLGFRAME;
end;

При этом форму мозно перетаскивать:

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ReleaseCapture;
 Perform( WM_SYSCOMMAND, $F012, 0 );
end;

Также в инете можеш найти, как создать круглую форму, потом при создании формы делаеш так, чтобы отобразилась дата создания формы:

procedure TForm1.Create(Sender: TObject);
begin
 Label1.Caption:=DateToStr(Date);
end;

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

[Bibendum]

thank's)).

[KantalSoft]

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

[Bibendum]

на Delphi.

[Aristarh Dark]

Пиши, обсудим реализацию
Контакты:
icq: 218413697
e-mail: aristarh.dark@gmail.com
---
С уважением
Иусов Сергей Николаевич aka Aristarh Dark

[usolya]

Сообщение от Bibendum

скажу прямо: требуется курсовая работа.
Задание:
Разработать компонент «Пересекающиеся записки». На нажатии левой кнопки мыши на элементе управления в этом месте появляется записка случайной формы (квадрат или круг), на которой записано время создания записки. Записки нельзя перетаскивать, но можно изменять их размер (навести курсор мыши на край записки, нажать на левую кнопку мыши, перетащить, отпустить кнопку). Записки могут пересекаться и выходить за края элемента управления. При нажатии правой кнопки мыши по записке её цвет меняется на случайный. При изменении размера записки изображение курсора должно отличаться от заданного по умолчанию.
Свойства компонента:
«Цвет фона записок», «Формат времени» («13.10.07 10:25:01», либо «13 октября 2007 года в 10:25:01», либо «10:25:01»).
События компонента: «Размер записки изменён».
Разработать оконное приложение с тремя элементами управления «Пересекающиеся записки».

на помощь вашу уповаю...если что - пишите. Заранее благодарю))

хотела бы тоже попросить помощи по этой курсовой...так что жду ответа и заранее спасибо

[mss]

icq 169527143