Versions Compared

Old Version 2

changes.mady.by.user Rodrigo Rivero

Saved on

compared with

New Version Current

changes.mady.by.user user-eb51a

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

     Begin_Com Role(*EXTENDS #PRIM_WEB) Theme(#SYS_THEME) Height(313) Width(737)
        Define_Com Class(#PRIM_TBLO) Name(#Layout1)
        Define_Com Class(#PRIM_TBLO.Row) Name(#Layout1Row1) DisplayPosition(1) Parent(#Layout1)
        Define_Com Class(#PRIM_TBLO.Column) Name(#Layout1Column1) DisplayPosition(1) Parent(#Layout1)
        Define_Com Class(#PRIM_MD.RaisedButton) Name(#Button) Caption('Click') DisplayPosition(1) Left(80) Parent(#COM_OWNER) TabPosition(1) ThemeDrawStyle('MediumAccent') Top(40) Height(49) Width(129)
        Define_Com Class(#PRIM_MD.Badge) Name(#BadgeRed) Caption('1') Control(#Button) DisplayPosition(1) Height(20) IconAlignment(Center) TabPosition(1) TabStop(False) ThemeDrawStyle('MediumError') Top(-10) Width(20) Left(119) BadgeFlow(Left)
        Define_Com Class(#PRIM_MD.Badge) Name(#BadgeBlue) Caption('1') Control(#Button) DisplayPosition(2) Height(20) IconAlignment(Center) Left(99) TabPosition(2) TabStop(False) ThemeDrawStyle('MediumTitle') Top(-10) Width(20) BadgeFlow(Left) BadgeMarginRight(0)
        Define_Com Class(#Prim_nmbr) Name(#ClickCount)
        Evtroutine Handling(#Button.Click)
           #ClickCount += 1
           #BadgeRed := #ClickCount.AsString
           #BadgeRed.Visible := #ClickCount > 0
        Endroutine
     End_Com

See also

All Component Classes

Technical Reference