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

Converter: add default values to unit and type replacements one by one, also if some are saved in config file.

Browse Source 
git-svn-id: trunk@25948 -
This commit is contained in:
juha 2010-06-06 09:52:46 +00:00
parent 82b4690c18
commit fcff6da8ef
1 changed files with 26 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
converter/convertsettings.pas
View File

@ -192,34 +192,51 @@ begin
LoadStringToStringTree(fConfigStorage, 'ReplaceUnits', fReplaceUnits); LoadStringToStringTree(fConfigStorage, 'ReplaceUnits', fReplaceUnits);
LoadStringToStringTree(fConfigStorage, 'ReplaceTypes', fReplaceTypes); LoadStringToStringTree(fConfigStorage, 'ReplaceTypes', fReplaceTypes);
// Add default values for string maps if ConfigStorage doesn't have any. // Add default values for string maps if ConfigStorage doesn't have them.
if fReplaceUnits.Tree.Count=0 then begin
// Map Delphi units to Lazarus units. // Map Delphi units to Lazarus units.
if not fReplaceUnits.Contains('Windows') then
fReplaceUnits['Windows']:='LCLIntf, LCLType, LMessages'; fReplaceUnits['Windows']:='LCLIntf, LCLType, LMessages';
if not fReplaceUnits.Contains('Mask') then
fReplaceUnits['Mask']:='MaskEdit'; fReplaceUnits['Mask']:='MaskEdit';
if not fReplaceUnits.Contains('Variants') then
fReplaceUnits['Variants']:=''; fReplaceUnits['Variants']:='';
if not fReplaceUnits.Contains('ShellApi') then
fReplaceUnits['ShellApi']:=''; fReplaceUnits['ShellApi']:='';
if not fReplaceUnits.Contains('pngImage') then
fReplaceUnits['pngImage']:=''; fReplaceUnits['pngImage']:='';
if not fReplaceUnits.Contains('Jpeg') then
fReplaceUnits['Jpeg']:=''; fReplaceUnits['Jpeg']:='';
if not fReplaceUnits.Contains('gifimage') then
fReplaceUnits['gifimage']:=''; fReplaceUnits['gifimage']:='';
if not fReplaceUnits.Contains('^Q(.+)') then
fReplaceUnits['^Q(.+)']:='$1'; // Kylix unit names. fReplaceUnits['^Q(.+)']:='$1'; // Kylix unit names.
if not fReplaceUnits.Contains('^Tnt(.+)') then
fReplaceUnits['^Tnt(.+)']:='$1'; // Tnt* third party components. fReplaceUnits['^Tnt(.+)']:='$1'; // Tnt* third party components.
end;
if fReplaceTypes.Tree.Count=0 then begin
// Map Delphi types to LCL types. // Map Delphi types to LCL types.
if not fReplaceTypes.Contains('TFlowPanel') then
fReplaceTypes['TFlowPanel']:='TPanel'; fReplaceTypes['TFlowPanel']:='TPanel';
if not fReplaceTypes.Contains('TGridPanel') then
fReplaceTypes['TGridPanel']:='TPanel'; fReplaceTypes['TGridPanel']:='TPanel';
if not fReplaceTypes.Contains('TControlBar') then
fReplaceTypes['TControlBar']:='TToolBar'; fReplaceTypes['TControlBar']:='TToolBar';
if not fReplaceTypes.Contains('TCoolBar') then
fReplaceTypes['TCoolBar']:='TToolBar'; fReplaceTypes['TCoolBar']:='TToolBar';
if not fReplaceTypes.Contains('TComboBoxEx') then
fReplaceTypes['TComboBoxEx']:='TComboBox'; fReplaceTypes['TComboBoxEx']:='TComboBox';
if not fReplaceTypes.Contains('TValueListEditor') then
fReplaceTypes['TValueListEditor']:='TStringGrid'; fReplaceTypes['TValueListEditor']:='TStringGrid';
if not fReplaceTypes.Contains('TRichEdit') then
fReplaceTypes['TRichEdit']:='TMemo'; fReplaceTypes['TRichEdit']:='TMemo';
if not fReplaceTypes.Contains('TDBRichEdit') then
fReplaceTypes['TDBRichEdit']:='TDBMemo'; fReplaceTypes['TDBRichEdit']:='TDBMemo';
if not fReplaceTypes.Contains('TApplicationEvents') then
fReplaceTypes['TApplicationEvents']:='TApplicationProperties'; fReplaceTypes['TApplicationEvents']:='TApplicationProperties';
if not fReplaceTypes.Contains('TPNGObject') then
fReplaceTypes['TPNGObject']:='TPortableNetworkGraphic'; fReplaceTypes['TPNGObject']:='TPortableNetworkGraphic';
if not fReplaceTypes.Contains('^TTnt(.+)') then
fReplaceTypes['^TTnt(.+)']:='T$1'; fReplaceTypes['^TTnt(.+)']:='T$1';
end; end;
end;
destructor TConvertSettings.Destroy; destructor TConvertSettings.Destroy;
begin begin