Du mit Deinem CloseGadgetList()...

mal abgesehen davon, dass es kein Gadget Nummer 8 gibt:Code: Alles auswählen
Select EventGadget() Case 8 SetGadgetState(1, 333) SetGadgetState(2, 333)
Was machst Du da?
Grüße ... Kiffi
mal abgesehen davon, dass es kein Gadget Nummer 8 gibt:Code: Alles auswählen
Select EventGadget() Case 8 SetGadgetState(1, 333) SetGadgetState(2, 333)
Code: Alles auswählen
#WindowWidth = 640
#WindowHeight = 480
Enumeration ; Windows
#myWindow
EndEnumeration
Enumeration ; Gadgets
#myExplorerListGadget
#myEditorGadget
#mySplitterGadget
EndEnumeration
WindowFlags | #PB_Window_SizeGadget
WindowFlags | #PB_Window_SystemMenu
WindowFlags | #PB_Window_ScreenCentered
If OpenWindow(#myWindow, #PB_Ignore, #PB_Ignore, #WindowWidth, #WindowHeight, "Menü Test", WindowFlags)
ExplorerListGadget(#myExplorerListGadget, 0, 0, 0, 0, "C:\QMSystems\", #PB_Explorer_AlwaysShowSelection | #PB_Explorer_FullRowSelect | #PB_Explorer_MultiSelect )
EditorGadget(#myEditorGadget, 0, 0, 0, 0)
SplitterGadget(#mySplitterGadget, 0, 0, WindowWidth(#myWindow), WindowHeight(#myWindow), #myExplorerListGadget, #myEditorGadget, #PB_Splitter_Vertical | #PB_Splitter_Separator)
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
ElseIf EventID = #PB_Event_SizeWindow
ResizeGadget(#mySplitterGadget, #PB_Ignore, #PB_Ignore, WindowWidth(#myWindow), WindowHeight(#myWindow)) ; Our 'master' splitter gadget
; die beiden im SplitterGadget liegenden Gadgets benötigen kein Resize
; das erledigt das SplitterGadget automatisch.
EndIf
Until EventID = #PB_Event_CloseWindow
EndIf
End
Uups! Da hast Du Dir was vorgenommen. Das mit der Filelist ist sicher kein Problem, und Word startest Du dann mit RunProgram() und übergibst dem den Filename. Aber das Word in Deinem Fenster startet, mit editierbaremText und nicht nur als Vorschau, das wird spannend. Geht vielleicht über API, aber mit normalen PB-Mittel eher nicht. Oder hat jemand eine Idee dazu?samurai hat geschrieben:Wenn es fertig ist, soll im rechten Fenster "WORD" starten, wenn ich links eine ".doc" Datei anklicke.