IDE: improved layout of codetools frames

git-svn-id: trunk@25219 -
This commit is contained in:
mattias 2010-05-05 16:35:07 +00:00
parent 5b9b9419d0
commit 46bb576f8c
7 changed files with 808 additions and 298 deletions

View File

@ -50,56 +50,25 @@ procedure TCodetoolsAtomCheckboxesOptionsFrame.CreateAtomCheckBoxes(
ParentGroupBox: TGroupBox; AtomTypes: TAtomTypes; Columns: integer;
AOnClick: TNotifyEvent);
var
Count, i, yi, MaxYCount: integer;
a: TAtomType;
X, Y, CurX, CurY, XStep, YStep: integer;
NewCheckBox: TCheckBox;
i: Integer;
begin
if Columns < 1 then
Columns := 1;
Count := 0;
for a := Low(TAtomTypes) to High(TAtomTypes) do
if a in AtomTypes then
inc(Count);
if Count = 0 then
Exit;
MaxYCount := (Count + Columns - 1) div Columns;
X := 6;
Y := 1;
XStep := (ParentGroupBox.ClientWidth - 10) div Columns;
YStep := (ParentGroupBox.ClientHeight - 20) div MaxYCount;
CurX := X;
CurY := Y;
i := 0;
yi := 0;
i:=0;
for a := Low(TAtomTypes) to High(TAtomTypes) do
begin
if a in AtomTypes then
begin
inc(i);
inc(yi);
NewCheckBox := TCheckBox.Create(ParentGroupBox);
with NewCheckBox do
begin
Name := ParentGroupBox.Name + 'CheckBox' + IntToStr(i + 1);
Parent := ParentGroupBox;
SetBounds(CurX, CurY, XStep - 10, Height);
Caption := GetTranslatedAtomTypes(a);
OnClick := AOnClick;
Tag := ord(a);
Visible := true;
end;
if yi >= MaxYCount then
begin
inc(X, XStep);
CurX := X;
CurY := Y;
yi := 0;
end
else
inc(CurY,YStep);
end;
end;
end;

View File

@ -14,8 +14,9 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
Left = 0
Height = 100
Top = 0
Width = 254
Width = 200
AutoFill = True
AutoSize = True
Caption = 'ClassPartInsertPolicyRadioGroup'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
@ -25,6 +26,8 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
Constraints.MinHeight = 100
Constraints.MinWidth = 200
TabOrder = 0
end
object MethodInsertPolicyRadioGroup: TRadioGroup[1]
@ -33,12 +36,13 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 260
Left = 206
Height = 100
Top = 0
Width = 312
Width = 366
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
BorderSpacing.Left = 6
Caption = 'MethodInsertPolicyRadioGroup'
ChildSizing.LeftRightSpacing = 6
@ -49,6 +53,7 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
Constraints.MinHeight = 100
TabOrder = 1
end
object MixMethodsAndPropertiesCheckBox: TCheckBox[2]
@ -83,7 +88,7 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 193
Height = 194
Top = 190
Width = 572
Anchors = [akTop, akLeft, akRight]
@ -91,7 +96,7 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
BorderSpacing.Top = 6
Caption = 'PropertyCompletionGroupBox'
ClientHeight = 175
ClientWidth = 570
ClientWidth = 568
TabOrder = 4
object PropertyCompletionCheckBox: TCheckBox
AnchorSideLeft.Control = PropertyCompletionGroupBox
@ -113,7 +118,7 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
Left = 6
Height = 135
Top = 34
Width = 558
Width = 556
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
@ -121,7 +126,7 @@ inherited CodetoolsClassCompletionOptionsFrame: TCodetoolsClassCompletionOptions
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ChildSizing.ControlsPerLine = 5
ClientHeight = 135
ClientWidth = 558
ClientWidth = 556
TabOrder = 1
object SetPropertyVariablenameLabel: TLabel
AnchorSideTop.Side = asrCenter

View File

