1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Created page with "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..."
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.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;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.
[[Category:Graph]]
[[Category:Procedúry Graph]]
