/*
 * Xailer source code:
 *
 * FlatBtn.prg
 * Control TFlatBtn
 *
 * Copyright 2003, 2013 Jose F. Gimenez
 * Copyright 2003, 2013 Xailer.com
 * All rights reserved
 *
 */

#include "Xailer.ch"


//--------------------------------------------------------------------------

CLASS XFlatBtn FROM TBtnBmp

PUBLISHED:
   PROPERTY nClrPane
   PROPERTY nClrHot     INIT clBtnFace    EDITOR PE_Color
   PROPERTY nClrTextHot INIT clWindowText EDITOR PE_Color
   PROPERTY nFlatStyle  INIT fsNONE

PUBLIC:
   PROPERTY lFlat
   PROPERTY lXPLook

RESERVED:
   METHOD WMPaint()

PROTECTED:
   DATA nCtlStyle INIT nOr( WS_CHILD, WS_CLIPCHILDREN, WS_CLIPSIBLINGS )
   DATA lHot      INIT .F.

ENDCLASS

//--------------------------------------------------------------------------