Линия

← →
Palarm (2006-11-20 06:46) [0]

Как нарисовать линию в форме? В смысле на вкладке Standard есть GroupBox - прямоугольник, а вот линии нет.

← →
Думкин © (2006-11-20 06:49) [1]

Оригинально. Рисовать прямоугольник так.
TShape?

← →
ASoft (2006-11-20 07:48) [2]

> Palarm (20.11.06 06:46)

используя Canvas: LinTo(), MoveTo() или Polygon().. может еще что забыл.
PS: GroupBox по моему, для других целей предназначен. F1 тебе в помощь :)

← →
ASoft (2006-11-20 07:49) [3]

*LinTo() -> LineTo()

← →
Palarm (2006-11-20 07:58) [4]

В Ассеss по крайней мере таких проблем нет. Есть на вкладке прямоугольник и есть линия. Другое дело, что друго там почти ничего и нет. Но это другой вопрос.

← →
ASoft (2006-11-20 08:02) [5]

> Palarm (20.11.06 07:58) [4]

а на [1] внимание даже не обращаемс...

← →
ASoft (2006-11-20 08:03) [6]

сорри, ...знак вопроса не добавил к [5]

← →
Palarm (2006-11-20 08:16) [7]

Может я и тупой, но почему тогда:
procedure TForm1.FormCreate(Sender: TObject); begin Form1.Canvas.LineTo(100,100); Form1.Canvas.MoveTo(200,200); end;
жму F9 - нет ничего на форме!
Идиотский вопрос: МНЕ НАДО, ЧТОБЫ НА ФОРМЕ БЫЛА ГОРИЗОНТАЛЬНАЯ ЛИНИЯ.

← →
ASoft (2006-11-20 08:24) [8]

> Palarm (20.11.06 08:16) [7]

осторожней с подобными заявлениями, а то мастера проснутся и отдохнут на этой ветке :)
убери это из TForm1.FormCreate(Sender: TObject) и перенеси в TForm1.FormPaint(Sender: TObject).

← →
Palarm (2006-11-20 08:42) [9]

Вроде работает, а как нарисовать горизонтальную линию? И чтобы она была вдавленной. И потом, это что же выходит, чтоб чиркнуть черточку, мне надо ее программно заводить? Это типа как в старых графопостроителях чертили. Неужели нет просто контрола линия - взял и кинул его на форму и задал атрибуты. Чего то тут Борька не доработал...

← →
Anatoly Podgoretsky © (2006-11-20 08:49) [10]

> Palarm (20.11.2006 07:58:04) [4]

А ты можешь представить очень узкий прямоугольник?

← →
Anatoly Podgoretsky © (2006-11-20 08:50) [11]

> Palarm (20.11.2006 08:42:09) [9]

> И чтобы она была вдавленной.

И после этого ты ее называешь линией - это уже прямоугольник.

← →
ЮЮ © (2006-11-20 08:53) [12]

Чего то тут Борька не доработал..
Для батонокидателей есть TBevel (Shape = bs[Top|Bottom]Line) :)

← →
ASoft (2006-11-20 08:55) [13]

> Вроде работает, а как нарисовать горизонтальную линию?

а посмотреть параметры LineTo(), MoveTo() слабо? Ведь там же черным по английскому написано X и Y
попробуй
Form1.Canvas.MoveTo(200,100);// перемещаем Form1.Canvas.LineTo(100,100); // рисуем
и так до бесконечности :)
> И чтобы она была вдавленной.

можно проще, используй Bevel, поиграйся его свойством Shape

> чтоб чиркнуть черточку, мне надо ее программно заводить

и не только черточку :)

← →
ASoft (2006-11-20 08:59) [14]

ну, вот... проснулись... я, вроде, шепотом, чтоб не разбудить... :))

← →
Palarm (2006-11-20 08:59) [15]

Ура! Свершилось! При высоте=7 ГруппаБоксеров превращается в линию!

← →
ASoft (2006-11-20 09:00) [16]

> Palarm (20.11.06 08:59) [15]

млин... :(

TBevel

Линия Найти похожие ветки