mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 17:38:25 +02:00
Converter: add default values to unit and type replacements one by one, also if some are saved in config file.
git-svn-id: trunk@25948 -
This commit is contained in:
parent
82b4690c18
commit
fcff6da8ef
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user