args f, What static hwnd = win.handle("c=TTOTAL_CMD") static TMP = "TMyPanel" static TMTC = "c=TMyTabControl" static s = f static Text, Hand, Temp, Width, LPath, i static Path = "bdcihslktyre" if(arg(0) == 1) do What = Path jump NoQ endif if(What != "?") jump NoQ LPath = esc(?+\r+, ?+\+) Text = "Button Bar\Drive Button Bars\Drive ComboBox\Current Directory\Tab Header\" Text = Text ++ "Status Bar\Command Line\Function Key Buttons\Folder Tabs\" Text = Text ++ "Directory History & Hotlist\Breadcrumb Bar\Separate Tree\ALL THE ABOVE" Hand = replacechars(Text, "\", LPath) Temp = ifelse(f, "Show", "Hide") Width = length(Path) pickstring(Hand, Temp, 3) if(not _pickedline_) quit Temp = _pickedline_ Text = word(Temp, 0) Hand = Width + 1 if(Text == Hand) quit What = "" if(index(Temp, Hand)) do What = Path jump NoQ endif for(i = 1; i <= Text; i++) Hand = word(Temp, i) What = What ++ select(Path, Hand, Hand) endfor @NoQ if(index(What, "b")) ButtonBar() if(index(What, "d")) DriveButtons() if(index(What, "c")) ComboBox() if(index(What, "i")) Directory() if(index(What, "h")) TabHeader() if(index(What, "s")) StatusBar() if(index(What, "l")) CommandLine() if(index(What, "k")) FunctionKey() if(index(What, "t")) Tabs() if(index(What, "y")) HistoryHotList() if(index(What, "r")) Breadcrumb() if(index(What, "e")) SeparateTree() quit //------------------------------------------------------------------------ Function ButtonBar if(s ^^ childwin.handle(hwnd, "TButtonBar")) win.sendmessage(hwnd, 0x400+51, 2901, 0) quit //------------------------------------------------------------------------ Function DriveButtons if(s ^^ childwin.handle(hwnd, "TDrivePanel")) win.sendmessage(hwnd, 0x400+51, 2902, 0) quit //------------------------------------------------------------------------ Function ComboBox Temp = win.childhandlelist(hwnd, "c=TMyComboBox") local Counter for each word LPath in Temp Counter += win.visible(LPath) endfor if(s ^^ Counter) win.sendmessage(hwnd, 0x400+51, 2906, 0) quit //------------------------------------------------------------------------ Function Directory Temp = win.childhandlelist(hwnd, "c=TPathPanel") LPath = word(Temp, 1) if(s ^^ win.height(LPath)) win.sendmessage(hwnd, 0x400+51, 2907, 0) quit //------------------------------------------------------------------------ Function TabHeader Temp = win.childhandlelist(hwnd, "c=THeaderClick") LPath = word(Temp, 1) if(s ^^ win.height(LPath)) win.sendmessage(hwnd, 0x400+51, 2908, 0) quit //------------------------------------------------------------------------ Function StatusBar Temp = win.childhandlelist(hwnd, TMTC) LPath = word(Temp, 1) Temp = childwin.handle(LPath, TMP) if(s ^^ win.height(Temp)) win.sendmessage(hwnd, 0x400+51, 2909, 0) quit //------------------------------------------------------------------------ Function CommandLine Temp = win.childhandlelist(hwnd, "c=Edit") if(s ^^ win.visible(Temp)) win.sendmessage(hwnd, 0x400+51, 2910, 0) quit //------------------------------------------------------------------------ Function FunctionKey Temp = win.childhandlelist(hwnd, "c=TMypanel") for each word LPath in Temp Hand = childwin.handle(LPath, TMP) if(not Hand) continue Text = win.gettext(Hand) Path = remove(Text, -1) if(validpath(Path)) break endfor Temp = win.childhandlelist(hwnd, "c=Edit") Hand = win.visible(Temp) Temp = win.height(LPath) - 25*Hand if(s ^^ Temp) win.sendmessage(hwnd, 0x400+51, 2911, 0) quit //------------------------------------------------------------------------ Function Tabs Temp = win.childhandlelist(hwnd, TMTC) if(s ^^ Temp) win.sendmessage(hwnd, 0x400+51, 2916, 0) quit //------------------------------------------------------------------------ Function HistoryHotList Temp = win.childhandlelist(hwnd, TMTC) LPath = word(Temp, 1) Width = win.width(LPath) Hand = childwin.handle(LPath, "TPathPanel") Text = win.width(Hand) Path = win.height(Hand) if(s ^^ (Text + 2*Path - Path/2 < Width)) win.sendmessage(hwnd, 0x400+51, 2919, 0) quit //------------------------------------------------------------------------ Function Breadcrumb keys %{f11} wait.for(100) Temp = childwin.handle(hwnd, TMP, 1) Width = win.width(Temp) if(s ^^ Width) win.sendmessage(hwnd, 0x400+51, 2926, 0) quit //------------------------------------------------------------------------ Function SeparateTree Temp = win.childhandlelist(hwnd, "c=TMyListBox") if(s && (word(Temp, 0) <= 3)) win.sendmessage(hwnd, 0x400+51, 3201, 0) if(not s && (word(Temp, 0) == 3)) win.sendmessage(hwnd, 0x400+51, 3200, 0)