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

fix #403, Typo in class name

This commit is contained in:
Basile Burg 2019-01-14 04:20:54 +01:00
parent fee4a1b0d1
commit aa42c198c0
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/u_dfmt.pas
View File

@ -21,7 +21,7 @@ type
type type
// wraps dfmt options to build the command line with ease // wraps dfmt options to build the command line with ease
// and allows to save the options between session. // and allows to save the options between session.
TDmtWrapper = class(TWritableLfmTextComponent) TDfmtWrapper = class(TWritableLfmTextComponent)
private private
fEol: DfmtEol; fEol: DfmtEol;
fTabStyle: DfmtIndentstyle; fTabStyle: DfmtIndentstyle;
@ -73,7 +73,7 @@ type
private private
fDoc: TDexedMemo; fDoc: TDexedMemo;
fBackup: TStringList; fBackup: TStringList;
fDmtWrapper: TDmtWrapper; fDmtWrapper: TDfmtWrapper;
// //
procedure docNew(document: TDexedMemo); procedure docNew(document: TDexedMemo);
procedure docFocused(document: TDexedMemo); procedure docFocused(document: TDexedMemo);
@ -102,7 +102,7 @@ var
begin begin
inherited; inherited;
toolbarVisible:=false; toolbarVisible:=false;
fDmtWrapper := TDmtWrapper.Create(self); fDmtWrapper := TDfmtWrapper.Create(self);
fBackup := TStringList.Create; fBackup := TStringList.Create;
fname := getDocPath + optFname; fname := getDocPath + optFname;
@ -143,7 +143,7 @@ begin
inherited; inherited;
end; end;
constructor TDmtWrapper.create(AOwner: TComponent); constructor TDfmtWrapper.create(AOwner: TComponent);
begin begin
inherited; inherited;
fEol := lf; fEol := lf;
@ -169,7 +169,7 @@ begin
end; end;
end; end;
procedure TDmtWrapper.setSoftLLen(value: integer); procedure TDfmtWrapper.setSoftLLen(value: integer);
begin begin
if value < 60 then if value < 60 then
value := 60 value := 60
@ -178,7 +178,7 @@ begin
fSoftLLen := value; fSoftLLen := value;
end; end;
procedure TDmtWrapper.setHardLLen(value: integer); procedure TDfmtWrapper.setHardLLen(value: integer);
begin begin
if value < 60 then if value < 60 then
value := 60 value := 60
@ -187,7 +187,7 @@ begin
fHardLLen := value; fHardLLen := value;
end; end;
procedure TDmtWrapper.setTabWidth(value: integer); procedure TDfmtWrapper.setTabWidth(value: integer);
begin begin
if value < 1 then if value < 1 then
value := 1 value := 1
@ -196,7 +196,7 @@ begin
fTabWidth := value; fTabWidth := value;
end; end;
procedure TDmtWrapper.setIndentSize(value: integer); procedure TDfmtWrapper.setIndentSize(value: integer);
begin begin
if value < 1 then if value < 1 then
value := 1 value := 1
@ -205,14 +205,14 @@ begin
fIndentSize := value; fIndentSize := value;
end; end;
procedure TDmtWrapper.setEol(value: DfmtEol); procedure TDfmtWrapper.setEol(value: DfmtEol);
begin begin
if not (value in [DfmtEol.cr, DfmtEol.lf, DfmtEol.crlf]) then if not (value in [DfmtEol.cr, DfmtEol.lf, DfmtEol.crlf]) then
value := DfmtEol.lf; value := DfmtEol.lf;
fEol:=value; fEol:=value;
end; end;
procedure TDmtWrapper.setBraceStyle(value: DfmtBraceStyle); procedure TDfmtWrapper.setBraceStyle(value: DfmtBraceStyle);
begin begin
if not (value in [DfmtBraceStyle.allman, DfmtBraceStyle.otbs, if not (value in [DfmtBraceStyle.allman, DfmtBraceStyle.otbs,
DfmtBraceStyle.stroustrup]) then DfmtBraceStyle.stroustrup]) then
@ -220,14 +220,14 @@ begin
fBraceStyle:=value; fBraceStyle:=value;
end; end;
procedure TDmtWrapper.setIndentStyle(value: DfmtIndentstyle); procedure TDfmtWrapper.setIndentStyle(value: DfmtIndentstyle);
begin begin
if not (value in [DfmtIndentstyle.space, DfmtIndentstyle.tab]) then if not (value in [DfmtIndentstyle.space, DfmtIndentstyle.tab]) then
value := DfmtIndentstyle.space; value := DfmtIndentstyle.space;
fTabStyle:=value; fTabStyle:=value;
end; end;
procedure TDmtWrapper.setConstraintsStyle(value: DfmtConstraint); procedure TDfmtWrapper.setConstraintsStyle(value: DfmtConstraint);
begin begin
if not (value in [DfmtConstraint.alwaysNewLine, DfmtConstraint.alwaysNewLineIndent, if not (value in [DfmtConstraint.alwaysNewLine, DfmtConstraint.alwaysNewLineIndent,
DfmtConstraint.condNewLine, DfmtConstraint.condNewLineIndent]) then DfmtConstraint.condNewLine, DfmtConstraint.condNewLineIndent]) then
@ -262,7 +262,7 @@ end;
{$ENDREGION} {$ENDREGION}
{$REGION Dfmt things -----------------------------------------------------------} {$REGION Dfmt things -----------------------------------------------------------}
procedure TDmtWrapper.getParameters(str: TStrings; majv, minv: Byte); procedure TDfmtWrapper.getParameters(str: TStrings; majv, minv: Byte);
const const
eol: array[DfmtEol] of string = ('cr', 'lf', 'crlf'); eol: array[DfmtEol] of string = ('cr', 'lf', 'crlf');
falsetrue: array[boolean] of string = ('false', 'true'); falsetrue: array[boolean] of string = ('false', 'true');