Seite 1 von 1
Problem mit Image Gadget
Verfasst: 14.08.2005 19:24
von Defmaster
Also ich will mir nurmal so nen Prog machen dazu benutz ich imagegadget.
Nun will ich es vergrößern/verkleinern.
So dazu den code:
Code: Alles auswählen
neue_breite = GetGadgetState(#String_0)
neue_hohe = GetGadgetState(#String_1)
Image0 = ResizeImage(#Image_0,neue_breite,neue_hohe)
SetGadgetState(#Image_0,Image0)
Gadget Info:
Code: Alles auswählen
StringGadget(#String_0, 20, 30, 90, 20, "", #PB_String_Numeric)
StringGadget(#String_1, 130, 30, 90, 20, "", #PB_String_Numeric)
So nun geht das nicht, wenn ich es so mache.
Ich verändere es damit nix passiert, Bild geht weg, damit gleich nochmal probieren wird gesagt: "#Image Objekt nicht initialisiert"
Wenn ich nun statt abfragen der neuen höhe/breite gleich feste Werte eingebe macht er es anstands los.
Ich bin am verzweifeln.
(Warscheinlich wieder nen kleiner fehler den man durch seine eigenen augen nicht sieht)
Verfasst: 14.08.2005 19:31
von ts-soft
Versuchs mal so:
Code: Alles auswählen
neue_breite = GetGadgetState(#String_0)
neue_hohe = GetGadgetState(#String_1)
ResizeImage(#Image_0,neue_breite,neue_hohe)
Image0 = UseImage(#Image_0)
SetGadgetState(#Image_0,Image0)
Verfasst: 14.08.2005 19:41
von Defmaster
Dann kommt:
Image0 = UseImage(#Image_0)
#Image object not intilialized.
Wie oben
Verfasst: 14.08.2005 19:53
von Hroudtwolf
#Image ist die ID zu einem Image.
Du musst das Image auch mit dieser ID laden.
Vorher musst du der ID-Konstante #Image einen Wert zuweisen.
Verfasst: 14.08.2005 20:14
von Defmaster
Da versteh ich jetzt net so ganz ^^
Naja hab per Visual Designer gearbeitet:
Code: Alles auswählen
Global Image0
;- Catch Images
Image0 = CatchImage(0, ?Image0)
;- Images
DataSection
Image0:
IncludeBinary "Namenlos.png"
EndDataSection
Enumeration
#Image_0
...
EndEnumeration
Fehlt dort also etwas?
Verfasst: 14.08.2005 20:26
von Hroudtwolf
Defmaster hat geschrieben:Da versteh ich jetzt net so ganz ^^
Naja hab per Visual Designer gearbeitet:
Code: Alles auswählen
Global Image0
;- Catch Images
Image0 = CatchImage(0, ?Image0)
;- Images
DataSection
Image0:
IncludeBinary "Namenlos.png"
EndDataSection
Enumeration
#Image_0
...
EndEnumeration
Fehlt dort also etwas?
der Code müsste anhand deiner Daten so ausssehen.
Code: Alles auswählen
neue_breite = GetGadgetState(#String_0)
neue_hohe = GetGadgetState(#String_1)
ResizeImage(0,neue_breite,neue_hohe)
SetGadgetState(#String_0, UseImage(0))
Verfasst: 14.08.2005 20:33
von Defmaster
Heul geht auch nicht...
Ich post jetzt mal den ganzen Code:
EDIT: Hab jetzt hinbekommen und wie ich es vorraus sah war es ein dämmlicher fehler meinerseits.
Scheint aber keiner bemerkt zu haben.
Es geht:
Code: Alles auswählen
neue_breite = Val(GetGadgetText(#String_0))
neue_hohe = Val(GetGadgetText(#String_1))
ResizeImage(0,neue_breite,neue_hohe)
SetGadgetState(#Image_0, UseImage(0))
Ich hatte statts GetGadgetText -> GetGadgetState verwendet.
Nun gehts einwandfrei.
Danke dennoch...