Zobrazení libovolné ikony nebo textu. Objekt má pouze informační a dekorační význam. Nijak nepracuje s daty systému.
label label_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; icon = file_name; frame = integer; font = font_identifier, integer, style_identifier; text = string; font = font_identifier, integer, style_identifier; text = string; colors paper = color; ink = color; top_shadow = color; buttom_shadow = color; end_colors; blink_colors paper = color; ink = color; top_shadow = color; buttom_shadow = color; end_blink_colors; end_label;
Implicitní nastavení parametrů:
position = 0, 0; frame = 0;
Příklad nastavení parametrů přístroje label:
label owner = background; position = 120, 120; icon = round.ico; end_label;
MoveTo( XPosition, YPosition : real )Posunutí přístroje na pozici XPosition, YPosition. Velikosti hodnot x a y jsou v bodech obrazovky.
Hide()Skrytí viditelného přístroje.
Show()Zobrazení skrytého přístroje.
ClearText()Smazání veškerého textového obsahu přístroje.
AddText( Text, Font_Name : string; Font_Height : real; Font_Type : string)Přidání řádku textu k textovému obsahu přístroje.
SetDimension()Nastavení nového rozměru objektu po změně jeho textového obsahu. Voláním této procedury je nutno zakončit každý sled volání metody AddText. V rámci vykonávání procedury SetDimension je objekt v nové podobě vždy překreslen.
SetTextColor( Red, Ggreen, Blue : real )Nastavení nové barvy zobrazovaného textu. V rámci této metody je objekt překreslen s novou barvou textu.
GetPosition( &XPosition, &YPosition : real )Přečtení aktutální pozice objektu do datových elementů XPosition a YPosition.
GetPosition( &XPosition, &YPosition, &WPosition, &DPosition : number )Zjištění aktuální pozice a velikosti přístroje na obrazovce.
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.
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()
Přístroj nemá specifické událostní procedury.