paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 17:30:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: implemented "End jumps to nearest start" and end key toggles between visible and real line end / end-key now behaves like home-key (just on the end of line).

Browse Source 
git-svn-id: trunk@18215 -
This commit is contained in:
martin 2009-01-08 19:45:08 +00:00
parent 3939054ef3
commit 2f7de3e7d3
6 changed files with 334 additions and 302 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
components/synedit/synedit.pp
View File

@ -231,7 +231,8 @@ type
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
TSynEditorOption2 = ( TSynEditorOption2 = (
eoCaretSkipsSelection, // Caret skips selection on VK_LEFT/VK_RIGHT eoCaretSkipsSelection, // Caret skips selection on VK_LEFT/VK_RIGHT
eoAlwaysVisibleCaret // Move caret to be always visible when scrolling eoAlwaysVisibleCaret, // Move caret to be always visible when scrolling
eoEnhanceEndKey // end key jumps to visual/hard line end whichever is nearer
); );
TSynEditorOptions2 = set of TSynEditorOption2; TSynEditorOptions2 = set of TSynEditorOption2;
{$ENDIF} {$ENDIF}
@ -456,6 +457,7 @@ type
procedure DoBlockIndent; procedure DoBlockIndent;
procedure DoBlockUnindent; procedure DoBlockUnindent;
procedure DoHomeKey(Selection: boolean); procedure DoHomeKey(Selection: boolean);
procedure DoEndKey(Selection: boolean);
procedure DoLinesDeleted(FirstLine, Count: integer); procedure DoLinesDeleted(FirstLine, Count: integer);
procedure DoLinesInserted(FirstLine, Count: integer); procedure DoLinesInserted(FirstLine, Count: integer);
procedure DoTabKey; procedure DoTabKey;
@ -6557,7 +6559,6 @@ begin
begin begin
MoveCaretHorz(CharsInWindow, Command = ecSelPageRight); MoveCaretHorz(CharsInWindow, Command = ecSelPageRight);
end; end;
{begin} //mh 2000-10-19
ecLineStart, ecSelLineStart: ecLineStart, ecSelLineStart:
DoHomeKey(Command=ecSelLineStart); DoHomeKey(Command=ecSelLineStart);
{begin {begin
@ -6566,18 +6567,7 @@ begin
fLastCaretX := CaretX; fLastCaretX := CaretX;
end;} end;}
ecLineEnd, ecSelLineEnd: ecLineEnd, ecSelLineEnd:
begin DoEndKey(Command=ecSelLineEnd);
{$IFDEF SYN_LAZARUS}
MoveCaretAndSelectionPhysical(CaretXY,
LogicalToPhysicalPos(Point(1 + Length(LineText), CaretY)),
Command = ecSelLineEnd);
{$ELSE}
MoveCaretAndSelection(CaretXY, Point(1 + Length(LineText), CaretY),
Command = ecSelLineEnd);
{$ENDIF}
fLastCaretX := CaretX;
end;
{end} //mh 2000-10-19
// vertical caret movement or selection // vertical caret movement or selection
ecUp, ecSelUp: ecUp, ecSelUp:
begin begin
@ -9147,6 +9137,53 @@ begin
MoveCaretAndSelection(OldPos, NewPos, Selection); MoveCaretAndSelection(OldPos, NewPos, Selection);
end; end;
procedure TCustomSynEdit.DoEndKey(Selection: boolean);
// jump to start of line (x=1),
// or if already there, jump to first non blank char
// or if blank line, jump to line indent position
// if eoEnhanceHomeKey and behind alternative point then jump first
var
s: string;
LastNonBlank: Integer;
LineEnd: LongInt;
OldPos: TPoint;
NewPos: TPoint;
begin
OldPos := LogicalCaretXY;
NewPos := OldPos;
s := LineText;
if not (eoEnhanceEndKey in fOptions2) and (CaretX <> Length(s)+1) then begin
// not at end of real line -> jump to end of line
NewPos.X := Length(s)+1;
end else begin
// calculate line end position
LastNonBlank := -1;
if s <> '' then begin
// search first non blank char pos
LastNonBlank := Length(s);
while (LastNonBlank > 0) and (s[LastNonBlank] in [#32, #9]) do
dec(LastNonBlank);
end;
if LastNonBlank >=1 then begin
// this line is not blank
LineEnd := LastNonBlank + 1;
end else begin
// this line is blank
// -> use automatic line indent
LineEnd := GetLineIndentProposal(CaretY,true);
end;
NewPos.X:=LineEnd;
if (eoEnhanceEndKey in fOptions2) and (OldPos.X <> Length(s)+1) and (OldPos.X >= NewPos.X)
then begin
NewPos.X := Length(s)+1;
end;
end;
MoveCaretAndSelection(OldPos, NewPos, Selection);
end;
{$IFDEF SYN_COMPILER_4_UP} {$IFDEF SYN_COMPILER_4_UP}
function TCustomSynEdit.ExecuteAction(ExeAction: TBasicAction): boolean; function TCustomSynEdit.ExecuteAction(ExeAction: TBasicAction): boolean;
begin begin

4
ide/editoroptions.pp
View File

@ -1467,6 +1467,8 @@ begin
SynEditOptName := 'CaretSkipsSelection'; SynEditOptName := 'CaretSkipsSelection';
eoAlwaysVisibleCaret: eoAlwaysVisibleCaret:
SynEditOptName := 'AlwaysVisibleCaret'; SynEditOptName := 'AlwaysVisibleCaret';
eoEnhanceEndKey:
SynEditOptName := 'EnhanceEndKey';
else else
SynEditOptName := ''; SynEditOptName := '';
end; end;
@ -1638,6 +1640,8 @@ begin
SynEditOptName := 'CaretSkipsSelection'; SynEditOptName := 'CaretSkipsSelection';
eoAlwaysVisibleCaret: eoAlwaysVisibleCaret:
SynEditOptName := 'AlwaysVisibleCaret'; SynEditOptName := 'AlwaysVisibleCaret';
eoEnhanceEndKey:
SynEditOptName := 'EnhanceEndKey';
else else
SynEditOptName := ''; SynEditOptName := '';
end; end;

191
ide/frames/editor_general_options.lfm
View File

@ -3,18 +3,19 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
Width = 459 Width = 459
ClientHeight = 516 ClientHeight = 516
ClientWidth = 459 ClientWidth = 459
TabOrder = 0
Visible = False Visible = False
DesignLeft = 66 DesignLeft = 23
DesignTop = 87 DesignTop = 23
object BlockIndentLabel: TLabel[0] object BlockIndentLabel: TLabel[0]
AnchorSideLeft.Control = BlockIndentComboBox AnchorSideLeft.Control = BlockIndentComboBox
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = BlockIndentComboBox AnchorSideBottom.Control = BlockIndentComboBox
AnchorSideBottom.Side = asrCenter AnchorSideBottom.Side = asrCenter
Left = 112 Left = 112
Height = 14 Height = 16
Top = 192 Top = 197
Width = 82 Width = 92
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'BlockIndentLabel' Caption = 'BlockIndentLabel'
@ -26,9 +27,9 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideBottom.Control = TabWidthsComboBox AnchorSideBottom.Control = TabWidthsComboBox
AnchorSideBottom.Side = asrCenter AnchorSideBottom.Side = asrCenter
Left = 342 Left = 342
Height = 14 Height = 16
Top = 192 Top = 197
Width = 77 Width = 86
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'TabWidthsLabel' Caption = 'TabWidthsLabel'
@ -42,7 +43,7 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 180 Left = 180
Height = 3 Height = 3
Top = 6 Top = 7
Width = 279 Width = 279
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 180 BorderSpacing.Left = 180
@ -50,10 +51,8 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
object UndoGroupLabel: TLabel[3] object UndoGroupLabel: TLabel[3]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 0 Height = 16
Height = 14 Width = 91
Top = 0
Width = 80
Caption = 'UndoGroupLabel' Caption = 'UndoGroupLabel'
ParentColor = False ParentColor = False
end end
@ -63,9 +62,9 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Control = UndoLimitComboBox AnchorSideTop.Control = UndoLimitComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 342 Left = 342
Height = 14 Height = 16
Top = 23 Top = 24
Width = 72 Width = 85
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'UndoLimitLabel' Caption = 'UndoLimitLabel'
ParentColor = False ParentColor = False
@ -74,10 +73,9 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = GroupUndoCheckBox AnchorSideTop.Control = GroupUndoCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Height = 16
Height = 14 Top = 66
Top = 64 Width = 91
Width = 80
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'ScrollGroupLabel' Caption = 'ScrollGroupLabel'
ParentColor = False ParentColor = False
@ -90,7 +88,7 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 180 Left = 180
Height = 3 Height = 3
Top = 70 Top = 73
Width = 279 Width = 279
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 180 BorderSpacing.Left = 180
@ -99,10 +97,9 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ScrollPastEndLineCheckBox AnchorSideTop.Control = ScrollPastEndLineCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Height = 16
Height = 14 Top = 132
Top = 128 Width = 126
Width = 115
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'IndentsTabsGroupLabel' Caption = 'IndentsTabsGroupLabel'
ParentColor = False ParentColor = False
@ -115,7 +112,7 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 180 Left = 180
Height = 3 Height = 3
Top = 134 Top = 139
Width = 279 Width = 279
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 180 BorderSpacing.Left = 180
@ -124,10 +121,9 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = BlockIndentComboBox AnchorSideTop.Control = BlockIndentComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Height = 16
Height = 14 Top = 222
Top = 216 Width = 98
Width = 86
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'MouseGroupLabel' Caption = 'MouseGroupLabel'
ParentColor = False ParentColor = False
@ -140,7 +136,7 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 180 Left = 180
Height = 3 Height = 3
Top = 222 Top = 229
Width = 279 Width = 279
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 180 BorderSpacing.Left = 180
@ -149,10 +145,9 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MouseLinksCheckBox AnchorSideTop.Control = MouseLinksCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Height = 16
Height = 14 Top = 288
Top = 280 Width = 97
Width = 87
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'CursorGroupLabel' Caption = 'CursorGroupLabel'
ParentColor = False ParentColor = False
@ -165,7 +160,7 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 180 Left = 180
Height = 3 Height = 3
Top = 286 Top = 295
Width = 279 Width = 279
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 180 BorderSpacing.Left = 180
@ -177,12 +172,10 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideBottom.Control = TabWidthsComboBox AnchorSideBottom.Control = TabWidthsComboBox
Left = 6 Left = 6
Height = 21 Height = 21
Top = 189 Top = 195
Width = 100 Width = 100
AutoComplete = False
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Ctl3D = False
ItemHeight = 13 ItemHeight = 13
Items.Strings = ( Items.Strings = (
'1' '1'
@ -190,7 +183,6 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
'4' '4'
'8' '8'
) )
ItemWidth = 0
OnChange = ComboboxOnChange OnChange = ComboboxOnChange
OnExit = ComboBoxOnExit OnExit = ComboBoxOnExit
OnKeyDown = ComboboxOnKeyDown OnKeyDown = ComboboxOnKeyDown
@ -203,10 +195,8 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 236 Left = 236
Height = 21 Height = 21
Top = 189 Top = 195
Width = 100 Width = 100
AutoComplete = False
Ctl3D = False
ItemHeight = 13 ItemHeight = 13
Items.Strings = ( Items.Strings = (
'1' '1'
@ -214,7 +204,6 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
'4' '4'
'8' '8'
) )
ItemWidth = 0
OnChange = ComboboxOnChange OnChange = ComboboxOnChange
OnExit = ComboBoxOnExit OnExit = ComboBoxOnExit
OnKeyDown = ComboboxOnKeyDown OnKeyDown = ComboboxOnKeyDown
@ -226,19 +215,16 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 236 Left = 236
Height = 21 Height = 21
Top = 20 Top = 22
Width = 100 Width = 100
AutoComplete = False
BorderSpacing.Left = 230 BorderSpacing.Left = 230
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Ctl3D = False
ItemHeight = 13 ItemHeight = 13
Items.Strings = ( Items.Strings = (
'32767' '32767'
'4096' '4096'
'512' '512'
) )
ItemWidth = 0
OnChange = ComboboxOnChange OnChange = ComboboxOnChange
OnExit = ComboBoxOnExit OnExit = ComboBoxOnExit
OnKeyDown = ComboboxOnKeyDown OnKeyDown = ComboboxOnKeyDown
@ -250,13 +236,12 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 19
Top = 39 Top = 41
Width = 127 Width = 124
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'GroupUndoCheckBox' Caption = 'GroupUndoCheckBox'
OnChange = GroupUndoCheckBoxChange OnChange = GroupUndoCheckBoxChange
TabOrder = 3 TabOrder = 3
UseOnChange = False
end end
object UndoAfterSaveCheckBox: TCheckBox[17] object UndoAfterSaveCheckBox: TCheckBox[17]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -264,13 +249,12 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 19
Top = 20 Top = 22
Width = 147 Width = 142
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'UndoAfterSaveCheckBox' Caption = 'UndoAfterSaveCheckBox'
TabOrder = 4 TabOrder = 4
UseOnChange = False
end end
object ScrollPastEndFileCheckBox: TCheckBox[18] object ScrollPastEndFileCheckBox: TCheckBox[18]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -278,14 +262,13 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 19
Top = 84 Top = 88
Width = 153 Width = 151
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'ScrollPastEndFileCheckBox' Caption = 'ScrollPastEndFileCheckBox'
OnChange = ScrollPastEndFileCheckBoxChange OnChange = ScrollPastEndFileCheckBoxChange
TabOrder = 5 TabOrder = 5
UseOnChange = False
end end
object ScrollPastEndLineCheckBox: TCheckBox[19] object ScrollPastEndLineCheckBox: TCheckBox[19]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -293,13 +276,12 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 19
Top = 103 Top = 107
Width = 156 Width = 155
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'ScrollPastEndLineCheckBox' Caption = 'ScrollPastEndLineCheckBox'
OnChange = ScrollPastEndLineCheckBoxChange OnChange = ScrollPastEndLineCheckBoxChange
TabOrder = 6 TabOrder = 6
UseOnChange = False
end end
object ScrollByOneLessCheckBox: TCheckBox[20] object ScrollByOneLessCheckBox: TCheckBox[20]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -307,26 +289,24 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 236 Left = 236
Height = 19 Height = 19
Top = 84 Top = 88
Width = 151 Width = 149
BorderSpacing.Left = 230 BorderSpacing.Left = 230
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'ScrollByOneLessCheckBox' Caption = 'ScrollByOneLessCheckBox'
OnChange = ScrollByOneLessCheckBoxChange OnChange = ScrollByOneLessCheckBoxChange
TabOrder = 7 TabOrder = 7
UseOnChange = False
end end
object HalfPageScrollCheckBox: TCheckBox[21] object HalfPageScrollCheckBox: TCheckBox[21]
AnchorSideLeft.Control = ScrollByOneLessCheckBox AnchorSideLeft.Control = ScrollByOneLessCheckBox
AnchorSideTop.Control = ScrollPastEndLineCheckBox AnchorSideTop.Control = ScrollPastEndLineCheckBox
Left = 236 Left = 236
Height = 19 Height = 19
Top = 103 Top = 107
Width = 141 Width = 139
Caption = 'HalfPageScrollCheckBox' Caption = 'HalfPageScrollCheckBox'
OnChange = HalfPageScrollCheckBoxChange OnChange = HalfPageScrollCheckBoxChange
TabOrder = 8 TabOrder = 8
UseOnChange = False
end end
object AutoIndentCheckBox: TCheckBox[22] object AutoIndentCheckBox: TCheckBox[22]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -334,14 +314,13 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 19
Top = 148 Top = 154
Width = 128 Width = 121
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'AutoIndentCheckBox' Caption = 'AutoIndentCheckBox'
OnChange = AutoIndentCheckBoxChange OnChange = AutoIndentCheckBoxChange
TabOrder = 9 TabOrder = 9
UseOnChange = False
end end
object TabIndentBlocksCheckBox: TCheckBox[23] object TabIndentBlocksCheckBox: TCheckBox[23]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -349,13 +328,12 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 19
Top = 167 Top = 173
Width = 152 Width = 150
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'TabIndentBlocksCheckBox' Caption = 'TabIndentBlocksCheckBox'
OnChange = TabIndentBlocksCheckBoxChange OnChange = TabIndentBlocksCheckBoxChange
TabOrder = 10 TabOrder = 10
UseOnChange = False
end end
object SmartTabsCheckBox: TCheckBox[24] object SmartTabsCheckBox: TCheckBox[24]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -363,26 +341,24 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 236 Left = 236
Height = 19 Height = 19
Top = 148 Top = 154
Width = 124 Width = 120
BorderSpacing.Left = 230 BorderSpacing.Left = 230
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'SmartTabsCheckBox' Caption = 'SmartTabsCheckBox'
OnChange = SmartTabsCheckBoxChange OnChange = SmartTabsCheckBoxChange
TabOrder = 11 TabOrder = 11
UseOnChange = False
end end
object TabsToSpacesCheckBox: TCheckBox[25] object TabsToSpacesCheckBox: TCheckBox[25]
AnchorSideLeft.Control = SmartTabsCheckBox AnchorSideLeft.Control = SmartTabsCheckBox
AnchorSideTop.Control = TabIndentBlocksCheckBox AnchorSideTop.Control = TabIndentBlocksCheckBox
Left = 236 Left = 236
Height = 19 Height = 19
Top = 167 Top = 173
Width = 142 Width = 142
Caption = 'TabsToSpacesCheckBox' Caption = 'TabsToSpacesCheckBox'
OnChange = TabsToSpacesCheckBoxChange OnChange = TabsToSpacesCheckBoxChange
TabOrder = 12 TabOrder = 12
UseOnChange = False
end end
object DoubleClickLineCheckBox: TCheckBox[26] object DoubleClickLineCheckBox: TCheckBox[26]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -390,14 +366,13 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 19
Top = 236 Top = 244
Width = 146 Width = 146
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'DoubleClickLineCheckBox' Caption = 'DoubleClickLineCheckBox'
OnChange = DoubleClickLineCheckBoxChange OnChange = DoubleClickLineCheckBoxChange
TabOrder = 13 TabOrder = 13
UseOnChange = False
end end
object MouseLinksCheckBox: TCheckBox[27] object MouseLinksCheckBox: TCheckBox[27]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -405,13 +380,12 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 19
Top = 255 Top = 263
Width = 127 Width = 126
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'MouseLinksCheckBox' Caption = 'MouseLinksCheckBox'
OnChange = MouseLinksCheckBoxChange OnChange = MouseLinksCheckBoxChange
TabOrder = 14 TabOrder = 14
UseOnChange = False
end end
object DragDropEdCheckBox: TCheckBox[28] object DragDropEdCheckBox: TCheckBox[28]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -419,26 +393,24 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 236 Left = 236
Height = 19 Height = 19
Top = 236 Top = 244
Width = 131 Width = 128
BorderSpacing.Left = 230 BorderSpacing.Left = 230
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'DragDropEdCheckBox' Caption = 'DragDropEdCheckBox'
OnChange = DragDropEdCheckBoxChange OnChange = DragDropEdCheckBoxChange
TabOrder = 15 TabOrder = 15
UseOnChange = False
end end
object DropFilesCheckBox: TCheckBox[29] object DropFilesCheckBox: TCheckBox[29]
AnchorSideLeft.Control = DragDropEdCheckBox AnchorSideLeft.Control = DragDropEdCheckBox
AnchorSideTop.Control = MouseLinksCheckBox AnchorSideTop.Control = MouseLinksCheckBox
Left = 236 Left = 236
Height = 19 Height = 19
Top = 255 Top = 263
Width = 117 Width = 113
Caption = 'DropFilesCheckBox' Caption = 'DropFilesCheckBox'
OnChange = DropFilesCheckBoxChange OnChange = DropFilesCheckBoxChange
TabOrder = 16 TabOrder = 16
UseOnChange = False
end end
object KeepCursorXCheckBox: TCheckBox[30] object KeepCursorXCheckBox: TCheckBox[30]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -446,14 +418,13 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 19
Top = 300 Top = 310
Width = 135 Width = 131
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'KeepCursorXCheckBox' Caption = 'KeepCursorXCheckBox'
OnChange = KeepCursorXCheckBoxChange OnChange = KeepCursorXCheckBoxChange
TabOrder = 17 TabOrder = 17
UseOnChange = False
end end
object PersistentCursorCheckBox: TCheckBox[31] object PersistentCursorCheckBox: TCheckBox[31]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -461,13 +432,12 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 19
Top = 319 Top = 329
Width = 153 Width = 145
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'PersistentCursorCheckBox' Caption = 'PersistentCursorCheckBox'
OnChange = PersistentCursorCheckBoxChange OnChange = PersistentCursorCheckBoxChange
TabOrder = 18 TabOrder = 18
UseOnChange = False
end end
object AlwaysVisibleCursorCheckBox: TCheckBox[32] object AlwaysVisibleCursorCheckBox: TCheckBox[32]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -475,13 +445,12 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 19
Top = 338 Top = 348
Width = 168 Width = 162
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'AlwaysVisibleCursorCheckBox' Caption = 'AlwaysVisibleCursorCheckBox'
OnChange = AlwaysVisibleCursorCheckBoxChange OnChange = AlwaysVisibleCursorCheckBoxChange
TabOrder = 19 TabOrder = 19
UseOnChange = False
end end
object CursorSkipsSelectionCheckBox: TCheckBox[33] object CursorSkipsSelectionCheckBox: TCheckBox[33]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -489,37 +458,47 @@ inherited EditorGeneralOptionsFrame: TEditorGeneralOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 236 Left = 236
Height = 19 Height = 19
Top = 300 Top = 310
Width = 172 Width = 169
BorderSpacing.Left = 230 BorderSpacing.Left = 230
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'CursorSkipsSelectionCheckBox' Caption = 'CursorSkipsSelectionCheckBox'
OnChange = CursorSkipsSelectionCheckBoxChange OnChange = CursorSkipsSelectionCheckBoxChange
TabOrder = 20 TabOrder = 20
UseOnChange = False
end end
object RightMouseMovesCursorCheckBox: TCheckBox[34] object RightMouseMovesCursorCheckBox: TCheckBox[34]
AnchorSideLeft.Control = CursorSkipsSelectionCheckBox AnchorSideLeft.Control = CursorSkipsSelectionCheckBox
AnchorSideTop.Control = PersistentCursorCheckBox AnchorSideTop.Control = PersistentCursorCheckBox
Left = 236 Left = 236
Height = 19 Height = 19
Top = 319 Top = 329
Width = 192 Width = 188
Caption = 'RightMouseMovesCursorCheckBox' Caption = 'RightMouseMovesCursorCheckBox'
OnChange = RightMouseMovesCursorCheckBoxChange OnChange = RightMouseMovesCursorCheckBoxChange
TabOrder = 21 TabOrder = 21
UseOnChange = False
end end
object HomeKeyJumpsToNearestStartCheckBox: TCheckBox[35] object HomeKeyJumpsToNearestStartCheckBox: TCheckBox[35]
AnchorSideLeft.Control = CursorSkipsSelectionCheckBox AnchorSideLeft.Control = CursorSkipsSelectionCheckBox
AnchorSideTop.Control = AlwaysVisibleCursorCheckBox AnchorSideTop.Control = AlwaysVisibleCursorCheckBox
Left = 236 Left = 236
Height = 19 Height = 19
Top = 338 Top = 348
Width = 222 Width = 217
Caption = 'HomeKeyJumpsToNearestStartCheckBox' Caption = 'HomeKeyJumpsToNearestStartCheckBox'
OnChange = HomeKeyJumpsToNearestStartCheckBoxChange OnChange = HomeKeyJumpsToNearestStartCheckBoxChange
TabOrder = 22 TabOrder = 22
UseOnChange = False end
object EndKeyJumpsToNearestStartCheckBox: TCheckBox[36]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = AlwaysVisibleCursorCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 367
Width = 208
BorderSpacing.Left = 6
Caption = 'EndKeyJumpsToNearestStartCheckBox'
OnChange = EndKeyJumpsToNearestStartCheckBoxChange
TabOrder = 23
end end
end end

364
ide/frames/editor_general_options.lrs
View File

@ -1,189 +1,189 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TEditorGeneralOptionsFrame','FORMDATA',[ LazarusResources.Add('TEditorGeneralOptionsFrame','FORMDATA',[
'TPF0'#241#26'TEditorGeneralOptionsFrame'#25'EditorGeneralOptionsFrame'#6'Hei' 'TPF0'#241#26'TEditorGeneralOptionsFrame'#25'EditorGeneralOptionsFrame'#6'Hei'
+'ght'#3#4#2#5'Width'#3#203#1#12'ClientHeight'#3#4#2#11'ClientWidth'#3#203#1#7 +'ght'#3#4#2#5'Width'#3#203#1#12'ClientHeight'#3#4#2#11'ClientWidth'#3#203#1#8
+'Visible'#8#10'DesignLeft'#2'B'#9'DesignTop'#2'W'#0#242#2#0#6'TLabel'#16'Blo' +'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#2#23#9'DesignTop'#2#23#0#242#2#0#6
+'ckIndentLabel'#22'AnchorSideLeft.Control'#7#19'BlockIndentComboBox'#19'Anch' +'TLabel'#16'BlockIndentLabel'#22'AnchorSideLeft.Control'#7#19'BlockIndentCom'
+'orSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#19'BlockInde' +'boBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7
+'ntComboBox'#21'AnchorSideBottom.Side'#7#9'asrCenter'#4'Left'#2'p'#6'Height' +#19'BlockIndentComboBox'#21'AnchorSideBottom.Side'#7#9'asrCenter'#4'Left'#2
+#2#14#3'Top'#3#192#0#5'Width'#2'R'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20 +'p'#6'Height'#2#16#3'Top'#3#197#0#5'Width'#2'\'#7'Anchors'#11#6'akLeft'#8'ak'
+'BorderSpacing.Around'#2#6#7'Caption'#6#16'BlockIndentLabel'#11'ParentColor' +'Bottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#16'BlockIndentLabel'#11
+#8#0#0#242#2#1#6'TLabel'#14'TabWidthsLabel'#22'AnchorSideLeft.Control'#7#17 +'ParentColor'#8#0#0#242#2#1#6'TLabel'#14'TabWidthsLabel'#22'AnchorSideLeft.C'
+'TabWidthsComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBott' +'ontrol'#7#17'TabWidthsComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'A'
+'om.Control'#7#17'TabWidthsComboBox'#21'AnchorSideBottom.Side'#7#9'asrCenter' +'nchorSideBottom.Control'#7#17'TabWidthsComboBox'#21'AnchorSideBottom.Side'#7
+#4'Left'#3'V'#1#6'Height'#2#14#3'Top'#3#192#0#5'Width'#2'M'#7'Anchors'#11#6 +#9'asrCenter'#4'Left'#3'V'#1#6'Height'#2#16#3'Top'#3#197#0#5'Width'#2'V'#7'A'
+'akLeft'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#14'TabWidth' +'nchors'#11#6'akLeft'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6
+'sLabel'#11'ParentColor'#8#0#0#242#2#2#6'TBevel'#6'Bevel1'#22'AnchorSideLeft' +#14'TabWidthsLabel'#11'ParentColor'#8#0#0#242#2#2#6'TBevel'#6'Bevel1'#22'Anc'
+'.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#14'UndoGroupLabel'#18'Anch' +'horSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#14'UndoGroupLab'
+'orSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#5'Owner'#20'An' +'el'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#5'O'
+'chorSideRight.Side'#7#9'asrBottom'#4'Left'#3#180#0#6'Height'#2#3#3'Top'#2#6 +'wner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#180#0#6'Height'#2#3
+#5'Width'#3#23#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpac' +#3'Top'#2#7#5'Width'#3#23#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18
+'ing.Left'#3#180#0#0#0#242#2#3#6'TLabel'#14'UndoGroupLabel'#22'AnchorSideLef' +'BorderSpacing.Left'#3#180#0#0#0#242#2#3#6'TLabel'#14'UndoGroupLabel'#22'Anc'
+'t.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#0#6'He' +'horSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#6'Heig'
+'ight'#2#14#3'Top'#2#0#5'Width'#2'P'#7'Caption'#6#14'UndoGroupLabel'#11'Pare' +'ht'#2#16#5'Width'#2'['#7'Caption'#6#14'UndoGroupLabel'#11'ParentColor'#8#0#0
+'ntColor'#8#0#0#242#2#4#6'TLabel'#14'UndoLimitLabel'#22'AnchorSideLeft.Contr' +#242#2#4#6'TLabel'#14'UndoLimitLabel'#22'AnchorSideLeft.Control'#7#17'UndoLi'
+'ol'#7#17'UndoLimitComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'Ancho' +'mitComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contro'
+'rSideTop.Control'#7#17'UndoLimitComboBox'#18'AnchorSideTop.Side'#7#9'asrCen' +'l'#7#17'UndoLimitComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3
+'ter'#4'Left'#3'V'#1#6'Height'#2#14#3'Top'#2#23#5'Width'#2'H'#20'BorderSpaci' +'V'#1#6'Height'#2#16#3'Top'#2#24#5'Width'#2'U'#20'BorderSpacing.Around'#2#6#7
+'ng.Around'#2#6#7'Caption'#6#14'UndoLimitLabel'#11'ParentColor'#8#0#0#242#2#5 +'Caption'#6#14'UndoLimitLabel'#11'ParentColor'#8#0#0#242#2#5#6'TLabel'#16'Sc'
+#6'TLabel'#16'ScrollGroupLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc' +'rollGroupLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Cont'
+'horSideTop.Control'#7#17'GroupUndoCheckBox'#18'AnchorSideTop.Side'#7#9'asrB' +'rol'#7#17'GroupUndoCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#6'Height'
+'ottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#2'@'#5'Width'#2'P'#17'BorderSpacin' +#2#16#3'Top'#2'B'#5'Width'#2'['#17'BorderSpacing.Top'#2#6#7'Caption'#6#16'Sc'
+'g.Top'#2#6#7'Caption'#6#16'ScrollGroupLabel'#11'ParentColor'#8#0#0#242#2#6#6 +'rollGroupLabel'#11'ParentColor'#8#0#0#242#2#6#6'TBevel'#6'Bevel2'#22'Anchor'
+'TBevel'#6'Bevel2'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co' +'SideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#16'ScrollGroupLabe'
+'ntrol'#7#16'ScrollGroupLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'Anch' +'l'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#5'Ow'
+'orSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'L' +'ner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#180#0#6'Height'#2#3#3
+'eft'#3#180#0#6'Height'#2#3#3'Top'#2'F'#5'Width'#3#23#1#7'Anchors'#11#5'akTo' +'Top'#2'I'#5'Width'#3#23#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18
+'p'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#3#180#0#0#0#242#2#7#6'TLab' +'BorderSpacing.Left'#3#180#0#0#0#242#2#7#6'TLabel'#21'IndentsTabsGroupLabel'
+'el'#21'IndentsTabsGroupLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anch' +#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#25'Scroll'
+'orSideTop.Control'#7#25'ScrollPastEndLineCheckBox'#18'AnchorSideTop.Side'#7 +'PastEndLineCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#6'Height'#2#16#3
+#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#3#128#0#5'Width'#2's'#17'Bor' +'Top'#3#132#0#5'Width'#2'~'#17'BorderSpacing.Top'#2#6#7'Caption'#6#21'Indent'
+'derSpacing.Top'#2#6#7'Caption'#6#21'IndentsTabsGroupLabel'#11'ParentColor'#8 +'sTabsGroupLabel'#11'ParentColor'#8#0#0#242#2#8#6'TBevel'#6'Bevel3'#22'Ancho'
+#0#0#242#2#8#6'TBevel'#6'Bevel3'#22'AnchorSideLeft.Control'#7#5'Owner'#21'An' +'rSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#21'IndentsTabsGro'
+'chorSideTop.Control'#7#21'IndentsTabsGroupLabel'#18'AnchorSideTop.Side'#7#9 +'upLabel'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7
+'asrCenter'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7 +#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#180#0#6'Height'#2
+#9'asrBottom'#4'Left'#3#180#0#6'Height'#2#3#3'Top'#3#134#0#5'Width'#3#23#1#7 +#3#3'Top'#3#139#0#5'Width'#3#23#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#3#180#0#0 +#0#18'BorderSpacing.Left'#3#180#0#0#0#242#2#9#6'TLabel'#15'MouseGroupLabel'
+#0#242#2#9#6'TLabel'#15'MouseGroupLabel'#22'AnchorSideLeft.Control'#7#5'Owne' +#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#19'BlockI'
+'r'#21'AnchorSideTop.Control'#7#19'BlockIndentComboBox'#18'AnchorSideTop.Sid' +'ndentComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#6'Height'#2#16#3'Top'#3
+'e'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#3#216#0#5'Width'#2'V'#17 +#222#0#5'Width'#2'b'#17'BorderSpacing.Top'#2#6#7'Caption'#6#15'MouseGroupLab'
+'BorderSpacing.Top'#2#6#7'Caption'#6#15'MouseGroupLabel'#11'ParentColor'#8#0 +'el'#11'ParentColor'#8#0#0#242#2#10#6'TBevel'#6'Bevel4'#22'AnchorSideLeft.Co'
+#0#242#2#10#6'TBevel'#6'Bevel4'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc' +'ntrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#15'MouseGroupLabel'#18'Anchor'
+'horSideTop.Control'#7#15'MouseGroupLabel'#18'AnchorSideTop.Side'#7#9'asrCen' +'SideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#5'Owner'#20'Anch'
+'ter'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'as' +'orSideRight.Side'#7#9'asrBottom'#4'Left'#3#180#0#6'Height'#2#3#3'Top'#3#229
+'rBottom'#4'Left'#3#180#0#6'Height'#2#3#3'Top'#3#222#0#5'Width'#3#23#1#7'Anc' +#0#5'Width'#3#23#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSp'
+'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#3#180#0#0#0 +'acing.Left'#3#180#0#0#0#242#2#11#6'TLabel'#16'CursorGroupLabel'#22'AnchorSi'
+#242#2#11#6'TLabel'#16'CursorGroupLabel'#22'AnchorSideLeft.Control'#7#5'Owne' +'deLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#18'MouseLinksCheckBo'
+'r'#21'AnchorSideTop.Control'#7#18'MouseLinksCheckBox'#18'AnchorSideTop.Side' +'x'#18'AnchorSideTop.Side'#7#9'asrBottom'#6'Height'#2#16#3'Top'#3' '#1#5'Wid'
+#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#14#3'Top'#3#24#1#5'Width'#2'W'#17'Bo' +'th'#2'a'#17'BorderSpacing.Top'#2#6#7'Caption'#6#16'CursorGroupLabel'#11'Par'
+'rderSpacing.Top'#2#6#7'Caption'#6#16'CursorGroupLabel'#11'ParentColor'#8#0#0 +'entColor'#8#0#0#242#2#12#6'TBevel'#6'Bevel5'#22'AnchorSideLeft.Control'#7#5
+#242#2#12#6'TBevel'#6'Bevel5'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Ancho' +'Owner'#21'AnchorSideTop.Control'#7#16'CursorGroupLabel'#18'AnchorSideTop.Si'
+'rSideTop.Control'#7#16'CursorGroupLabel'#18'AnchorSideTop.Side'#7#9'asrCent' +'de'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRigh'
+'er'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asr' +'t.Side'#7#9'asrBottom'#4'Left'#3#180#0#6'Height'#2#3#3'Top'#3''''#1#5'Width'
+'Bottom'#4'Left'#3#180#0#6'Height'#2#3#3'Top'#3#30#1#5'Width'#3#23#1#7'Ancho' +#3#23#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#3#180#0#0#0 +#3#180#0#0#0#242#2#13#9'TComboBox'#19'BlockIndentComboBox'#22'AnchorSideLeft'
+#242#2#13#9'TComboBox'#19'BlockIndentComboBox'#22'AnchorSideLeft.Control'#7#5 +'.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#23'TabIndentBlocksCheckBox'
+'Owner'#21'AnchorSideTop.Control'#7#23'TabIndentBlocksCheckBox'#18'AnchorSid' +#18'AnchorSideTop.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#17'Tab'
,'eTop.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#17'TabWidthsComboB' ,'WidthsComboBox'#4'Left'#2#6#6'Height'#2#21#3'Top'#3#195#0#5'Width'#2'd'#18
+'ox'#4'Left'#2#6#6'Height'#2#21#3'Top'#3#189#0#5'Width'#2'd'#12'AutoComplete' +'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#10'ItemHeight'#2#13#13'It'
+#8#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#3#5'Ctl3D'#8#10'ItemHe' +'ems.Strings'#1#6#1'1'#6#1'2'#6#1'4'#6#1'8'#0#8'OnChange'#7#16'ComboboxOnCha'
+'ight'#2#13#13'Items.Strings'#1#6#1'1'#6#1'2'#6#1'4'#6#1'8'#0#9'ItemWidth'#2 +'nge'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown'#7#17'ComboboxOnKeyDown'#8
+#0#8'OnChange'#7#16'ComboboxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKey' +'TabOrder'#2#0#0#0#242#2#14#9'TComboBox'#17'TabWidthsComboBox'#22'AnchorSide'
+'Down'#7#17'ComboboxOnKeyDown'#8'TabOrder'#2#0#0#0#242#2#14#9'TComboBox'#17 +'Left.Control'#7#17'SmartTabsCheckBox'#21'AnchorSideTop.Control'#7#19'BlockI'
+'TabWidthsComboBox'#22'AnchorSideLeft.Control'#7#17'SmartTabsCheckBox'#21'An' +'ndentComboBox'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.'
+'chorSideTop.Control'#7#19'BlockIndentComboBox'#24'AnchorSideBottom.Control' +'Side'#7#9'asrBottom'#4'Left'#3#236#0#6'Height'#2#21#3'Top'#3#195#0#5'Width'
+#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#236#0#6'Heigh' +#2'd'#10'ItemHeight'#2#13#13'Items.Strings'#1#6#1'1'#6#1'2'#6#1'4'#6#1'8'#0#8
+'t'#2#21#3'Top'#3#189#0#5'Width'#2'd'#12'AutoComplete'#8#5'Ctl3D'#8#10'ItemH'
+'eight'#2#13#13'Items.Strings'#1#6#1'1'#6#1'2'#6#1'4'#6#1'8'#0#9'ItemWidth'#2
+#0#8'OnChange'#7#16'ComboboxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKey'
+'Down'#7#17'ComboboxOnKeyDown'#8'TabOrder'#2#1#0#0#242#2#15#9'TComboBox'#17
+'UndoLimitComboBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.C'
+'ontrol'#7#14'UndoGroupLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3
+#236#0#6'Height'#2#21#3'Top'#2#20#5'Width'#2'd'#12'AutoComplete'#8#18'Border'
+'Spacing.Left'#3#230#0#20'BorderSpacing.Around'#2#6#5'Ctl3D'#8#10'ItemHeight'
+#2#13#13'Items.Strings'#1#6#5'32767'#6#4'4096'#6#3'512'#0#9'ItemWidth'#2#0#8
+'OnChange'#7#16'ComboboxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown' +'OnChange'#7#16'ComboboxOnChange'#6'OnExit'#7#14'ComboBoxOnExit'#9'OnKeyDown'
+#7#17'ComboboxOnKeyDown'#8'TabOrder'#2#2#0#0#242#2#16#9'TCheckBox'#17'GroupU' +#7#17'ComboboxOnKeyDown'#8'TabOrder'#2#1#0#0#242#2#15#9'TComboBox'#17'UndoLi'
+'ndoCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control' +'mitComboBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'
+#7#21'UndoAfterSaveCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2 +#7#14'UndoGroupLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#236#0#6
+#6#6'Height'#2#19#3'Top'#2''''#5'Width'#2''#18'BorderSpacing.Left'#2#6#7'Ca' +'Height'#2#21#3'Top'#2#22#5'Width'#2'd'#18'BorderSpacing.Left'#3#230#0#20'Bo'
+'ption'#6#17'GroupUndoCheckBox'#8'OnChange'#7#23'GroupUndoCheckBoxChange'#8 +'rderSpacing.Around'#2#6#10'ItemHeight'#2#13#13'Items.Strings'#1#6#5'32767'#6
+'TabOrder'#2#3#11'UseOnChange'#8#0#0#242#2#17#9'TCheckBox'#21'UndoAfterSaveC' +#4'4096'#6#3'512'#0#8'OnChange'#7#16'ComboboxOnChange'#6'OnExit'#7#14'ComboB'
+'heckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7 +'oxOnExit'#9'OnKeyDown'#7#17'ComboboxOnKeyDown'#8'TabOrder'#2#2#0#0#242#2#16
+#14'UndoGroupLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Heig' +#9'TCheckBox'#17'GroupUndoCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21
+'ht'#2#19#3'Top'#2#20#5'Width'#3#147#0#18'BorderSpacing.Left'#2#6#17'BorderS' +'AnchorSideTop.Control'#7#21'UndoAfterSaveCheckBox'#18'AnchorSideTop.Side'#7
+'pacing.Top'#2#6#7'Caption'#6#21'UndoAfterSaveCheckBox'#8'TabOrder'#2#4#11'U' +#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2')'#5'Width'#2'|'#18'Border'
+'seOnChange'#8#0#0#242#2#18#9'TCheckBox'#25'ScrollPastEndFileCheckBox'#22'An' +'Spacing.Left'#2#6#7'Caption'#6#17'GroupUndoCheckBox'#8'OnChange'#7#23'Group'
+'chorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#16'ScrollGroup' +'UndoCheckBoxChange'#8'TabOrder'#2#3#0#0#242#2#17#9'TCheckBox'#21'UndoAfterS'
+'Label'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'T' +'aveCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'
+'op'#2'T'#5'Width'#3#153#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2 +#7#14'UndoGroupLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'He'
+#6#7'Caption'#6#25'ScrollPastEndFileCheckBox'#8'OnChange'#7#31'ScrollPastEnd' +'ight'#2#19#3'Top'#2#22#5'Width'#3#142#0#18'BorderSpacing.Left'#2#6#17'Borde'
+'FileCheckBoxChange'#8'TabOrder'#2#5#11'UseOnChange'#8#0#0#242#2#19#9'TCheck' +'rSpacing.Top'#2#6#7'Caption'#6#21'UndoAfterSaveCheckBox'#8'TabOrder'#2#4#0#0
+'Box'#25'ScrollPastEndLineCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21 +#242#2#18#9'TCheckBox'#25'ScrollPastEndFileCheckBox'#22'AnchorSideLeft.Contr'
+'AnchorSideTop.Control'#7#25'ScrollPastEndFileCheckBox'#18'AnchorSideTop.Sid' +'ol'#7#5'Owner'#21'AnchorSideTop.Control'#7#16'ScrollGroupLabel'#18'AnchorSi'
+'e'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'g'#5'Width'#3#156#0#18 +'deTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'X'#5'Width'#3
+'BorderSpacing.Left'#2#6#7'Caption'#6#25'ScrollPastEndLineCheckBox'#8'OnChan' +#151#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#25
+'ge'#7#31'ScrollPastEndLineCheckBoxChange'#8'TabOrder'#2#6#11'UseOnChange'#8 +'ScrollPastEndFileCheckBox'#8'OnChange'#7#31'ScrollPastEndFileCheckBoxChange'
+#0#0#242#2#20#9'TCheckBox'#23'ScrollByOneLessCheckBox'#22'AnchorSideLeft.Con' +#8'TabOrder'#2#5#0#0#242#2#19#9'TCheckBox'#25'ScrollPastEndLineCheckBox'#22
+'trol'#7#5'Owner'#21'AnchorSideTop.Control'#7#16'ScrollGroupLabel'#18'Anchor' +'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#25'ScrollPas'
+'SideTop.Side'#7#9'asrBottom'#4'Left'#3#236#0#6'Height'#2#19#3'Top'#2'T'#5'W' +'tEndFileCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Heigh'
+'idth'#3#151#0#18'BorderSpacing.Left'#3#230#0#20'BorderSpacing.Around'#2#6#7 +'t'#2#19#3'Top'#2'k'#5'Width'#3#155#0#18'BorderSpacing.Left'#2#6#7'Caption'#6
+'Caption'#6#23'ScrollByOneLessCheckBox'#8'OnChange'#7#29'ScrollByOneLessChec' +#25'ScrollPastEndLineCheckBox'#8'OnChange'#7#31'ScrollPastEndLineCheckBoxCha'
+'kBoxChange'#8'TabOrder'#2#7#11'UseOnChange'#8#0#0#242#2#21#9'TCheckBox'#22 +'nge'#8'TabOrder'#2#6#0#0#242#2#20#9'TCheckBox'#23'ScrollByOneLessCheckBox'
+#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#16'Scroll'
+'GroupLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#236#0#6'Height'
+#2#19#3'Top'#2'X'#5'Width'#3#149#0#18'BorderSpacing.Left'#3#230#0#20'BorderS'
+'pacing.Around'#2#6#7'Caption'#6#23'ScrollByOneLessCheckBox'#8'OnChange'#7#29
+'ScrollByOneLessCheckBoxChange'#8'TabOrder'#2#7#0#0#242#2#21#9'TCheckBox'#22
+'HalfPageScrollCheckBox'#22'AnchorSideLeft.Control'#7#23'ScrollByOneLessChec' +'HalfPageScrollCheckBox'#22'AnchorSideLeft.Control'#7#23'ScrollByOneLessChec'
+'kBox'#21'AnchorSideTop.Control'#7#25'ScrollPastEndLineCheckBox'#4'Left'#3 +'kBox'#21'AnchorSideTop.Control'#7#25'ScrollPastEndLineCheckBox'#4'Left'#3
+#236#0#6'Height'#2#19#3'Top'#2'g'#5'Width'#3#141#0#7'Caption'#6#22'HalfPageS' +#236#0#6'Height'#2#19#3'Top'#2'k'#5'Width'#3#139#0#7'Caption'#6#22'HalfPageS'
+'crollCheckBox'#8'OnChange'#7#28'HalfPageScrollCheckBoxChange'#8'TabOrder'#2 +'crollCheckBox'#8'OnChange'#7#28'HalfPageScrollCheckBoxChange'#8'TabOrder'#2
+#8#11'UseOnChange'#8#0#0#242#2#22#9'TCheckBox'#18'AutoIndentCheckBox'#22'Anc' +#8#0#0#242#2#22#9'TCheckBox'#18'AutoIndentCheckBox'#22'AnchorSideLeft.Contro'
+'horSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#21'IndentsTabsG' +'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#21'IndentsTabsGroupLabel'#18'Anch'
+'roupLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19 +'orSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#3#154#0#5
+#3'Top'#3#148#0#5'Width'#3#128#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing' +'Width'#2'y'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'
+'.Top'#2#6#7'Caption'#6#18'AutoIndentCheckBox'#8'OnChange'#7#24'AutoIndentCh' +#6#18'AutoIndentCheckBox'#8'OnChange'#7#24'AutoIndentCheckBoxChange'#8'TabOr'
+'eckBoxChange'#8'TabOrder'#2#9#11'UseOnChange'#8#0#0#242#2#23#9'TCheckBox'#23 +'der'#2#9#0#0#242#2#23#9'TCheckBox'#23'TabIndentBlocksCheckBox'#22'AnchorSid'
+'TabIndentBlocksCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSid' +'eLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#18'AutoIndentCheckBox'
+'eTop.Control'#7#18'AutoIndentCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom' +#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#3
+#4'Left'#2#6#6'Height'#2#19#3'Top'#3#167#0#5'Width'#3#152#0#18'BorderSpacing' +#173#0#5'Width'#3#150#0#18'BorderSpacing.Left'#2#6#7'Caption'#6#23'TabIndent'
+'.Left'#2#6#7'Caption'#6#23'TabIndentBlocksCheckBox'#8'OnChange'#7#29'TabInd' +'BlocksCheckBox'#8'OnChange'#7#29'TabIndentBlocksCheckBoxChange'#8'TabOrder'
+'entBlocksCheckBoxChange'#8'TabOrder'#2#10#11'UseOnChange'#8#0#0#242#2#24#9 +#2#10#0#0#242#2#24#9'TCheckBox'#17'SmartTabsCheckBox'#22'AnchorSideLeft.Cont'
+'TCheckBox'#17'SmartTabsCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'A' +'rol'#7#5'Owner'#21'AnchorSideTop.Control'#7#21'IndentsTabsGroupLabel'#18'An'
+'nchorSideTop.Control'#7#21'IndentsTabsGroupLabel'#18'AnchorSideTop.Side'#7#9 +'chorSideTop.Side'#7#9'asrBottom'#4'Left'#3#236#0#6'Height'#2#19#3'Top'#3#154
+'asrBottom'#4'Left'#3#236#0#6'Height'#2#19#3'Top'#3#148#0#5'Width'#2'|'#18'B' +#0#5'Width'#2'x'#18'BorderSpacing.Left'#3#230#0#20'BorderSpacing.Around'#2#6
,'orderSpacing.Left'#3#230#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#17'Sma' +#7'Caption'#6#17'SmartTabsCheckBox'#8'OnChange'#7#23'SmartTabsCheckBoxChange'
+'rtTabsCheckBox'#8'OnChange'#7#23'SmartTabsCheckBoxChange'#8'TabOrder'#2#11 +#8'TabOrder'#2#11#0#0#242#2#25#9'TCheckBox'#20'TabsToSpacesCheckBox'#22'Anch'
+#11'UseOnChange'#8#0#0#242#2#25#9'TCheckBox'#20'TabsToSpacesCheckBox'#22'Anc' +'orSideLeft.Control'#7#17'SmartTabsCheckBox'#21'AnchorSideTop.Control'#7#23
+'horSideLeft.Control'#7#17'SmartTabsCheckBox'#21'AnchorSideTop.Control'#7#23 +'TabIndentBlocksCheckBox'#4'Left'#3#236#0#6'Height'#2#19#3'Top'#3#173#0#5'Wi'
+'TabIndentBlocksCheckBox'#4'Left'#3#236#0#6'Height'#2#19#3'Top'#3#167#0#5'Wi' ,'dth'#3#142#0#7'Caption'#6#20'TabsToSpacesCheckBox'#8'OnChange'#7#26'TabsToS'
+'dth'#3#142#0#7'Caption'#6#20'TabsToSpacesCheckBox'#8'OnChange'#7#26'TabsToS' +'pacesCheckBoxChange'#8'TabOrder'#2#12#0#0#242#2#26#9'TCheckBox'#23'DoubleCl'
+'pacesCheckBoxChange'#8'TabOrder'#2#12#11'UseOnChange'#8#0#0#242#2#26#9'TChe' +'ickLineCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Con'
+'ckBox'#23'DoubleClickLineCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21 +'trol'#7#15'MouseGroupLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
+'AnchorSideTop.Control'#7#15'MouseGroupLabel'#18'AnchorSideTop.Side'#7#9'asr' +#6#6'Height'#2#19#3'Top'#3#244#0#5'Width'#3#146#0#18'BorderSpacing.Left'#2#6
+'Bottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#3#236#0#5'Width'#3#146#0#18'Borde' +#17'BorderSpacing.Top'#2#6#7'Caption'#6#23'DoubleClickLineCheckBox'#8'OnChan'
+'rSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#23'DoubleClickLin' +'ge'#7#29'DoubleClickLineCheckBoxChange'#8'TabOrder'#2#13#0#0#242#2#27#9'TCh'
+'eCheckBox'#8'OnChange'#7#29'DoubleClickLineCheckBoxChange'#8'TabOrder'#2#13 +'eckBox'#18'MouseLinksCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc'
+#11'UseOnChange'#8#0#0#242#2#27#9'TCheckBox'#18'MouseLinksCheckBox'#22'Ancho' +'horSideTop.Control'#7#23'DoubleClickLineCheckBox'#18'AnchorSideTop.Side'#7#9
+'rSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#23'DoubleClickLin' +'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#3#7#1#5'Width'#2'~'#18'BorderS'
+'eCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19 +'pacing.Left'#2#6#7'Caption'#6#18'MouseLinksCheckBox'#8'OnChange'#7#24'Mouse'
+#3'Top'#3#255#0#5'Width'#2''#18'BorderSpacing.Left'#2#6#7'Caption'#6#18'Mou' +'LinksCheckBoxChange'#8'TabOrder'#2#14#0#0#242#2#28#9'TCheckBox'#18'DragDrop'
+'seLinksCheckBox'#8'OnChange'#7#24'MouseLinksCheckBoxChange'#8'TabOrder'#2#14 +'EdCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'
+#11'UseOnChange'#8#0#0#242#2#28#9'TCheckBox'#18'DragDropEdCheckBox'#22'Ancho' +#7#15'MouseGroupLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#236#0
+'rSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#15'MouseGroupLabe' +#6'Height'#2#19#3'Top'#3#244#0#5'Width'#3#128#0#18'BorderSpacing.Left'#3#230
+'l'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#236#0#6'Height'#2#19#3'T' +#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'DragDropEdCheckBox'#8'OnChan'
+'op'#3#236#0#5'Width'#3#131#0#18'BorderSpacing.Left'#3#230#0#20'BorderSpacin' +'ge'#7#24'DragDropEdCheckBoxChange'#8'TabOrder'#2#15#0#0#242#2#29#9'TCheckBo'
+'g.Around'#2#6#7'Caption'#6#18'DragDropEdCheckBox'#8'OnChange'#7#24'DragDrop' +'x'#17'DropFilesCheckBox'#22'AnchorSideLeft.Control'#7#18'DragDropEdCheckBox'
+'EdCheckBoxChange'#8'TabOrder'#2#15#11'UseOnChange'#8#0#0#242#2#29#9'TCheckB' +#21'AnchorSideTop.Control'#7#18'MouseLinksCheckBox'#4'Left'#3#236#0#6'Height'
+'ox'#17'DropFilesCheckBox'#22'AnchorSideLeft.Control'#7#18'DragDropEdCheckBo' +#2#19#3'Top'#3#7#1#5'Width'#2'q'#7'Caption'#6#17'DropFilesCheckBox'#8'OnChan'
+'x'#21'AnchorSideTop.Control'#7#18'MouseLinksCheckBox'#4'Left'#3#236#0#6'Hei' +'ge'#7#23'DropFilesCheckBoxChange'#8'TabOrder'#2#16#0#0#242#2#30#9'TCheckBox'
+'ght'#2#19#3'Top'#3#255#0#5'Width'#2'u'#7'Caption'#6#17'DropFilesCheckBox'#8 +#19'KeepCursorXCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSide'
+'OnChange'#7#23'DropFilesCheckBoxChange'#8'TabOrder'#2#16#11'UseOnChange'#8#0 +'Top.Control'#7#16'CursorGroupLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
+#0#242#2#30#9'TCheckBox'#19'KeepCursorXCheckBox'#22'AnchorSideLeft.Control'#7 +'Left'#2#6#6'Height'#2#19#3'Top'#3'6'#1#5'Width'#3#131#0#18'BorderSpacing.Le'
+#5'Owner'#21'AnchorSideTop.Control'#7#16'CursorGroupLabel'#18'AnchorSideTop.' +'ft'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#19'KeepCursorXCheckBox'#8'On'
+'Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#3','#1#5'Width'#3#135 +'Change'#7#25'KeepCursorXCheckBoxChange'#8'TabOrder'#2#17#0#0#242#2#31#9'TCh'
+#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#19'Keep' +'eckBox'#24'PersistentCursorCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'
+'CursorXCheckBox'#8'OnChange'#7#25'KeepCursorXCheckBoxChange'#8'TabOrder'#2 +#21'AnchorSideTop.Control'#7#19'KeepCursorXCheckBox'#18'AnchorSideTop.Side'#7
+#17#11'UseOnChange'#8#0#0#242#2#31#9'TCheckBox'#24'PersistentCursorCheckBox' +#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#3'I'#1#5'Width'#3#145#0#18'B'
+#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#19'KeepCu' +'orderSpacing.Left'#2#6#7'Caption'#6#24'PersistentCursorCheckBox'#8'OnChange'
+'rsorXCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2 +#7#30'PersistentCursorCheckBoxChange'#8'TabOrder'#2#18#0#0#242#2' '#9'TCheck'
+#19#3'Top'#3'?'#1#5'Width'#3#153#0#18'BorderSpacing.Left'#2#6#7'Caption'#6#24 +'Box'#27'AlwaysVisibleCursorCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'
+'PersistentCursorCheckBox'#8'OnChange'#7#30'PersistentCursorCheckBoxChange'#8 +#21'AnchorSideTop.Control'#7#24'PersistentCursorCheckBox'#18'AnchorSideTop.S'
+'TabOrder'#2#18#11'UseOnChange'#8#0#0#242#2' '#9'TCheckBox'#27'AlwaysVisible' +'ide'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#3'\'#1#5'Width'#3#162
+'CursorCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Cont' +#0#18'BorderSpacing.Left'#2#6#7'Caption'#6#27'AlwaysVisibleCursorCheckBox'#8
+'rol'#7#24'PersistentCursorCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4 +'OnChange'#7'!AlwaysVisibleCursorCheckBoxChange'#8'TabOrder'#2#19#0#0#242#2
+'Left'#2#6#6'Height'#2#19#3'Top'#3'R'#1#5'Width'#3#168#0#18'BorderSpacing.Le' +'!'#9'TCheckBox'#28'CursorSkipsSelectionCheckBox'#22'AnchorSideLeft.Control'
+'ft'#2#6#7'Caption'#6#27'AlwaysVisibleCursorCheckBox'#8'OnChange'#7'!AlwaysV' +#7#5'Owner'#21'AnchorSideTop.Control'#7#16'CursorGroupLabel'#18'AnchorSideTo'
+'isibleCursorCheckBoxChange'#8'TabOrder'#2#19#11'UseOnChange'#8#0#0#242#2'!' +'p.Side'#7#9'asrBottom'#4'Left'#3#236#0#6'Height'#2#19#3'Top'#3'6'#1#5'Width'
+#9'TCheckBox'#28'CursorSkipsSelectionCheckBox'#22'AnchorSideLeft.Control'#7#5 +#3#169#0#18'BorderSpacing.Left'#3#230#0#20'BorderSpacing.Around'#2#6#7'Capti'
+'Owner'#21'AnchorSideTop.Control'#7#16'CursorGroupLabel'#18'AnchorSideTop.Si' +'on'#6#28'CursorSkipsSelectionCheckBox'#8'OnChange'#7'"CursorSkipsSelectionC'
+'de'#7#9'asrBottom'#4'Left'#3#236#0#6'Height'#2#19#3'Top'#3','#1#5'Width'#3 +'heckBoxChange'#8'TabOrder'#2#20#0#0#242#2'"'#9'TCheckBox'#29'RightMouseMove'
+#172#0#18'BorderSpacing.Left'#3#230#0#20'BorderSpacing.Around'#2#6#7'Caption' +'sCursorCheckBox'#22'AnchorSideLeft.Control'#7#28'CursorSkipsSelectionCheckB'
+#6#28'CursorSkipsSelectionCheckBox'#8'OnChange'#7'"CursorSkipsSelectionCheck' +'ox'#21'AnchorSideTop.Control'#7#24'PersistentCursorCheckBox'#4'Left'#3#236#0
+'BoxChange'#8'TabOrder'#2#20#11'UseOnChange'#8#0#0#242#2'"'#9'TCheckBox'#29 +#6'Height'#2#19#3'Top'#3'I'#1#5'Width'#3#188#0#7'Caption'#6#29'RightMouseMov'
+'RightMouseMovesCursorCheckBox'#22'AnchorSideLeft.Control'#7#28'CursorSkipsS' +'esCursorCheckBox'#8'OnChange'#7'#RightMouseMovesCursorCheckBoxChange'#8'Tab'
+'electionCheckBox'#21'AnchorSideTop.Control'#7#24'PersistentCursorCheckBox'#4 +'Order'#2#21#0#0#242#2'#'#9'TCheckBox"HomeKeyJumpsToNearestStartCheckBox'#22
+'Left'#3#236#0#6'Height'#2#19#3'Top'#3'?'#1#5'Width'#3#192#0#7'Caption'#6#29 +'AnchorSideLeft.Control'#7#28'CursorSkipsSelectionCheckBox'#21'AnchorSideTop'
+'RightMouseMovesCursorCheckBox'#8'OnChange'#7'#RightMouseMovesCursorCheckBox' +'.Control'#7#27'AlwaysVisibleCursorCheckBox'#4'Left'#3#236#0#6'Height'#2#19#3
+'Change'#8'TabOrder'#2#21#11'UseOnChange'#8#0#0#242#2'#'#9'TCheckBox"HomeKey' +'Top'#3'\'#1#5'Width'#3#217#0#7'Caption'#6'"HomeKeyJumpsToNearestStartCheckB'
+'JumpsToNearestStartCheckBox'#22'AnchorSideLeft.Control'#7#28'CursorSkipsSel' +'ox'#8'OnChange'#7'(HomeKeyJumpsToNearestStartCheckBoxChange'#8'TabOrder'#2
+'ectionCheckBox'#21'AnchorSideTop.Control'#7#27'AlwaysVisibleCursorCheckBox' +#22#0#0#242#2'$'#9'TCheckBox!EndKeyJumpsToNearestStartCheckBox'#22'AnchorSid'
+#4'Left'#3#236#0#6'Height'#2#19#3'Top'#3'R'#1#5'Width'#3#222#0#7'Caption'#6 +'eLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#27'AlwaysVisibleCurso'
+'"HomeKeyJumpsToNearestStartCheckBox'#8'OnChange'#7'(HomeKeyJumpsToNearestSt' +'rCheckBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19
+'artCheckBoxChange'#8'TabOrder'#2#22#11'UseOnChange'#8#0#0#0 +#3'Top'#3'o'#1#5'Width'#3#208#0#18'BorderSpacing.Left'#2#6#7'Caption'#6'!End'
+'KeyJumpsToNearestStartCheckBox'#8'OnChange'#7'''EndKeyJumpsToNearestStartCh'
+'eckBoxChange'#8'TabOrder'#2#23#0#0#0
]); ]);

