Zobrazení zdroje stránky 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 [[Styly čar - konstanty|konstanty stylů čar]].

:LineStyle je hodnota od SolidLn do UserBitLn (0..4), Pattern je ignorován, jestliže LineStyle se nerovná [[Styly čar - konstanty|UserBitLn]], a Thickness je [[Styly čar - konstanty|NormWidth]]  nebo [[Styly čar - konstanty|ThickWidth]] . Když LineStyle se rovná [[Styly čar - konstanty|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.
[[Category:Graph]]
[[Category:Procedúry Graph]]