Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TLabel [D7, 2003]

ванъка © (2008-07-29 14:06:00)
Не сталкивался с такой ситуацией, подскажите как мне действовать. Хочу сделать визуальный наследник обычного TLabel, но с подчеркиванием снизу в виде "тире пропуск тире" (- - - - -) , а не сплошной линией. Ну и хочу что бы длина этого подчеркивания автоматически вычислялась исходя из длины текста в TLabel.

В какую сторону копать?

ванъка (2008-07-29 22:02:00) [1]
Мда, это я затупил. Спасибо, все работает.

{RASkov} (2008-07-29 21:48:00) [2]
> [8] ванъка (29.07.08 21:41)

В Paint тебе доступна канва рисования, но ее размер выставляется не в Paint. Ты сделай канву больше(т.е. размер самого TNewLabel) и рисуй где хочешь в пределах его канвы.
А пока ты пытаешься рисовать вне области TNewLabel...

ванъка (2008-07-29 21:41:00) [3]
Спасибо еще раз рекомендации. Но я опять не могу справиться с пустяком: даже в перекрытом Paintу меня не получается сделать пунктир ниже.

procedure TNewLabel.Paint; begin inherited; with Canvas do begin Pen.Style := psDot; MoveTo(...); LineTo(...); end; end;

?

{RASkov} (2008-07-29 18:40:00) [4]
... и размер нужно самому считать при autosize при ручном выставлении выставлять высоту чуть больше чем нужно, т.е. на сколько ниже должна быть полоса подчеркивания...(это если в одну строку, в более одной строки - немного сложнее)
Компонент с задуманным не сложен.... нужно просто внимательно посмотреть на код TCustomLabel и подправить необходимые методы...

Leonid Troyanovsky (2008-07-29 18:20:00) [5]

> ванъка (29.07.08 15:16) [5]

> Подскажете?

Тогда Paint, со всеми остановками.

--
Regards, LVT.

ванъка (2008-07-29 15:16:00) [6]

> Leonid Troyanovsky © (29.07.08 14:21) [3]

Огромное спасибо. Это то что нужно.

Один вопрос, я не понял каким образом можно нарисовать пунктир чуть ниже (я хочу что бы расстояние между пунктирной линией и словом было больше). Манипуляции с увеличением значений в ARect и MoveTo, LineTo не помогают.

Подскажете?

Игорь Шевченко (2008-07-29 14:30:00) [7]

> А вот в каком именно месте (в коде наследника TLabel) стоит
> заниматься рисованием?

можно в Paint, можно в DoDrawText

Leonid Troyanovsky (2008-07-29 14:21:00) [8]

> ванъка (29.07.08 14:17) [2]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1215345387&n=0

--
Regards, LVT.

ванъка (2008-07-29 14:17:00) [9]
Это я понял. А вот в каком именно месте (в коде наследника TLabel) стоит заниматься рисованием?

Игорь Шевченко (2008-07-29 14:07:00) [10]

> Ну и хочу что бы длина этого подчеркивания автоматически
> вычислялась исходя из длины текста в TLabel.

в сторону TLabel.Canvas.TextWidth

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »