Verwende 5.11.
Als ich gerade eben unter Linux wieder etwas an meinem HCGenerator.pb arbeiten wollte und testweise das Programm compiliert habe gab es plötzlich eine Fehlermeldung und im HCGenerator.pbf fehlt der gesamte Definitionsbereich der Elemente!
Zum Glück habe ich ja vor ein paar Tagen das gesamte Projekt als Zip in meiner Dropbox zur Verfügung gestellt sonst wäre jetzt alles weg gewesen!
Hier das komplette pbf und darunter das fehlerhafte!
Code: Alles auswählen
Global Window_0
Global Panel_0, Combo_elemente, String_elemtext, Checkbox_elemfett, Button_20, Button_19, Button_18, Button_17, Button_16, ScrollArea_1, Canvas_0, Text_0, ListView_0, Button_13, Button_14, Button_15, Button_10, ansicht_drucken, Text_1_Copy1, Text_1_Copy2, Text_1_Copy3, Text_1_Copy4, Text_1_Copy5, Text_1_Copy6, Text_1_Copy7, Text_1_Copy8, Text_1_Copy9, Text_1_Copy11, Text_1_Copy12, Text_1_Copy16, Checkbox_elemunterstrich, Checkbox_elemkursiv, Button_texteinf, Button_linewaag, Button_linesenk, Button_rechteck, String_elemtyp, String_elemname, String_elemxpos, String_elemypos, String_elembreite, String_elemhoehe, String_elemdicke, String_elemschattx, String_elemschatty, String_elemradius, String_elemschriftgroese, String_elemschrift, Button_farbe, String_elemfarbe, Button_grundfarbe, String_elemgrundfarbe, Checkbox_elembildmittext, Button_speichern, Button_flaeche, Button_schrift, Editor_bewertungstexte
Enumeration #PB_Compiler_EnumerationValue
#Font_0
#Font_1
EndEnumeration
LoadFont(#Font_0,"Sans", 14)
LoadFont(#Font_1,"Arial", 12)
Declare ResizeGadgetsWindow_0()
Declare elementwahl(EventType)
Declare verzeichniswaehlen(EventType)
Declare htmlanzeigen(EventType)
Declare pbhtmlerzeugen(EventType)
Declare quer(EventType)
Declare hoch(EventType)
Declare fotoeinfuegen(EventType)
Declare speichern(EventType)
Declare ansichtladen(EventType)
Declare Fotoimport(EventType)
Declare ansloeschen(EventType)
Declare ansichtdrucken(EventType)
Declare texteinf(EventType)
Declare liniewaagerecht(EventType)
Declare liniesenkrecht(EventType)
Declare rechteck(EventType)
Declare farbdialog(EventType)
Declare grundfarbedialog(EventType)
Declare savechange(EventType)
Declare Flaeche(EventType)
Declare schriftdialog(EventType)
Procedure OpenWindow_0()
Window_0 = OpenWindow(#PB_Any, 0, 0, 1000, 760, "HTML-Code-Generator Vers. 1.0", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_ScreenCentered)
Panel_0 = PanelGadget(#PB_Any, 10, 0, 980, 730)
AddGadgetItem(Panel_0, -1, "Formular bearbeiten")
Combo_elemente = ComboBoxGadget(#PB_Any, 810, 10, 60, 25)
GadgetToolTip(Combo_elemente, "Element ueber Liste waehlen")
String_elemtext = StringGadget(#PB_Any, 290, 40, 470, 25, "")
Checkbox_elemfett = CheckBoxGadget(#PB_Any, 870, 450, 70, 25, "fett")
Button_20 = ButtonGadget(#PB_Any, 140, 10, 100, 25, "Verzeichnis")
GadgetToolTip(Button_20, "Verzeichnis in dem sich die Fotos befinden wählen")
Button_19 = ButtonGadget(#PB_Any, 10, 490, 118, 25, "HTML generieren")
GadgetToolTip(Button_19, "Ansicht als HTML-Datei erzeugen")
Button_18 = ButtonGadget(#PB_Any, 10, 520, 120, 25, "PB-Code generieren")
GadgetToolTip(Button_18, "PB-Procedure fuer HTML-Erzeugung als erzeugen")
Button_17 = ButtonGadget(#PB_Any, 190, 40, 50, 25, "quer")
GadgetToolTip(Button_17, "Ansicht im Querformat")
Button_16 = ButtonGadget(#PB_Any, 140, 40, 44, 25, "hoch")
GadgetToolTip(Button_16, "Ansicht im Hochformat")
ScrollArea_1 = ScrollAreaGadget(#PB_Any, 140, 70, 720, 628, 700, 700,1)
Canvas_0 = CanvasGadget(#PB_Any, 0, 0, 696, 492)
GadgetToolTip(Canvas_0, "Darstellung: Fotos mit linker Maus schieben. Fotos mit Rechtsklick löschen.")
CloseGadgetList()
Text_0 = TextGadget(#PB_Any, 250, 10, 550, 25, "Verzeichnis")
SetGadgetFont(Text_0, FontID(#Font_0))
ListView_0 = ListViewGadget(#PB_Any, 10, 260, 120, 187)
GadgetToolTip(ListView_0, "Listenansicht: Foto anklicken damit es in die Ansicht eingefügt wird.")
Button_13 = ButtonGadget(#PB_Any, 10, 70, 120, 25, "Ansicht speichern")
GadgetToolTip(Button_13, "Aktuelle Ansicht als Formular.txt im Verzeichnis speichern.")
Button_14 = ButtonGadget(#PB_Any, 10, 10, 120, 25, "Ansicht laden")
GadgetToolTip(Button_14, "Bestehenden Ansicht aus dem Verzeichnis laden")
Button_15 = ButtonGadget(#PB_Any, 10, 450, 120, 25, "Fotos neu laden")
GadgetToolTip(Button_15, "Fotos aus dem Verzeichnis in die Listenansicht laden")
Button_10 = ButtonGadget(#PB_Any, 10, 40, 120, 25, "Ansicht loeschen")
GadgetToolTip(Button_10, "Aktuelle Anzeige löschen. Eine Datei wird nicht gelöscht!")
ansicht_drucken = ButtonGadget(#PB_Any, 10, 550, 120, 25, "Ansicht drucken")
GadgetToolTip(ansicht_drucken, "Ansicht drucken geht nur unter Windows! Nur fuer Testzwecke!")
Text_1_Copy1 = TextGadget(#PB_Any, 900, 10, 40, 25, "Typ:")
Text_1_Copy2 = TextGadget(#PB_Any, 770, 40, 40, 25, "Name:")
Text_1_Copy3 = TextGadget(#PB_Any, 870, 70, 40, 25, "Xpos:")
Text_1_Copy4 = TextGadget(#PB_Any, 870, 100, 40, 25, "Ypos:")
Text_1_Copy5 = TextGadget(#PB_Any, 870, 130, 40, 25, "Breite:")
Text_1_Copy6 = TextGadget(#PB_Any, 870, 160, 40, 25, "Höhe:")
Text_1_Copy7 = TextGadget(#PB_Any, 870, 190, 70, 25, "Liniendicke:")
Text_1_Copy8 = TextGadget(#PB_Any, 870, 280, 70, 25, "Schatten-x:")
Text_1_Copy9 = TextGadget(#PB_Any, 870, 310, 70, 25, "Schatten-Y:")
Text_1_Copy11 = TextGadget(#PB_Any, 870, 430, 70, 25, "Schriftgröße")
Text_1_Copy12 = TextGadget(#PB_Any, 870, 340, 50, 25, "Radius:")
Text_1_Copy16 = TextGadget(#PB_Any, 250, 40, 40, 25, "Text:")
Checkbox_elemunterstrich = CheckBoxGadget(#PB_Any, 870, 490, 90, 25, "unterstrichen")
Checkbox_elemkursiv = CheckBoxGadget(#PB_Any, 870, 470, 70, 25, "kursiv")
Button_texteinf = ButtonGadget(#PB_Any, 10, 110, 120, 25, "Text einfügen")
Button_linewaag = ButtonGadget(#PB_Any, 10, 140, 120, 25, "Linie waagerecht")
Button_linesenk = ButtonGadget(#PB_Any, 10, 170, 120, 25, "Linie senkrecht")
Button_rechteck = ButtonGadget(#PB_Any, 10, 230, 120, 25, "Rechteck einfügen")
String_elemtyp = StringGadget(#PB_Any, 940, 10, 30, 25, "")
String_elemname = StringGadget(#PB_Any, 810, 40, 160, 25, "")
String_elemxpos = StringGadget(#PB_Any, 920, 70, 50, 25, "")
String_elemypos = StringGadget(#PB_Any, 920, 100, 50, 25, "")
String_elembreite = StringGadget(#PB_Any, 920, 130, 50, 25, "")
String_elemhoehe = StringGadget(#PB_Any, 920, 160, 50, 25, "")
String_elemdicke = StringGadget(#PB_Any, 940, 190, 30, 25, "")
String_elemschattx = StringGadget(#PB_Any, 940, 280, 30, 25, "")
String_elemschatty = StringGadget(#PB_Any, 940, 310, 30, 25, "")
String_elemradius = StringGadget(#PB_Any, 940, 340, 30, 25, "")
String_elemschriftgroese = StringGadget(#PB_Any, 940, 430, 30, 25, "")
String_elemschrift = StringGadget(#PB_Any, 870, 400, 100, 25, "")
Button_farbe = ButtonGadget(#PB_Any, 870, 250, 70, 25, "Farbe")
String_elemfarbe = StringGadget(#PB_Any, 940, 250, 30, 25, "")
Button_grundfarbe = ButtonGadget(#PB_Any, 870, 220, 70, 25, "Grundfarbe")
String_elemgrundfarbe = StringGadget(#PB_Any, 940, 220, 30, 25, "")
Checkbox_elembildmittext = CheckBoxGadget(#PB_Any, 870, 520, 100, 25, "Bild mit Text")
Button_speichern = ButtonGadget(#PB_Any, 870, 550, 100, 25, "save / regen")
GadgetToolTip(Button_speichern, "Aenderungen speichern und neu zeichnen")
Button_flaeche = ButtonGadget(#PB_Any, 10, 200, 120, 25, "Fläche einfügen")
Button_schrift = ButtonGadget(#PB_Any, 870, 370, 100, 25, "Schrift")
AddGadgetItem(Panel_0, -1, "Anleitung")
Editor_bewertungstexte = EditorGadget(#PB_Any, 10, 10, 860, 448)
SetGadgetFont(Editor_bewertungstexte, FontID(#Font_1))
AddGadgetItem(Editor_bewertungstexte, -1, "HCGenerator Vers. 1.0")
AddGadgetItem(Editor_bewertungstexte, -1, " ")
AddGadgetItem(Editor_bewertungstexte, -1, "- Bilder muessen das Format png haben")
AddGadgetItem(Editor_bewertungstexte, -1, "- Folgende Elemente sind moeglich: Linie waagerecht und senkrecht, Text, Flaeche, Rahmen und Bilder")
AddGadgetItem(Editor_bewertungstexte, -1, "- Schatten wird im Prog. nicht angezeigt aber im html erzeugt")
AddGadgetItem(Editor_bewertungstexte, -1, "- Es kann ein Formular.html erzeugt werden ")
AddGadgetItem(Editor_bewertungstexte, -1, "- Es kann eine Procedure fuer PureBasic erzeugt werden (PBFormular.txt)")
AddGadgetItem(Editor_bewertungstexte, -1, " ")
AddGadgetItem(Editor_bewertungstexte, -1, "W.Schmidt 08.2013")
CloseGadgetList()
EndProcedure
Procedure ResizeGadgetsWindow_0()
Protected WindowWidth, WindowHeight
WindowWidth = WindowWidth(Window_0)
WindowHeight = WindowHeight(Window_0)
ResizeGadget(Panel_0, 10, 0, WindowWidth - 20, WindowHeight - 30)
EndProcedure
Procedure Window_0_Events(event)
Select event
Case #PB_Event_SizeWindow
ResizeGadgetsWindow_0()
Case #PB_Event_CloseWindow
ProcedureReturn #False
Case #PB_Event_Menu
Select EventMenu()
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case Combo_elemente
elementwahl(EventType())
Case Button_20
verzeichniswaehlen(EventType())
Case Button_19
htmlanzeigen(EventType())
Case Button_18
pbhtmlerzeugen(EventType())
Case Button_17
quer(EventType())
Case Button_16
hoch(EventType())
Case ListView_0
fotoeinfuegen(EventType())
Case Button_13
speichern(EventType())
Case Button_14
ansichtladen(EventType())
Case Button_15
Fotoimport(EventType())
Case Button_10
ansloeschen(EventType())
Case ansicht_drucken
ansichtdrucken(EventType())
Case Button_texteinf
texteinf(EventType())
Case Button_linewaag
liniewaagerecht(EventType())
Case Button_linesenk
liniesenkrecht(EventType())
Case Button_rechteck
rechteck(EventType())
Case Button_farbe
farbdialog(EventType())
Case Button_grundfarbe
grundfarbedialog(EventType())
Case Button_speichern
savechange(EventType())
Case Button_flaeche
Flaeche(EventType())
Case Button_schrift
schriftdialog(EventType())
EndSelect
EndSelect
ProcedureReturn #True
EndProcedure
Code: Alles auswählen
; Form Designer for Purebasic - 5.11
; Warning: this file uses a strict syntax, if you edit it, make sure to respect the Form Designer limitation or it won't be opened again.
Global Window_0
Global Panel_0, Combo_elemente, String_elemtext, Checkbox_elemfett, Button_20, Button_19, Button_18, Button_17, Button_16, ScrollArea_1, Canvas_0, Text_0, ListView_0, Button_13, Button_14, Button_15, Button_10, ansicht_drucken, Text_1_Copy1, Text_1_Copy2, Text_1_Copy3, Text_1_Copy4, Text_1_Copy5, Text_1_Copy6, Text_1_Copy7, Text_1_Copy8, Text_1_Copy9, Text_1_Copy11, Text_1_Copy12, Text_1_Copy16, Checkbox_elemunterstrich, Checkbox_elemkursiv, Button_texteinf, Button_linewaag, Button_linesenk, Button_rechteck, String_elemtyp, String_elemname, String_elemxpos, String_elemypos, String_elembreite, String_elemhoehe, String_elemdicke, String_elemschattx, String_elemschatty, String_elemradius, String_elemschriftgroese, String_elemschrift, Button_farbe, String_elemfarbe, Button_grundfarbe, String_elemgrundfarbe, Checkbox_elembildmittext, Button_speichern, Button_flaeche, Button_schrift, Editor_bewertungstexte
Enumeration #PB_Compiler_EnumerationValue
#Font_0
#Font_1
EndEnumeration
LoadFont(#Font_0,"Sans", 14)
LoadFont(#Font_1,"Arial", 12)
Declare ResizeGadgetsWindow_0()
Declare elementwahl(EventType)
Declare verzeichniswaehlen(EventType)
Declare htmlanzeigen(EventType)
Declare pbhtmlerzeugen(EventType)
Declare quer(EventType)
Declare hoch(EventType)
Declare fotoeinfuegen(EventType)
Declare speichern(EventType)
Declare ansichtladen(EventType)
Declare Fotoimport(EventType)
Declare ansloeschen(EventType)
Declare ansichtdrucken(EventType)
Declare texteinf(EventType)
Declare liniewaagerecht(EventType)
Declare liniesenkrecht(EventType)
Declare rechteck(EventType)
Declare farbdialog(EventType)
Declare grundfarbedialog(EventType)
Declare savechange(EventType)
Declare Flaeche(EventType)
Declare schriftdialog(EventType)
EndProcedure
Procedure ResizeGadgetsWindow_0()
Protected WindowWidth, WindowHeight
WindowWidth = WindowWidth(Window_0)
WindowHeight = WindowHeight(Window_0)
EndProcedure
Procedure Window_0_Events(event)
Select event
Case #PB_Event_SizeWindow
ResizeGadgetsWindow_0()
Case #PB_Event_CloseWindow
ProcedureReturn #False
Case #PB_Event_Menu
Select EventMenu()
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case Combo_elemente
elementwahl(EventType())
Case Button_20
verzeichniswaehlen(EventType())
Case Button_19
htmlanzeigen(EventType())
Case Button_18
pbhtmlerzeugen(EventType())
Case Button_17
quer(EventType())
Case Button_16
hoch(EventType())
Case ListView_0
fotoeinfuegen(EventType())
Case Button_13
speichern(EventType())
Case Button_14
ansichtladen(EventType())
Case Button_15
Fotoimport(EventType())
Case Button_10
ansloeschen(EventType())
Case ansicht_drucken
ansichtdrucken(EventType())
Case Button_texteinf
texteinf(EventType())
Case Button_linewaag
liniewaagerecht(EventType())
Case Button_linesenk
liniesenkrecht(EventType())
Case Button_rechteck
rechteck(EventType())
Case Button_farbe
farbdialog(EventType())
Case Button_grundfarbe
grundfarbedialog(EventType())
Case Button_speichern
savechange(EventType())
Case Button_flaeche
Flaeche(EventType())
Case Button_schrift
schriftdialog(EventType())
EndSelect
EndSelect
ProcedureReturn #True
EndProcedure
Wolfgang
P.S. Kann ich eigentlich davon ausgehen, dass diese Fehlermeldungen den Entwickler erreichen?