|
|
@@ -1,4 +1,17 @@
|
|
|
{
|
|
|
+ This file is part of the Free Pascal run time library.
|
|
|
+ Copyright (c) 2007 by Florian Klaempfl
|
|
|
+ member of the Free Pascal development team.
|
|
|
+
|
|
|
+ See the file COPYING.FPC, included in this distribution,
|
|
|
+ for details about the copyright.
|
|
|
+
|
|
|
+ This program is distributed in the hope that it will be useful,
|
|
|
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
+
|
|
|
+ Original copyright statement follows.
|
|
|
+
|
|
|
}
|
|
|
{$mode objfpc}
|
|
|
unit shlobj;
|
|
|
@@ -36,6 +49,27 @@ unit shlobj;
|
|
|
function Enable(fEnable: BOOL): HRESULT; stdcall;
|
|
|
end;
|
|
|
|
|
|
+ const
|
|
|
+ CLSID_AutoComplete: TGUID = '{00BB2763-6A77-11D0-A535-00C04FD7D062}';
|
|
|
+
|
|
|
+ const
|
|
|
+ { IAutoComplete2 options }
|
|
|
+ ACO_NONE = 0;
|
|
|
+ ACO_AUTOSUGGEST = $1;
|
|
|
+ ACO_AUTOAPPEND = $2;
|
|
|
+ ACO_SEARCH = $4;
|
|
|
+ ACO_FILTERPREFIXES = $8;
|
|
|
+ ACO_USETAB = $10;
|
|
|
+ ACO_UPDOWNKEYDROPSLIST = $20;
|
|
|
+ ACO_RTLREADING = $40;
|
|
|
+
|
|
|
+ type
|
|
|
+ IAutoComplete2 = interface(IAutoComplete)
|
|
|
+ ['{EAC04BC0-3791-11d2-BB95-0060977B464C}']
|
|
|
+ function SetOptions(dwFlag: DWORD): HRESULT; stdcall;
|
|
|
+ function GetOptions(var dwFlag: DWORD): HRESULT; stdcall;
|
|
|
+ end;
|
|
|
+
|
|
|
implementation
|
|
|
|
|
|
end.
|
florian