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

Converter: GUI for replacement functions.

Browse Source 
git-svn-id: trunk@26520 -
This commit is contained in:
juha 2010-07-08 10:35:09 +00:00
parent 07322a6a2f
commit 50cb900225
3 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
converter/convertsettings.lfm
View File

@ -72,18 +72,17 @@ object ConvertSettingsForm: TConvertSettingsForm
ShowHint = True
TabOrder = 3
end
object MethodReplacementsButton: TBitBtn
object FuncReplacementsButton: TBitBtn
Left = 11
Height = 30
Hint = 'Some Delphi functions can be replaced with a LCL function'
Top = 108
Width = 272
Caption = 'Method Replacements'
OnClick = MethodReplacementsButtonClick
Caption = 'Function Replacements'
OnClick = FuncReplacementsButtonClick
ParentShowHint = False
ShowHint = True
TabOrder = 4
Visible = False
end
end
object SettingsGroupBox: TGroupBox
@ -92,7 +91,7 @@ object ConvertSettingsForm: TConvertSettingsForm
Top = 80
Width = 637
Anchors = [akTop, akLeft, akRight]
ClientHeight = 132
ClientHeight = 117
ClientWidth = 633
TabOrder = 1
object TargetRadioGroup: TRadioGroup
@ -189,6 +188,15 @@ object ConvertSettingsForm: TConvertSettingsForm
Height = 39
Top = 398
Width = 625
OKButton.Name = 'OKButton'
OKButton.Caption = '&OK'
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Help'
CloseButton.Name = 'CloseButton'
CloseButton.Caption = '&Close'
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.Caption = 'Cancel'
TabOrder = 4
ShowButtons = [pbOK, pbCancel, pbHelp]
end

12
converter/convertsettings.pas
View File

@ -110,12 +110,12 @@ type
SameDFMCheckBox: TCheckBox;
ProjectPathEdit: TLabeledEdit;
TargetRadioGroup: TRadioGroup;
MethodReplacementsButton: TBitBtn;
FuncReplacementsButton: TBitBtn;
UnitReplacementsButton: TBitBtn;
SettingsGroupBox: TGroupBox;
MissingStuffGroupBox: TGroupBox;
AutoRemovePropCheckBox: TCheckBox;
procedure MethodReplacementsButtonClick(Sender: TObject);
procedure FuncReplacementsButtonClick(Sender: TObject);
procedure TypeReplacementsButtonClick(Sender: TObject);
procedure UnitReplacementsButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
@ -436,8 +436,8 @@ begin
UnitReplacementsButton.Hint:=lisConvUnitReplHint;
TypeReplacementsButton.Caption:=lisConvTypeReplacements;
TypeReplacementsButton.Hint:=lisConvTypeReplHint;
MethodReplacementsButton.Caption:=lisConvMethodReplacements;
MethodReplacementsButton.Hint:=lisConvMethodReplHint;
FuncReplacementsButton.Caption:=lisConvFuncReplacements;
FuncReplacementsButton.Hint:=lisConvFuncReplHint;
TargetRadioGroupClick(TargetRadioGroup);
end;
@ -467,9 +467,9 @@ begin
EditMap(fSettings.ReplaceTypes, lisConvTypesToReplace);
end;
procedure TConvertSettingsForm.MethodReplacementsButtonClick(Sender: TObject);
procedure TConvertSettingsForm.FuncReplacementsButtonClick(Sender: TObject);
begin
;
EditMap(fSettings.ReplaceFuncs, lisConvFuncsToReplace);
end;

5
ide/lazarusidestrconsts.pas
View File

@ -472,12 +472,13 @@ resourcestring
lisConvAutoReplaceUnitHint = 'If unchecked, there will be interactive dialogs for editing / accepting changes.';
lisConvUnitsToReplace = 'Units to replace';
lisConvTypesToReplace = 'Types to replace';
lisConvFuncsToReplace = 'Functions / procedures to replace';
lisConvUnitReplacements = 'Unit Replacements';
lisConvUnitReplHint = 'Unit names in uses section of a source unit';
lisConvTypeReplacements = 'Type Replacements';
lisConvTypeReplHint = 'Unknown types in form file (DFM/LFM)';
lisConvMethodReplacements = 'Method Replacements';
lisConvMethodReplHint = 'Some Delphi functions can be replaced with LCL function';
lisConvFuncReplacements = 'Function Replacements';
lisConvFuncReplHint = 'Some Delphi functions can be replaced with LCL function';
lisReplacements = 'Replacements';
lisProperties = 'Properties (replace or delete)';
lisTypes = 'Types (not removed if no replacement)';