11
ide/frames/editor_general_options.pas
View File

@ -42,6 +42,7 @@ type
BlockIndentComboBox: TComboBox; BlockIndentComboBox: TComboBox;
BlockIndentLabel: TLabel; BlockIndentLabel: TLabel;
AutoIndentCheckBox: TCheckBox; AutoIndentCheckBox: TCheckBox;
EndKeyJumpsToNearestStartCheckBox: TCheckBox;
KeepCursorXCheckBox: TCheckBox; KeepCursorXCheckBox: TCheckBox;
PersistentCursorCheckBox: TCheckBox; PersistentCursorCheckBox: TCheckBox;
AlwaysVisibleCursorCheckBox: TCheckBox; AlwaysVisibleCursorCheckBox: TCheckBox;
@ -80,6 +81,7 @@ type
procedure DragDropEdCheckBoxChange(Sender: TObject); procedure DragDropEdCheckBoxChange(Sender: TObject);
procedure DropFilesCheckBoxChange(Sender: TObject); procedure DropFilesCheckBoxChange(Sender: TObject);
procedure ComboBoxOnExit(Sender: TObject); procedure ComboBoxOnExit(Sender: TObject);
procedure EndKeyJumpsToNearestStartCheckBoxChange(Sender: TObject);
procedure GroupUndoCheckBoxChange(Sender: TObject); procedure GroupUndoCheckBoxChange(Sender: TObject);
procedure HalfPageScrollCheckBoxChange(Sender: TObject); procedure HalfPageScrollCheckBoxChange(Sender: TObject);
procedure HomeKeyJumpsToNearestStartCheckBoxChange(Sender: TObject); procedure HomeKeyJumpsToNearestStartCheckBoxChange(Sender: TObject);
@ -159,6 +161,7 @@ begin
CursorSkipsSelectionCheckBox.Caption := dlgCursorSkipsSelection; CursorSkipsSelectionCheckBox.Caption := dlgCursorSkipsSelection;
RightMouseMovesCursorCheckBox.Caption := dlgRightMouseMovesCursor; RightMouseMovesCursorCheckBox.Caption := dlgRightMouseMovesCursor;
HomeKeyJumpsToNearestStartCheckBox.Caption := dlgHomeKeyJumpsToNearestStart; HomeKeyJumpsToNearestStartCheckBox.Caption := dlgHomeKeyJumpsToNearestStart;
EndKeyJumpsToNearestStartCheckBox.Caption := dlgEndKeyJumpsToNearestStart;
end; end;
procedure TEditorGeneralOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions); procedure TEditorGeneralOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
@ -200,6 +203,7 @@ begin
CursorSkipsSelectionCheckBox.Checked := eoCaretSkipsSelection in SynEditOptions2; CursorSkipsSelectionCheckBox.Checked := eoCaretSkipsSelection in SynEditOptions2;
RightMouseMovesCursorCheckBox.Checked := eoRightMouseMovesCursor in SynEditOptions; RightMouseMovesCursorCheckBox.Checked := eoRightMouseMovesCursor in SynEditOptions;
HomeKeyJumpsToNearestStartCheckBox.Checked := eoEnhanceHomeKey in SynEditOptions; HomeKeyJumpsToNearestStartCheckBox.Checked := eoEnhanceHomeKey in SynEditOptions;
EndKeyJumpsToNearestStartCheckBox.Checked := eoEnhanceEndKey in SynEditOptions2;
for i := Low(PreviewEdits) to High(PreviewEdits) do for i := Low(PreviewEdits) to High(PreviewEdits) do
if PreviewEdits[i] <> nil then if PreviewEdits[i] <> nil then
@ -279,6 +283,7 @@ begin
UpdateOptionFromBool(CursorSkipsSelectionCheckBox.Checked, eoCaretSkipsSelection); UpdateOptionFromBool(CursorSkipsSelectionCheckBox.Checked, eoCaretSkipsSelection);
UpdateOptionFromBool(RightMouseMovesCursorCheckBox.Checked, eoRightMouseMovesCursor); UpdateOptionFromBool(RightMouseMovesCursorCheckBox.Checked, eoRightMouseMovesCursor);
UpdateOptionFromBool(HomeKeyJumpsToNearestStartCheckBox.Checked, eoEnhanceHomeKey); UpdateOptionFromBool(HomeKeyJumpsToNearestStartCheckBox.Checked, eoEnhanceHomeKey);
UpdateOptionFromBool(EndKeyJumpsToNearestStartCheckBox.Checked, eoEnhanceEndKey);
end; end;
end; end;
@ -386,6 +391,12 @@ begin
end end
end; end;
procedure TEditorGeneralOptionsFrame.EndKeyJumpsToNearestStartCheckBoxChange(
Sender: TObject);
begin
SetPreviewOption(EndKeyJumpsToNearestStartCheckBox.Checked, eoEnhanceEndKey);
end;
procedure TEditorGeneralOptionsFrame.GroupUndoCheckBoxChange(Sender: TObject); procedure TEditorGeneralOptionsFrame.GroupUndoCheckBoxChange(Sender: TObject);
begin begin
SetPreviewOption(GroupUndoCheckBox.Checked, eoGroupUndo); SetPreviewOption(GroupUndoCheckBox.Checked, eoGroupUndo);

1
ide/lazarusidestrconsts.pas
View File

@ -1138,6 +1138,7 @@ resourcestring
dlgUseCodeFolding = 'Code folding'; dlgUseCodeFolding = 'Code folding';
dlgCopyWordAtCursorOnCopyNone = 'Copy word on copy none'; dlgCopyWordAtCursorOnCopyNone = 'Copy word on copy none';
dlgHomeKeyJumpsToNearestStart = 'Home key jumps to nearest start'; dlgHomeKeyJumpsToNearestStart = 'Home key jumps to nearest start';
dlgEndKeyJumpsToNearestStart = 'End key jumps to nearest start';
dlgBracketHighlight = 'Bracket highlight'; dlgBracketHighlight = 'Bracket highlight';
dlgNoBracketHighlight = 'No Highlight'; dlgNoBracketHighlight = 'No Highlight';
dlgHighlightLeftOfCursor = 'Left Of Cursor'; dlgHighlightLeftOfCursor = 'Left Of Cursor';