Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];

Вниз

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

 
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]

млин... :(


 
StriderMan ©   (2006-11-20 09:09) [17]

TBevel



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

Форум: "Начинающим";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.043 c
2-1164171884
DROWSY
2006-11-22 08:04
2006.12.10
Connecting... Failed!


9-1135854478
Аццкий_рыцарь:)
2005-12-29 14:07
2006.12.10
DoCollision B DelphiX


2-1164273589
webpauk
2006-11-23 12:19
2006.12.10
array


15-1164009374
cyborg
2006-11-20 10:56
2006.12.10
Нет доступа к рабочей группе


15-1164108292
V.I.P
2006-11-21 14:24
2006.12.10
Нужно сделать программу за $$$





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский