Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
CheckBox.bi
| Uploader: |  OneCypher |
| Datum/Zeit: | 20.09.2009 17:11:35 |
Hinweis: Dieser Quelltext ist Bestandteil des Projekts GuiPtr, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.
Warnung: Es steht bereits eine neuere Version des Quelltexts zur Verfügung. Die hier vorliegende alte Version könnte Fehler enthalten, die in der neuen Version vielleicht ausgebessert wurden.
Type CheckBox
Object as GuiObject ptr
Value as Ubyte
Caption as String
declare Constructor(left as integer, top as integer, CBCaption as string, CBValue as ubyte = 0)
end type
Sub DrawCheckBox(GO as any ptr)
dim CB as CheckBox ptr = GO
with *CB->Object
draw string .Buffer,(.left+ 17, .top+1), CB->Caption, RGB(0,0,0)
line .Buffer, (.left,.top)-(.left+14,.top + 14),RGB(0,0,0),B
if CB->Value = 1 then
line .Buffer, (.left+2,.top+2)-(.left+12,.top + 12),RGB(0,0,0)
line .Buffer, (.left+12,.top+2)-(.left+2,.top + 12),RGB(0,0,0)
end if
end with
end sub
Sub CBChangeValue(GO as any ptr, e as EventParameter)
dim CB as CheckBox ptr = GO
if CB->Value = 0 then
CB->Value = 1
else
CB->Value = 0
end if
end sub
Constructor CheckBox(left as integer, top as integer, CBCaption as string, CBValue as ubyte = 0)
Object = New GuiObject(@This)
with *Object
.ClassName = "CheckBox"
.left = left
.top = top
.width = 16 + (len(CBCaption) * 8)
.height = 14
.PrivateEvents = new Events
with *.PrivateEvents
.OnDraw = @DrawCheckBox
.SingleClick = @CBChangeValue
.DoubleClick = @CBChangeValue
end with
end with
Caption = CBCaption
Value = CBValue
end constructor