Here are some of the gadget files. I will write some simple instructions and post them at the end.
(Save as G_Label.hws )
Code: Select all
; ************************************************************************************************
; Gadget Include
; GadgetLabel - Text only gadget. Read, Write no Input.
; Gadget Type = 1
; By Leo den Hollander
; *************************************************************************************************
Function GadgetLabel(GID,x,y,w,h,Text$,Border)
GadgetBColor[GID] = BGC
GadgetFColor[GID] = FGC
If Border = 0
SetFillStyle(#FILLCOLOR)
Box(x, y, w, h, ScreenC)
GadgetBColor[GID] = ScreenC
ElseIf Border = 1
SetFillStyle(#FILLCOLOR)
Box(x, y, w, h, BGC)
ElseIf Border = 2
SetFillStyle(#FILLCOLOR)
Box(x, y, w, h, #BLACK)
Box(x+1, y+1, w-2, h-2,BGC)
EndIf
SetFont(Font,Size)
SetFontColor(FGC)
TextOut(x+4,y+3,Text$)
GadgetX[GID] = x
GadgetY[GID] = y
GadgetW[GID] = w
GadgetH[GID] = h
GadgetText[GID] = Text$
GadgetType[GID] = 1
GadgetState[GID] = 0
GadgetBorder[GID] = Border
GadgetRangeLow[GID] = 0
GadgetRangeHigh[GID] = 0
GadgetGroup[GID] = 0
GadgetItemCount[GID] = 0
GadgetItem[GID][0][0] = ""
GadgetFont[GID] = Font
GadgetFontSize[GID] = Size
MaxGadgets = MaxGadgets + 1
EndFunction
Code: Select all
; ************************************************************************************************
; Gadget Include
; GadgetString - String. Read, Write and Input.
; Gadget Type = 2
; By Leo den Hollander
; *************************************************************************************************
Function GadgetString(GID, x, y, w, h, Text$)
SetFillStyle(#FILLCOLOR)
Box(x, y, w, h, #SILVER)
Box(x+2, y+2, w-4, h-4, #WHITE)
SetFillStyle(#FILLNONE)
Line(x+1, y+1, x+w-2, y+1, #BLACK)
Line(x+1, y+1, x+1, y+h-2, #BLACK)
Line(x+w-2, y+1, x+w-2, y+h-2, RGB(224,224,224))
Line(x+1, y+h-2, x+w-2, y+h-2, RGB(224,224,224))
TextOut(x+4, y+3, Text$)
MakeButton(GID, #SIMPLEBUTTON, x, y, w, h, Gadget)
GadgetX[GID] = x
GadgetY[GID] = y
GadgetW[GID] = w
GadgetH[GID] = h
GadgetText[GID] = Text$
GadgetType[GID] = 2
GadgetState[GID] = 0
GadgetBorder[GID] = 0
GadgetRangeLow[GID] = 0
GadgetRangeHigh[GID] = 0
GadgetGroup[GID] = 0
GadgetItemCount[GID] = 0
GadgetItem[GID][0][0] = ""
GadgetFont[GID] = Font
GadgetFontSize[GID] = Size
GadgetBColor[GID] = #WHITE
GadgetFColor[GID] = FGC
MaxGadgets = MaxGadgets + 1
EndFunction
Code: Select all
; ************************************************************************************************
; Gadget Include
; Gadget Button - Input.
; Gadget Type = 3
; By Leo den Hollander
; *************************************************************************************************
Function GadgetButton(GID, x, y, w, h, Text$)
SetLineWidth(1)
SetFillStyle(#FILLCOLOR) ; Gadget bevel
Box(x, y, w, h, #SILVER) ; Draw bevel
SetFillStyle(#FILLNONE) ; BC fill drawing
Line(x+1, y+1, x+w-2, y+1,RGB(224,224,224)) ; Inner bevel
Line(x+1, y+1, x+1, y+h-2,RGB(224,224,224)) ; Inner bevel
Line(x+w-2, y+1, x+w-2, y+h-2, #BLACK) ; Inner bevel
Line(x+1, y+h-2, x+w-2, y+h-2, #BLACK) ; Gadget face
SetFont(Font,Size) ; Font used on gadget face
Local TW = TextWidth(Text$) ; size of text on gadget face
Local BW =(w / 2) - (TW / 2) ; Centre text position
Local TH = TextHeight(Text$) ; size of text on gadget face
Local BH =(h / 2) - (TH / 2)
SetFontColor(FGC) ; Text colour
TextOut(x + BW,y + BH, Text$)
MakeButton(GID, #SIMPLEBUTTON, x, y, w, h, Button)
GadgetX[GID] = x
GadgetY[GID] = y
GadgetW[GID] = w
GadgetH[GID] = h
GadgetText[GID] = Text$
GadgetType[GID] = 3
GadgetState[GID] = 0
GadgetBorder[GID] = 0
GadgetRangeLow[GID] = 0
GadgetRangeHigh[GID] = 0
GadgetGroup[GID] = 0
GadgetItemCount[GID] = 0
GadgetItem[GID][0][0] = ""
GadgetFont[GID] = Font
GadgetFontSize[GID] = Size
GadgetBColor[GID] = BGC
GadgetFColor[GID] = FGC
MaxGadgets = MaxGadgets + 1
EndFunction