paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 03:09:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

Converter: Replace Ptr() with Pointer() in default configuration.

Browse Source 
git-svn-id: trunk@27665 -
This commit is contained in:
juha 2010-10-12 12:54:39 +00:00
parent c4638cdf5f
commit 91178e65d5
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
converter/convertsettings.pas
View File

@ -451,6 +451,7 @@ begin
// Others // Others
Categ:='Other'; Categ:='Other';
AddDefaultCategory(Categ); AddDefaultCategory(Categ);
AddFunc(Categ, 'Ptr','Pointer($1)' ,'','');
AddFunc(Categ, 'ShellExecute', AddFunc(Categ, 'ShellExecute',
'if $3 match ":/" then OpenURL($3); OpenDocument($3)', '', ''); 'if $3 match ":/" then OpenURL($3); OpenDocument($3)', '', '');
end; end;