Code: Alles auswählen
Enumeration
#Window_0
EndEnumeration
Enumeration
#Button_0
#String_0
#Panel_0
#Editor_0
#Button_1
#Button_3
#Button_4
#Button_5
#Button_6
#Button_7
#Button_8
#Button_9
#Button_10
#Button_11
#Button_12
#Button_13
#Button_14
#Button_16
#Button_17
#Button_18
#Button_19
#Button_20
#Button_21
#Button_22
#Button_23
#Button_24
#Button_25
#Button_26
#Button_27
#Button_28
#Button_29
#Button_30
#Button_31
#Button_32
EndEnumeration
Enumeration
#StatusBar_0
EndEnumeration
If OpenWindow(#Window_0, 3000, 3000, 0, 0, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Html Editor written by Third")
If CreateStatusBar(#StatusBar_0, WindowID())
EndIf
If CreateGadgetList(WindowID())
ButtonGadget(#Button_0, 10, 10, 160, 30, "Html Erstellen")
StringGadget(#String_0, 10, 50, 200, 20, "Dateiname")
EditorGadget(#Editor_0, 10, 110, 650, 480)
SetGadgetText(#Editor_0, ";Willkommen in meinem HTML-Script-Editor...Power,written and copyright by Third")
ButtonGadget(#Button_32, 10, 80, 170, 20, "Html Datei Öffnen")
;- Panel0
PanelGadget(#Panel_0, 230, 10, 430, 90)
AddGadgetItem(#Panel_0, -1, "#HTML 1")
ButtonGadget(#Button_1, 8, 8, 100, 20, "Textarea")
ButtonGadget(#Button_3, 8, 28, 100, 20, "Bild einfügen")
ButtonGadget(#Button_4, 108, 8, 100, 20, "Hyper-Link")
ButtonGadget(#Button_5, 108, 28, 100, 20, "E-mail Link")
ButtonGadget(#Button_6, 208, 8, 100, 20, "Hintergrund-Bild")
ButtonGadget(#Button_7, 208, 28, 100, 20, "Zeilenumbruch")
ButtonGadget(#Button_8, 308, 8, 100, 20, "Text hochsetzen")
ButtonGadget(#Button_9, 308, 28, 100, 20, "text tiefsetzen")
AddGadgetItem(#Panel_0, -1, "#HTML 2")
ButtonGadget(#Button_10, 8, 8, 100, 20, "Text zentriert")
ButtonGadget(#Button_11, 8, 28, 100, 20, "text rechtsbündig")
ButtonGadget(#Button_12, 108, 8, 100, 20, "Tabelle")
ButtonGadget(#Button_13, 108, 28, 100, 20, "Fixierter Hintergrund")
ButtonGadget(#Button_14, 208, 8, 100, 20, "Hinweis Fenster")
AddGadgetItem(#Panel_0, -1, "#Java 1")
ButtonGadget(#Button_16, 8, 8, 100, 20, "Mausverfolger")
ButtonGadget(#Button_17, 8, 28, 100, 20, "Maus-Uhr")
ButtonGadget(#Button_18, 108, 8, 100, 20, "Statustext 1")
GadgetToolTip(#Button_18, "Blinkender Statuszeilen-Text")
ButtonGadget(#Button_19, 108, 28, 100, 20, "Statustext 2")
GadgetToolTip(#Button_19, "Schreibmaschinen art schreibt es ind den statuszeilen")
ButtonGadget(#Button_20, 208, 8, 100, 20, "TitelText1")
GadgetToolTip(#Button_20, "Schreibt einen text als schreibmaschine in den Titel")
ButtonGadget(#Button_21, 208, 28, 100, 20, "Scrollbarfervärbung")
ButtonGadget(#Button_22, 308, 8, 100, 20, "Matrix-Effekt")
ButtonGadget(#Button_23, 308, 28, 100, 20, "User-Begrüßung")
AddGadgetItem(#Panel_0, -1, "CSS/Stylesheets")
ButtonGadget(#Button_24, 8, 8, 100, 20, "Glühender Text")
ButtonGadget(#Button_25, 8, 28, 100, 20, "Wellentext")
ButtonGadget(#Button_26, 108, 8, 100, 20, "Textschatten")
ButtonGadget(#Button_27, 108, 28, 100, 20, "Bild transparentiern")
ButtonGadget(#Button_28, 208, 8, 100, 20, "Bild verwischen")
ButtonGadget(#Button_29, 208, 28, 100, 20, "Bildwellen")
ButtonGadget(#Button_30, 308, 8, 100, 20, "Bildschatten")
ButtonGadget(#Button_31, 308, 28, 100, 20, "Bild-glühen")
CloseGadgetList()
;-Mainprogramm
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
If EventID = #PB_Event_Gadget
If EventGadgetID()=#Button_1
SetGadgetText(#Editor_0,"<Textarea>Hier kommt der Text rein</textarea>")
EndIf
If EventGadgetID()=#Button_3
SetGadgetText(#Editor_0,"<img src= url des bildes alt= info >")
EndIf
If eventgadgetid()=#Button_4
SetGadgetText(#Editor_0,"<a href=url zum link target=_blank title=Linkinfo>Knuddels</a>")
EndIf
If EventGadgetID()=#Button_5
SetGadgetText(#Editor_0,"<a href=emailadresse>Text</a>")
EndIf
If EventGadgetID()=#Button_6
SetGadgetText(#Editor_0,"<body background=URL-des-Bildes>")
EndIf
If EventGadgetID()=#Button_7
SetGadgetText(#Editor_0,"<br>")
EndIf
If EventGadgetID()=#Button_8
SetGadgetText(#Editor_0,"<sup>1234567890</sup>")
EndIf
If EventGadgetID()=#Button_9
SetGadgetText(#Editor_0,"<sub>1234567890</sub>")
EndIf
If EventGadgetID()=#Button_10
SetGadgetText(#Editor_0,"<div align=center>...Absatz mittig...</div>")
EndIf
If EventGadgetID()=#Button_11
SetGadgetText(#Editor_0,"<div align=right>...Absatz rechtsbündig...</div>")
EndIf
If EventGadgetID()=#Button_12
SetGadgetText(#Editor_0,"<table border=anführungsstriche zahl anführungsstriche>")
SetGadgetText(#Editor_0,"<tr>")
SetGadgetText(#Editor_0,"<td>Test1</td>")
SetGadgetText(#Editor_0,"<td>Test2</td>")
SetGadgetText(#Editor_0,"</tr>")
SetGadgetText(#Editor_0,"<tr>")
SetGadgetText(#Editor_0,"<td>Test2</td>")
SetGadgetText(#Editor_0,"<td>Test3</td>")
SetGadgetText(#Editor_0,"</tr> ")
SetGadgetText(#Editor_0,"</table>")
EndIf
endif
Until quit=1
EndIf
EndIf