tool Explorer add 'current directory'

Working on new editor enhancements?
User avatar
gurj
Enthusiast
Enthusiast
Posts: 658
Joined: Thu Jan 22, 2009 3:48 am
Location: china
Contact:

tool Explorer add 'current directory'

Post by gurj »

Code: Select all

;tool Explorer add 'current directory'
OpenWindow(1,0,0,250,500,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ComboBoxGadget(2,0, 0,250, 20)
AddGadgetItem(2,-1,"PureBasic Files (*.pb, *.pbi, *.pbp, *.pbf)")
SetGadgetState(2,0)
;TODO my a Explorer is E:\myset\pb\WinAPI_Library\codes\
;TODO current directory is codes\EditorGadget\
StringGadget(3, 0, 20,250, 20, "EditorGadget")
ExplorerListGadget(4, 0, 40,250, 380, "E:\myset\pb\WinAPI_Library\codes\EditorGadget\")

Repeat:ev=WaitWindowEvent():Select ev

  Case #PB_Event_CloseWindow:Break
EndSelect:ForEver
End
my pb for chinese:
http://ataorj.ys168.com