PureBoard

Fluid Byte hat geschrieben:Ist das jetzt tatsächlich eine Frage oder 'ne Aussage?

whitelion hat geschrieben:haha, schön... aber jpg soll ja wohl gehen ... dann such ich mir jetzt mal ne beispiel GUI für mein vorhaben. (links / codeposting erwünscht!)

UseJPEGImageDecoder()

DataSection
	ImgClouds:
	IncludeBinary #PB_Compiler_Home + "Examples\Sources\Data\clouds.jpg"
EndDataSection

OpenWindow(0,0,0,400,300,"void",$CC0001)
CreateGadgetList(WindowID(0))
ImageGadget(0,0,0,0,0,CatchImage(0,?ImgClouds))

While WaitWindowEvent() ! 16 : Wend

Fluid Byte hat geschrieben:Grübel, grübel ...

Fluid Byte hat geschrieben:

Code: Alles auswählen

Debug ExeEnd-ExeStart

Debug ?ExeEnd-?ExeStart

Fluid Byte hat geschrieben:

whitelion hat geschrieben:haha, schön... aber jpg soll ja wohl gehen ... dann such ich mir jetzt mal ne beispiel GUI für mein vorhaben. (links / codeposting erwünscht!)

Jo, ist einfach:

Code: Alles auswählen

UseJPEGImageDecoder()

DataSection
	ImgClouds:
	IncludeBinary #PB_Compiler_Home + "Examples\Sources\Data\clouds.jpg"
EndDataSection

OpenWindow(0,0,0,400,300,"void",$CC0001)
CreateGadgetList(WindowID(0))
ImageGadget(0,0,0,0,0,CatchImage(0,?ImgClouds))

While WaitWindowEvent() ! 16 : Wend

@Kiffi:

Grübel, grübel ...

Wo kommen die zwei Bytes her? Hmm, liegt nicht zufällig daran dass das End-Label auf die Gesamtlänge draufgerechnet werden muss und vom Typ WORD ist?

whitelion hat geschrieben:meinte zwar eine GUI die nur aus einer grafik mit einer transperenten
hintergrundfarbe besteht.... also auch nciht rechteckig sein muß und ohne die
standard windows-looking GUI elemente.

whitelion hat geschrieben:meinte zwar eine GUI die nur aus einer grafik mit einer transperenten hintergrundfarbe besteht.... also auch nciht rechteckig sein muß und ohne die standard windows-looking GUI elemente.