\    File: Buttons.f
\  Author: Jeff Kelm
\ Created: 17-Nov-1998
\ Updated: 31-Dec-1998
\ Generic Button classes



NEEDS BasicWin.f
CR .( Loading Button classes...)



\ ======================
\ Common Control Buttons
\ ======================

:Class BaseButton  <Super ChildWindow

   :M DefStyle: ( -- style)   \ default control style
      DefStyle: super
      ;M

   :M DefClassName: ( -- ClassName)   \ default class name
      Z" BUTTON"
      ;M

   :M DefSize: ( -- cx cy)   \ default window size
      72 24
      ;M

   :M DefPosition: ( -- x y)   \ default window position
      50 50
      ;M

\   :M SetText: ( lpString)
\      rel>abs GetHandle: self  Call SetWindowText  ?WinError
\      ;M

;Class



\ =====================
\ A standard pushbutton
\ =====================

:Class PushButton  <Super BaseButton

   :M DefStyle: ( -- style)   \ default control style
      DefStyle: super
      BS_PUSHBUTTON OR  BS_CENTER OR
      ;M

;Class



\ ==================================
\ A default (dark border) pushbutton
\ ==================================

:Class DefPushButton  <Super BaseButton

   :M DefStyle: ( -- style)   \ default control style
      DefStyle: super
      BS_DEFPUSHBUTTON OR  BS_CENTER OR
      ;M

;Class



\ ==========
\ A checkbox
\ ==========

:Class CheckBox  <Super BaseButton

   :M DefStyle: ( -- style)   \ default control style
      DefStyle: super
      BS_AUTOCHECKBOX OR  BS_CENTER OR
      ;M

;Class



\ ==============
\ A radio button
\ ==============

:Class RadioButton  <Super BaseButton

   :M DefStyle: ( -- style)   \ default control style
      DefStyle: super
      BS_AUTORADIOBUTTON OR  BS_CENTER OR
      ;M

;Class



\ =========================================
\ A group box (outline with optional title)
\ =========================================

:Class GroupBox  <Super BaseButton

   :M DefStyle: ( -- style)   \ default control style
      DefStyle: super
      BS_GROUPBOX OR  BS_CENTER OR
      ;M

;Class



\ ===============
\ A Bitmap button
\ ===============

:Class BitmapButton  <Super BaseButton

   :M DefStyle: ( -- style)   \ default control style
      DefStyle: super
      BS_BITMAP OR  BS_CENTER OR
      ;M

   :M SetImage: ( hBmp)   \ set the bitmap image to use with the button
      IMAGE_BITMAP BM_SETIMAGE SendMessage: self  DROP
      ;M

   :M GetImage: ( -- hBmp)   \ get the bitmap image used for the button
      0 IMAGE_BITMAP BM_GETIMAGE SendMessage: self
      ;M

;Class



\ ==============
\ An Icon button
\ ==============

:Class IconButton  <Super BaseButton

   :M DefStyle: ( -- style)   \ default control style
      DefStyle: super
      BS_ICON OR  BS_CENTER OR
      ;M

   :M SetImage: ( hIcon)   \ set the icon image to use with the button
      IMAGE_ICON BM_SETIMAGE SendMessage: self  DROP
      ;M

   :M GetImage: ( -- hIcon)   \ get the icon image used for the button
      0 IMAGE_ICON BM_GETIMAGE SendMessage: self
      ;M

;Class