VPF::Работа с графикой - Форум программистов

Mew

Дата 4.11.2004, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 16.8.2004
Где: Омск

Репутация: 1
Всего: 1

У меня есть рисунок, на котором изображается, нотный ряд. КАк сделать так чтобы пользователь сам добавлял нотки, и что по их расположение запоминалось. Чтобы он добавлял их именно на то место которое он хочет

Zero

Дата 4.11.2004, 18:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Я конечно незнаю, что именно ты подразумевал под словом нотки, но могу тебе предложить способ динамического создания объектов, в качестве которого ты можешь использовать ноты
(пример на кнопках, TSpeedButton)

Код


...
Uses ...,stdctrls, buttons;
...
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure ButtonClick(Sender: Tobject);  //Эту процедуру ты должен написать с учётом того что на форме нет соответствующего ей объекта, она отвечает за нажатие кнопок
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
...
Var
   i:integer;  //Координата по оси Х
...

Procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage((Sender as Tbutton).Caption); //Выдастся имя той кнопки на которую нажал
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   with Tbutton.Create(self) do
    begin
      Parent:=self;
      Onclick:=ButtonClick;
      Caption:='Кнопка-'+inttostr(i);
      left:=i;  //начальное положение кнопки
      i:=i+100; 
    end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  i:=10;
end; 
...

При этом на форме находится кнопка TButton,при нажатии которой создаётся новая кнопка, но ты можеш запихноть это в любую др. прцедуру, и сделать за место кнопок любой др. объект (ноты)

Это сообщение отредактировал(а) Zero - 4.11.2004, 18:52

<Spawn>

Дата 5.11.2004, 12:16 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 2
Всего: 64

MewМожно сделать так:
1)разбиваешь нотный ряд на прямоугольные боки(их не нужно отображать, просто ты должен знать положение каждой возможной ноты)
2)после чего анализируешь клик юзера по имаджу и функцией PtInRect проверяешь принадлежность текущего положения мыхи к какой либо ячейке
3)если все условия удовлетворительны, то рисуешь ноту(на пример при помощи BitBlt, в случае если она у тебя уже нарисована и лежит во внешнем графическом файле).

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »