In *.pbf geht ein kompletter Block verloren!!!!

Hier werden, insbesondere in den Beta-Phasen, Bugmeldungen gepostet. Das offizielle BugForum ist allerdings hier.
derschutzhund
Beiträge: 328
Registriert: 06.06.2013 20:37
Computerausstattung: Satellite A210-19Z, Samsung Netbook N130, VPAD10

In *.pbf geht ein kompletter Block verloren!!!!

Beitrag von derschutzhund »

Melde hiermit etwas, das mehr als ein kleiner Fehler ist!
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

Dieses pbf wäre wertlos und die Arbeit verloren! Mehr als nur schade! :evil:

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
LG

Wolfgang

P.S. Kann ich eigentlich davon ausgehen, dass diese Fehlermeldungen den Entwickler erreichen?
Satellite A210-19Z, Samsung N130, VPAD10, WinXP, Win7, PuppyLinux, PB 5.24, 5.31. 5.70
Elektronik, Mikrocontroller, CNC-Technik, 3D-Druck
Benutzeravatar
Bisonte
Beiträge: 2427
Registriert: 01.04.2007 20:18

Re: In *.pbf geht ein kompletter Block verloren!!!!

Beitrag von Bisonte »

derschutzhund hat geschrieben:P.S. Kann ich eigentlich davon ausgehen, dass diese Fehlermeldungen den Entwickler erreichen?
Sicher kannst du dir dabei nur sein, wenn du sie im englischen Forum in der Bug-Sektion postest.
Die Frequenz, mit der die Jungs hier vorbeischauen ist doch eher gering...
PureBasic 6.04 LTS (Windows x86/x64) | Windows10 Pro x64 | Asus TUF X570 Gaming Plus | R9 5900X | 64GB RAM | GeForce RTX 3080 TI iChill X4 | HAF XF Evo | build by vannicom​​
Antworten