285 lines
6.5 KiB
Plaintext
285 lines
6.5 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* CHECKBOX class
|
|
*
|
|
* Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this software; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
#include "common.ch"
|
|
#include "hbsetup.ch"
|
|
#include "hbclass.ch"
|
|
#include "button.ch"
|
|
|
|
#ifdef HB_COMPAT_C53
|
|
|
|
CLASS HBCHECKBOX
|
|
|
|
Data Buffer init .f.
|
|
Data Caption
|
|
Data CapRow
|
|
Data CapCol
|
|
Data Cargo
|
|
Data Col
|
|
Data colorspec
|
|
Data FBlock
|
|
Data HasFocus init .f.
|
|
Data Message init ""
|
|
Data Row
|
|
Data SBlock
|
|
Data Style init "[û ]"
|
|
Data lCursor
|
|
Data Typeout init .f.
|
|
DATA ClassName init "CHECKBOX"
|
|
|
|
METHOD New(nRow,nCol,cCaption)
|
|
METHOD SetFocus()
|
|
MESSAGE Select() METHOD _Select()
|
|
METHOD KillFocus()
|
|
METHOD DisPlay()
|
|
METHOD HitTest(nRow,nCol)
|
|
|
|
ENDCLASS
|
|
|
|
METHOD New(nRow,nCol,cCaption)
|
|
Local cColor:=''
|
|
Local oCheck
|
|
|
|
::Buffer := .f.
|
|
::Caption := cCaption
|
|
::CapRow := nRow
|
|
::CapCol := nCol+3+1
|
|
::Col := nCol
|
|
|
|
if IsDefColor()
|
|
::ColorSpec:="W/N,W+/N,W/N,W+/N"
|
|
|
|
else
|
|
cColor := SetColor()
|
|
::ColorSpec:= __guicolor(cColor, 5) + "," + ;
|
|
__guicolor(cColor, 2) + "," + __guicolor(cColor, 1) + ;
|
|
"," + __guicolor(cColor, 4)
|
|
|
|
endif
|
|
|
|
::HasFocus := .f.
|
|
::Message := ""
|
|
::Row := nRow
|
|
|
|
::Style := "[û ]"
|
|
|
|
::Typeout := .f.
|
|
|
|
|
|
return Self
|
|
|
|
METHOD SetFocus() CLASS HBCHECKBOX
|
|
|
|
if !::HasFocus .AND. ISBLOCK( ( ::lCursor := setcursor(0), ;
|
|
::HasFocus := .T., ::display(), ::FBlock ) )
|
|
eval(::FBlock)
|
|
endif
|
|
|
|
return Self
|
|
|
|
METHOD _Select(lState) CLASS HBCHECKBOX
|
|
Local lStatus := ::Buffer
|
|
|
|
if ISLOGICAL( lState )
|
|
::Buffer := lState
|
|
|
|
else
|
|
::Buffer := !::Buffer
|
|
|
|
endif
|
|
|
|
if lStatus != ::Buffer .AND. ISBLOCK( ( ::display(), ::SBlock ) )
|
|
eval(::SBlock)
|
|
endif
|
|
|
|
return Self
|
|
|
|
METHOD KillFocus() CLASS HBCHECKBOX
|
|
|
|
if ::HasFocus
|
|
::HasFocus := .F.
|
|
|
|
if ISBLOCK( ::FBlock )
|
|
eval(::FBlock)
|
|
endif
|
|
|
|
::display()
|
|
|
|
setcursor(::lCursor)
|
|
|
|
endif
|
|
|
|
return Self
|
|
|
|
METHOD HitTest( nMouseRow, nMouseCol ) CLASS HBCHECKBOX
|
|
Local nPosAccel, nLenCaption
|
|
|
|
if nMouseRow != ::Row
|
|
elseif nMouseCol < ::Col
|
|
elseif nMouseCol < ::Col + 3
|
|
return HTCLIENT
|
|
endif
|
|
|
|
nLenCaption := Len(::Caption)
|
|
|
|
if ( nPosAccel := At("&", ::Caption) ) == 0
|
|
elseif nPosAccel < nLenCaption
|
|
nLenCaption--
|
|
endif
|
|
|
|
if nMouseRow != ::CapRow
|
|
elseif nMouseCol < ::CapCol
|
|
elseif nMouseCol < ::CapCol + nLenCaption
|
|
return HTCAPTION
|
|
endif
|
|
|
|
return 0
|
|
|
|
METHOD Display() CLASS HBCHECKBOX
|
|
Local cColor := SetColor(), nCurRow:= Row(), nCurCol:= Col(), ;
|
|
cOldStyle := ::Style, cCaption, nPos
|
|
|
|
DispBegin()
|
|
|
|
if ::HasFocus
|
|
set color to (__guicolor(::ColorSpec, 2))
|
|
else
|
|
set color to (__guicolor(::ColorSpec, 1))
|
|
endif
|
|
|
|
SetPos(::Row, ::Col + 1)
|
|
if ::Buffer
|
|
?? SubStr(cOldStyle, 2, 1)
|
|
else
|
|
?? SubStr(cOldStyle, 3, 1)
|
|
endif
|
|
|
|
set color to (__guicolor(::ColorSpec, 3))
|
|
|
|
SetPos(::Row, ::Col)
|
|
?? Left(cOldStyle, 1)
|
|
|
|
SetPos(::Row, ::Col + 2)
|
|
?? right(cOldStyle, 1)
|
|
|
|
if !Empty(cCaption := ::Caption)
|
|
if ( nPos := At("&", cCaption) ) == 0
|
|
elseif nPos == Len(cCaption)
|
|
nPos := 0
|
|
else
|
|
cCaption := stuff(cCaption, nPos, 1, "")
|
|
endif
|
|
|
|
SetPos(::CapRow, ::CapCol)
|
|
?? cCaption
|
|
|
|
if nPos != 0
|
|
set color to (__guicolor(::ColorSpec, 4))
|
|
SetPos(::CapRow, ::CapCol + nPos - 1)
|
|
?? SubStr(cCaption, nPos, 1)
|
|
endif
|
|
|
|
endif
|
|
DispEnd()
|
|
|
|
set color to (cColor)
|
|
SetPos(nCurRow, nCurCol)
|
|
|
|
return Self
|
|
|
|
|
|
|
|
function __GUICOLOR( cPair, nPos )
|
|
Local cColor := cPair, nPosition:=0, nCommaPos:=0
|
|
|
|
cColor := hb_ColorIndex( cPair, nPos-1 )
|
|
return cColor
|
|
|
|
function _CHECKBOX_( lState, cCaption, cMessage, cColor, FBlock, SBlock, cStyle)
|
|
Local oCheck
|
|
|
|
oCheck := HBCHECKBOX():New(Row(), Col(), cCaption)
|
|
|
|
if !ISNIL( oCheck )
|
|
|
|
oCheck:Select( lState )
|
|
oCheck:Caption := cCaption
|
|
|
|
if !( cColor == nil )
|
|
oCheck:ColorSpec := cColor
|
|
endif
|
|
|
|
oCheck:Message := cMessage
|
|
|
|
if !( cStyle == NIL )
|
|
oCheck:Style := cStyle
|
|
endif
|
|
|
|
oCheck:FBlock := FBlock
|
|
oCheck:SBlock := SBlock
|
|
|
|
endif
|
|
return oCheck
|
|
|
|
function IsDefColor()
|
|
Local cColor:=SETCOLOR()
|
|
|
|
Return ( cColor == "W/N,N/W,N/N,N/N,N/W" )
|
|
|
|
function Checkbox( nR, nCol, cCaption)
|
|
|
|
Default cCaption to ''
|
|
|
|
return HBCHECKBOX():New( nR, nCol, cCaption)
|
|
|
|
#endif
|