PureBoard

Code: Alles auswählen

; Globale Style Parameter die später alle Instanzen einfärben soll
Global guiBkgColor.l = RGB( 200, 200, 200 )
Global guiTxtColor.l = RGB(   0,   0,   0 )
Global guiRdl1Color.l = RGB( 240, 240, 240 )
Global guiRdl2Color.l = RGB( 230, 230, 230 )
Global guiRdb1Color.l = RGB( 120, 120, 120 )
Global guiRdb2Color.l = RGB( 140, 140, 140 )
Global guiFontSize.l = 10
Global guiFontName.s = "ARIAL"
Global guiStyle.l = 0

; Zählt die gesamte aller verfügbaren Gadgets und identifiziert jedes einzelne über eine
; eindeutige Gadget-Nr
Global GID.l = 0

; Interface
; WARUM KANN MAN HIER EIGENTLICH KEINE VARIABLEN ANGEBEN?
; SOZUSAGEN ALS EIGENSCHAFTEN DES OBJEKTS?
Interface guiButton
    Type.s()
    Show.b()
    Name.l()
    Resize.b(w.l,h.l)
EndInterface

; INTERNE KRAM
Structure guiButton_Object
  VTable.l
  ID.l ; > SOLL EIGENTLICH DIE GID-NR des Gadgets enthalten und über Name() abrufbar sein
  Functions.l[SizeOf(guiButton)/4]
EndStructure

  ; GIBT AN, DAS ES SICH BEI DIESER KLASSE UM EIN BUTTON handelt
  Procedure.s guiButton__Type(*this.guiButton)
        ProcedureReturn "guiButton"
  EndProcedure

  ; ZEICHNET DEN GADGET AUF DEM SCHIRM
  ; WIESO KLAPPT ES MIT DEM FONTNAME und FONTSIZE NICHT?
  Procedure.b guiButton__Show(*this.guiButton)
      *object.guiButton_Object = AllocateMemory(SizeOf(guiButton_Object))
      Define t.s = "guiButton"
      Define p.l = GID : GID = GID + 1
      *object\ID = p
      Define w.l = 70 : Define h.l = 25
      Define ff.l = LoadFont(#PB_Any,guiFontName,guiFontSize)
      If CreateImage(p, w, h) And StartDrawing(ImageOutput(p))

        Box(0,0, w, h, guiBkgColor )
        Line( 0, 0, w-1, 1, guiRdl1Color )
        Line( 0, 0, 1, h-1, guiRdl1Color )
        Line( 0, h-1, w-1, 1, guiRdb1Color )
        Line( w-1, 0, 1, h, guiRdb1Color )

        If guiStyle = 0
          Line( 1, 1, w-2, 1, guiRdl2Color )
          Line( 1, 1, 1, h-2, guiRdl2Color )
          Line( 1, h-2, w-2, 1, guiRdb2Color )
          Line( w-2, 1, 1, h, guiRdb2Color )
        EndIf

        tx.l = (w - TextWidth(t)) / 2
        ty.l = (h - TextHeight(t)) / 2

        SetGadgetFont(p,ff)
        DrawText( tx, ty, t, guiTxtColor, guiBkgColor )

        StopDrawing()   
        ImageGadget(p, 0, 0, w, h, ImageID(p))
        ProcedureReturn #True 
      Else
        ProcedureReturn #False
      EndIf
  EndProcedure

  ; SOLL DIE GADGET NUMMER ZURÜCKGEBEN
  ; AN DIESER STELLE HABE ICH KEINE AHNUNG, WIE WEITER. ICH MUSS
  ; IRGENDWIE AN DIE "ID" in guiButton_Object, das beim Konstruktur
  ; ANGELEGT WIRD    
  Procedure.l guiButton__Name(*this.guiButton)
        ProcedureReturn 0 ; ?
  EndProcedure
  
  ; SOLL DEN GADGET AN HAND DES Gadget-Nr's resizen
  Procedure.b guiButton__Resize(*this.guiButton,*me.guiButton_Object,w.l,h.l)
        ;If IsGadget(*me\ID)
        ;    ResizeGadget(*me\ID,#PB_Ignore,#PB_Ignore,w,h)
        ;EndIf
        ProcedureReturn 0
  EndProcedure

  ; Konstructor
  Procedure guiButton()
    ; Function table
    *object.guiButton_Object = AllocateMemory(SizeOf(guiButton_Object))
    If *object=0: ProcedureReturn 0: EndIf
    
    *object\VTable  = *object+OffsetOf(guiButton_Object\Functions)
    *object\Functions[0] = @guiButton__Type()
    *object\Functions[1] = @guiButton__Show()
    *object\Functions[2] = @guiButton__Name()
    *object\Functions[3] = @guiButton__Resize()
    ProcedureReturn *object
  EndProcedure

; Testen
*obj1.guiButton = guiButton()
*obj2.guiButton = guiButton()

OpenWindow(0,60,60,200,200,"",#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget|#PB_Window_SizeGadget)

If *obj1 : *obj1\Show() : EndIf
If *obj2 : *obj2\Show() : EndIf

ResizeGadget(*obj1\Name(),#PB_Ignore,90,#PB_Ignore,#PB_Ignore)
ResizeGadget(*obj2\Name(),#PB_Ignore,50,#PB_Ignore,#PB_Ignore)

SetWindowTitle( 0, Str(*obj2\Name()) )

Repeat
  Event.l = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow

Code: Alles auswählen

*button1.klasse = klasse()
*button1.Show()

*button2.klasse = klasse()
*button2.Show()

resizegadget(button1.Name(),0,0,100,30)
resizegadget(button2.Name(),50,50,120,40)

Code: Alles auswählen

*gui.guiButton = guiButton()
Debug *gui\Name()   ; Hier wird *gui als Klassenobjekt verwendet

*guiObj.guiButton_Object = *gui   ; Die Speicheradresse kann aber auch mit der Object-Structure verwendet werden
Debug *guiObj\ID

Code: Alles auswählen

*guiObj.guiButton_Object = *gui
ProcedureReturn *guiObj\ID

Code: Alles auswählen

  ; Konstructor
  Procedure guiButton()
    ; Function table
    *object.guiButton_Object = AllocateMemory(SizeOf(guiButton_Object))
    If *object=0: ProcedureReturn 0: EndIf
   
    *object\VTable  = ?guiButton_Functions
    
    ProcedureReturn *object
    
    DataSection
      guiButton_Functions:
      Data.i @guiButton__Type(), @guiButton__Show(), @guiButton__Name(), @guiButton__Resize()
    EndDataSection
  EndProcedure