@ -13,20 +13,20 @@ inherited CodetoolsGeneralOptionsFrame: TCodetoolsGeneralOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 53
Height = 58
Top = 0
Width = 552
Align = alTop
AutoSize = True
Caption = 'SrcPathGroupBox'
ClientHeight = 35
ClientHeight = 39
ClientWidth = 548
TabOrder = 0
object SrcPathEdit: TEdit
AnchorSideLeft.Control = SrcPathGroupBox
AnchorSideRight.Control = SrcPathButton
Left = 6
Height = 23
Height = 27
Top = 6
Width = 513
Anchors = [akTop, akLeft, akRight]
@ -43,7 +43,7 @@ inherited CodetoolsGeneralOptionsFrame: TCodetoolsGeneralOptionsFrame
AnchorSideBottom.Control = SrcPathEdit
AnchorSideBottom.Side = asrBottom
Left = 519
Height = 23
Height = 27
Top = 6
Width = 23
Anchors = [akTop, akRight, akBottom]
@ -61,24 +61,25 @@ inherited CodetoolsGeneralOptionsFrame: TCodetoolsGeneralOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 142
Top = 59
Height = 119
Top = 64
Width = 552
Align = alTop
AutoSize = True
BorderSpacing.Top = 6
Caption = 'JumpingGroupBox'
ClientHeight = 124
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ClientHeight = 100
ClientWidth = 548
TabOrder = 1
object AdjustTopLineDueToCommentCheckBox: TCheckBox
AnchorSideLeft.Control = JumpingGroupBox
AnchorSideTop.Control = JumpingGroupBox
Left = 6
Height = 19
Height = 22
Top = 6
Width = 238
BorderSpacing.Around = 6
Width = 277
Caption = 'AdjustTopLineDueToCommentCheckBox'
TabOrder = 0
end
@ -87,11 +88,9 @@ inherited CodetoolsGeneralOptionsFrame: TCodetoolsGeneralOptionsFrame
AnchorSideTop.Control = AdjustTopLineDueToCommentCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 37
Width = 149
BorderSpacing.Top = 6
BorderSpacing.Around = 6
Height = 22
Top = 28
Width = 178
Caption = 'JumpCenteredCheckBox'
TabOrder = 1
end
@ -100,11 +99,9 @@ inherited CodetoolsGeneralOptionsFrame: TCodetoolsGeneralOptionsFrame
AnchorSideTop.Control = JumpCenteredCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 68
Width = 168
BorderSpacing.Top = 6
BorderSpacing.Around = 6
Height = 22
Top = 50
Width = 202
Caption = 'CursorBeyondEOLCheckBox'
TabOrder = 2
end
@ -113,24 +110,24 @@ inherited CodetoolsGeneralOptionsFrame: TCodetoolsGeneralOptionsFrame
AnchorSideTop.Control = CursorBeyondEOLCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 99
Width = 202
BorderSpacing.Top = 6
BorderSpacing.Around = 6
Height = 22
Top = 72
Width = 244
Caption = 'SkipForwardDeclarationsCheckBox'
TabOrder = 3
end
end
object IndentationGroupBox: TGroupBox[2]
Left = 0
Height = 130
Top = 201
Height = 132
Top = 183
Width = 552
Align = alTop
AutoSize = True
Caption = 'IndentationGroupBox'
ClientHeight = 112
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ClientHeight = 113
ClientWidth = 548
TabOrder = 2
object IndentFileLabel: TLabel
@ -138,9 +135,9 @@ inherited CodetoolsGeneralOptionsFrame: TCodetoolsGeneralOptionsFrame
AnchorSideTop.Control = IndentFileEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 16
Top = 85
Width = 81
Height = 18
Top = 83
Width = 95
BorderSpacing.Left = 6
Caption = 'IndentFileLabel'
ParentColor = False
@ -151,10 +148,10 @@ inherited CodetoolsGeneralOptionsFrame: TCodetoolsGeneralOptionsFrame
AnchorSideTop.Control = IndentFileButton
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = IndentFileButton
Left = 93
Height = 23
Top = 82
Width = 335
Left = 107
Height = 27
Top = 79
Width = 320
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@ -167,10 +164,10 @@ inherited CodetoolsGeneralOptionsFrame: TCodetoolsGeneralOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = IndentationGroupBox
AnchorSideRight.Side = asrBottom
Left = 428
Height = 25
Top = 81
Width = 114
Left = 427
Height = 29
Top = 78
Width = 115
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 6
@ -185,10 +182,9 @@ inherited CodetoolsGeneralOptionsFrame: TCodetoolsGeneralOptionsFrame
AnchorSideTop.Control = IndentOnPasteCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 56
Width = 193
BorderSpacing.Around = 6
Height = 22
Top = 50
Width = 235
Caption = 'IndentContextSensitiveCheckBox'
TabOrder = 2
end
@ -196,10 +192,9 @@ inherited CodetoolsGeneralOptionsFrame: TCodetoolsGeneralOptionsFrame
AnchorSideLeft.Control = IndentationGroupBox
AnchorSideTop.Control = IndentationGroupBox
Left = 6
Height = 19
Height = 22
Top = 6
Width = 173
BorderSpacing.Around = 6
Width = 208
Caption = 'IndentOnLineBreakCheckBox'
OnChange = IndentOnLineBreakCheckBoxChange
TabOrder = 3
@ -209,10 +204,9 @@ inherited CodetoolsGeneralOptionsFrame: TCodetoolsGeneralOptionsFrame
AnchorSideTop.Control = IndentOnLineBreakCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 31
Width = 150
BorderSpacing.Around = 6
Height = 22
Top = 28
Width = 180
Caption = 'IndentOnPasteCheckBox'
OnChange = IndentOnPasteCheckBoxChange
TabOrder = 4

