SetLineStyle

Nastaví tloušťku a styl aktuální čáry.

Deklarace

procedure SetLineStyle(LineStyle: Word; Pattern: Word; Thickness: Word);

Režim

Reálný, Chráněný

Poznámky

Ovlivní všechny čáry, kreslené procedurami Line, LineTo, Rectangle, DrawPoly, Arc, atd.

Čára může být souvislá, tečkovaná, čárkovaná nebo čerchovaná. Při zadání neplatných parametrů vrací GraphResult hodnotu grError a aktuální nastavení čáry zůstávají nezměněny. Seznam konstant, používaných k určování stylů čar viz konstanty stylů čar.

LineStyle je hodnota od SolidLn do UserBitLn (0..4), Pattern je ignorován, jestliže LineStyle se nerovná UserBitLn, a Thickness je NormWidth nebo ThickWidth . Když LineStyle se rovná UserBitLn, čára se kreslí použitím 16-bitového vzorku, definovaného parametrem Pattern. Například jestliže Pattern = $AAAA, pak 16-bitový vzorek vypadá nějak takto:

1010101010101010         { NormWidth }
1010101010101010         { ThickWidth }
1010101010101010
1010101010101010

Omezení

Je nutno být v grafickém režimu.

Viz také

DrawPoly

GraphResult

Line

LineRel

LineTo

GraphResult

SetWriteMode

Vzorový příklad

{Setlnstl.PAS}
{Vzorový příklad pro proceduru SetLineStyle.}
uses Graph;
var
  Gd, Gm: Integer;
  X1, Y1, X2, Y2: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  X1 := 10;
  Y1 := 10;
  X2 := 200;
  Y2 := 150;
  SetLineStyle(DottedLn, 0, NormWidth);
  Rectangle(X1, Y1, X2, Y2);
  SetLineStyle(UserBitLn, $C3, ThickWidth);
  Rectangle(Pred(X1), Pred(Y1), Succ(X2), Succ(Y2));
  Readln;
  CloseGraph;
end.