fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2001-12-09 12:30 GMT+1 JFL (mafact) <jfl@mafact.com>

Browse Source
This commit is contained in:
Jean-Francois Lefebvre
2001-12-09 11:31:36 +00:00
parent 0f08b2cc92
commit 8269338a65
2 changed files with 36 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,4 +1,8 @@
2001-12-08 22:10 GMT-3 Luiz Rafael Culik <culik@sl.conex.net>
2001-12-09 12:30 GMT+1 JFL (mafact) <jfl@mafact.com>
* harbour/source/rtl/checkbox.prg
* Small typo corrected where nR became nT
001-12-08 22:10 GMT-3 Luiz Rafael Culik <culik@sl.conex.net>
* source/rtl/checkbox.prg
* Readded checkbox() function. (I've forget to redefine in previus commit

62
harbour/source/rtl/checkbox.prg
View File

@@ -56,42 +56,42 @@
#ifdef HB_COMPAT_C53
CLASS HBCHECKBOX
Data Buffer init .f.
Data Caption
Data CapRow
Data CapCol
Data Cargo
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 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 SetFocus()
MESSAGE Select() METHOD _Select()
METHOD KillFocus()
METHOD DisPlay()
endclass
METHOD New(nRow,nCol,cCaption)
METHOD New(nRow,nCol,cCaption)
Local cColor:=''
Local oCheck
::Buffer := .f.
::Caption := cCaption
::CapRow := nRow
::CapCol := nCol+3+1
::Col := nCol
::Buffer := .f.
::Caption := cCaption
::CapRow := nRow
::CapCol := nCol+3+1
::Col := nCol
if ( isdefcolor() )
::ColorSpec:="W/N,W+/N,W/N,W+/N"
::ColorSpec:="W/N,W+/N,W/N,W+/N"
else
cColor := SetColor()
::ColorSpec:= __guicolor(cColor, 5) + "," + ;
@@ -99,13 +99,13 @@ Local oCheck
"," + __guicolor(cColor, 4)
endif
::HasFocus := .f.
::Message := ""
::Row := nRow
::HasFocus := .f.
::Message := ""
::Row := nRow
::Style := "[û ]"
::Style := "[û ]"
::Typeout := .f.
::Typeout := .f.
return Self
@@ -145,12 +145,12 @@ Method KillFocus() CLASS HBCHECKBOX
endif
RETURN Self
Method Display() CLASS HBCHECKBOX
local cColor := SetColor(), nCurRow:= Row(), nCurCol:= Col(), ;
cOldStyle := ::Style, cCaption, nPos
cOldStyle := ::Style, cCaption, nPos
dispbegin()
if ( ::HasFocus )
@@ -223,6 +223,6 @@ function IsDefColor()
local cColor:=SETCOLOR()
Return ( ccolor== "W/N,N/W,N/N,N/N,N/W")
function Checkbox(nr,ncol,cCaption)
return HBCHECKBOX():new(nt, nCol, cCaption)
return HBCHECKBOX():new(nr, nCol, cCaption)
#endif