finde den fehler nicht *heuel* aber er ist da

Tsuki-Namida · Beitrag von **Tsuki-Namida** » 28.07.2006 01:07

so bei miener anwendung bekomme ich in zeile 104 den fehler was mich erst recht wundert...

schaut bitte nach was das sein könnte... die meldung lautet:
#Gadget object not initialized

Code: Alles auswählen

Enumeration
  #Uhr_Window
EndEnumeration

Enumeration  
  #Timer_Stunde
  #Timer_Stunde_
  #Timer_Minute
  #Timer_Minute_
  #Timer_Monat
  #Timer_Monat_
  #Timer_Tag
  #Timer_Tag_
EndEnumeration

Global Image26
;Timer
Global Image27
Global Image28
Global Image29
Global Image30
Global Image31
Global Image32
Global Image33
Global Image34
Global Image35
Global Image36

Image26 = CatchImage(26, ?Image26)
;Timer
Image27 = CatchImage(27, ?Image27)
Image28 = CatchImage(28, ?Image28)
Image29 = CatchImage(29, ?Image29)
Image30 = CatchImage(30, ?Image30)
Image31 = CatchImage(31, ?Image31)
Image32 = CatchImage(32, ?Image32)
Image33 = CatchImage(33, ?Image33)
Image34 = CatchImage(34, ?Image34)
Image35 = CatchImage(35, ?Image35)
Image36 = CatchImage(36, ?Image36)
Image37 = CatchImage(37, ?Image37)

DataSection
Image26:
  IncludeBinary "G:\Programme\Programmieren\Pure Basic Quelltexte\Ro Theme\Image\Timer\Timer-BG.bmp"
;Timer
Image27:
  IncludeBinary "G:\Programme\Programmieren\Pure Basic Quelltexte\Ro Theme\Image\Timer\1.ico"
Image28:
  IncludeBinary "G:\Programme\Programmieren\Pure Basic Quelltexte\Ro Theme\Image\Timer\2.ico"
Image29:
  IncludeBinary "G:\Programme\Programmieren\Pure Basic Quelltexte\Ro Theme\Image\Timer\3.ico"
Image30:
  IncludeBinary "G:\Programme\Programmieren\Pure Basic Quelltexte\Ro Theme\Image\Timer\4.ico"
Image31:
  IncludeBinary "G:\Programme\Programmieren\Pure Basic Quelltexte\Ro Theme\Image\Timer\5.ico"
Image32:
  IncludeBinary "G:\Programme\Programmieren\Pure Basic Quelltexte\Ro Theme\Image\Timer\6.ico"
Image33:
  IncludeBinary "G:\Programme\Programmieren\Pure Basic Quelltexte\Ro Theme\Image\Timer\7.ico"
Image34:
  IncludeBinary "G:\Programme\Programmieren\Pure Basic Quelltexte\Ro Theme\Image\Timer\8.ico"
Image35:
  IncludeBinary "G:\Programme\Programmieren\Pure Basic Quelltexte\Ro Theme\Image\Timer\9.ico"
Image36:
  IncludeBinary "G:\Programme\Programmieren\Pure Basic Quelltexte\Ro Theme\Image\Timer\0.ico"
Image37:
  IncludeBinary "G:\Programme\Programmieren\Pure Basic Quelltexte\Ro Theme\Image\Timer\_.ico"
EndDataSection

