GetLineSettings: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
(Created page with "Vrací aktuální styl čáry, vzorek čáry a tloušťku čáry, jak byly nastaveny procedurou SetLineStyle. ;Deklarace procedure GetLineSettings(var LineInfo: LineSett...") |
m (1 revízia: Unit Graph) |
(Žádný rozdíl)
|
Aktuální verze z 4. 10. 2012, 17:01
Vrací aktuální styl čáry, vzorek čáry a tloušťku čáry, jak byly nastaveny procedurou SetLineStyle.
- Deklarace
procedure GetLineSettings(var LineInfo: LineSettingsType);
- Režim
- Reálný, Chráněný
- Omezení
- Je nutno být v grafickém režimu.
- Viz také
- DrawPoly
Vzorový příklad
{Getlnset.PAS} {Vzorový příklad pro proceduru GetLineSetting.} uses Graph; var Gd, Gm: Integer; OldStyle: LineSettingsType; begin Gd := Detect; InitGraph(Gd, Gm, ' '); if GraphResult <> grOk then Halt(1); Line(0, 0, 100, 0); GetLineSettings(OldStyle); SetLineStyle(DottedLn, 0, ThickWidth); { Nový styl } Line(0, 10, 100, 10); with OldStyle do { Obnovení starého stylu čáry } SetLineStyle(LineStyle, Pattern, Thickness); Line(0, 20, 100, 20); Readln; CloseGraph; end.