PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

Editor

https://www.purebasic.fr/german/viewtopic.php?t=10027

Seite 3 von 4

Verfasst: 21.09.2006 20:21
von #NULL
installer geht, uninstaller geht, internet-link geht, spiel kommt leider nicht weiter als bis zu einen invalid memory requester.

Verfasst: 21.09.2006 20:28
von DW
Bei mir geht alles!

>installer geht, uninstaller geht, internet-link geht, spiel kommt leider nicht weiter als bis zu einen invalid memory requester.

Und wann kommt diese Meldung. Direkt am Anfang??

Verfasst: 24.09.2006 17:20
von DW
Ok. Hier ist der unfertige Editor, hat aber keine Funtkionen:
http://ultimative.ohost.de/Forum/files/Editor.zip


Und, wie findet ihr ihn vom Aussehen?

Verfasst: 24.09.2006 17:38
von ZeHa
Der kackt direkt nach dem Starten ab ;)

Verfasst: 24.09.2006 17:41
von DW
Welches Betriebssystem benutzt du?

Verfasst: 24.09.2006 17:43
von vonTurnundTaxis
Mit WINE gehts auch nicht...

Verfasst: 24.09.2006 17:43
von ZeHa
Windows XP... wird halt irgendwie aufgrund eines kA Fehlers beendet und ich kann 'nen Problembericht senden... sieht irgendwie nach Speicherproblemen aus

Verfasst: 24.09.2006 17:45
von DW
Lösch mal die coolmenu.dll Datei.

Verfasst: 24.09.2006 17:52
von vonTurnundTaxis
Sieht aus wie ein Clon der PB-IDE.

Verfasst: 24.09.2006 18:02
von DW
Lag es jetzt an der dll??


>Editoren sehen sich nun mal ähnlich
>Sieht aus wie ein Clon der PB-IDE.

Du wiederholst dich. Und ich erwarte eigentlich eine Art Bewertung.


Und warum ging das jetzt nicht?

Hier der source code

Code: Alles auswählen


XIncludeFile "coolmenu.pb"

OpenLibrary(0,"datext.dll")
CallFunction(0,"CAB_Extract")

CloseLibrary(0)


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- MenuBar Constants
;
Enumeration
  #MenuBar_0
EndEnumeration

Enumeration
  #MENU_2
  #MENU_3
  #MENU_4
  #MENU_7
  #MENU_8
  #MENU_67
  #MENU_70
  #MENU_9
  #MENU_11
  #MENU_71
  #MENU_72
  #MENU_13
  #MENU_15
  #MENU_17
  #MENU_18
  #MENU_5
  #MENU_29
  #MENU_30
  #MENU_31
  #MENU_33
  #MENU_34
  #MENU_73
  #MENU_35
  #MENU_112
  #MENU_74
  #MENU_37
  #MENU_39
  #MENU_40
  #MENU_76
  #MENU_77
  #MENU_78
  #MENU_79
  #MENU_81
  #MENU_82
  #MENU_84
  #MENU_85
  #MENU_86
  #MENU_95
  #MENU_106
  #MENU_87
  #MENU_117
  #MENU_89
  #MENU_90
  #MENU_92
  #MENU_107
  #MENU_109
  #MENU_110
  #MENU_97
  #MENU_98
  #MENU_99
  #MENU_105
  #MENU_103
  #MENU_100
  #MENU_46
  #MENU_47
  #MENU_94
  #MENU_48
  #MENU_50
  #MENU_52
  #MENU_118
  #MENU_116
  #MENU_62
  #MENU_63
  #MENU_54
  #MENU_57
  #MENU_55
  #MENU_58
  #MENU_66
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Panel_0
  #Editor_0
  #ListIcon_0
  #Button_5
  #Button_6
  #Button_7
  #Button_8
  #Editor_1
  #Panel_3
  #Tree_0
  #Button_13
  #Button_14
  #Frame3D_1
  #Frame3D_2
  #Button_17
  #Button_18
  #Button_19
  #Button_21
  #Frame3D_3
  #String_0
  #Button_38
  #Editor_2
  #Button_39
  #Button_41
  #Button_44
  #Frame3D_4
  #Button_46
  #Button_49
  #Button_52
  #ListIcon_3
  #String_7
  #Button_62
  #String_8
  #Button_63
  #Button_65
  #Button_66
  #ExplorerList_2
  #String_11
  #Text_3
  #Text_4
  #String_12
  #String_13
  #Button_68
  #Button_69
  #Button_70
  #Text_6
  #Text_8
  #Text_9
  #String_14
  #String_15
  #Text_11
  #String_17
  #Button_72
