paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-12 21:15:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fpdoc editor: scrollbars for memos

Browse Source 
git-svn-id: trunk@41176 -
This commit is contained in:
mattias 2013-05-13 14:48:43 +00:00
parent b37b5dd406
commit c6d50ecbe0
1 changed files with 101 additions and 111 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

212
ide/fpdoceditwindow.lfm
View File

@ -12,29 +12,29 @@ object FPDocEditor: TFPDocEditor
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnShow = FormShow OnShow = FormShow
LCLVersion = '0.9.31' LCLVersion = '1.1'
object PageControl: TPageControl object PageControl: TPageControl
Left = 60 Left = 33
Height = 156 Height = 156
Top = 0 Top = 0
Width = 693 Width = 720
ActivePage = ShortTabSheet ActivePage = SeeAlsoTabSheet
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 4
TabOrder = 0 TabOrder = 0
TabPosition = tpBottom TabPosition = tpBottom
OnChange = PageControlChange OnChange = PageControlChange
object ShortTabSheet: TTabSheet object ShortTabSheet: TTabSheet
Caption = 'ShortTabSheet' Caption = 'ShortTabSheet'
ClientHeight = 122 ClientHeight = 117
ClientWidth = 687 ClientWidth = 714
object LinkLabel: TLabel object LinkLabel: TLabel
AnchorSideTop.Control = LinkEdit AnchorSideTop.Control = LinkEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 17 Height = 16
Top = 33 Top = 27
Width = 59 Width = 60
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'LinkLabel' Caption = 'LinkLabel'
ParentColor = False ParentColor = False
@ -44,8 +44,8 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Control = ShortEdit AnchorSideTop.Control = ShortEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 17 Height = 16
Top = 5 Top = 3
Width = 67 Width = 67
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'ShortLabel' Caption = 'ShortLabel'
@ -57,9 +57,9 @@ object FPDocEditor: TFPDocEditor
AnchorSideRight.Control = ShortTabSheet AnchorSideRight.Control = ShortTabSheet
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 79 Left = 79
Height = 26 Height = 22
Top = 0 Top = 0
Width = 606 Width = 633
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSelect = False AutoSelect = False
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -73,9 +73,9 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Control = LinkEdit AnchorSideTop.Control = LinkEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 28 Height = 20
Top = 60 Top = 52
Width = 93 Width = 107
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'CreateButton' Caption = 'CreateButton'
@ -89,10 +89,10 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ShortTabSheet AnchorSideRight.Control = ShortTabSheet
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 71 Left = 72
Height = 26 Height = 22
Top = 28 Top = 24
Width = 614 Width = 640
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSelect = False AutoSelect = False
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -107,10 +107,10 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Control = CreateButton AnchorSideTop.Control = CreateButton
AnchorSideRight.Control = ShortTabSheet AnchorSideRight.Control = ShortTabSheet
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 573 Left = 588
Height = 28 Height = 20
Top = 60 Top = 52
Width = 114 Width = 126
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
Caption = 'OpenXMLButton' Caption = 'OpenXMLButton'
@ -122,13 +122,13 @@ object FPDocEditor: TFPDocEditor
end end
object InheritedTabSheet: TTabSheet object InheritedTabSheet: TTabSheet
Caption = 'InheritedTabSheet' Caption = 'InheritedTabSheet'
ClientHeight = 122 ClientHeight = 117
ClientWidth = 687 ClientWidth = 714
object InheritedShortLabel: TLabel object InheritedShortLabel: TLabel
Left = 0 Left = 0
Height = 14 Height = 16
Top = 2 Top = 2
Width = 688 Width = 714
Align = alTop Align = alTop
BorderSpacing.Top = 2 BorderSpacing.Top = 2
Caption = 'InheritedShortLabel' Caption = 'InheritedShortLabel'
@ -141,9 +141,9 @@ object FPDocEditor: TFPDocEditor
AnchorSideRight.Control = InheritedTabSheet AnchorSideRight.Control = InheritedTabSheet
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 21 Height = 22
Top = 18 Top = 20
Width = 688 Width = 714
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2 BorderSpacing.Top = 2
ReadOnly = True ReadOnly = True
@ -154,9 +154,9 @@ object FPDocEditor: TFPDocEditor
AnchorSideTop.Control = InheritedShortEdit AnchorSideTop.Control = InheritedShortEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 23 Height = 20
Top = 45 Top = 48
Width = 140 Width = 176
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'MoveToInheritedButton' Caption = 'MoveToInheritedButton'
@ -168,10 +168,10 @@ object FPDocEditor: TFPDocEditor
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = MoveToInheritedButton AnchorSideTop.Control = MoveToInheritedButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 150 Left = 186
Height = 23 Height = 20
Top = 45 Top = 48
Width = 151 Width = 191
AutoSize = True AutoSize = True
BorderSpacing.Left = 10 BorderSpacing.Left = 10
Caption = 'CopyFromInheritedButton' Caption = 'CopyFromInheritedButton'
@ -182,10 +182,10 @@ object FPDocEditor: TFPDocEditor
AnchorSideLeft.Control = CopyFromInheritedButton AnchorSideLeft.Control = CopyFromInheritedButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CopyFromInheritedButton AnchorSideTop.Control = CopyFromInheritedButton
Left = 311 Left = 387
Height = 23 Height = 20
Top = 45 Top = 48
Width = 151 Width = 194
AutoSize = True AutoSize = True
BorderSpacing.Left = 10 BorderSpacing.Left = 10
Caption = 'AddLinkToInheritedButton' Caption = 'AddLinkToInheritedButton'
@ -195,13 +195,13 @@ object FPDocEditor: TFPDocEditor
end end
object DescrTabSheet: TTabSheet object DescrTabSheet: TTabSheet
Caption = 'DescrTabSheet' Caption = 'DescrTabSheet'
ClientHeight = 122 ClientHeight = 117
ClientWidth = 687 ClientWidth = 714
object DescrMemo: TMemo object DescrMemo: TMemo
Left = 0 Left = 0
Height = 90 Height = 89
Top = 28 Top = 24
Width = 685 Width = 712
Align = alClient Align = alClient
BorderSpacing.Right = 2 BorderSpacing.Right = 2
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
@ -210,27 +210,28 @@ object FPDocEditor: TFPDocEditor
) )
OnChange = DescrMemoChange OnChange = DescrMemoChange
OnEditingDone = DescrMemoEditingDone OnEditingDone = DescrMemoEditingDone
ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
end end
object ShortPanel: TPanel object ShortPanel: TPanel
Left = 0 Left = 0
Height = 28 Height = 24
Top = 0 Top = 0
Width = 687 Width = 714
Align = alTop Align = alTop
Alignment = taLeftJustify Alignment = taLeftJustify
AutoSize = True AutoSize = True
Caption = 'Short' Caption = 'Short'
ClientHeight = 28 ClientHeight = 24
ClientWidth = 687 ClientWidth = 714
TabOrder = 1 TabOrder = 1
object DescrShortEdit: TEdit object DescrShortEdit: TEdit
AnchorSideLeft.Control = ShortPanel AnchorSideLeft.Control = ShortPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 61 Left = 61
Height = 26 Height = 22
Top = 1 Top = 1
Width = 623 Width = 650
Align = alRight Align = alRight
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
AutoSelect = False AutoSelect = False
@ -246,13 +247,13 @@ object FPDocEditor: TFPDocEditor
end end
object ErrorsTabSheet: TTabSheet object ErrorsTabSheet: TTabSheet
Caption = 'ErrorsTabSheet' Caption = 'ErrorsTabSheet'
ClientHeight = 122 ClientHeight = 117
ClientWidth = 687 ClientWidth = 714
object ErrorsMemo: TMemo object ErrorsMemo: TMemo
Left = 0 Left = 0
Height = 95 Height = 113
Top = 0 Top = 0
Width = 686 Width = 712
Align = alClient Align = alClient
BorderSpacing.Right = 2 BorderSpacing.Right = 2
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
@ -261,24 +262,26 @@ object FPDocEditor: TFPDocEditor
) )
OnChange = ErrorsMemoChange OnChange = ErrorsMemoChange
OnEditingDone = ErrorsMemoEditingDone OnEditingDone = ErrorsMemoEditingDone
ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
end end
end end
object SeeAlsoTabSheet: TTabSheet object SeeAlsoTabSheet: TTabSheet
Caption = 'SeeAlsoTabSheet' Caption = 'SeeAlsoTabSheet'
ClientHeight = 122 ClientHeight = 117
ClientWidth = 687 ClientWidth = 714
object SeeAlsoMemo: TMemo object SeeAlsoMemo: TMemo
Left = 0 Left = 0
Height = 99 Height = 117
Top = 0 Top = 0
Width = 688 Width = 714
Align = alClient Align = alClient
Lines.Strings = ( Lines.Strings = (
'SeeAlsoMemo' 'SeeAlsoMemo'
) )
OnChange = SeeAlsoMemoChange OnChange = SeeAlsoMemoChange
OnEditingDone = SeeAlsoMemoEditingDone OnEditingDone = SeeAlsoMemoEditingDone
ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
end end
end end
@ -374,9 +377,7 @@ object FPDocEditor: TFPDocEditor
ItemHeight = 0 ItemHeight = 0
OnClick = TopicListBoxClick OnClick = TopicListBoxClick
OnEnter = TopicControlEnter OnEnter = TopicControlEnter
ScrollWidth = 168
TabOrder = 1 TabOrder = 1
TopIndex = -1
end end
end end
object Panel3: TPanel object Panel3: TPanel
@ -418,83 +419,77 @@ object FPDocEditor: TFPDocEditor
Left = 0 Left = 0
Height = 156 Height = 156
Top = 0 Top = 0
Width = 60 Width = 33
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 156 ClientHeight = 156
ClientWidth = 60 ClientWidth = 33
FullRepaint = False FullRepaint = False
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 1
object BoldFormatButton: TSpeedButton object BoldFormatButton: TSpeedButton
Left = 0 Left = 0
Height = 23 Height = 4
Top = 0 Top = 0
Width = 20 Width = 4
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
NumGlyphs = 0
OnClick = FormatButtonClick OnClick = FormatButtonClick
end end
object ItalicFormatButton: TSpeedButton object ItalicFormatButton: TSpeedButton
Tag = 1 Tag = 1
Left = 20 Left = 4
Height = 23 Height = 4
Top = 0 Top = 0
Width = 20 Width = 11
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
NumGlyphs = 0
OnClick = FormatButtonClick OnClick = FormatButtonClick
end end
object UnderlineFormatButton: TSpeedButton object UnderlineFormatButton: TSpeedButton
Tag = 2 Tag = 2
Left = 40 Left = 15
Height = 23 Height = 4
Top = 0 Top = 0
Width = 20 Width = 18
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
NumGlyphs = 0
OnClick = FormatButtonClick OnClick = FormatButtonClick
end end
object InsertVarTagButton: TSpeedButton object InsertVarTagButton: TSpeedButton
Tag = 5 Tag = 5
Left = 0 Left = 0
Height = 23 Height = 20
Top = 23 Top = 4
Width = 20 Width = 4
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
NumGlyphs = 0
OnClick = FormatButtonClick OnClick = FormatButtonClick
end end
object InsertParagraphSpeedButton: TSpeedButton object InsertParagraphSpeedButton: TSpeedButton
Tag = 6 Tag = 6
Left = 20 Left = 4
Height = 23 Height = 20
Top = 23 Top = 4
Width = 20 Width = 11
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
Caption = 'P' Caption = 'P'
NumGlyphs = 0
OnClick = FormatButtonClick OnClick = FormatButtonClick
end end
object InsertLinkSpeedButton: TSpeedButton object InsertLinkSpeedButton: TSpeedButton
Left = 40 Left = 15
Height = 23 Height = 20
Top = 23 Top = 4
Width = 20 Width = 18
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
Caption = 'Li' Caption = 'Li'
Enabled = False Enabled = False
NumGlyphs = 0
OnClick = InsertLinkSpeedButtonClick OnClick = InsertLinkSpeedButtonClick
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
@ -502,39 +497,36 @@ object FPDocEditor: TFPDocEditor
object InsertCodeTagButton: TSpeedButton object InsertCodeTagButton: TSpeedButton
Tag = 3 Tag = 3
Left = 0 Left = 0
Height = 23 Height = 20
Top = 46 Top = 24
Width = 20 Width = 4
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
NumGlyphs = 0
OnClick = FormatButtonClick OnClick = FormatButtonClick
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
end end
object InsertRemarkButton: TSpeedButton object InsertRemarkButton: TSpeedButton
Tag = 4 Tag = 4
Left = 20 Left = 4
Height = 23 Height = 20
Top = 46 Top = 24
Width = 20 Width = 11
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
NumGlyphs = 0
OnClick = FormatButtonClick OnClick = FormatButtonClick
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
end end
object InsertPrintShortSpeedButton: TSpeedButton object InsertPrintShortSpeedButton: TSpeedButton
Tag = 7 Tag = 7
Left = 40 Left = 15
Height = 23 Height = 20
Top = 46 Top = 24
Width = 20 Width = 18
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
Caption = 'PS' Caption = 'PS'
NumGlyphs = 0
OnClick = FormatButtonClick OnClick = FormatButtonClick
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
@ -542,12 +534,11 @@ object FPDocEditor: TFPDocEditor
object InsertURLTagSpeedButton: TSpeedButton object InsertURLTagSpeedButton: TSpeedButton
Tag = 8 Tag = 8
Left = 0 Left = 0
Height = 23 Height = 4
Top = 69 Top = 44
Width = 20 Width = 4
Constraints.MaxHeight = 23 Constraints.MaxHeight = 23
Constraints.MaxWidth = 20 Constraints.MaxWidth = 20
NumGlyphs = 0
OnClick = FormatButtonClick OnClick = FormatButtonClick
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
@ -557,10 +548,9 @@ object FPDocEditor: TFPDocEditor
Left = 0 Left = 0
Height = 29 Height = 29
Top = 127 Top = 127
Width = 60 Width = 33
Align = alBottom Align = alBottom
Caption = 'Save' Caption = 'Save'
NumGlyphs = 0
OnClick = SaveButtonClick OnClick = SaveButtonClick
end end
end end