paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Converter: add Mask -> MaskEdit mapping to replacement units.

Browse Source 
git-svn-id: trunk@25939 -
This commit is contained in:
juha 2010-06-05 23:24:33 +00:00
parent 69a213cd8d
commit 4715269597
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
converter/convertsettings.pas
View File

@ -192,14 +192,15 @@ begin
LoadStringToStringTree(fConfigStorage, 'ReplaceUnits', fReplaceUnits);
LoadStringToStringTree(fConfigStorage, 'ReplaceTypes', fReplaceTypes);
// Add default values if ConfigStorage doesn't have any.
// Add default values for string maps if ConfigStorage doesn't have any.
if fReplaceUnits.Tree.Count=0 then begin
// Map Delphi units to Lazarus units.
fReplaceUnits['Windows']:='LCLIntf, LCLType, LMessages';
fReplaceUnits['Mask']:='MaskEdit';
fReplaceUnits['Variants']:='';
fReplaceUnits['ShellApi']:='';
fReplaceUnits['pngImage']:='';
fReplaceUnits['Jpeg']:=''; //maskedit
fReplaceUnits['Jpeg']:='';
fReplaceUnits['gifimage']:='';
fReplaceUnits['^Q(.+)']:='$1'; // Kylix unit names.
fReplaceUnits['^Tnt(.+)']:='$1'; // Tnt* third party components.