paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 15:50:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE, SynEdit: fixed 'Tripple' -> 'Triple' misspellings throughout the code

Browse Source 
git-svn-id: trunk@34105 -
This commit is contained in:
maxim 2011-12-11 15:37:09 +00:00
parent b3989d4f4a
commit e374508e1c
6 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syneditmarkupwordgroup.pp
View File

@ -230,7 +230,7 @@ begin
if (not (sfaInvalid in TmpNode.FoldAction)) and
(TmpNode.LogXStart = Node2.LogXStart) and (TmpNode.LogXEnd = Node2.LogXEnd)
then begin
// tripple node => 3rd start after current start
// triple node => 3rd start after current start
TmpNode := FindStartNode(TmpNode, y2, i2);
if (not (sfaInvalid in TmpNode.FoldAction)) then begin
Node3 := Node2;
@ -244,7 +244,7 @@ begin
if (not (sfaInvalid in TmpNode.FoldAction)) and
(TmpNode.LogXStart = Node2.LogXStart) and (TmpNode.LogXEnd = Node2.LogXEnd)
then begin
// tripple node => 3rd start before current start
// triple node => 3rd start before current start
TmpNode := FindStartNode(TmpNode, y2, i2);
if (not (sfaInvalid in TmpNode.FoldAction)) then begin
Node3 := Node2;

4
components/synedit/synhighlighterpas.pp
View File

@ -139,7 +139,7 @@ const
cfbtAll: TPascalCodeFoldBlockTypes =
[low(TPascalCodeFoldBlockType)..high(TPascalCodeFoldBlockType)];
PascalWordTrippletRanges: TPascalCodeFoldBlockTypes =
PascalWordTripletRanges: TPascalCodeFoldBlockTypes =
[cfbtBeginEnd, cfbtTopBeginEnd, cfbtProcedure, cfbtClass, cfbtProgram, cfbtRecord,
cfbtTry, cfbtExcept, cfbtRepeat, cfbtAsm, cfbtCase
];
@ -3571,7 +3571,7 @@ begin
end;
end;
end;
if ABlockType in PascalWordTrippletRanges then
if ABlockType in PascalWordTripletRanges then
Include(Node.FoldAction, sfaMarkup);
end;

10
components/synedit/synhighlighterpython.pas
View File