View File

@ -26,7 +26,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, StdCtrls, Buttons,
Dialogs,
Dialogs, ExtCtrls,
IDEDialogs, PathEditorDlg,
CodeToolsOptions, LazarusIDEStrConsts, IDEOptionsIntf;

View File

@ -5,15 +5,16 @@ inherited CodetoolsLineSplittingOptionsFrame: TCodetoolsLineSplittingOptionsFram
ClientWidth = 558
TabOrder = 0
Visible = False
DesignLeft = 66
DesignTop = 66
DesignLeft = 331
DesignTop = 320
object LineLengthLabel: TLabel[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = LineLengthEdit
AnchorSideTop.Side = asrCenter
Height = 14
Left = 0
Height = 18
Top = 4
Width = 78
Width = 105
BorderSpacing.Right = 6
Caption = 'LineLengthLabel'
ParentColor = False
@ -21,10 +22,10 @@ inherited CodetoolsLineSplittingOptionsFrame: TCodetoolsLineSplittingOptionsFram
object SplitPreviewLabel: TLabel[1]
AnchorSideLeft.Control = SplitPreviewSynEdit
AnchorSideBottom.Control = SplitPreviewSynEdit
Left = 262
Height = 14
Left = 206
Height = 18
Top = 15
Width = 84
Width = 111
Anchors = [akLeft, akBottom]
Caption = 'SplitPreviewLabel'
ParentColor = False
@ -33,8 +34,9 @@ inherited CodetoolsLineSplittingOptionsFrame: TCodetoolsLineSplittingOptionsFram
AnchorSideLeft.Control = LineLengthLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
Left = 84
Height = 23
Left = 111
Height = 27
Top = 0
Width = 50
OnChange = UpdateExample
TabOrder = 0
@ -44,11 +46,19 @@ inherited CodetoolsLineSplittingOptionsFrame: TCodetoolsLineSplittingOptionsFram
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = LineLengthEdit
AnchorSideTop.Side = asrBottom
Height = 153
Top = 29
Width = 256
Left = 0
Height = 100
Top = 33
Width = 200
AutoSize = True
BorderSpacing.Top = 6
Caption = 'DoNotSplitLineInFrontGroupBox'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
Constraints.MinHeight = 100
Constraints.MinWidth = 200
TabOrder = 1
OnClick = UpdateExample
end
@ -58,16 +68,24 @@ inherited CodetoolsLineSplittingOptionsFrame: TCodetoolsLineSplittingOptionsFram
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DoNotSplitLineInFrontGroupBox
AnchorSideRight.Side = asrBottom
Height = 153
Top = 188
Width = 256
Left = 0
Height = 100
Top = 139
Width = 200
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'DoNotSplitLineAfterGroupBox'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
Constraints.MinHeight = 100
Constraints.MinWidth = 200
TabOrder = 2
OnClick = UpdateExample
end
object SplitPreviewSynEdit: TSynEdit[5]
inline SplitPreviewSynEdit: TSynEdit[5]
AnchorSideLeft.Control = DoNotSplitLineInFrontGroupBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DoNotSplitLineInFrontGroupBox
@ -75,10 +93,10 @@ inherited CodetoolsLineSplittingOptionsFrame: TCodetoolsLineSplittingOptionsFram
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 262
Height = 315
Top = 29
Width = 296
Left = 206
Height = 311
Top = 33
Width = 352
BorderSpacing.Left = 6
Anchors = [akTop, akLeft, akRight, akBottom]
Font.Height = -16
@ -89,336 +107,585 @@ inherited CodetoolsLineSplittingOptionsFrame: TCodetoolsLineSplittingOptionsFram
ParentFont = False
TabOrder = 3
BookMarkOptions.Xoffset = -18
BookMarkOptions.OnChange = nil
Gutter.Visible = False
Gutter.ShowCodeFolding = True
Gutter.ShowChanges = True
Gutter.ShowLineNumbers = True
Gutter.Width = 0
Gutter.MouseActions = <
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 13
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbRight
ClickCount = ccSingle
ClickDir = cdUp
Command = 12
MoveCaret = False
Option = 0
Priority = 0
end>
Keystrokes = <
item
Command = 3
Command = ecUp
ShortCut = 38
end
item
Command = 103
Command = ecSelUp
ShortCut = 8230
end
item
Command = 211
Command = ecScrollUp
ShortCut = 16422
end
item
Command = 4
Command = ecDown
ShortCut = 40
end
item
Command = 104
Command = ecSelDown
ShortCut = 8232
end
item
Command = 212
Command = ecScrollDown
ShortCut = 16424
end
item
Command = 1
Command = ecLeft
ShortCut = 37
end
item
Command = 101
Command = ecSelLeft
ShortCut = 8229
end
item
Command = 5
Command = ecWordLeft
ShortCut = 16421
end
item
Command = 105
Command = ecSelWordLeft
ShortCut = 24613
end
item
Command = 2
Command = ecRight
ShortCut = 39
end
item
Command = 102
Command = ecSelRight
ShortCut = 8231
end
item
Command = 6
Command = ecWordRight
ShortCut = 16423
end
item
Command = 106
Command = ecSelWordRight
ShortCut = 24615
end
item
Command = 10
Command = ecPageDown
ShortCut = 34
end
item
Command = 110
Command = ecSelPageDown
ShortCut = 8226
end
item
Command = 14
Command = ecPageBottom
ShortCut = 16418
end
item
Command = 114
Command = ecSelPageBottom
ShortCut = 24610
end
item
Command = 9
Command = ecPageUp
ShortCut = 33
end
item
Command = 109
Command = ecSelPageUp
ShortCut = 8225
end
item
Command = 13
Command = ecPageTop
ShortCut = 16417
end
item
Command = 113
Command = ecSelPageTop
ShortCut = 24609
end
item
Command = 7
Command = ecLineStart
ShortCut = 36
end
item
Command = 107
Command = ecSelLineStart
ShortCut = 8228
end
item
Command = 15
Command = ecEditorTop
ShortCut = 16420
end
item
Command = 115
Command = ecSelEditorTop
ShortCut = 24612
end
item
Command = 8
Command = ecLineEnd
ShortCut = 35
end
item
Command = 108
Command = ecSelLineEnd
ShortCut = 8227
end
item
Command = 16
Command = ecEditorBottom
ShortCut = 16419
end
item
Command = 116
Command = ecSelEditorBottom
ShortCut = 24611
end
item
Command = 223
Command = ecToggleMode
ShortCut = 45
end
item
Command = 201
Command = ecCopy
ShortCut = 16429
end
item
Command = 604
Command = ecPaste
ShortCut = 8237
end
item
Command = 502
Command = ecDeleteChar
ShortCut = 46
end
item
Command = 603
Command = ecCut
ShortCut = 8238
end
item
Command = 501
Command = ecDeleteLastChar
ShortCut = 8
end
item
Command = 501
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = 504
Command = ecDeleteLastWord
ShortCut = 16392
end
item
Command = 601
Command = ecUndo
ShortCut = 32776
end
item
Command = 602
Command = ecRedo
ShortCut = 40968
end
item
Command = 509
Command = ecLineBreak
ShortCut = 13
end
item
Command = 199
Command = ecSelectAll
ShortCut = 16449
end
item
Command = 201
Command = ecCopy
ShortCut = 16451
end
item
Command = 610
Command = ecBlockIndent
ShortCut = 24649
end
item
Command = 509
Command = ecLineBreak
ShortCut = 16461
end
item
Command = 510
Command = ecInsertLine
ShortCut = 16462
end
item
Command = 503
Command = ecDeleteWord
ShortCut = 16468
end
item
Command = 611
Command = ecBlockUnindent
ShortCut = 24661
end
item
Command = 604
Command = ecPaste
ShortCut = 16470
end
item
Command = 603
Command = ecCut
ShortCut = 16472
end
item
Command = 507
Command = ecDeleteLine
ShortCut = 16473
end
item
Command = 506
Command = ecDeleteEOL
ShortCut = 24665
end
item
Command = 601
Command = ecUndo
ShortCut = 16474
end
item
Command = 602
Command = ecRedo
ShortCut = 24666
end
item
Command = 301
Command = ecGotoMarker0
ShortCut = 16432
end
item
Command = 302
Command = ecGotoMarker1
ShortCut = 16433
end
item
Command = 303
Command = ecGotoMarker2
ShortCut = 16434
end
item
Command = 304
Command = ecGotoMarker3
ShortCut = 16435
end
item
Command = 305
Command = ecGotoMarker4
ShortCut = 16436
end
item
Command = 306
Command = ecGotoMarker5
ShortCut = 16437
end
item
Command = 307
Command = ecGotoMarker6
ShortCut = 16438
end
item
Command = 308
Command = ecGotoMarker7
ShortCut = 16439
end
item
Command = 309
Command = ecGotoMarker8
ShortCut = 16440
end
item
Command = 310
Command = ecGotoMarker9
ShortCut = 16441
end
item
Command = 351
Command = ecSetMarker0
ShortCut = 24624
end
item
Command = 352
Command = ecSetMarker1
ShortCut = 24625
end
item
Command = 353
Command = ecSetMarker2
ShortCut = 24626
end
item
Command = 354
Command = ecSetMarker3
ShortCut = 24627
end
item
Command = 355
Command = ecSetMarker4
ShortCut = 24628
end
item
Command = 356
Command = ecSetMarker5
ShortCut = 24629
end
item
Command = 357
Command = ecSetMarker6
ShortCut = 24630
end
item
Command = 358
Command = ecSetMarker7
ShortCut = 24631
end
item
Command = 359
Command = ecSetMarker8
ShortCut = 24632
end
item
Command = 360
Command = ecSetMarker9
ShortCut = 24633
end
item
Command = 231
Command = ecNormalSelect
ShortCut = 24654
end
item
Command = 232
Command = ecColumnSelect
ShortCut = 24643
end
item
Command = 233
Command = ecLineSelect
ShortCut = 24652
end
item
Command = 612
Command = ecTab
ShortCut = 9
end
item
Command = 613
Command = ecShiftTab
ShortCut = 8201
end
item
Command = 250
Command = ecMatchBracket
ShortCut = 24642
end>
MouseActions = <
item
Shift = []
ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown
Command = 1
MoveCaret = True
Option = 0
Priority = 0
end
item
Shift = [ssShift]
ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown
Command = 1
MoveCaret = True
Option = 1
Priority = 0
end
item
Shift = [ssAlt]
ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown
Command = 3
MoveCaret = True
Option = 0
Priority = 0
end
item
Shift = [ssShift, ssAlt]
ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown
Command = 3
MoveCaret = True
Option = 1
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbRight
ClickCount = ccSingle
ClickDir = cdUp
Command = 12
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccDouble
ClickDir = cdDown
Command = 6
MoveCaret = True
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccTriple
ClickDir = cdDown
Command = 7
MoveCaret = True
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccQuad
ClickDir = cdDown
Command = 8
MoveCaret = True
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbMiddle
ClickCount = ccSingle
ClickDir = cdDown
Command = 10
MoveCaret = True
Option = 0
Priority = 0
end
item
Shift = [ssCtrl]
ShiftMask = [ssShift, ssAlt, ssCtrl]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdUp
Command = 11
MoveCaret = False
Option = 0
Priority = 0
end>
MouseSelActions = <
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown
Command = 9
MoveCaret = False
Option = 0
Priority = 0
end>
Lines.Strings = (
'SplitPreviewSynEdit'
)
SelectedColor.OnChange = nil
BracketHighlightStyle = sbhsBoth
inline SynGutterPartList1: TSynGutterPartList
object SynGutterMarks1: TSynGutterMarks
Width = 23
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 25
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
DigitCount = 2
ShowOnlyLineNumbersMultiplesOf = 1
ZeroStart = False
LeadingZeros = False
end
object SynGutterChanges1: TSynGutterChanges
Width = 4
ModifiedColor = 59900
SavedColor = clGreen
end
object SynGutterSeparator1: TSynGutterSeparator
Width = 2
end
object SynGutterCodeFolding1: TSynGutterCodeFolding
MouseActions = <
item
Shift = []
ShiftMask = []
Button = mbRight
ClickCount = ccSingle
ClickDir = cdUp
Command = 16
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = [ssShift]
Button = mbMiddle
ClickCount = ccAny
ClickDir = cdDown
Command = 14
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = [ssShift]
ShiftMask = [ssShift]
Button = mbMiddle
ClickCount = ccAny
ClickDir = cdDown
Command = 14
MoveCaret = False
Option = 1
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 0
MoveCaret = False
Option = 0
Priority = 0
end>
MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray
MouseActionsExpanded = <
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 14
MoveCaret = False
Option = 0
Priority = 0
end>
MouseActionsCollapsed = <
item
Shift = [ssCtrl]
ShiftMask = [ssCtrl]
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 15
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = [ssCtrl]
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 15
MoveCaret = False
Option = 1
Priority = 0
end>
end
end
end
end

View File

@ -5,15 +5,16 @@ inherited CodetoolsSpaceOptionsFrame: TCodetoolsSpaceOptionsFrame
ClientWidth = 504
TabOrder = 0
Visible = False
DesignLeft = 22
DesignTop = 22
DesignLeft = 336
DesignTop = 320
object SpacePreviewLabel: TLabel[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = DoInsertSpaceInFrontGroupBox
AnchorSideTop.Side = asrBottom
Height = 14
Top = 156
Width = 93
Left = 0
Height = 18
Top = 106
Width = 123
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'SpacePreviewLabel'
@ -22,9 +23,18 @@ inherited CodetoolsSpaceOptionsFrame: TCodetoolsSpaceOptionsFrame
object DoInsertSpaceInFrontGroupBox: TGroupBox[1]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Height = 150
Width = 266
Left = 0
Height = 100
Top = 0
Width = 200
AutoSize = True
Caption = 'DoInsertSpaceInFrontGroupBox'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
Constraints.MinHeight = 100
Constraints.MinWidth = 200
TabOrder = 0
OnClick = UpdateExample
end
@ -34,16 +44,24 @@ inherited CodetoolsSpaceOptionsFrame: TCodetoolsSpaceOptionsFrame
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 272
Height = 150
Width = 232
Left = 206
Height = 100
Top = 0
Width = 298
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
Caption = 'DoInsertSpaceAfterGroupBox'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
Constraints.MinHeight = 100
Constraints.MinWidth = 100
TabOrder = 1
OnClick = UpdateExample
end
object SpacePreviewSynEdit: TSynEdit[3]
inline SpacePreviewSynEdit: TSynEdit[3]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = SpacePreviewLabel
AnchorSideTop.Side = asrBottom
@ -51,8 +69,9 @@ inherited CodetoolsSpaceOptionsFrame: TCodetoolsSpaceOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Height = 213
Top = 170
Left = 0
Height = 259
Top = 124
Width = 504
Anchors = [akTop, akLeft, akRight, akBottom]
Font.Height = -16
@ -63,336 +82,585 @@ inherited CodetoolsSpaceOptionsFrame: TCodetoolsSpaceOptionsFrame
ParentFont = False
TabOrder = 2
BookMarkOptions.Xoffset = -18
BookMarkOptions.OnChange = nil
Gutter.Visible = False
Gutter.ShowCodeFolding = True
Gutter.ShowChanges = True
Gutter.ShowLineNumbers = True
Gutter.Width = 0
Gutter.MouseActions = <
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 13
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbRight
ClickCount = ccSingle
ClickDir = cdUp
Command = 12
MoveCaret = False
Option = 0
Priority = 0
end>
Keystrokes = <
item
Command = 3
Command = ecUp
ShortCut = 38
end
item
Command = 103
Command = ecSelUp
ShortCut = 8230
end
item
Command = 211
Command = ecScrollUp
ShortCut = 16422
end
item
Command = 4
Command = ecDown
ShortCut = 40
end
item
Command = 104
Command = ecSelDown
ShortCut = 8232
end
item
Command = 212
Command = ecScrollDown
ShortCut = 16424
end
item
Command = 1
Command = ecLeft
ShortCut = 37
end
item
Command = 101
Command = ecSelLeft
ShortCut = 8229
end
item
Command = 5
Command = ecWordLeft
ShortCut = 16421
end
item
Command = 105
Command = ecSelWordLeft
ShortCut = 24613
end
item
Command = 2
Command = ecRight
ShortCut = 39
end
item
Command = 102
Command = ecSelRight
ShortCut = 8231
end
item
Command = 6
Command = ecWordRight
ShortCut = 16423
end
item
Command = 106
Command = ecSelWordRight
ShortCut = 24615
end
item
Command = 10
Command = ecPageDown
ShortCut = 34
end
item
Command = 110
Command = ecSelPageDown
ShortCut = 8226
end
item
Command = 14
Command = ecPageBottom
ShortCut = 16418
end
item
Command = 114
Command = ecSelPageBottom
ShortCut = 24610
end
item
Command = 9
Command = ecPageUp
ShortCut = 33
end
item
Command = 109
Command = ecSelPageUp
ShortCut = 8225
end
item
Command = 13
Command = ecPageTop
ShortCut = 16417
end
item
Command = 113
Command = ecSelPageTop
ShortCut = 24609
end
item
Command = 7
Command = ecLineStart
ShortCut = 36
end
item
Command = 107
Command = ecSelLineStart
ShortCut = 8228
end
item
Command = 15
Command = ecEditorTop
ShortCut = 16420
end
item
Command = 115
Command = ecSelEditorTop
ShortCut = 24612
end
item
Command = 8
Command = ecLineEnd
ShortCut = 35
end
item
Command = 108
Command = ecSelLineEnd
ShortCut = 8227
end
item
Command = 16
Command = ecEditorBottom
ShortCut = 16419
end
item
Command = 116
Command = ecSelEditorBottom
ShortCut = 24611
end
item
Command = 223
Command = ecToggleMode
ShortCut = 45
end
item
Command = 201
Command = ecCopy
ShortCut = 16429
end
item
Command = 604
Command = ecPaste
ShortCut = 8237
end
item
Command = 502
Command = ecDeleteChar
ShortCut = 46
end
item
Command = 603
Command = ecCut
ShortCut = 8238
end
item
Command = 501
Command = ecDeleteLastChar
ShortCut = 8
end
item
Command = 501
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = 504
Command = ecDeleteLastWord
ShortCut = 16392
end
item
Command = 601
Command = ecUndo
ShortCut = 32776
end
item
Command = 602
Command = ecRedo
ShortCut = 40968
end
item
Command = 509
Command = ecLineBreak
ShortCut = 13
end
item
Command = 199
Command = ecSelectAll
ShortCut = 16449
end
item
Command = 201
Command = ecCopy
ShortCut = 16451
end
item
Command = 610
Command = ecBlockIndent
ShortCut = 24649
end
item
Command = 509
Command = ecLineBreak
ShortCut = 16461
end
item
Command = 510
Command = ecInsertLine
ShortCut = 16462
end
item
Command = 503
Command = ecDeleteWord
ShortCut = 16468
end
item
Command = 611
Command = ecBlockUnindent
ShortCut = 24661
end
item
Command = 604
Command = ecPaste
ShortCut = 16470
end
item
Command = 603
Command = ecCut
ShortCut = 16472
end
item
Command = 507
Command = ecDeleteLine
ShortCut = 16473
end
item
Command = 506
Command = ecDeleteEOL
ShortCut = 24665
end
item
Command = 601
Command = ecUndo
ShortCut = 16474
end
item
Command = 602
Command = ecRedo
ShortCut = 24666
end
item
Command = 301
Command = ecGotoMarker0
ShortCut = 16432
end
item
Command = 302
Command = ecGotoMarker1
ShortCut = 16433
end
item
Command = 303
Command = ecGotoMarker2
ShortCut = 16434
end
item
Command = 304
Command = ecGotoMarker3
ShortCut = 16435
end
item
Command = 305
Command = ecGotoMarker4
ShortCut = 16436
end
item
Command = 306
Command = ecGotoMarker5
ShortCut = 16437
end
item
Command = 307
Command = ecGotoMarker6
ShortCut = 16438
end
item
Command = 308
Command = ecGotoMarker7
ShortCut = 16439
end
item
Command = 309
Command = ecGotoMarker8
ShortCut = 16440
end
item
Command = 310
Command = ecGotoMarker9
ShortCut = 16441
end
item
Command = 351
Command = ecSetMarker0
ShortCut = 24624
end
item
Command = 352
Command = ecSetMarker1
ShortCut = 24625
end
item
Command = 353
Command = ecSetMarker2
ShortCut = 24626
end
item
Command = 354
Command = ecSetMarker3
ShortCut = 24627
end
item
Command = 355
Command = ecSetMarker4
ShortCut = 24628
end
item
Command = 356
Command = ecSetMarker5
ShortCut = 24629
end
item
Command = 357
Command = ecSetMarker6
ShortCut = 24630
end
item
Command = 358
Command = ecSetMarker7
ShortCut = 24631
end
item
Command = 359
Command = ecSetMarker8
ShortCut = 24632
end
item
Command = 360
Command = ecSetMarker9
ShortCut = 24633
end
item
Command = 231
Command = ecNormalSelect
ShortCut = 24654
end
item
Command = 232
Command = ecColumnSelect
ShortCut = 24643
end
item
Command = 233
Command = ecLineSelect
ShortCut = 24652
end
item
Command = 612
Command = ecTab
ShortCut = 9
end
item
Command = 613
Command = ecShiftTab
ShortCut = 8201
end
item
Command = 250
Command = ecMatchBracket
ShortCut = 24642
end>
MouseActions = <
item
Shift = []
ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown
Command = 1
MoveCaret = True
Option = 0
Priority = 0
end
item
Shift = [ssShift]
ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown
Command = 1
MoveCaret = True
Option = 1
Priority = 0
end
item
Shift = [ssAlt]
ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown
Command = 3
MoveCaret = True
Option = 0
Priority = 0
end
item
Shift = [ssShift, ssAlt]
ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown
Command = 3
MoveCaret = True
Option = 1
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbRight
ClickCount = ccSingle
ClickDir = cdUp
Command = 12
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccDouble
ClickDir = cdDown
Command = 6
MoveCaret = True
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccTriple
ClickDir = cdDown
Command = 7
MoveCaret = True
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccQuad
ClickDir = cdDown
Command = 8
MoveCaret = True
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbMiddle
ClickCount = ccSingle
ClickDir = cdDown
Command = 10
MoveCaret = True
Option = 0
Priority = 0
end
item
Shift = [ssCtrl]
ShiftMask = [ssShift, ssAlt, ssCtrl]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdUp
Command = 11
MoveCaret = False
Option = 0
Priority = 0
end>
MouseSelActions = <
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown
Command = 9
MoveCaret = False
Option = 0
Priority = 0
end>
Lines.Strings = (
'SpacePreviewSynEdit'
)
SelectedColor.OnChange = nil
BracketHighlightStyle = sbhsBoth
inline SynGutterPartList1: TSynGutterPartList
object SynGutterMarks1: TSynGutterMarks
Width = 23
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 25
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
DigitCount = 2
ShowOnlyLineNumbersMultiplesOf = 1
ZeroStart = False
LeadingZeros = False
end
object SynGutterChanges1: TSynGutterChanges
Width = 4
ModifiedColor = 59900
SavedColor = clGreen
end
object SynGutterSeparator1: TSynGutterSeparator
Width = 2
end
object SynGutterCodeFolding1: TSynGutterCodeFolding
MouseActions = <
item
Shift = []
ShiftMask = []
Button = mbRight
ClickCount = ccSingle
ClickDir = cdUp
Command = 16
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = [ssShift]
Button = mbMiddle
ClickCount = ccAny
ClickDir = cdDown
Command = 14
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = [ssShift]
ShiftMask = [ssShift]
Button = mbMiddle
ClickCount = ccAny
ClickDir = cdDown
Command = 14
MoveCaret = False
Option = 1
Priority = 0
end
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 0
MoveCaret = False
Option = 0
Priority = 0
end>
MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray
MouseActionsExpanded = <
item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 14
MoveCaret = False
Option = 0
Priority = 0
end>
MouseActionsCollapsed = <
item
Shift = [ssCtrl]
ShiftMask = [ssCtrl]
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 15
MoveCaret = False
Option = 0
Priority = 0
end
item
Shift = []
ShiftMask = [ssCtrl]
Button = mbLeft
ClickCount = ccAny
ClickDir = cdDown
Command = 15
MoveCaret = False
Option = 1
Priority = 0
end>
end
end
end
end

View File

@ -1,21 +1,24 @@
inherited CodetoolsWordPolicyOptionsFrame: TCodetoolsWordPolicyOptionsFrame
Height = 229
Height = 270
Width = 483
ClientHeight = 229
ClientHeight = 270
ClientWidth = 483
TabOrder = 0
Visible = False
DesignLeft = 397
DesignTop = 132
DesignLeft = 340
DesignTop = 308
object KeyWordPolicyRadioGroup: TRadioGroup[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 100
Top = 0
Width = 483
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
Caption = 'KeyWordPolicyRadioGroup'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
@ -25,6 +28,7 @@ inherited CodetoolsWordPolicyOptionsFrame: TCodetoolsWordPolicyOptionsFrame
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
Constraints.MinHeight = 100
TabOrder = 0
end
object IdentifierPolicyRadioGroup: TRadioGroup[1]
@ -33,11 +37,13 @@ inherited CodetoolsWordPolicyOptionsFrame: TCodetoolsWordPolicyOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 100
Top = 106
Width = 483
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
BorderSpacing.Top = 6
Caption = 'IdentifierPolicyRadioGroup'
ChildSizing.LeftRightSpacing = 6
@ -48,6 +54,7 @@ inherited CodetoolsWordPolicyOptionsFrame: TCodetoolsWordPolicyOptionsFrame
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
Constraints.MinHeight = 100
TabOrder = 1
end
end