Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Визуализация списка

Автор: CYBERDREAM 15.4.2008, 22:06

Доброго времени суток всем. Больше года сижу на шарпе, но дали задание на делфи. smile

У меня скоро встанет задача визуализациия двунаправленного списка. Какими средствами это будет наиболее удобно и красиво осуществить в приемлемые сроки, у меня это 4 дня. ( в Делфи почти ноль, но учить готов).
Должна быть возможность так же и контекстного меню для каждого узла списка. Буду рад услышать любое мнение smile

Автор: Alexeis 15.4.2008, 23:13

Узлы можно визуализировать при помощи компонента Tshape, кроме того понадобиться компонент TPopUpMenu. На обработчик OnMouseUp нужно будет повесить раскрытие меню. Примерно так

Код


procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

Узлы можно соединять простыми линиями рисуя их на канве того компонента где будут располагаться TShape.

Автор: CYBERDREAM 16.4.2008, 21:07

Спасибо за помощь. Встает еще вопрос такой: как определять при нажатии мыши, какой узел нужно изменить, т.е. получить объект этого самого узла

Автор: Alexeis 16.4.2008, 21:13

Так каждый обработчик принимает self - указатель на объект.

Автор: CYBERDREAM 16.4.2008, 22:14

Чтож, доберусь до прорисовки будет видно что к чем. Но в целом вопрос решен. Спасибо
P.S. я сосед из Тирасполя smile