Скачать: CL | DM;

Можно в 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 ?

---

← →
Никто ©   (2004-03-25 02:45) [8]

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

---

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.029 c