TextGadget
bei mir gehts:
Code: Alles auswählen
Enumeration
#Window
#Text
EndEnumeration
Global var$
var$=" (variable) "
Procedure Open_Window()
If OpenWindow(#Window, 216, 0, 600, 300, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
If CreateGadgetList(WindowID())
TextGadget(#Text, 10, 10, 580, 280, "Text " + var$ + Chr(10)+Chr(13)+"Text " + var$ + Chr(10)+Chr(13))
EndIf
EndIf
EndProcedure
Open_Window()
Repeat
WaitWindowEvent()
ForEver
Ist noch ein bisschen schwierig für den Anfang aber hier sind ein paar Beispiele aus dem CodeArchiv:
http://www.purearea.net/pb/CodeArchiv/G ... ndColor.pb
http://www.purearea.net/pb/CodeArchiv/G ... olored2.pb
Das CodeArchiv ist allgemein ne gute Anlaufstelle, wenn man Beispiele oder Codes sucht. Einfach da mal gucken .
http://www.purearea.net/pb/CodeArchiv/G ... ndColor.pb
http://www.purearea.net/pb/CodeArchiv/G ... olored2.pb
Das CodeArchiv ist allgemein ne gute Anlaufstelle, wenn man Beispiele oder Codes sucht. Einfach da mal gucken .