ClearViewPort: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
m (1 revízia: Unit Graph)
 
Řádek 8: Řádek 8:
  
 
;Poznámky
 
;Poznámky
:[[ClearViewPort]] nastaví výplňovou barvu na barvu pozadí ([[Palette]] [0]) a přemístí aktuální ukazatel do bodu (0, 0).
+
:[[ClearViewPort]] nastaví výplňovou barvu na barvu pozadí ([[PaletteType|Palette]] [0]) a přemístí aktuální ukazatel do bodu (0, 0).
  
 
;Omezení
 
;Omezení

Aktuální verze z 6. 10. 2012, 20:13

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
GetViewSettings
SetViewPort


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.