AutoHotkey Community

[majkinetor]

 

Common Dialogs

Download          Documentation

Example:


Code:

#Singleinstance, force #NoEnv    Gui, +LastFound    hGui := WinExist()    Gui, Add, Button, w100 y+10 gOnBtn ,Icon    Gui, Add, Button, w100 y+10 gOnBtn ,Color    Gui, Add, Button, w100 y+10 gOnBtn ,Font       Gui, Add, Button, w100 y+10 gOnBtn ,Open    Gui, Add, Button, w100 y+10 gOnBtn ,Save    Gui, Add, Button, w100 y+10 gOnBtn ,Find    Gui, Add, Button, w100 y+10 gOnBtn ,Replace    Gui, Add, Edit, ym+5 w300 h220,Input / Output    Gui, Show, autosize return Set(txt){    ControlSetText, Edit1, %txt% } OnBtn:    if A_GuiControl = Icon       if CmnDlg_Icon(icon, idx, hGui)          Set("Path:  " icon "`r`nIndex:  " idx)    if A_GuiControl = Color        if CmnDlg_Color( color, hGui )          Set("Color: " color)    if A_GuiControl = Font       if CmnDlg_Font( font, style, color, true, hGui)          Set("Font:  " font "`r`nStyle:  " style "`r`nColor:  " color)    if A_GuiControl = Open    {       res := CmnDlg_Open(hGui, "Select several files", "All Files (*.*)|Audio (*.wav; *.mp2; *.mp3)|Documents (*.txt)", "", "d:\", "", "ALLOWMULTISELECT FILEMUSTEXIST HIDEREADONLY")       StringReplace, res, res, `n, `r`n, A       Set(res)    }    if A_GuiControl = Save       Set(CmnDlg_Save(hGui, "Select several files", "All Files (*.*)|Audio (*.wav; *.mp2; *.mp3)|Documents (*.txt)", "", "c:\"))        if A_GuiControl = Find       CmnDlg_Find(hGui, "OnFind", "d")    if A_GuiControl = Replace       CmnDlg_Replace(hGui, "OnFind", "d") return OnFind(Event, Flags, FindWhat, ReplaceWith){    Set("Event: " event "`r`nFlags: " flags "`r`nFindWhat: " FindWhat (ReplaceWith != "" ? "`r`nReplaceWith: " ReplaceWith : "") ) } #include CmnDlg.ahk

_________________

[majkinetor]

One strange thing happening. If you check the code you will see lines:

[Sean]

This is normal. You only give the address of i, and i is stored as a string. Use a pointer instead: "intP", i like in
http://www.autohotkey.com/forum/topic16755.html

[majkinetor]

ah... my mistake.. i somehow confused uint with intp

Hmm.. something is wrong with the function. Suddenly it stoped returning new path upon selection.... The index is returned correctly but the path stays the same as on input for some reason, even if you change it.
_________________

[Sean]

Looks like the script doesn't count the null terminator character at all. Then, lstrlen function might not function as expected. That could be a cause.

[majkinetor]

Argh I must get some sleep..

I changed the func, and left something that was there in my initial runs.. count of chars that i removed latter...


Btw, it counts null char, that is the reason for 1025 ~ Max_PATH*2 + 1

ok, just redownload
_________________

[Sean]

I didn't mean the buffer length, 1025 + 1 is far more than enough mostly even with Unicode function, I suppose. I meant the parameter like StrLen() etc. To be safer, they should be like StrLen() + 1 etc IMO.

[majkinetor]

well, msdn explicitely states where it requires null char counted and where not.
_________________

[majkinetor]

I reordered things a little
_________________

[n-l-i-d]

Very cool!

Icon doesn't insert correctly into your example for me.


Wondering... Does anybody know what the exact system requirements are for these emerging COM/OLE scripts? Does it need NT or IE or anything?

[majkinetor]

I tried this and it showed me folder icon

[n-l-i-d]

Ok, I see, your example does not add the actual selected icon, only the first.

I guess COM/OLE needs IE3, from reading a bit, and it should be available from Win95 on... Now I'm still wondering if all the COM scripts here actually would work on a Win95 system with IE3.

[Sean]

[Sean]

[majkinetor]

well, max path is 260 TCHARS AFAIK. SO, in unicode terms it is double. Why I used double of double, don't ask... was very sleepy and crashed yesterday, I made bunch of trivial errors. I didn't use 260, but degree of 2 as it is the fastest to alocate buffers with such size.
_________________