TPen

← →
TAK (2006-02-25 11:30) [0]

Здравствуйте, Мастера!
У меня проблема. Надо получть кисть с прямыми краями. Типа PS_ENDCAP_SQUARE в ExtCreatePen. А стандартный TPen использует CreatePenIndirect. Не ужели полностью переписывать TPen :(

← →
Гаврила © (2006-02-25 11:35) [1]

А зачем тебе именно TPen такой? Нельзя использовать HPen?
Или, опять же, присвоить ему handle руками
Pen.Handle:=ExtCreatePen(..)
?

← →
TAK (2006-02-25 11:58) [2]

Просто уже существует в программе наследник от TPen. Но линиии рисуются с закруглёнными концами. Необходимо концы выпрямить с наименьшими изменениями кода.
" присвоить ему handle руками"... Можно поподробней? Я в графике не силён.

> " присвоить ему handle руками"... Можно поподробней? Я
> в графике не силён.

Вот непосредственно и выполнить этот код:
var
Pen: TPen; (или Pen: TSomePenDescendant)
..
Pen.Handle:=ExtCreatePen (тут указываешь нужные параметры, например PS_ENDCAP_SQUARE)
я это не проверял, попробуй - получится или нет

TPen Найти похожие ветки