ellipse

Funkce

Jednoduchý grafický symbol - elipsa, které lze pomocí nativních procedur nastavovat barvu, velikost a pozici.


Syntax

  ellipse ellipse_name;
    rem = string;
    bubble = string;
    owner = owner_name;
    position = integer, integer, integer, integer;
    win_disable = [identifier, . . . ];
    win_title = string;
    blink = boolean_expression;
    blink_rate = identifier;
    mode = identifier;
    colors
      interior = color;
      border = color;
    end_colors;
    blink_colors
      interior = color;
      border = color;
    end_blink_colors;
  end_ellipse;


Specifické parametry přístroje

Implicitně jsou nastaveny parametry:

   position = 0, 0, 40, 40;
   mode = interior_and_border;

Příklad

Příklad nastavení parametrů přístroje ellipse:

  ellipse znak_1;
    owner = panel_1;
    position = 25, 15, 180, 120;
  end_ellipse;

Nativní procedury přístroje ellipse

MoveTo( XPosition, YPosition : real )

Posunutí přístroje na pozici x, y. Velikosti hodnot x a y jsou v bodech obrazovky.


NewRect( XPosition, YPosition, WPosition, DPosition : real )

Zavoláním metody je možné přístroji změnit současně jeho pozici a velikost. Hodnoty x, y, width, a depth jsou v bodech obrazovky.


Hide()

Skrytí viditelného přístroje.


Show()

Zobrazení skrytého přístroje.


SetInteriorColor( Red, Green, Blue : real )

Nastavení barvy pro výplň symbolu. Čtyřiadvacetibitová barva je zadána v podobě red, green a blue složky, kdy každá může nabývat hodnot od 0 do 255.


SetBorderColor( Red, Green, Blue : real )

Nastavení barvy pro okraj symbolu. Čtyřiadvacetibitová barva je zadána v podobě red, green a blue složky, kdy každá může nabývat hodnot od 0 do 255.


Blink( BlinkingActive : boolean )

Zapnutí a vypnutí blikání. Voláním procedury Blink s parametrem BlinkingActive nastaveným na true začne přístroj blikat (tj. střídavě se překreslovat s použitím barevných sad colors a blink_colors). Blikání je možno zastavit voláním procedury Blink s parametrem BlinkingActive nastaveném na hodnotu false. Frekvence blikání je dána parametrem přístroje blink_rate.


ToggleBlink()

Přepnutí vzhledu přístroje do alternativní sady barev, tedy z colors do blink_colors nebo naopak podle okamžitého stavu. Po zastavení blikání se přístroj vždy vrátí do standardní barevné sady bez ohledu na předchozí volání procedury ToggleBlink.

Událostní procedury přístroje ellipse

Přístroj může volat standardní událostní procedury:


OnActivate()
OnMouseDown( MouseX, MouseY : integer; LeftButton, MiddleButton, RightButton : boolean )
OnMouseDoubleClick( MouseX, MouseY : integer; LeftButton, MiddleButton, RightButton : boolean )
OnMouseUp( MouseX, MouseY : integer; LeftButton, MiddleButton, RightButton : boolean )
OnMouseMove( MouseX, MouseY : integer; LeftButton, MiddleButton, RightButton : boolean )
OnKeyDown( Character : cardinal )
OnKeyRepeat( Character : cardinal )
OnKeyUp( Character : cardinal )
OnSelect()
OnDeselect()
OnShow()
OnHide()
OnNewPosition( RectX, RectY, RectW, RectD : integer )
OnWindowMinimize()
OnWindowMaximize()
OnWindowRestore( WasMinimized, WasMaximized : boolean )
OnWindowClose()

Specifické událostní procedury přístroje

Přístroj nemá specifické událostní procedury.