Procedure Open_Uhr_Window()
hWnd    = OpenWindow(#Uhr_Window, 104, 193, 143, 142, #PB_Window_BorderLess ,"")
hBitmap = Image26
SkinWin(hWnd, hBitmap)
CreateGadgetList(WindowID(#Uhr_Window))
notused = OpenWindow(#PB_Any,0,0,0,0,#PB_Window_Invisible,"")
SetWindowLong_(WindowID(#Uhr_Window),#GWL_HWNDPARENT,WindowID(notused))
ImageGadget(#Timer_Stunde, 47, 40, 8, 13, Image37)
ImageGadget(#Timer_Stunde_, 56, 40, 8, 13, Image37)
ImageGadget(#Timer_Minute, 80, 40, 8, 13, Image37)
ImageGadget(#Timer_Minute_, 89, 40, 8, 13, Image37)
ImageGadget(#Timer_Monat, 51, 80, 8, 13, Image37)
ImageGadget(#Timer_Monat_, 60, 80, 8, 13, Image37)
ImageGadget(#Timer_Tag, 74, 80, 8, 13, Image37)
ImageGadget(#Timer_Tag_, 83, 80, 8, 13, Image37)
  EndProcedure
  
  
  
Time.l  = Date()
Stunde$ = FormatDate("%hh", Time)
Minute$ = FormatDate("%ii", Time)
Monat$  = FormatDate("%mm", Time)
Tag$    = FormatDate("%dd", Time)

If Time <> Temp
  temp = Time


;{ Stunde
;-Stunde
If Left(Stunde$, 1) = "1"      : SetGadgetState(#Timer_Stunde, Image27)
ElseIf Left(Stunde$, 1) = "2" : SetGadgetState(#Timer_Stunde, Image28)
ElseIf Left(Stunde$, 1) = "0" : SetGadgetState(#Timer_Stunde, Image36)
EndIf
If Right(Stunde$,1) = "1"      : SetGadgetState(#Timer_Stunde_, Image27)
ElseIf Right(Stunde$,1) = "2" : SetGadgetState(#Timer_Stunde_, Image28)
ElseIf Right(Stunde$,1) = "3" : SetGadgetState(#Timer_Stunde_, Image29)
ElseIf Right(Stunde$,1) = "4" : SetGadgetState(#Timer_Stunde_, Image30)
ElseIf Right(Stunde$,1) = "5" : SetGadgetState(#Timer_Stunde_, Image31)
ElseIf Right(Stunde$,1) = "6" : SetGadgetState(#Timer_Stunde_, Image32)
ElseIf Right(Stunde$,1) = "7" : SetGadgetState(#Timer_Stunde_, Image33)
ElseIf Right(Stunde$,1) = "8" : SetGadgetState(#Timer_Stunde_, Image34)
ElseIf Right(Stunde$,1) = "9" : SetGadgetState(#Timer_Stunde_, Image35)
ElseIf Right(Stunde$,1) = "0" : SetGadgetState(#Timer_Stunde_, Image36)
EndIf
;}
;EndIf

;{ Minute
;-Minute
If Left(Minute$, 1) = "1"      : SetGadgetState(#Timer_Minute, Image27)
ElseIf Left(Minute$, 1) = "2" : SetGadgetState(#Timer_Minute, Image28)
ElseIf Left(Minute$, 1) = "3" : SetGadgetState(#Timer_Minute, Image29)
ElseIf Left(Minute$, 1) = "4" : SetGadgetState(#Timer_Minute, Image30)
ElseIf Left(Minute$, 1) = "5" : SetGadgetState(#Timer_Minute, Image31)
ElseIf Left(Minute$, 1) = "0" : SetGadgetState(#Timer_Minute, Image36)
EndIf
If Right(Minute$, 1) = "1"     : SetGadgetState(#Timer_Minute_, Image27)
ElseIf Right(Minute$, 1) = "2" : SetGadgetState(#Timer_Minute_, Image28)
ElseIf Right(Minute$, 1) = "3" : SetGadgetState(#Timer_Minute_, Image29)
ElseIf Right(Minute$, 1) = "4" : SetGadgetState(#Timer_Minute_, Image30)
ElseIf Right(Minute$, 1) = "5" : SetGadgetState(#Timer_Minute_, Image31)
ElseIf Right(Minute$, 1) = "6" : SetGadgetState(#Timer_Minute_, Image32)
ElseIf Right(Minute$, 1) = "7" : SetGadgetState(#Timer_Minute_, Image33)
ElseIf Right(Minute$, 1) = "8" : SetGadgetState(#Timer_Minute_, Image34)
ElseIf Right(Minute$, 1) = "9" : SetGadgetState(#Timer_Minute_, Image35)
ElseIf Right(Minute$, 1) = "0" : SetGadgetState(#Timer_Minute_, Image36)
EndIf
;}
;EndIf

;{ Monat
;-Monat
If Left(Monat$, 1) = "1"      : SetGadgetState(#Timer_Monat, Image27)
ElseIf Left(Monat$, 1) = "2" : SetGadgetState(#Timer_Monat, Image28)
EndIf
If Right(Monat$, 1) = "1"      : SetGadgetState(#Timer_Monat_, Image27)
ElseIf Right(Monat$, 1) = "2" : SetGadgetState(#Timer_Monat_, Image28)
ElseIf Right(Monat$, 1) = "3" : SetGadgetState(#Timer_Monat_, Image29)
ElseIf Right(Monat$, 1) = "4" : SetGadgetState(#Timer_Monat_, Image30)
ElseIf Right(Monat$, 1) = "5" : SetGadgetState(#Timer_Monat_, Image31)
ElseIf Right(Monat$, 1) = "6" : SetGadgetState(#Timer_Monat_, Image32)
ElseIf Right(Monat$, 1) = "7" : SetGadgetState(#Timer_Monat_, Image33)
ElseIf Right(Monat$, 1) = "8" : SetGadgetState(#Timer_Monat_, Image34)
ElseIf Right(Monat$, 1) = "9" : SetGadgetState(#Timer_Monat_, Image35)
ElseIf Right(Monat$, 1) = "0" : SetGadgetState(#Timer_Monat_, Image36)
EndIf
;}
;EndIf

;{ Tag
;-Tag
If Left(Tag$, 1) = "1"      : SetGadgetState(#Timer_Tag, Image27)
ElseIf Left(Tag$, 1) = "2" : SetGadgetState(#Timer_Tag, Image28)
ElseIf Left(Tag$, 1) = "3" : SetGadgetState(#Timer_Tag, Image29)
EndIf
If Right(Tag$, 1) = "1"     : SetGadgetState(#Timer_Tag_, Image27)
ElseIf Right(Tag$, 1) = "2" : SetGadgetState(#Timer_Tag_, Image28)
ElseIf Right(Tag$, 1) = "3" : SetGadgetState(#Timer_Tag_, Image29)
ElseIf Right(Tag$, 1) = "4" : SetGadgetState(#Timer_Tag_, Image30)
ElseIf Right(Tag$, 1) = "5" : SetGadgetState(#Timer_Tag_, Image31)
ElseIf Right(Tag$, 1) = "6" : SetGadgetState(#Timer_Tag_, Image32)
ElseIf Right(Tag$, 1) = "7" : SetGadgetState(#Timer_Tag_, Image33)
ElseIf Right(Tag$, 1) = "8" : SetGadgetState(#Timer_Tag_, Image34)
ElseIf Right(Tag$, 1) = "9" : SetGadgetState(#Timer_Tag_, Image35)
ElseIf Right(Tag$, 1) = "0" : SetGadgetState(#Timer_Tag_, Image36)
EndIf
;}
EndIf

ich weis nur das der fehler hiermit zusammen hängen muss....
SetGadgetState(#Timer_Stunde, Image36)
wenn ich den befehl aber auskommentiere erscheit der selbe bug weter unten bei diesem befehl
SetGadgetState(#Timer_Stunde_, Image27)

ts-soft · Beitrag von **ts-soft** » 28.07.2006 01:37

Vielleicht fehlt da ein: "Open_Uhr_Window()"

Tsuki-Namida · Beitrag von **Tsuki-Namida** » 28.07.2006 07:00

wenn ich recht von der annahme ausgehe das du den text nur überflogen... denn ich rufe die procedure auf im text und das bevor ich die rechner zeit einlese zu dem würde der fehler dann gleich beim ersten befehl auftauchen eo ich das image update

a14xerus · Beitrag von **a14xerus** » 28.07.2006 11:35

du erstellst zwar die proceduer, rufst das fenster aber nicht auf, und ohen fenster gibt es auch keine initialisierten gadgets zum editieren

ts-soft · Beitrag von **ts-soft** » 28.07.2006 13:39

Ich habe den Source nach "Open_Uhr_Window()" durchsuchen lassen, taucht
nur einmal auf, muß verkehrt sein. Ansonsten fehlen mir ja die Icons zu
testen und ich müßte die ganzen Pfade anpassen.

a14xerus · Beitrag von **a14xerus** » 28.07.2006 19:51

ja er öffnet nicht.. kannse acuh im browser durchsuchen lassen..
direkt unter der procedure fangen ja schon die gadgets an.. und dazwischen ist eindeutig kein aufruf der procedure

PureBoard

finde den fehler nicht heuel aber er ist da

finde den fehler nicht heuel aber er ist da