Шаблон  FlatButton

При помощи шаблона  FlatButton  можно сделать все кнопки "плоскими" во всем приложении сразу.
Этот шаблон взят из набора шаблонов TINTOOLS  (c) 1996,97 By Tinman Development Corp (All Rights Reserved World Wide)

#EXTENSION(FlatButton,'Flat Buttons')
#IMAGE('TINTOOLS.ICO'),AT(10,20)
#DISPLAY('Tinman Development Corp.'),AT(40,20)
#DISPLAY
#PROMPT('All Buttons Flat',CHECK),%TINALLBUTFLAT,AT(10)
#DISPLAY('')
#ENABLE(NOT %TINALLBUTFLAT)
  #BUTTON('Buttons'),MULTI(%TINSAVENUM,%TINBUTQUE),INLINE
    #PROMPT('Button:',FROM(%CONTROL,%CONTROLTYPE = 'BUTTON')),%TINBUTQUE,AT(30)
  #ENDBUTTON
#ENDENABLE
#AT(%AfterWindowOpening),WHERE(%CWVERSION > 2003)
#IF(%TINALLBUTFLAT)
  LOOP X#=FIRSTFIELD() TO LASTFIELD()
    IF %WINDOW$X#{Prop:Type} = CREATE:button THEN
      %WINDOW$X#{Prop:Flat} = TRUE
    END
  END
#ELSE
  #FOR(%TINSAVENUM)
  %TINBUTQUE{Prop:Flat} = TRUE
  #ENDFOR
#ENDIF
#ENDAT