VPF::как нарисовать линию из точек - Форум программистов

_hunter

Дата 5.9.2005, 13:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

рисую линию на канве формы так:

Код


    Canvas.Pen.Style := psDot;
    Canvas.Pen.Width := 0;

    Canvas.LineTo(ClientWidth, ClientHeight);

и вместо линии из точек получаю линию из черточек ( почему??? ):

как получить линию из точек?

Это сообщение отредактировал(а) _hunter - 5.9.2005, 13:15

--------------------

Tempora mutantur, et nos mutamur in illis...

Payne

Дата 5.9.2005, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Детектив

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 6.4.2005
Где: Петербург

Репутация: 4
Всего: 10

_hunter, в справке написано следующее:

Цитата

...
psDot - A line made up of a series of dots.
...

Для того, чтобы получить СПЛОШНУЮ линию из точек, используй тип psSolid.

FRAGNATIC

Дата 5.9.2005, 14:34 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

да это вообщем-то точки)
ты попробую psDash и поймёшь)

_hunter

Дата 5.9.2005, 14:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

странно... в справке у МС:

Цитата

PS_DOT The pen is dotted. This style is valid only when the pen width is one or less in device units.

( в родную как-то не глянул... )

мне нужна не сплошная а пунктирная ( та, что рисуется -- штриховая ) т.е. точка, пропуск, точка, ... ( типа этих трех точек )

--------------------

Tempora mutantur, et nos mutamur in illis...

Rrader

Дата 5.9.2005, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Тупо, но:

Код


Procedure TForm1.Button1Click(Sender: TObject);
Var
  WPen: HPen;
  WBrush: LOGBRUSH;
Begin
  FillChar(WBrush, SizeOf(WBrush), 0);
  WBrush.lbColor := clBlack;
  WBrush.lbStyle := BS_SOLID;
  WPen := ExtCreatePen(PS_GEOMETRIC Or PS_ENDCAP_SQUARE Or PS_DOT
    Or PS_JOIN_MITER, 1, WBrush, 0, NIL);
  Canvas.Pen.Handle := WPen;
  Canvas.LineTo(ClientWidth, ClientHeight);
  DeleteObject(WPen);
End;

И не ставь толщину кисти, равной 0, так как это значение игнорируется. smile

Это сообщение отредактировал(а) Rrader - 5.9.2005, 14:47

--------------------

Let's do this quickly!
Rest in peace, Vit!

_hunter

Дата 5.9.2005, 14:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

FRAGNATIC по сравнению с дашем это может и точка, но мне бы точки понормальнее получить smile

--------------------

Tempora mutantur, et nos mutamur in illis...

_hunter

Дата 5.9.2005, 14:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

Rrader, получилась простая линия...
( насчет толщины в 0 -- тоже от МС )
Добавлено @ 15:00
ага. глянул в справке что МС понимает под своим дот...
мрачно...
зато увидел PS_USERSTYLE. буду его юзать

--------------------

Tempora mutantur, et nos mutamur in illis...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »