New Lexer:
/* Title: Dlg
*Common Operating System Dialogs*
*/
/*
Function: Color
(See Dlg_color.png)
Parameters:
Color - Initial color and output in RGB format.
hGui - Optional handle to parents Gui. Affects dialog position.
Returns:
False if user canceled the dialog or if error occurred
*/
Dlg_Color(ByRef Color, hGui=0){
;covert from rgb
clr := ((Color & 0xFF) << 16) + (Color & 0xFF00) + ((Color >> 16) & 0xFF)
VarSetCapacity(CHOOSECOLOR, 0x24, 0), VarSetCapacity(CUSTOM, 64, 0)
,NumPut(0x24, CHOOSECOLOR, 0) ; DWORD lStructSize
,NumPut(hGui, CHOOSECOLOR, 4) ; HWND hwndOwner (makes dialog "modal").
,NumPut(clr, CHOOSECOLOR, 12) ; clr.rgbResult
,NumPut(&CUSTOM, CHOOSECOLOR, 16) ; COLORREF *lpCustColors
,NumPut(0x00000103,CHOOSECOLOR, 20) ; Flag: CC_ANYCOLOR || CC_RGBINIT
nRC := DllCall("comdlg32\ChooseColorA", str, CHOOSECOLOR) ; Display the dialog.
if (errorlevel <> 0) || (nRC = 0)
return false
clr := NumGet(CHOOSECOLOR, 12)
oldFormat := A_FormatInteger
SetFormat, integer, hex ; Show RGB color extracted below in hex format.
;convert to rgb
Color := (clr & 0xff00) + ((clr & 0xff0000) >> 16) + ((clr & 0xff) << 16)
StringTrimLeft, Color, Color, 2
loop, % 6-strlen(Color)
Color=0%Color%
Color=0x%Color%
SetFormat, integer, %oldFormat%
return true
}
/*
Function: Find / Replace
(See Dlg_find.png)
(See Dlg_replace.png)
Parameters:
hGui - Handle to the parent.
Handler - Notification handler, see below.
Flags - Creation flags, see below.
FindText - Default text to be displayed at the start of the dialog box in find edit box.
ReplaceText - Default text to be displayed at the start of the dialog box in replace edit box.
Flags:
String containing list of creation flags. You can use "-" prefix to hide that GUI field.
d - down radio button selected in Find dialog.
w - whole word selected.
c - match case selected.
Handler:
Dialog box is not modal, so it communicates with the script while it is active. Both Find & Replace use
the same prototype of notification function.
> Handler(Event, Flags, FindText, ReplaceText)
Event - C (Close), F (Find), R (Replace), A (replace All)
Flags - String containing flags about user selection; each letter means user has selected that particular GUI element.
FindText - Current find text.
ReplaceText - Current replace text.
Returns:
Handle of the dialog or 0 if the dialog can't be created. Returns error code on invalid handler.
*/
Dlg_Find( hGui, Handler, Flags="d", FindText="") {
static FINDMSGSTRING = "commdlg_FindReplace"
static FR_DOWN=1, FR_MATCHCASE=4, FR_WHOLEWORD=2, FR_HIDEMATCHCASE=0x8000, FR_HIDEWHOLEWORD=0x10000, FR_HIDEUPDOWN=0x4000
static buf, FR, len
if len =
VarSetCapacity(FR, 40, 0), VarSetCapacity(buf, len := 256)
ifNotEqual, FindText, , SetEnv, buf, %FindText%
f := 0
,InStr(flags, "d") ? f |= FR_DOWN : ""
,InStr(flags, "c") ? f |= FR_MATCHCASE : ""
,InStr(flags, "w") ? f |= FR_WHOLEWORD : ""
,InStr(flags, "-d") ? f |= FR_HIDEUPDOWN : ""
,InStr(flags, "-w") ? f |= FR_HIDEWHOLEWORD : ""
,InStr(flags, "-c") ? f |= FR_HIDEMATCHCASE : ""
NumPut(40, FR, 0) ;size
,NumPut( hGui, FR, 4) ;hwndOwner
,NumPut( f, FR, 12) ;Flags
,NumPut( &buf, FR, 16) ;lpstrFindWhat
,NumPut( len, FR, 24) ;wFindWhatLen
if !IsFunc(Handler)
return A_ThisFunc ">Invalid handler: " Handler
Dlg_callback(Handler,"","","")
OnMessage( DllCall("RegisterWindowMessage", "str", FINDMSGSTRING), "Dlg_callback" )
return DllCall("comdlg32\FindTextA", "str", FR)
}
Dlg_Replace( hGui, Handler, Flags="", FindText="", ReplaceText="") {
static FINDMSGSTRING = "commdlg_FindReplace"
static FR_MATCHCASE=4, FR_WHOLEWORD=2, FR_HIDEMATCHCASE=0x8000, FR_HIDEWHOLEWORD=0x10000, FR_HIDEUPDOWN=0x4000
static buf_f, buf_r, FR, len
if len =
len := 256, VarSetCapacity(FR, 40, 0), VarSetCapacity(buf_f, len), VarSetCapacity(buf_r, len)
f := 0
f |= InStr(flags, "c") ? FR_MATCHCASE : 0
f |= InStr(flags, "w") ? FR_WHOLEWORD : 0
f |= InStr(flags, "-w") ? FR_HIDEWHOLEWORD :0
f |= InStr(flags, "-c") ? FR_HIDEMATCHCASE :0
ifNotEqual, FindText, ,SetEnv, buf_f, %FindText%
ifNotEqual, ReplaceText, ,SetEnv, buf_r, %ReplaceText%
NumPut( 40, FR, 0) ;size
,NumPut( hGui, FR, 4) ;hwndOwner
,NumPut( f, FR, 12) ;Flags
,NumPut( &buf_f, FR, 16) ;lpstrFindWhat
,NumPut( &buf_r, FR, 20) ;lpstrReplaceWith
,NumPut( len, FR, 24) ;wFindWhatLen
,NumPut( len, FR, 26) ;wReplaceWithLen
Dlg_callback(Handler,"","","")
OnMessage( DllCall("RegisterWindowMessage", "str", FINDMSGSTRING), "Dlg_callback" )
return DllCall("comdlg32\ReplaceTextA", "str", FR)
}
/*
Function: Font
(See Dlg_font.png)
Parameters:
Name - Initial font, output.
Style - Initial style, output.
Color - Initial text color, output.
Effects - Set to false to disable effects (strikeout, underline, color).
hGui - Parent's handle, affects position.
Returns:
False if user canceled the dialog or if error occurred.
*/
Dlg_Font(ByRef Name, ByRef Style, ByRef Color, Effects=true, hGui=0) {
LogPixels := DllCall("GetDeviceCaps", "uint", DllCall("GetDC", "uint", hGui), "uint", 90) ;LOGPIXELSY
VarSetCapacity(LOGFONT, 128, 0)
Effects := 0x041 + (Effects ? 0x100 : 0) ;CF_EFFECTS = 0x100, CF_SCREENFONTS=1, CF_INITTOLOGFONTSTRUCT = 0x40
;set initial name
DllCall("RtlMoveMemory", "uint", &LOGFONT+28, "Uint", &Name, "Uint", 32)
;convert from rgb
clr := ((Color & 0xFF) << 16) + (Color & 0xFF00) + ((Color >> 16) & 0xFF)
;set intial data
if InStr(Style, "bold")
NumPut(700, LOGFONT, 16)
if InStr(Style, "italic")
NumPut(255, LOGFONT, 20, 1)
if InStr(Style, "underline")
NumPut(1, LOGFONT, 21, 1)
if InStr(Style, "strikeout")
NumPut(1, LOGFONT, 22, 1)
if RegExMatch(Style, "s[1-9][0-9]*", s){
StringTrimLeft, s, s, 1
s := -DllCall("MulDiv", "int", s, "int", LogPixels, "int", 72)
NumPut(s, LOGFONT, 0, "Int") ; set size
}
else NumPut(16, LOGFONT, 0) ; set default size
VarSetCapacity(CHOOSEFONT, 60, 0)
,NumPut(60, CHOOSEFONT, 0) ; DWORD lStructSize
,NumPut(hGui, CHOOSEFONT, 4) ; HWND hwndOwner (makes dialog "modal").
,NumPut(&LOGFONT,CHOOSEFONT, 12) ; LPLOGFONT lpLogFont
,NumPut(Effects, CHOOSEFONT, 20)
,NumPut(clr, CHOOSEFONT, 24) ; rgbColors
r := DllCall("comdlg32\ChooseFontA", "uint", &CHOOSEFONT) ; Display the dialog.
if !r
return false
;font name
VarSetCapacity(Name, 32)
DllCall("RtlMoveMemory", "str", Name, "Uint", &LOGFONT + 28, "Uint", 32)
Style := "s" NumGet(CHOOSEFONT, 16) // 10
;color
old := A_FormatInteger
SetFormat, integer, hex ; Show RGB color extracted below in hex format.
Color := NumGet(CHOOSEFONT, 24)
SetFormat, integer, %old%
;styles
Style =
VarSetCapacity(s, 3)
DllCall("RtlMoveMemory", "str", s, "Uint", &LOGFONT + 20, "Uint", 3)
if NumGet(LOGFONT, 16) >= 700
Style .= "bold "
if NumGet(LOGFONT, 20, "UChar")
Style .= "italic "
if NumGet(LOGFONT, 21, "UChar")
Style .= "underline "
if NumGet(LOGFONT, 22, "UChar")
Style .= "strikeout "
s := NumGet(LOGFONT, 0, "Int")
Style .= "s" Abs(DllCall("MulDiv", "int", abs(s), "int", 72, "int", LogPixels))
;convert to rgb
oldFormat := A_FormatInteger
SetFormat, integer, hex ; Show RGB color extracted below in hex format.
Color := (Color & 0xff00) + ((Color & 0xff0000) >> 16) + ((Color & 0xff) << 16)
StringTrimLeft, Color, Color, 2
loop, % 6-strlen(Color)
Color=0%Color%
Color=0x%Color%
SetFormat, integer, %oldFormat%
return 1
}
/*
Function: Icon
(See Dlg_icon.png)
Parameters:
Icon - Default icon resource, output.
Index - Default index within resource, output.
hGui - Optional handle of the parent GUI.
Returns:
False if user canceled the dialog or if error occurred
Remarks:
This is simple and non-flexible dialog. If you need more features, use <IconEx> instead.
*/
Dlg_Icon(ByRef Icon, ByRef Index, hGui=0) {
VarSetCapacity(wIcon, 1025, 0)
If (Icon) && !DllCall("MultiByteToWideChar", "UInt", 0, "UInt", 0, "Str", Icon, "Int", StrLen(Icon), "UInt", &wIcon, "Int", 1025)
return false
r := DllCall(DllCall("GetProcAddress", "Uint", DllCall("LoadLibrary", "str", "shell32.dll"), "Uint", 62), "uint", hGui, "uint", &wIcon, "uint", 1025, "intp", --Index)
Index++
IfEqual, r, 0, return false
VarSetCapacity(Icon, len := DllCall("lstrlenW", "UInt", &wIcon) )
r := DllCall("WideCharToMultiByte" , "UInt", 0, "UInt", 0, "UInt", &wIcon, "Int", len, "Str", Icon, "Int", len, "UInt", 0, "UInt", 0)
IfEqual, r, 0, return false
Return True
}
/*
Function: Open / Save
(See Dlg_open.png)
Parameters:
hGui - Parent's handle, positive number by default 0 (influences dialog position).
Title - Dialog title.
Filter - Specify filter as with FileSelectFile. Separate multiple filters with "|". For instance "All Files (*.*)|Audio (*.wav; *.mp2; *.mp3)|Documents (*.txt)"
DefaultFilter - Index of default filter (1 based), by default 1.
Root - Specifies startup directory and initial content of "File Name" edit.
Directory must have trailing "\".
DefaultExt - Extension to append when none given .
Flags - White space separated list of flags, by default "FILEMUSTEXIST HIDEREADONLY".
Flags:
allowmultiselect - Specifies that the File Name list box allows multiple selections
createprompt - If the user specifies a file that does not exist, this flag causes the dialog box to prompt the user for permission to create the file
dontaddtorecent - Prevents the system from adding a link to the selected file in the file system directory that contains the user's most recently used documents.
extensiondifferent - Specifies that the user typed a file name extension that differs from the extension specified by defaultExt
filemustexist - Specifies that the user can type only names of existing files in the File Name entry field
forceshowhidden - Forces the showing of system and hidden files, thus overriding the user setting to show or not show hidden files. However, a file that is marked both system and hidden is not shown.
hidereadonly - Hides the Read Only check box.
nochangedir - Restores the current directory to its original value if the user changed the directory while searching for files.
nodereferencelinks - Directs the dialog box to return the path and file name of the selected shortcut (.LNK) file. If this value is not specified, the dialog box returns the path and file name of the file referenced by the shortcut.
novalidate - Specifies that the common dialog boxes allow invalid characters in the returned file name
overwriteprompt - Causes the Save As dialog box to generate a message box if the selected file already exists. The user must confirm whether to overwrite the file.
pathmustexist - Specifies that the user can type only valid paths and file names.
readonly - Causes the Read Only check box to be selected initially when the dialog box is created
showhelp - Causes the dialog box to display the Help button. The hGui receives the HELPMSGSTRING registered messages that the dialog box sends when the user clicks the Help button.
noreadonlyreturn - Specifies that the returned file does not have the Read Only check box selected and is not in a write-protected directory.
notestfilecreate - Specifies that the file is not created before the dialog box is closed. This flag should be specified if the application saves the file on a create-nonmodify network share.
Returns:
Selected FileName or nothing if cancelled. If more then one file is selected they are separated by new line character.
Remarks:
Those functions will change the working directory of the script. Use SetWorkingDir afterwards to restore working directory if needed.
*/
Dlg_Open( hGui=0, Title="", Filter="", DefaultFilter="", Root="", DefaultExt="", Flags="FILEMUSTEXIST HIDEREADONLY" ) {
static OFN_S:=0, OFN_ALLOWMULTISELECT:=0x200, OFN_CREATEPROMPT:=0x2000, OFN_DONTADDTORECENT:=0x2000000, OFN_EXTENSIONDIFFERENT:=0x400, OFN_FILEMUSTEXIST:=0x1000, OFN_FORCESHOWHIDDEN:=0x10000000, OFN_HIDEREADONLY:=0x4, OFN_NOCHANGEDIR:=0x8, OFN_NODEREFERENCELINKS:=0x100000, OFN_NOVALIDATE:=0x100, OFN_OVERWRITEPROMPT:=0x2, OFN_PATHMUSTEXIST:=0x800, OFN_READONLY:=0x1, OFN_SHOWHELP:=0x10, OFN_NOREADONLYRETURN:=0x8000, OFN_NOTESTFILECREATE:=0x10000
IfEqual, Filter, ,SetEnv, Filter, All Files (*.*)
SplitPath, Root, rootFN, rootDir
hFlags := 0x80000 ;OFN_ENABLEXPLORER always set
loop, parse, Flags,%A_TAB%%A_SPACE%,%A_TAB%%A_SPACE%
if A_LoopField !=
hFlags |= OFN_%A_LoopField%
ifEqual, hFlags, , return A_ThisFunc "> Some of the flags are invalid: " Flags
VarSetCapacity( FN, 0xffff ), VarSetCapacity( lpstrFilter, 2*StrLen(filter))
if rootFN !=
DllCall("lstrcpyn", "str", FN, "str", rootFN, "int", StrLen(rootFN)+1)
; Contruct FilterText seperate by \0
delta := 0 ;Used by Loop as Offset
loop, Parse, Filter, |
{
desc := A_LoopField, ext := SubStr(A_LoopField, InStr( A_LoopField,"(" )+1, -1)
lenD := StrLen(A_LoopField)+1, lenE := StrLen(ext)+1 ;including /0
DllCall("lstrcpyn", "uint", &lpstrFilter + delta, "uint", &desc, "int", lenD)
DllCall("lstrcpyn", "uint", &lpstrFilter + delta + lenD, "uint", &ext, "int", lenE)
delta += lenD + lenE
}
NumPut(0, lpstrFilter, delta, "UChar" ) ; Double Zero Termination
; Contruct OPENFILENAME Structure
VarSetCapacity( OFN ,90, 0)
,NumPut( 76, OFN, 0, "UInt" ) ; Length of Structure
,NumPut( hGui, OFN, 4, "UInt" ) ; HWND
,NumPut( &lpstrFilter, OFN, 12, "UInt" ) ; Pointer to FilterStruc
,NumPut( DefaultFilter, OFN, 24, "UInt" ) ; DefaultFilter Pair
,NumPut( &FN, OFN, 28, "UInt" ) ; lpstrFile / InitialisationFileName
,NumPut( 0xffff, OFN, 32, "UInt" ) ; MaxFile / lpstrFile length
,NumPut( &rootDir, OFN, 44, "UInt" ) ; StartDir
,NumPut( &Title, OFN, 48, "UInt" ) ; DlgTitle
,NumPut( hFlags, OFN, 52, "UInt" ) ; Flags
,NumPut( &DefaultExt, OFN, 60, "UInt" ) ; DefaultExt
res := SubStr(Flags, 1, 1)="S" ? DllCall("comdlg32\GetSaveFileNameA", "Uint", &OFN ) : DllCall("comdlg32\GetOpenFileNameA", "Uint", &OFN )
IfEqual, res, 0, return
adr := &FN, f := d := DllCall("MulDiv", "Int", adr, "Int",1, "Int",1, "str"), res := ""
if StrLen(d) != 3 ;windows adds \ when in root of the drive and doesn't do that otherwise
d.="\"
if ms := InStr(Flags, "ALLOWMULTISELECT")
loop
if f := DllCall("MulDiv", "Int", adr += StrLen(f)+1, "Int",1, "Int",1, "str")
res .= d f "`n"
else {
IfEqual, A_Index, 1, SetEnv, res, %d% ;if user selects only 1 file with multiselect flag, windows ignores this flag....
break
}
return ms ? SubStr(res, 1, -1) : SubStr(d, 1, -1)
}
Dlg_Save( hGui=0, Title="", Filter="", DefaultFilter="", Root="", DefaultExt="", Flags="" ) {
return Dlg_Open( hGui, Title, Filter, DefaultFilter, Root, DefaultExt, "S " Flags )
}
;=========================================== PRIVATE ===============================================
Dlg_callback(wparam, lparam, msg, hwnd) {
static FR_DIALOGTERM = 0x40, FR_DOWN=1, FR_MATCHCASE=4, FR_WHOLEWORD=2, FR_HIDEMATCHCASE=0x8000, FR_HIDEWHOLEWORD=0x10000, FR_HIDEUPDOWN=0x4000, FR_REPLACE=0x10, FR_REPLACEALL=0x20, FR_FINDNEXT=8
static handler
ifEqual, hwnd, ,return handler := wparam
hFlags := NumGet(lparam+12)
if (hFlags & FR_DIALOGTERM)
return %handler%("C", "", "", "")
flags .= (hFlags & FR_MATCHCASE) && !(hFlags & FR_HIDEMATCHCASE)? "c" :
flags .= (hFlags & FR_WHOLEWORD) && !(hFlags & FR_HIDEWHOLEWORD)? "w" :
findText := DllCall("MulDiv", "Int", NumGet(lparam+16), "Int",1, "Int",1, "str")
if (hFlags & FR_FINDNEXT) {
flags .= (hFlags & FR_DOWN) && !(hFlags & FR_HIDEUPDOWN) ? "d" :
return %handler%("F", flags, findText, "")
}
if (hFlags & FR_REPLACE) || (hFlags & FR_REPLACEALL) {
event := (hFlags & FR_REPLACEALL) ? "A" : "R"
replaceText := DllCall("MulDiv", "Int", NumGet(lparam+20), "Int",1, "Int",1, "str")
return %handler%(event, flags, findText, replaceText)
}
}
/* Group: Examples
Example1:
(start code)
;basic usage
if Dlg_Icon(icon, idx := 4)
msgbox Icon: %icon%`nIndex: %idx%
if Dlg_Color( color := 0xFF00AA )
msgbox Color: %color%
if Dlg_Font( font := "Courier New", style := "s16 bold underline italic", color:=0x80)
msgbox Font: %font%`nStyle: %style%`nColor: %color%
res := Dlg_Open("", "Select several files", "", "", "c:\Windows\", "", "ALLOWMULTISELECT FILEMUSTEXIST HIDEREADONLY")
IfNotEqual, res, , MsgBox, %res%
return
(end code)
Example2:
(start code)
;create gui and set text color
Dlg_Font( font := "Courier New", style := "s16 bold italic", color:=0xFF)
Gui Font, %Style% c%Color%, %Font%
Gui, Add, Text, ,Hello world..... :roll:
Gui, Show, Autosize
return
(end code)
*/
/* Group: About
o Ver 5.02 by majkinetor. See http://www.autohotkey.com/forum/topic17230.html
o Licenced under BSD <http://creativecommons.org/licenses/BSD/>
*/