Можно в Delphi создать(нарисовать) инфологическую модель БД?

← →
n i t r o (2004-03-23 02:05) [0]

Народ, помогите! Нужно создать инфологическую модель базы данных со связями (просто графически это изобразить). Т.е нужно рисовать объекты (круглишки) и связи между ними(стрелочки). Возможно ли это сделать в Дельфи? Помогите, пожалуйста...

← →
Zacho © (2004-03-23 07:05) [1]

Возможно. RTFM TCanvas . Но в любом граф. редакторе это будет проще и удобнее. А уж если взять какой-нибудь CASE ...

:-)))

← →
Курдль © (2004-03-23 13:46) [2]

А TChart пробовали?
Если не подходит - запросто можно отрисовать самому.
Особенно, если рисунок разовый (не требует перемещений объектов, drag-n-drop и т.п.)

← →
n i t r o (2004-03-24 03:18) [3]

Рисунок разовый - но требует последовательного создания объектов: например создаю объект "Люди" он рисует мне кружок, с надписью люди, потом добавляю атрибут, он рисует чего-нить еще. Ну и в том же духе... получится такое сделать?

← →
Германн © (2004-03-24 03:49) [4]

Имхо, ищи редактор блок-схем, который тебя удовлетворит.

← →
n i t r o (2004-03-24 08:35) [5]

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

← →
Курдль © (2004-03-24 10:15) [6]

Delphi ничем не отличается от любых других сред. Использует самые разнообразные возможности ОС, API, GDI и т.п.
Надо нарисовать кружок - Ellipse(...), прямоугольничек - Rectangle(...), человечков - Poligon(...), картинку - Draw(...).
Самый удобный компонент для рисования - TImage (его не надо перерисовывать по каждому событию WM_ONPAINT).

← →
n i t r o (2004-03-25 02:32) [7]

Можете написать код чтобы по нажатию на button1 к примеру рисовал Ellipse ?

можем...но не хотим

← →
nejest (2004-03-25 11:48) [9]

2 Нитро
Не хотим делать, но из хелпа пример не жалко отправить

procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1 do begin
Canvas.Brush.Color := clRed;
Canvas.Brush.Style := bsDiagCross;
Canvas.Ellipse(0, 0, Image1.Width, Image1.Height);
end;
end;
Остальное смотри в списке методов Canvas

← →
Плохиш (2004-03-25 11:55) [10]

Кстати, сумма-то до сих пор не названа :-(

Можно в Delphi создать(нарисовать) инфологическую модель БД? Найти похожие ветки