как сделать, чтобы полукруг был пунктирным?

[gylayko]

Создаю рисунок в графическом режиме, там есть полукруг, мне нужно, чтобы он был пунктирным? я написал Arc(250,200,0,180,50); что дальше?

[gylayko]

что, никто не знает??

[gylayko]

когда пишу SetLineStyle нифига не происходит, линия сплошная!

[Mad_Cat]

SetLineStyle

когда пишу SetLineStyle нифига не происходит, линия сплошная!

покажи параметры SetLineStyle

SetLineStyle(DashedLn,$С3,1); // так попробуй

[gylayko]

вот

SetLineStyle(DashedLn,2,1);
Arc(250,200,0,180,50);

[gylayko]

попробовал DashedLn,$С3,1 ничего не поменялось!

[Serge_Bliznykov]

в Паскаль в процедурах Arc/Circle вид линии игнорируется (берётся только цвет и толщина установленной линии).

поэтому прерывистую линию можно органировать самостоятельно.
например, так:

  for i:=1 to 45 do
    if odd(i) then
      Arc(250,200,(i-1)*4,i*4,50);

или так:

  for i:=1 to 20 do
    if i=20 then Arc(250,200,(i-1)*9,i*9,50)
    else
      if odd(i)  then
         Arc(250,200,(i-1)*9,i*9,50);

в это случае "штришок" на угле 180 градусов рисуем принудительно...

а можно и точечками нарисовать дугу - математика там совсем несложная..

[gylayko]

спасибо огромное!