forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix typo in class name

This commit is contained in:
Basile Burg 2018-04-27 09:09:02 +02:00
parent 8d8562552e
commit 0735cb6092
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_synmemo.pas
View File

@ -406,7 +406,7 @@ type
constructor construct(editor: TCESynMemo); constructor construct(editor: TCESynMemo);
end; end;
TMixedIndetationDialog = class(TForm) TMixedIndentationDialog = class(TForm)
private private
class var fSpacesPerTab: integer; class var fSpacesPerTab: integer;
procedure spinSpacesPerTabChange(sender: TObject); procedure spinSpacesPerTabChange(sender: TObject);
@ -581,8 +581,8 @@ begin
end; end;
{$ENDREGION} {$ENDREGION}
{$REGION TMixedIndetationDialog} {$REGION TMixedIndentationDialog}
constructor TMixedIndetationDialog.construct(); constructor TMixedIndentationDialog.construct();
var var
pn: TPanel; pn: TPanel;
begin begin
@ -651,7 +651,7 @@ begin
height := ScaleY(150, 96); height := ScaleY(150, 96);
end; end;
procedure TMixedIndetationDialog.spinSpacesPerTabChange(sender: TObject); procedure TMixedIndentationDialog.spinSpacesPerTabChange(sender: TObject);
begin begin
self.fSpacesPerTab:= TSpinEdit(sender).Value; self.fSpacesPerTab:= TSpinEdit(sender).Value;
end; end;
@ -3596,17 +3596,17 @@ begin
if (isDSource or alwaysAdvancedFeatures) and if (isDSource or alwaysAdvancedFeatures) and
(dlgYesNo('Mixed indentation style detected, ' + (dlgYesNo('Mixed indentation style detected, ' +
'do you wish to convert to a single mode ?') = mrYes) then 'do you wish to convert to a single mode ?') = mrYes) then
with TMixedIndetationDialog.construct() do with TMixedIndentationDialog.construct() do
try try
case ShowModal of case ShowModal of
10: 10:
begin begin
forceIndentation(imTabs, TMixedIndetationDialog.fSpacesPerTab); forceIndentation(imTabs, TMixedIndentationDialog.fSpacesPerTab);
Options:= Options - [eoTabsToSpaces]; Options:= Options - [eoTabsToSpaces];
end; end;
11: 11:
begin begin
forceIndentation(imSpaces, TMixedIndetationDialog.fSpacesPerTab); forceIndentation(imSpaces, TMixedIndentationDialog.fSpacesPerTab);
Options:= Options + [eoTabsToSpaces]; Options:= Options + [eoTabsToSpaces];
end; end;
end; end;