paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 21:19:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Converter: Improve conversion for SynRegExpr and GetFileSize.

Browse Source 
git-svn-id: trunk@53891 -
This commit is contained in:
juha 2017-01-06 14:03:15 +00:00
parent 714bd8024f
commit c55426d008
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
converter/convertsettings.pas
View File

@ -528,6 +528,8 @@ begin
MapReplacement('MMSystem', ''); MapReplacement('MMSystem', '');
MapReplacement('.*dll.*', ''); MapReplacement('.*dll.*', '');
MapReplacement('^Q(.+)', '$1'); // Kylix unit names. MapReplacement('^Q(.+)', '$1'); // Kylix unit names.
// SynEdit has an identical RegExpr as FCL has, but names differ.
MapReplacement('SynRegExpr', 'RegExpr');
// Tnt* third party components. // Tnt* third party components.
MapReplacement('TntLXStringGrids', 'Grids'); MapReplacement('TntLXStringGrids', 'Grids');
MapReplacement('TntLXCombos', ''); MapReplacement('TntLXCombos', '');
@ -597,8 +599,8 @@ begin
AddDefaultCategory(Categ); AddDefaultCategory(Categ);
//AddFunc(Categ, 'CreateFile', 'FileCreate($1)','','SysUtils'); //AddFunc(Categ, 'CreateFile', 'FileCreate($1)','','SysUtils');
//AddFunc(Categ, 'ReadFile', 'FileRead($1)' ,'','SysUtils'); //AddFunc(Categ, 'ReadFile', 'FileRead($1)' ,'','SysUtils');
AddFunc(Categ, 'GetFileSize','FileSize($1)' ,'','SysUtils');
AddFunc(Categ, 'CloseHandle','FileClose($1)' ,'','SysUtils'); AddFunc(Categ, 'CloseHandle','FileClose($1)' ,'','SysUtils');
AddFunc(Categ, 'GetFileSize','FileSize($1)' ,'LazUtils','FileUtil');
// WindowsAPI // WindowsAPI
Categ:='WindowsAPI'; Categ:='WindowsAPI';
AddDefaultCategory(Categ); AddDefaultCategory(Categ);