Converter: define LCLIntf unit dependency for 2 replacement functions.

git-svn-id: trunk@29388 -
This commit is contained in:
juha 2011-02-05 10:00:49 +00:00
parent 57a280722d
commit 0ac4afc64a

View File

@ -466,8 +466,8 @@ begin
Categ:='WindowsAPI';
AddDefaultCategory(Categ);
AddFunc(Categ, 'ShellExecute',
'if $3 match ":/" then OpenURL($3); OpenDocument($3)', 'LCL', '');
AddFunc(Categ, 'TimeGetTime', 'GetTickCount','LCL',''); // In Windows MMSystems unit.
'if $3 match ":/" then OpenURL($3); OpenDocument($3)', 'LCL', 'LCLIntf');
AddFunc(Categ, 'TimeGetTime', 'GetTickCount','LCL','LCLIntf'); // In Windows MMSystems unit.
// OpenGL
Categ:='OpenGL';
AddDefaultCategory(Categ);