rounded_box

Funkce

Jednoduchý grafický symbol - obdélník se zaoblenými rohy, kterému lze pomocí nativních procedur nastavovat barvu, velikost a pozici.


Syntax

  rounded_box rounded_box_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;
		radius = integer;
    colors
      interior = color;
      border = color;
    end_colors;
    blink_colors
      interior = color;
      border = color;
    end_blink_colors;
  end_rounded_box;


Specifické parametry přístroje

Implicitně jsou nastaveny parametry:

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

Příklad

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

  rounded_box znak_1;
    owner = panel_1;
    position = 25, 15, 180, 120;
  end_rounded_box;

Nativní procedury přístroje rounded_box

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 rounded_box

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.