das wäre neu. Kannst Du einen kurzen Code posten, bei dem das auftritt?DW hat geschrieben:Hallo, wenn ich nicht den XP skin verwende, dann funktionieren bei mir keine comboboxgadgets bzw. sie können keine items beinhalten.
Code: Alles auswählen
Enumeration
#Window_0
#Window_0a
#Window_1a
#Window_2a
EndEnumeration
;- MenuBar Constants
;
Enumeration
#MenuBar_0
EndEnumeration
Enumeration
#MENU_2
#popupmenu
#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
#MENU_slast
#MENU_delline
#MENU_veditor
#MENU_vtoolbar
#MENU_vpanelright
#MENU_vpanelbottom
#MENU_toolbarbottom
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
#Button_46
#Button_49
#Button_52
#ListIcon_3
#String_7
#Button_62
#String_8
#Button_63
#Button_65
#Button_66
#ExplorerList_2
#Button_69
#Button_70
#Container_3
#String_11
#Text_3
#Text_4
#String_12
#String_13
#Button_68
#Text_6
#Text_8
#Text_9
#String_14
#String_15
#Text_11
#String_17
#Button_72
#String_0a
#Button_0a
#Button_1a
#Frame3D_0a
#Radio_0a
#Radio_1a
#CheckBox_1a
#Text_2a
#String_1a
#Button_3a
#Button_5a
#Text_3a
#Text_5a
#String_2a
#Text_6a
#String_3a
#Button_7a
#Button_8a
#Button_10a
#Button_12a
#Frame3D_7a
#Radio_3a
#Radio_5a
#CheckBox_2a
#TOOLBAR_0
#combobox_0
EndEnumeration
;- StatusBar Constants
;
Enumeration
#StatusBar_0
EndEnumeration
Global Dim typ.s(7)
Procedure Open_Window_0()
hWnd=OpenWindow(#Window_0, -4, -4, 1024, 712, "Editor", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
tbn=CreateTB(#PB_Any,hWnd,16,16)
AddTBsysIcons()
AddTBbutton(0,#TBpro_FILENEW,#TBpro_BUTTON )
AddTBbutton(#Menu_7,#TBpro_FILEOPEN,#TBpro_BUTTON )
AddTBbutton(#Menu_8,#TBpro_FILESAVE,#TBpro_BUTTON )
AddTBbutton(1,#TBpro_NEWFOLDER,#TBpro_BUTTON)
AddTBseparator()
AddTBbutton(2,#TBpro_PRINT,#TBpro_BUTTON )
AddTBbutton(3,#TBpro_PRINTPREVIEW,#TBpro_BUTTON )
AddTBseparator()
AddTBbutton(#Menu_29,#TBpro_UNDO,#TBpro_BUTTON)
AddTBbutton(#Menu_30,#TBpro_REDO,#TBpro_BUTTON)
AddTBseparator()
AddTBbutton(#Menu_31,#TBpro_CUT,#TBpro_BUTTON)
AddTBbutton(#Menu_33,#TBpro_COPY,#TBpro_BUTTON )
AddTBbutton(#Menu_73,#TBpro_PASTE,#TBpro_BUTTON )
AddTBbutton(#Menu_34,#TBpro_DELETE,#TBpro_BUTTON )
AddTBseparator()
AddTBbutton(#Menu_40,#TBpro_FIND,#TBpro_BUTTON)
AddTBbutton(#Menu_39,#TBpro_REPLACE,#TBpro_BUTTON)
AddTBseparator()
AddTBbreak()
AddTBbutton(7,#TBpro_FAVORITES,#TBpro_BUTTON)
AddTBbutton(8,#TBpro_PROPERTIES,#TBpro_BUTTON)
AddTBbutton(9,#TBpro_HELP,#TBpro_BUTTON)
AddTBbreak()
;{ menu
menu=CreateMenu(#MenuBar_0, WindowID(#Window_0))
MenuTitle("File")
OpenSubMenu("New")
MenuItem(#MENU_2, "Visual S++ Document")
MenuItem(#MENU_3,"Visual S++ Lib")
MenuItem(#MENU_4,"Visual S++ Effect Map")
MenuItem(#MENU_5,"Document")
CloseSubMenu()
MenuItem(#MENU_7,"Open.. "+Chr(9)+" Ctrl+O")
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 "+Chr(9) +" Ctrl+Z")
MenuItem(#MENU_30, "Redo "+Chr(9) +" Ctrl+Y")
MenuBar()
MenuItem(#MENU_31, "Cut "+Chr(9) +" Ctrl+X")
MenuItem(#MENU_33, "Copy "+Chr(9) +" Ctrl+C")
MenuItem(#MENU_34, "Delete")
MenuItem(#MENU_delline, "Delete Line")
MenuItem(#MENU_73, "Paste "+Chr(9) +" Ctrl+V")
MenuBar()
MenuItem(#MENU_35, "Select All "+Chr(9) +" Ctrl+A")
MenuItem(#MENU_slast, "Select Last")
MenuBar()
MenuItem(#MENU_37, "Goto Line.."+Chr(9) +" Ctrl+G")
MenuItem(#MENU_39, "Replace..")
MenuItem(#MENU_40, "Find.. "+Chr(9) +" Ctrl+F")
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control | #PB_Shortcut_F,#MENU_40)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control | #PB_Shortcut_G,#MENU_37)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control | #PB_Shortcut_O,#MENU_7)
MenuTitle("View")
MenuItem(#MENU_veditor, "&Editor ")
MenuItem(#MENU_vtoolbar, "Toolbar ")
MenuItem(#MENU_vpanelright, "Panel Right")
MenuItem(#MENU_vpanelbottom, "Panel Bottom")
MenuItem(#MENU_toolbarbottom, "Toolbar Bottom")
SetMenuItemState(#Menubar_0,#MENU_veditor,1)
SetMenuItemState(#Menubar_0,#MENU_vtoolbar,1)
SetMenuItemState(#Menubar_0,#MENU_vpanelright,1)
SetMenuItemState(#Menubar_0,#MENU_vpanelbottom,1)
SetMenuItemState(#Menubar_0,#MENU_toolbarbottom,1)
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 and 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")
DisableMenuItem(#MenuBar_0,#MENU_67,1)
DisableMenuItem(#MenuBar_0,#MENU_70,1)
DisableMenuItem(#MenuBar_0,#MENU_71,1)
DisableMenuItem(#MenuBar_0,#MENU_17,1)
DisableMenuItem(#MenuBar_0,#MENU_52,1)
DisableMenuItem(#MenuBar_0,#MENU_118,1)
DisableMenuItem(#MenuBar_0,#MENU_116,1)
;}
If CreateStatusBar(#StatusBar_0, WindowID(#Window_0))
AddStatusBarField(WindowWidth(#Window_0)/2)
AddStatusBarField(WindowWidth(#Window_0)/2)
EndIf
If CreateGadgetList(WindowID(#Window_0))
EditorGadget(#Editor_1, 0, 0+41, 705, 565-41)
SendMessage_(GadgetID(#Editor_1), #EM_LIMITTEXT, -1, 0)
;- Panel0
PanelGadget(#Panel_0, 0, 615, 705, 145)
AddGadgetItem(#Panel_0, -1, "Debug")
EditorGadget(#Editor_0, 3, 3, 695, 90)
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, 695, 90, "Command", 200, #PB_ListIcon_GridLines)
AddGadgetColumn(#ListIcon_0, 1, "Line", 100)
AddGadgetColumn(#ListIcon_0, 2, "Description", 350)
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, 695, 90)
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+32, 205, 750)
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, 195, 490, "")
ButtonGadget(#Button_69, 3, 498, 45, 30, "")
ButtonGadget(#Button_70, 53, 498, 45, 30, "")
CloseGadgetList()
;-
ContainerGadget(#Container_3, 0, 565, 705, 45, #PB_Container_Single)
StringGadget(#String_11, 64, 4, 95, 15, "", #PB_String_BorderLess)
TextGadget(#Text_3, 24, 4, 30, 15, "Text")
TextGadget(#Text_4, 29, 24, 25, 15, "X:")
combo=StringGadget(#String_12, 64, 24, 95, 15, "", #PB_String_Numeric | #PB_String_BorderLess)
StringGadget(#String_13, 194, 4, 105, 15, "", #PB_String_Numeric | #PB_String_BorderLess)
ButtonGadget(#Button_68, 194, 24, 105, 15, "Insert")
TextGadget(#Text_6, 169, 4, 20, 15, "Y:")
TextGadget(#Text_8, 364, 4, 35, 15, "Red:")
TextGadget(#Text_9, 364, 24, 35, 15, "Gree:")
StringGadget(#String_14, 409, 4, 55, 15, "", #PB_String_Numeric | #PB_String_BorderLess)
StringGadget(#String_15, 409, 24, 55, 15, "", #PB_String_Numeric | #PB_String_BorderLess)
TextGadget(#Text_11, 479, 4, 35, 15, "Blue:")
StringGadget(#String_17, 519, 4, 55, 15, "", #PB_String_Numeric | #PB_String_BorderLess)
ButtonGadget(#Button_72, 479, 24, 95, 15, "Insert")
combobox=ComboBoxGadget(#combobox_0,0,0,70,15,#PB_ComboBox_Editable )
AddGadgetItem(#combobox_0,0,"12")
AddTBgadget(combobox,0,25)
CloseGadgetList()
EndIf
UpdateTB(tbn)
EndProcedure
Procedure Open_Window_find()
If OpenWindow(#Window_0a, 435, 200, 380, 109, "Find", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_WindowCentered)
If CreateGadgetList(WindowID(#Window_0a))
StringGadget(#String_0a, 65, 10, 215, 20, "")
GadgetToolTip(#String_0a, "Search for..")
ButtonGadget(#Button_0a, 285, 10, 90, 20, "Find")
ButtonGadget(#Button_1a, 285, 45, 90, 20, "Cancel")
Frame3DGadget(#Frame3D_0a, 5, 40, 275, 65, "Search")
OptionGadget(#Radio_0a, 15, 55, 95, 15, "Top to bottom")
SetGadgetState(#Radio_0a,1)
OptionGadget(#Radio_1a, 15, 75, 95, 15, "Bottom to top")
CheckBoxGadget(#CheckBox_1a, 185, 55, 85, 15, "Whole word")
GadgetToolTip(#CheckBox_1a, "Search for the whole word")
TextGadget(#Text_3a, 5, 12, 55, 20, "Find:")
EndIf
EndIf
EndProcedure
Procedure Open_Window_gtl()
If OpenWindow(#Window_1a, 731, 387, 303, 57, "Goto Line", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_WindowCentered)
If CreateGadgetList(WindowID(#Window_1a))
TextGadget(#Text_2a, 10, 12, 55, 15, "Goto Line:")
StringGadget(#String_1a, 70, 10, 130, 20, "", #PB_String_Numeric)
ButtonGadget(#Button_3a, 205, 10, 90, 20, "Goto")
ButtonGadget(#Button_5a, 205, 35, 90, 20, "Cancel")
EndIf
EndIf
EndProcedure
Procedure Open_Window_rp()
If OpenWindow(#Window_2a, 497, 431, 380, 122, "Replace", #PB_Window_SystemMenu | #PB_Window_TitleBar| #PB_Window_WindowCentered )
If CreateGadgetList(WindowID(#Window_2a))
TextGadget(#Text_5a, 5, 12, 60, 20, "Word:")
StringGadget(#String_2a, 75, 10, 215, 20, "")
TextGadget(#Text_6a, 5, 40, 65, 18, "Replac with:")
StringGadget(#String_3a, 75, 35, 215, 20, "")
ButtonGadget(#Button_7a,295, 10, 80, 20, "Find")
ButtonGadget(#Button_8a, 295, 35, 80, 20, "Replace")
ButtonGadget(#Button_10a, 295, 60, 80, 20, "Replace all")
ButtonGadget(#Button_12a, 295, 95, 80, 20, "Cancel")
Frame3DGadget(#Frame3D_7a, 5, 60, 275, 55, "Search")
OptionGadget(#Radio_3a, 10, 75, 95, 15, "Top to bottom")
SetGadgetState(#Radio_3a,1)
OptionGadget(#Radio_5a, 10, 95, 95, 15, "Bottom to top")
CheckBoxGadget(#CheckBox_2a, 190, 75, 85, 15, "Whole word")
GadgetToolTip(#CheckBox_2a, "Search for the whole word")
EndIf
EndIf
EndProcedure
Procedure SaveFile()
file$=SaveFileRequester("Save as..","","Visual S++ Document (*.spp)|*.spp|Visual S++ Lib (*.lib)|*.lib|Visual S++ Effect Map (*.map)|*.map|Text Document (*.txt)|*.txt;",0)
If file$<>""
Dim pat.s(7)
pat(0)="spp"
pat(1)="lib"
pat(2)="map"
pat(3)="txt"
CreateFile(0,file$+"."+pat(SelectedFilePattern()))
For a=0 To CountGadgetItems(#Editor_1)
WriteStringN(0,GetGadgetItemText(#Editor_1,a,0))
Next
CloseFile(0)
EndIf
EndProcedure
Procedure _StreamFileIn_Callback(hFile, pbBuff, cb, pcb)
ProcedureReturn ReadFile_(hFile, pbBuff, cb, pcb, 0)!1
EndProcedure
Procedure Editor_Load()
file$=OpenFileRequester("Open..","","Visual S++ Document (*.spp)|*.spp|Visual S++ Lib (*.lib)|*.lib|Visual S++ Effect Map (*.map)|*.map|Text Document (*.txt)|*.txt|All Files (*.*)|*.*;",0)
If file$<>""
SetGadgetText(#Editor_1,"")
Protected StreamData.EDITSTREAM
Protected FileID.l
FileID = ReadFile(#PB_Any,file$)
If FileID
StreamData\dwCookie = FileID(FileID)
StreamData\dwError = #Null
StreamData\pfnCallback = @_StreamFileIn_Callback()
If UCase(GetExtensionPart(file$)) = "RTF"
SendMessage_(GadgetID(#Editor_1), #EM_STREAMIN, #SF_RTF, @StreamData)
Else
SendMessage_(GadgetID(#Editor_1), #EM_STREAMIN, #SF_TEXT, @StreamData)
EndIf
CloseFile(FileID)
EndIf
EndIf
EndProcedure
Procedure StreamOUT(dwCookie.l,pbBuff.l,cb.l,*pcb.l)
WriteFile_(dwCookie, pbBuff, cb, *pcb, 0)
!XOR Eax,1
ProcedureReturn
EndProcedure
Procedure Save()
Protected File.s
Protected *hFile.LONG
Protected Stream.EDITSTREAM
File = OpenFileRequester("Save as..", "", "Visual S++ Document (*.spp)|*.spp|Visual S++ Lib (*.lib)|*.lib|Visual S++ Effect Map (*.map)|*.map|Text Document (*.txt)|*.txt|All Files (*.*)|", 0)
If File
typ(0)=".spp"
typ(1)="lib"
typ(2)=".map"
typ(3)=".txt"
*hFile = OpenFile(#PB_Any, File+typ(SelectedFilePattern()))
If *hFile
Stream\dwCookie = *hFile\l
Stream\pfnCallback = @StreamOUT()
SendMessage_(GadgetID(#Editor_1), #EM_STREAMOUT, #SF_TEXT, @Stream)
CloseFile(*hFile)
EndIf
EndIf
EndProcedure
open_window_0()
Repeat
event=WaitWindowEvent()
winev=EventWindow()
StatusBarText(#Statusbar_0, 0, "Column:"+Str(EditorGadgetCursorY(#Editor_1))+" Row:"+Str(EditorGadgetCursorx(#Editor_1)))
If event=#PB_Event_Menu
Select EventMenu()
Case #MENU_29
EditorGadgetUNDO(#Editor_1)
Case #MENU_30
EditorGadgetREDO(#Editor_1)
Case #MENU_31
EditorGadgetcut(#Editor_1)
Case #MENU_33
EditorGadgetcopy(#Editor_1)
Case #MENU_delline
RemoveGadgetItem(#Editor_1,EditorGadgetCursorY(#Editor_1)-1)
Case #MENU_35
EditorGadgetselectall(#Editor_1)
Case #MENU_slast
EditorGadgetselectlast(#Editor_1)
Case #MENU_73
EditorGadgetpaste(#Editor_1)
Case #MENU_34
EditorGadgetDelete(#Editor_1)
Case #MENU_37
open_window_gtl()
Case #MENU_40
open_window_find()
Case #MENU_39
open_window_rp()
Case #MENU_5
If GetGadgetText(#Editor_1)<>"" And MODIFIED=0
If MessageRequester("Visual S++","The file has been modified. Are you sure?",#MB_ICONWARNING|#PB_MessageRequester_YesNo)=#PB_MessageRequester_Yes
SetGadgetText(#Editor_1,"")
SetWindowTitle(#Window_0,"Editor")
EndIf
Else
SetGadgetText(#Editor_1,"")
SetWindowTitle(#Window_0,"Editor")
EndIf
Case #MENU_11
Save()
Case #MENU_7
If GetGadgetText(#Editor_1)<>"" And MODIFIED=0
If MessageRequester("Visual S++","The file has been modified. Are you sure?",#MB_ICONWARNING|#PB_MessageRequester_YesNo)=#PB_MessageRequester_Yes
Editor_load()
EndIf
Else
Editor_load()
EndIf
EndSelect
EndIf
;{ : Replace
If event=#PB_Event_Gadget
Select EventGadget()
Case#Button_12a
HideWindow(#window_2a,1)
Case #Button_7a
If GetGadgetState(#Radio_3a)=1
res=EditorGadgetSearch(#Editor_1,GetGadgetText(#String_2a),EditorGadgetCursorPos(#Editor_1),GetGadgetState(#Radio_3a),GetGadgetState(#CheckBox_2a))
If res<>-1
EditorSetSelect(#Editor_1,res,res+Len(GetGadgetText(#String_2a)))
EndIf
Else
res=EditorGadgetSearch(#Editor_1,GetGadgetText(#String_2a),EditorGadgetCursorPos(#Editor_1)-1,GetGadgetState(#Radio_3a),GetGadgetState(#CheckBox_2a))
If res<>-1
EditorSetSelect(#Editor_1,res,res+Len(GetGadgetText(#String_2a)))
EndIf
EndIf
Case #Button_8a
EditorGadgetReplace(#Editor_1,GetGadgetText(#String_3a))
Case #Button_10a
Repeat
If GetGadgetState(#Radio_3a)=1
res=EditorGadgetSearch(#Editor_1,GetGadgetText(#String_2a),EditorGadgetCursorPos(#Editor_1),GetGadgetState(#Radio_3a),GetGadgetState(#CheckBox_2a))
If res<>-1
EditorSetSelect(#Editor_1,res,res+Len(GetGadgetText(#String_2a)))
EditorGadgetReplace(#Editor_1,GetGadgetText(#String_3a))
EndIf
Else
res=EditorGadgetSearch(#Editor_1,GetGadgetText(#String_2a),EditorGadgetCursorPos(#Editor_1)-1,GetGadgetState(#Radio_3a),GetGadgetState(#CheckBox_2a))
If res<>-1
EditorSetSelect(#Editor_1,res,res+Len(GetGadgetText(#String_2a)))
EditorGadgetReplace(#Editor_1,GetGadgetText(#String_3a))
EndIf
EndIf
Until res=-1
EndSelect
EndIf
;}
;{ : Find
If event=#PB_Event_Gadget
Select EventGadget()
Case #Button_1a
HideWindow(#window_0a,1)
Case #Button_0a
If GetGadgetState(#Radio_0a)=1
res=EditorGadgetSearch(#Editor_1,GetGadgetText(#String_0a),EditorGadgetCursorPos(#Editor_1),GetGadgetState(#Radio_0a),GetGadgetState(#CheckBox_1a))
If res<>-1
EditorSetSelect(#Editor_1,res,res+Len(GetGadgetText(#String_0a)))
EndIf
Else
res=EditorGadgetSearch(#Editor_1,GetGadgetText(#String_0a),EditorGadgetCursorPos(#Editor_1)-1,GetGadgetState(#Radio_0a),GetGadgetState(#CheckBox_1a))
If res<>-1
EditorSetSelect(#Editor_1,res,res+Len(GetGadgetText(#String_0a)))
EndIf
EndIf
EndSelect
EndIf
;}
;{ : Goto Line
If event=#PB_Event_Gadget
Select EventGadget()
Case #Button_5a
HideWindow(#window_1a,1)
Case #Button_3a
line=Val(GetGadgetText(#String_1a))
HideWindow(#Window_1a,1)
SetActiveGadget(#Editor_1)
EditorGadgetLocate(#Editor_1,0,line+1)
EndSelect
EndIf
;}
;{ : resizes
If winev=#window_0
If event=#PB_Event_CloseWindow
ElseIf event=#PB_Event_SizeWindow
ResizeGadget(#Editor_1,#PB_Ignore,GadgetY(#Editor_1),WindowWidth(#window_0)-210,WindowHeight(#Window_0)-GadgetHeight(#Container_3)-GadgetHeight(#Panel_0)-(StatusBarHeight(#Statusbar_0)*2)-40)
ResizeGadget(#Container_3,#PB_Ignore,GadgetHeight(#Editor_1)+41,GadgetWidth(#Editor_1)+2.5,#PB_Ignore)
ResizeGadget(#Panel_3,GadgetWidth(#Editor_1)+5,GadgetY(#Panel_3),GadgetWidth(#Panel_3),WindowHeight(#Window_0)-(StatusBarHeight(#Statusbar_0)*5-28))
ResizeGadget(#Panel_0,#PB_Ignore,GadgetHeight(#Editor_1)+GadgetHeight(#Container_3)+41,GadgetWidth(#Editor_1)+5,#PB_Ignore)
ResizeGadget(#Editor_0,#PB_Ignore,#PB_Ignore,GadgetWidth(#Panel_0)-10,#PB_Ignore)
ResizeGadget(#ListIcon_0,#PB_Ignore,#PB_Ignore,GadgetWidth(#Panel_0)-10,#PB_Ignore)
ResizeGadget(#Editor_2,#PB_Ignore,#PB_Ignore,GadgetWidth(#Panel_0)-10,#PB_Ignore)
EndIf
EndIf
;}
If winev=#WINDOW_2a
If event=#PB_Event_CloseWindow
HideWindow(#Window_2a,1)
EndIf
EndIf
If winev=#WINDOW_0a
If event=#PB_Event_CloseWindow
HideWindow(#Window_0a,1)
EndIf
EndIf
If winev=#WINDOW_1a
If event=#PB_Event_CloseWindow
HideWindow(#Window_1a,1)
EndIf
EndIf
If winev=#WINDOW_0
If event=#PB_Event_CloseWindow
End
EndIf
EndIf
ForEver
das kommt auf die im System eingestellte Zeichensatzgrösse an.DW hat geschrieben:Die height muss mindestens 39 Pixel(?!) betragen(Ein einziges item ist anscheinend 39 Pixel groß)