@ -75,7 +75,7 @@ const
type
TtkTokenKind = (tkComment, tkIdentifier, tkKey, tkNull, tkNumber, tkSpace,
tkString, tkSymbol, tkNonKeyword, tkTrippleQuotedString,
tkString, tkSymbol, tkNonKeyword, tkTripleQuotedString,
tkSystemDefined, tkHex, tkOct, tkFloat, tkUnknown);
TRangeState = (rsANil, rsComment, rsUnKnown, rsMultilineString, rsMultilineString2,
@ -894,7 +894,7 @@ var fBackslashCount:integer;
begin
fTokenID := tkString;
if (FLine[Run + 1] = '"') and (FLine[Run + 2] = '"') then begin
fTokenID := tkTrippleQuotedString;
fTokenID := tkTripleQuotedString;
inc(Run, 3);
fRange:=rsMultilineString2;
@ -998,7 +998,7 @@ var fBackslashCount:integer;
begin
fTokenID := tkString;
if (FLine[Run + 1] = #39) and (FLine[Run + 2] = #39) then begin
fTokenID := tkTrippleQuotedString;
fTokenID := tkTripleQuotedString;
inc(Run, 3);
fRange:=rsMultilineString;
@ -1073,7 +1073,7 @@ begin
if fRange = rsMultilineString3 then
fTokenID := tkString
else
fTokenID := tkTrippleQuotedString;
fTokenID := tkTripleQuotedString;
case FLine[Run] of
#0:
@ -1217,7 +1217,7 @@ begin
tkFloat: Result := fFloatAttri;
tkSpace: Result := fSpaceAttri;
tkString: Result := fStringAttri;
tkTrippleQuotedString: Result := fDocStringAttri;
tkTripleQuotedString: Result := fDocStringAttri;
tkSymbol: Result := fSymbolAttri;
tkUnknown: Result := fErrorAttri;
else

12
ide/editoroptions.pp
View File

@ -737,7 +737,7 @@ type
// left multi click
FTextDoubleLeftClick: TMouseOptButtonActionOld;
FTextShiftMiddleClick: TMouseOptButtonAction;
FTextTrippleLeftClick: TMouseOptButtonActionOld;
FTextTripleLeftClick: TMouseOptButtonActionOld;
FTextQuadLeftClick: TMouseOptButtonActionOld;
FTextShiftDoubleLeftClick: TMouseOptButtonActionOld;
FTextAltDoubleLeftClick: TMouseOptButtonActionOld;
@ -811,7 +811,7 @@ type
// left multi click
property TextDoubleLeftClick: TMouseOptButtonActionOld read FTextDoubleLeftClick write FTextDoubleLeftClick
default mbaSelectSetWord;
property TextTrippleLeftClick: TMouseOptButtonActionOld read FTextTrippleLeftClick write FTextTrippleLeftClick
property TextTripleLeftClick: TMouseOptButtonActionOld read FTextTripleLeftClick write FTextTripleLeftClick
default mbaSelectSetLineSmart;
property TextQuadLeftClick: TMouseOptButtonActionOld read FTextQuadLeftClick write FTextQuadLeftClick
default mbaSelectSetPara;
@ -2411,7 +2411,7 @@ begin
FCustomSavedActions := False;
FGutterLeft := moGLDownClick;
FTextDoubleLeftClick := mbaSelectSetWord;
FTextTrippleLeftClick := mbaSelectSetLineSmart;
FTextTripleLeftClick := mbaSelectSetLineSmart;
FTextQuadLeftClick := mbaSelectSetPara;
FTextShiftDoubleLeftClick := mbaNone;
FTextAltDoubleLeftClick := mbaNone;
@ -2632,7 +2632,7 @@ begin
SelKey := [];
AddBtnClick(FTextDoubleLeftClick, mbLeft, [], ModKeys, False, SelKey, ccDouble);
AddBtnClick(FTextTrippleLeftClick, mbLeft, [], ModKeys, False, SelKey, ccTriple);
AddBtnClick(FTextTripleLeftClick, mbLeft, [], ModKeys, False, SelKey, ccTriple);
AddBtnClick(FTextQuadLeftClick, mbLeft, [], ModKeys, False, SelKey, ccQuad);
AddBtnClick(FTextShiftDoubleLeftClick, mbLeft, [ssShift], ModKeys, False, SelKey, ccDouble);
AddBtnClick(FTextCtrlDoubleLeftClick, mbLeft, [SYNEDIT_LINK_MODIFIER], ModKeys, False, SelKey, ccDouble);
@ -2717,7 +2717,7 @@ begin
// left multi click
FTextDoubleLeftClick := Src.TextDoubleLeftClick;
FTextTrippleLeftClick := Src.TextTrippleLeftClick;
FTextTripleLeftClick := Src.TextTripleLeftClick;
FTextQuadLeftClick := Src.TextQuadLeftClick;
FTextShiftDoubleLeftClick := Src.TextShiftDoubleLeftClick;
FTextAltDoubleLeftClick := Src.TextAltDoubleLeftClick;
@ -2868,7 +2868,7 @@ begin
if aXMLConfig.GetValue(aPath + 'Default/TextDoubleSelLine', TextDoubleSelLine) then begin
FTextDoubleLeftClick := mbaSelectSetLineSmart;
FTextTrippleLeftClick := mbaSelectSetLineFull;
FTextTripleLeftClick := mbaSelectSetLineFull;
end;
aXMLConfig.DeleteValue(aPath + 'Default/TextDoubleSelLine');

14
ide/frames/editor_mouseaction_options.pas
View File

@ -35,13 +35,13 @@ type
TEditorMouseOptionsFrame = class(TAbstractIDEOptionsEditor)
dropShiftMiddle: TComboBox;
lblLeftDouble: TLabel;
lblLeftTripple: TLabel;
lblLeftTriple: TLabel;
lblLeftQuad: TLabel;
lblLeftDoubleShift: TLabel;
lblLeftDoubleAlt: TLabel;
lblLeftDoubleCtrl: TLabel;
dropLeftDouble: TComboBox;
dropLeftTripple: TComboBox;
dropLeftTriple: TComboBox;
dropLeftQuad: TComboBox;
dropLeftShiftDouble: TComboBox;
dropLeftAltDouble: TComboBox;
@ -272,7 +272,7 @@ begin
(FTempMouseSettings.TextShiftCtrlAltLeftClick = TMouseOptButtonAction(dropShiftAltCtrlLeft.ItemIndex)) and
(FTempMouseSettings.TextDoubleLeftClick = IdxToDoubleMouseOptButtonAction(dropLeftDouble.ItemIndex)) and
(FTempMouseSettings.TextTrippleLeftClick = IdxToDoubleMouseOptButtonAction(dropLeftTripple.ItemIndex)) and
(FTempMouseSettings.TextTripleLeftClick = IdxToDoubleMouseOptButtonAction(dropLeftTriple.ItemIndex)) and
(FTempMouseSettings.TextQuadLeftClick = IdxToDoubleMouseOptButtonAction(dropLeftQuad.ItemIndex)) and
(FTempMouseSettings.TextShiftDoubleLeftClick = IdxToDoubleMouseOptButtonAction(dropLeftShiftDouble.ItemIndex)) and
(FTempMouseSettings.TextAltDoubleLeftClick = IdxToDoubleMouseOptButtonAction(dropLeftAltDouble.ItemIndex)) and
@ -329,7 +329,7 @@ begin
FTempMouseSettings.TextShiftCtrlAltLeftClick := TMouseOptButtonAction(dropShiftAltCtrlLeft.ItemIndex);
FTempMouseSettings.TextDoubleLeftClick := IdxToDoubleMouseOptButtonAction(dropLeftDouble.ItemIndex);
FTempMouseSettings.TextTrippleLeftClick := IdxToDoubleMouseOptButtonAction(dropLeftTripple.ItemIndex);
FTempMouseSettings.TextTripleLeftClick := IdxToDoubleMouseOptButtonAction(dropLeftTriple.ItemIndex);
FTempMouseSettings.TextQuadLeftClick := IdxToDoubleMouseOptButtonAction(dropLeftQuad.ItemIndex);
FTempMouseSettings.TextShiftDoubleLeftClick := IdxToDoubleMouseOptButtonAction(dropLeftShiftDouble.ItemIndex);
FTempMouseSettings.TextAltDoubleLeftClick := IdxToDoubleMouseOptButtonAction(dropLeftAltDouble.ItemIndex);
@ -468,7 +468,7 @@ begin
// left multi click
lblLeftDouble.Caption := dlfMouseSimpleTextSectLDoubleLabel;
lblLeftTripple.Caption := dlfMouseSimpleTextSectLTrippleLabel;
lblLeftTriple.Caption := dlfMouseSimpleTextSectLTripleLabel;
lblLeftQuad.Caption := dlfMouseSimpleTextSectLQuadLabel;
lblLeftDoubleShift.Caption := dlfMouseSimpleTextSectLDoubleShiftLabel;
lblLeftDoubleCtrl.Caption := dlfMouseSimpleTextSectLDoubleCtrlLabel;
@ -494,7 +494,7 @@ begin
// left multi click
SetupButtonCombo(dropLeftDouble, True);
SetupButtonCombo(dropLeftTripple, True);
SetupButtonCombo(dropLeftTriple, True);
SetupButtonCombo(dropLeftQuad, True);
SetupButtonCombo(dropLeftShiftDouble, True);
SetupButtonCombo(dropLeftAltDouble, True);
@ -566,7 +566,7 @@ begin
// 1,2&3 are mouse selection, and not avail for double clicks
dropLeftDouble.ItemIndex := Max(ord(FTempMouseSettings.TextDoubleLeftClick)-3,0);
dropLeftTripple.ItemIndex := Max(ord(FTempMouseSettings.TextTrippleLeftClick)-3,0);
dropLeftTriple.ItemIndex := Max(ord(FTempMouseSettings.TextTripleLeftClick)-3,0);
dropLeftQuad.ItemIndex := Max(ord(FTempMouseSettings.TextQuadLeftClick)-3,0);
dropLeftShiftDouble.ItemIndex := Max(ord(FTempMouseSettings.TextShiftDoubleLeftClick)-3,0);
dropLeftAltDouble.ItemIndex := Max(ord(FTempMouseSettings.TextAltDoubleLeftClick)-3,0);

2
ide/lazarusidestrconsts.pas
View File

@ -1333,7 +1333,7 @@ resourcestring
dlfMouseSimpleTextSectPageWheel = 'Wheel';
dlfMouseSimpleTextSectLDoubleLabel = 'Double';
dlfMouseSimpleTextSectLTrippleLabel = 'Tripple';
dlfMouseSimpleTextSectLTripleLabel = 'Triple';
dlfMouseSimpleTextSectLQuadLabel = 'Quad';
dlfMouseSimpleTextSectLDoubleShiftLabel = 'Shift Double';
dlfMouseSimpleTextSectLDoubleAltLabel = 'Alt Double';