Толщина пера в Shape - теряется Style

@desAlex · Регистрация: 12.11.2011

Author24 — интернет-сервис помощи студентам

Доброго времени суток участникам форума.
У меня небольшая проблема:
допустим на форме есть компонент Shape
при установке следующих свойств он выглядит так:

Delphi

      Shape1.Shape:=stCircle;
      Shape1.Brush.Color:=clBlue;
      Shape1.Brush.Style:=bsFDiagonal;
      Shape1.Pen.Color:=clMenuHighlight;
      Shape1.Pen.Style:=psDash;
     Shape1.Pen.Width:=1;

Название: 1.jpg
Просмотров: 48

Размер: 7.0 Кб

если же изменить толщину на 2: Shape1.Pen.Width:=2;
то теряется стиль (пунктир)
Название: 2.jpg
Просмотров: 48

Размер: 7.6 Кб

Вопрос - как же сделать так, чтобы толщина увеличилась, а пунктир остался?

@cotseec · 23.12.2014, 21:49

Сообщение от desAlex

как же сделать так, чтобы толщина увеличилась, а пунктир остался?

создавать свое перо со своим стилем Is it possible to change the size of a dash of a line?, т.к. штатные стили, за исключением psSolid не могут быть толще, чем 1

Vcl.Graphics.TPen.Style

Note: Dotted or dashed pen styles are not available when the Width property is not 1.

Vcl.Graphics.TPenStyle

psUserStyle
The pen uses a styling array supplied by the user.
Thus style is only valid for pens created with the ExtCreatePen API function. (See MS Windows SDK docs.)...

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	23.12.2014, 21:49	2
	Сообщение от desAlex как же сделать так, чтобы толщина увеличилась, а пунктир остался? создавать свое перо со своим стилем Is it possible to change the size of a dash of a line?, т.к. штатные стили, за исключением psSolid не могут быть толще, чем 1 Vcl.Graphics.TPen.Style Note: Dotted or dashed pen styles are not available when the Width property is not 1. Vcl.Graphics.TPenStyle psUserStyle The pen uses a styling array supplied by the user. Thus style is only valid for pens created with the ExtCreatePen API function. (See MS Windows SDK docs.)... 1