Ich freue mich, Sie mitteilen zu dürfen, dass ich jetzt die Vollversion besitze und ich kann das Produkt uneingeschränkt nutzen.
Heute fing ich sofort an, mein erstes Produkt zu erschaffen, nachdem ich schon eine Produktidee gefunden habe. Ich schreibe zuerst den Gestaltungsbereich (unredl. Design) und habe schon mein erstes Problem bei der Umsetzung.
Fenster, Schnurgerät und Herausgebergerät kann ich problemlos einfärben, aber ich will auch das Rahmengerät einfärben. Leider gibt es laut Hilfe keine Möglichkeit, den Hintergrund zu verändern.
Hier mein Quelltext meines Produktes im Anfangsstadium:
Code: Alles auswählen
Define Ereignis
Define GeraetEreignis
If OpenWindow(1, 0, 0, 1000, 850, "Faden erschaffen", #PB_Window_SystemMenu)
If ContainerGadget(1, 0, 0, 1000, 850, #PB_Container_Raised)
If FrameGadget(2, 50, 50, 900, 750, "Faden erschaffen")
TextGadget(3, 100, 100, 100, 20, "Betreff")
StringGadget(4, 100, 120, 800, 20, "")
ButtonGadget(7, 100, 170, 100, 20, "Fett")
ButtonGadget(8, 100, 190, 100, 20, "Kursiv")
ButtonGadget(9, 100, 210, 100, 20, "Unterstrichen")
ButtonGadget(10, 100, 230, 100, 20, "Zitat")
ButtonGadget(11, 100, 250, 100, 20, "Aufzählung")
ButtonGadget(12, 100, 270, 100, 20, "Aufzählungspunkt")
ButtonGadget(13, 100, 290, 100, 20, "Bild")
ButtonGadget(14, 100, 310, 100, 20, "Adresse")
ButtonGadget(16, 100, 360, 20, 20, ":D")
ButtonGadget(17, 120, 360, 20, 20, ":)")
ButtonGadget(18, 140, 360, 20, 20, ":(")
ButtonGadget(19, 160, 360, 20, 20, ":p")
ButtonGadget(20, 180, 360, 20, 20, ":?")
ButtonGadget(21, 100, 380, 20, 20, "8)")
ButtonGadget(22, 120, 380, 20, 20, "<)")
ButtonGadget(23, 140, 380, 20, 20, ";)")
ButtonGadget(24, 160, 380, 20, 20, ":|")
ButtonGadget(25, 180, 380, 20, 20, ">:)")
ButtonGadget(26, 100, 400, 20, 20, ":P")
ButtonGadget(27, 120, 400, 20, 20, "xD")
ButtonGadget(28, 140, 400, 20, 20, "^^")
ButtonGadget(29, 160, 400, 20, 20, ":*")
ButtonGadget(30, 180, 400, 20, 20, "-.-")
ButtonGadget(31, 100, 420, 100, 20, "------------------------------")
ComboBoxGadget(35, 100, 470, 100, 20)
TextGadget(15, 100, 150, 100, 20, "Formatierung")
TextGadget(33, 100, 450, 100, 20, "Textbausteine")
TextGadget(34, 100, 340, 100, 20, "Emotionen")
TextGadget(5, 220, 150, 100, 20, "Nachrichtentext")
EditorGadget(6, 220, 170, 680, 500)
ButtonGadget(32, 450, 700, 200, 50, "Publizieren")
EndIf
EndIf
SetWindowColor(1, RGB(255, 237, 195))
SetGadgetColor(1, 2, RGB(255, 237, 195))
SetGadgetColor(3, 2, RGB(255, 237, 195))
SetGadgetColor(5, 2, RGB(255, 237, 195))
SetGadgetColor(15, 2, RGB(255, 237, 195))
SetGadgetColor(33, 2, RGB(255, 237, 195))
SetGadgetColor(34, 2, RGB(255, 237, 195))
SetGadgetColor(4, 2, RGB(255, 242, 213))
SetGadgetColor(6, 2, RGB(255, 242, 213))
Repeat
Ereignis = WaitWindowEvent()
If Ereignis = #PB_Event_Gadget
GeraetEreignis = EventGadget()
If GeraetEreignis = 1
EndIf
EndIf
Until Ereignis = #PB_Event_CloseWindow
EndIf
Josef Berger