ClearViewPort
Verze z 4. 10. 2012, 17:01, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit Graph)
Smaže aktuální výřez.
- Deklarace
procedure ClearViewPort;
- Režim
- Reálný, Chráněný
- Poznámky
- ClearViewPort nastaví výplňovou barvu na barvu pozadí (Palette [0]) a přemístí aktuální ukazatel do bodu (0, 0).
- Omezení
- Je nutno být v grafickém režimu.
- Viz také
- ClearDevice
Vzorový příklad
{Clrvwprt.PAS} {Vzorový příklad pro proceduru ClearViewPort.} uses Graph; var Gd, Gm: Integer; begin Gd := Detect; InitGraph(Gd, Gm, ' '); if GraphResult <> grOk then Halt(1); Rectangle(19, 19, GetMaxX - 19, GetMaxY - 19); SetViewPort(20, 20, GetMaxX - 20, GetMaxY - 20, ClipOn); OutTextXY(0, 0, '<ENTER> smaže výřez:'); Readln; ClearViewPort; OutTextXY(0, 0, '<ENTER> ukončí program:'); Readln; CloseGraph; end.