EndEnumeration

;- StatusBar Constants
;
Enumeration
  #StatusBar_0
EndEnumeration


;- Fonts
Global FontID1
FontID1 = LoadFont(1, "Arial", 10)

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 137, -8, 939, 808, "Editor",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
  
  
 If CreateToolBar(0, WindowID(0))
      ToolBarStandardButton(0, #PB_ToolBarIcon_New)
    EndIf

  
    If CreateMenu(#MenuBar_0, WindowID(#Window_0))
     
      MenuTitle("File")
      OpenSubMenu("New                            ")
      MenuItem(#MENU_2, "Visual S++ Document")
      MenuItem(#MENU_3, "Visual S++ Effect Map")
      MenuItem(#MENU_4, "Visual S++ Lib ")
      MenuItem(#MENU_5, "Document")
      CloseSubMenu()
      coolmenuitem(CoolMenu,#MENU_7,"Open..","")
      MenuItem(#MENU_8, "Open Recent")
      MenuItem(#MENU_67, "Close")
      MenuItem(#MENU_70, "Close All")
      MenuBar()
      MenuItem(#MENU_9, "Save")
      MenuItem(#MENU_11, "Save As..")
      MenuItem(#MENU_71, "Save All")
      MenuItem(#MENU_72, "Upload File")
      MenuBar()
      MenuItem(#MENU_13, "Preferences")
      MenuBar()
      MenuItem(#MENU_15, "Print")
      MenuItem(#MENU_17, "Print All")
      MenuBar()
      MenuItem(#MENU_18, "Exit")
      MenuTitle("Edit")
      MenuItem(#MENU_29, "Undo                          ")
      MenuItem(#MENU_30, "Redo")
      MenuBar()
      MenuItem(#MENU_31, "Cut")
      MenuItem(#MENU_33, "Copy")
      MenuItem(#MENU_34, "Delete")
      MenuItem(#MENU_73, "Paste")
      MenuBar()
      MenuItem(#MENU_35, "Select All")
      MenuItem(#MENU_112, "Select Line")
      MenuItem(#MENU_74, "Select None")
      MenuBar()
      MenuItem(#MENU_37, "Goto Line..")
      MenuItem(#MENU_39, "Replace..")
      MenuItem(#MENU_40, "Find..")
      MenuTitle("View")
      MenuTitle("Insert")
      MenuItem(#MENU_76, "Command..                                      ")
      MenuItem(#MENU_77, "Image..")
      MenuItem(#MENU_78, "Sound..")
      MenuBar()
      MenuItem(#MENU_79, "Date..")
      MenuItem(#MENU_81, "Time..")
      MenuBar()
      MenuItem(#MENU_82, "Window properties..")
      MenuItem(#MENU_84, "Function..")
      MenuItem(#MENU_85, "Class..")
      MenuItem(#MENU_86, "Call Dll function..")
      MenuItem(#MENU_95, "Pixmap..")
      MenuItem(#MENU_106, "Include..")
      MenuBar()
      MenuItem(#MENU_87, "Text color..")
      MenuItem(#MENU_117, "Background color..")
      MenuItem(#MENU_89, "Font..")
      MenuBar()
      MenuItem(#MENU_90, "Rect..")
      MenuItem(#MENU_92, "Oval..")
      MenuBar()
      MenuItem(#MENU_107, "WaitKey Event")
      MenuItem(#MENU_109, "WaitMouse Event")
      MenuBar()
      MenuItem(#MENU_110, "Word list")
      MenuTitle("Project")
      MenuItem(#MENU_97, "New Project..")
      MenuItem(#MENU_98, "Open Project..")
      MenuItem(#MENU_99, "Close Project")
      MenuItem(#MENU_105, "Close all Projects")
      MenuBar()
      MenuItem(#MENU_103, "Save Project..")
      MenuBar()
      MenuItem(#MENU_100, "Rename Project..")
      MenuTitle("Parser")
      MenuItem(#MENU_46, "Parse/Start")
      MenuItem(#MENU_47, "Parse & Debug")
      MenuItem(#MENU_94, "Debug")
      MenuBar()
      MenuItem(#MENU_48, "Parser options")
      MenuBar()
      MenuItem(#MENU_50, "Create Executeable")
      MenuTitle("Window")
      MenuItem(#MENU_52, "New Window")
      MenuItem(#MENU_118, "Close Window")
      MenuItem(#MENU_116, "Close all Windows")
      MenuTitle("Plugins")
      MenuItem(#MENU_62, "Plugins")
      MenuBar()
      MenuItem(#MENU_63, "Delete all Plugins")
      MenuTitle("Help")
      MenuItem(#MENU_54, "Readme")
      MenuItem(#MENU_57, "Visual S++ examples")
      MenuBar()
      MenuItem(#MENU_55, "Update")
      MenuBar()
      MenuItem(#MENU_58, "Visual S++ Website")
      MenuBar()
      MenuItem(#MENU_66, "About")
      

      EndIf

      If CreateStatusBar(#StatusBar_0, WindowID(#Window_0))
        EndIf

        If CreateGadgetList(WindowID(#Window_0))
         MDIGadget(#Editor_1, 0, 25,705, 565-25,0,2)
         
                  CoolMenu = InitializeCoolMenu()
    If CoolMenu
      If LoadCoolMenu(CoolMenu,#Window_0)
        SetCoolMenuBar(CoolMenu,2)
         SetCoolMenuStyle(CoolMenu,#CM_MenuStyleOfficeXP)
        SetCoolMenuShadow(CoolMenu,1)
        SetCoolMenuFlat(CoolMenu,1)
      EndIf
    EndIf
              
  
         
          Frame3DGadget(#Frame3D_4, 0, 565, 915, 50, "", #PB_Frame3D_Single)
          StringGadget(#String_11, 45, 570, 95, 15, "", #PB_String_BorderLess)
          TextGadget(#Text_3, 5, 570, 30, 15, "Text")
          TextGadget(#Text_4, 10, 590, 25, 15, "X:")
          StringGadget(#String_12, 45, 590, 95, 15, "", #PB_String_Numeric | #PB_String_BorderLess)
          StringGadget(#String_13, 175, 570, 105, 15, "", #PB_String_Numeric | #PB_String_BorderLess)
          ButtonGadget(#Button_68, 175, 590, 105, 15, "Insert")
          TextGadget(#Text_6, 150, 570, 20, 15, "Y:")
          TextGadget(#Text_8, 345, 570, 35, 15, "Red:")
          TextGadget(#Text_9, 345, 590, 35, 15, "Green:")
          StringGadget(#String_14, 390, 570, 55, 15, "", #PB_String_Numeric | #PB_String_BorderLess)
          StringGadget(#String_15, 390, 590, 55, 15, "", #PB_String_Numeric | #PB_String_BorderLess)
          TextGadget(#Text_11, 460, 570, 35, 15, "Blue:")
          StringGadget(#String_17, 500, 570, 55, 15, "", #PB_String_Numeric | #PB_String_BorderLess)
          ButtonGadget(#Button_72, 460, 590, 95, 15, "Insert")
          
          ;- Panel0
          PanelGadget(#Panel_0, 0, 615, 915, 145)
          AddGadgetItem(#Panel_0, -1, "Debug")
          EditorGadget(#Editor_0, 3, 3, 905, 95,#PB_Editor_ReadOnly)
          ButtonGadget(#Button_5, 3, 98, 130, 20, "Clear Debug Log")
          ButtonGadget(#Button_6, 143, 98, 130, 20, "Save Debug Log")
          AddGadgetItem(#Panel_0, -1, "Command Log")
          
          ;-
          ListIconGadget(#ListIcon_0, 3, 3, 905, 95, "Command", 200, #PB_ListIcon_GridLines)
          AddGadgetColumn(#ListIcon_0, 1, "Line", 100)
          AddGadgetColumn(#ListIcon_0, 2, "Description", 500)
          ButtonGadget(#Button_7, 3, 98, 130, 20, "Clear Command Log")
          ButtonGadget(#Button_8, 143, 98, 140, 20, "Save Command Log")
          AddGadgetItem(#Panel_0, -1, "Editor log")
          EditorGadget(#Editor_2, 3, 3, 905, 95,#PB_Editor_ReadOnly)
          SetGadgetText(#Editor_2, "Visual S++ Editor was started..")
          ButtonGadget(#Button_39, 3, 98, 110, 20, "Clear Editor Log")
          ButtonGadget(#Button_41, 118, 98, 110, 20, "Save Editor Log")
          CloseGadgetList()
          
          ;- Panel13
          PanelGadget(#Panel_3,710,10,205,555)
          AddGadgetItem(#Panel_3, -1, "Projects")
          TreeGadget(#Tree_0, 3, 8, 195, 440)
          ButtonGadget(#Button_13, 103, 468, 90, 20, "Close Project")
          ButtonGadget(#Button_14, 8, 468, 95, 20, "New Project")
          Frame3DGadget(#Frame3D_3, 3, 453, 195, 75, "Project")
          StringGadget(#String_0, 8, 498, 130, 20, "")
          ButtonGadget(#Button_38, 143, 498, 50, 20, "Rename")
          AddGadgetItem(#Panel_3, -1, "Tools")
          Frame3DGadget(#Frame3D_1, 3, 8, 195, 240, "Tools")
          Frame3DGadget(#Frame3D_2, 3, 258, 195, 265, "Tool")
          ButtonGadget(#Button_17, 8, 23, 40, 30, "Rect", #PB_Button_Default | #PB_Button_Toggle)
          GadgetToolTip(#Button_17, "Rect")
          ButtonGadget(#Button_18, 53, 23, 40, 30, "Oval", #PB_Button_Default | #PB_Button_Toggle)
          GadgetToolTip(#Button_18, "Oval")
          ButtonGadget(#Button_19, 98, 23, 40, 30, "Image", #PB_Button_Default | #PB_Button_Toggle)
          GadgetToolTip(#Button_19, "Image")
          ButtonGadget(#Button_21, 148, 23, 40, 30, "Sound", #PB_Button_Default | #PB_Button_Toggle)
          GadgetToolTip(#Button_21, "Sound")
          ButtonGadget(#Button_44, 53, 58, 40, 30, "Font", #PB_Button_Default | #PB_Button_Toggle)
          GadgetToolTip(#Button_44, "Font")
          ButtonGadget(#Button_46, 8, 58, 40, 30, "CP", #PB_Button_Default | #PB_Button_Toggle)
          GadgetToolTip(#Button_46, "Colorpicker")
          ButtonGadget(#Button_49, 98, 58, 40, 30, "Text", #PB_Button_Default | #PB_Button_Toggle)
          GadgetToolTip(#Button_49, "Text")
          ButtonGadget(#Button_52, 148, 58, 40, 30, "Dtext", #PB_Button_Default | #PB_Button_Toggle)
          GadgetToolTip(#Button_52, "Delay text")
          AddGadgetItem(#Panel_3, -1, "Word list")
          
          ;-
          ListIconGadget(#ListIcon_3, 3, 3, 195, 445, "Word", 190)
          StringGadget(#String_7, 3, 453, 145, 20, "")
          ButtonGadget(#Button_62, 153, 453, 45, 20, "Add")
          StringGadget(#String_8, 3, 478, 140, 20, "")
          ButtonGadget(#Button_63, 148, 478, 50, 20, "Rename")
          ButtonGadget(#Button_65, 3, 503, 95, 20, "Insert")
          ButtonGadget(#Button_66, 103, 503, 95, 20, "Delete")
          AddGadgetItem(#Panel_3, -1, "Explorer")
          ExplorerListGadget(#ExplorerList_2, 3, 3, 190, 490, "")
          ButtonGadget(#Button_69, 3, 498, 45, 30, "")
          ButtonGadget(#Button_70, 53, 498, 45, 30, "")
          CloseGadgetList()
          
        EndIf
      EndIf
EndProcedure



open_window_0()

Repeat
event=WaitWindowEvent()
winev=EventWindow()



If winev=#window_0
If event=#PB_Event_CloseWindow
End
ElseIf event=#PB_Event_SizeWindow
ResizeGadget(#Frame3D_4,GadgetX(#Frame3D_4),GadgetY(#Frame3D_4),WindowWidth(#window_0)-5,GadgetHeight(#Frame3D_4))
ResizeGadget(#Panel_0,GadgetX(#Panel_0),GadgetY(#Panel_0),WindowWidth(#window_0),GadgetHeight(#Panel_0))

ResizeGadget(#listicon_0,GadgetX(#listicon_0),GadgetY(#listicon_0),GadgetWidth(#panel_0)-15,GadgetHeight(#listicon_0))

ResizeGadget(#Editor_1,GadgetX(#Editor_1),GadgetY(#Editor_1),GadgetWidth(#window_0)-(939-705)+20,GadgetHeight(#Editor_1))

ResizeGadget(#Panel_3,GadgetWidth(#window_0)-210,GadgetY(#Panel_3),GadgetWidth(#Panel_3),GadgetHeight(#Panel_3))


ResizeGadget(#editor_0,GadgetX(#editor_0),GadgetY(#editor_0),GadgetWidth(#panel_0)-15,GadgetHeight(#editor_0))
ResizeGadget(#editor_2,GadgetX(#editor_2),GadgetY(#editor_2),GadgetWidth(#panel_0)-15,GadgetHeight(#editor_2))



EndIf
EndIf












ForEver

Die Dll + eine nötige Einbindung findet ihr im englischen Board. Ist von Straker.
Alle Zeiten sind UTC+02:00
Seite 3 von 4

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de