GadgetId() inerhalb einer Procedure ?

[silbersurfer]

Hallo Leute,
Ich bin es schon wieder, mit noch einen Problem

Mein Modul ist fertig und alles klappt.
Nun wollte Ich noch etwas verfeinern indem Ich das #PB_Any mit einbeziehe.
So das man wie gewohnt auch mit Enumeration Arbeiten kann

Also wollte ich das über ein Parameter einer Procedure übergeben nur dann bekomme Ich immer einen Fehler ???
GadgetID() geht so nicht in einer Procedure, vieleicht hat ja da einer eine Idee ?

Code: Alles auswählen

Procedure imgGadget(Gadget,x,y,b,h,img)
	Protected *this.GadgetImage	=	AllocateMemory(SizeOf(GadgetImage))
	If (Not *this)
		ProcedureReturn #False
	EndIf
	With *this
		If Gadget=#PB_Any	
			\Gadget=ImageGadget(gadget,x,y,b,h,img,#PB_Image_Raised)
		Else
			;\Gadget=GadgetID(Gadget)
			Debug GadgetID(Gadget)
		EndIf 
	EndWith	
EndProcedure	

[ts-soft]

Ich denke mal, Du meinst es so:

Code: Alles auswählen

Procedure imgGadget(Gadget,x,y,b,h,img)
   Protected *this.GadgetImage   =   AllocateMemory(SizeOf(GadgetImage))
   If (Not *this)
      ProcedureReturn #False
   EndIf
   With *this
      If Gadget=#PB_Any   
         \Gadget=ImageGadget(Gadget,x,y,b,h,img,#PB_Image_Raised)
      Else
        ImageGadget(Gadget,x,y,b,h,img,#PB_Image_Raised)
        \Gadget = Gadget
      EndIf
   EndWith   
EndProcedure    

[Danilo]

Oder ohne den doppelten Funktionsaufruf:

Code: Alles auswählen

Procedure imgGadget(Gadget, x, y, b, h, img)
    Protected *this.GadgetImage = AllocateMemory( SizeOf(GadgetImage) )
    If Not *this
        ProcedureReturn #False
    EndIf
    With *this
        \Gadget = ImageGadget(Gadget, x, y, b, h, img, #PB_Image_Raised)
        If Gadget <> #PB_Any   
            \Gadget = Gadget
        EndIf
    EndWith   
EndProcedure

[silbersurfer]

Ja das meinte Ich ts-soft,
Jetzt merke Ich, das Ich eindeutig zu lange Proggen bin, der Fehler hätte mir Echt auffallen müßen

Danke ts-soft

Edit: Jo das ist auch gut Danilo

[ts-soft]

Mit Danilos Version kannste auch eine Fehlerbehandlung einbauen, ungefähr so:

Code: Alles auswählen

Procedure imgGadget(Gadget, x, y, b, h, img)
  Protected *this.GadgetImage = AllocateMemory( SizeOf(GadgetImage) )
  If Not *this
    ProcedureReturn #False
  EndIf
  With *this
    \Gadget = ImageGadget(Gadget, x, y, b, h, img, #PB_Image_Raised)
    If \Gadget = 0 ; Error
      Debug "Can't create ImageGadget!"
      ; Procedure mit Fehlermeldung beenden
    ElseIf Gadget <> #PB_Any
      \Gadget = Gadget
    EndIf
  EndWith   
EndProcedure