SetLineStyle

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

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.