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

IDE: Code template editor form: fixed/improved layout and localization

Browse Source 
git-svn-id: trunk@35494 -
This commit is contained in:
maxim 2012-02-19 20:22:02 +00:00
parent 9c9f699f61
commit 8b474781e5
3 changed files with 135 additions and 237 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

240
ide/codetemplatesdlg.lfm
View File

@ -20,15 +20,15 @@ object CodeTemplateDialog: TCodeTemplateDialog
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'FilenameGroupBox' Caption = 'FilenameGroupBox'
ClientHeight = 30 ClientHeight = 33
ClientWidth = 477 ClientWidth = 481
TabOrder = 0 TabOrder = 0
object FilenameEdit: TEdit object FilenameEdit: TEdit
AnchorSideRight.Control = FilenameButton AnchorSideRight.Control = FilenameButton
Left = 9 Left = 9
Height = 27 Height = 21
Top = 4 Top = 4
Width = 431 Width = 435
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 5 BorderSpacing.Right = 5
TabOrder = 0 TabOrder = 0
@ -39,9 +39,9 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = FilenameEdit AnchorSideBottom.Control = FilenameEdit
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 445 Left = 449
Height = 23 Height = 23
Top = 8 Top = 2
Width = 26 Width = 26
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -58,8 +58,8 @@ object CodeTemplateDialog: TCodeTemplateDialog
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'TemplatesGroupBox' Caption = 'TemplatesGroupBox'
ClientHeight = 146 ClientHeight = 149
ClientWidth = 477 ClientWidth = 481
TabOrder = 1 TabOrder = 1
object TemplateListBox: TListBox object TemplateListBox: TListBox
AnchorSideLeft.Control = TemplatesGroupBox AnchorSideLeft.Control = TemplatesGroupBox
@ -68,9 +68,9 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideBottom.Control = TemplatesGroupBox AnchorSideBottom.Control = TemplatesGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 134 Height = 137
Top = 6 Top = 6
Width = 311 Width = 315
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -84,7 +84,7 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideTop.Control = TemplateListBox AnchorSideTop.Control = TemplateListBox
AnchorSideRight.Control = TemplatesGroupBox AnchorSideRight.Control = TemplatesGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 323 Left = 327
Height = 30 Height = 30
Top = 6 Top = 6
Width = 148 Width = 148
@ -100,7 +100,7 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AddButton AnchorSideRight.Control = AddButton
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 323 Left = 327
Height = 30 Height = 30
Top = 42 Top = 42
Width = 148 Width = 148
@ -116,7 +116,7 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DeleteButton AnchorSideRight.Control = DeleteButton
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 323 Left = 327
Height = 30 Height = 30
Top = 78 Top = 78
Width = 148 Width = 148
@ -132,20 +132,20 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideBottom.Control = FilenameGroupBox AnchorSideBottom.Control = FilenameGroupBox
Left = 6 Left = 6
Height = 260 Height = 268
Top = 236 Top = 236
Width = 485 Width = 485
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'EditTemplateGroupBox' Caption = 'EditTemplateGroupBox'
ClientHeight = 239 ClientHeight = 250
ClientWidth = 477 ClientWidth = 481
TabOrder = 2 TabOrder = 2
object UseMacrosCheckBox: TCheckBox object UseMacrosCheckBox: TCheckBox
Left = 6 Left = 6
Height = 22 Height = 17
Top = 6 Top = 6
Width = 171 Width = 117
BorderSpacing.Bottom = 7 BorderSpacing.Bottom = 7
Caption = 'UseMacrosCheckBox' Caption = 'UseMacrosCheckBox'
ParentShowHint = False ParentShowHint = False
@ -158,10 +158,10 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideTop.Control = UseMacrosCheckBox AnchorSideTop.Control = UseMacrosCheckBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 203 Left = 149
Height = 27 Height = 23
Top = 4 Top = 3
Width = 148 Width = 116
AutoSize = True AutoSize = True
BorderSpacing.Left = 20 BorderSpacing.Left = 20
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -177,9 +177,9 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideBottom.Control = EditTemplateGroupBox AnchorSideBottom.Control = EditTemplateGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 125 Height = 146
Top = 108 Top = 98
Width = 465 Width = 469
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Font.Height = -14 Font.Height = -14
@ -192,50 +192,24 @@ object CodeTemplateDialog: TCodeTemplateDialog
Gutter.Width = 57 Gutter.Width = 57
Gutter.MouseActions = < Gutter.MouseActions = <
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 13 Command = emcOnMainGutterClick
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbRight Button = mbRight
ClickCount = ccSingle Command = emcContextMenu
ClickDir = cdUp
Command = 12
MoveCaret = False
Option = 0
Priority = 0
end> end>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = < RightGutter.MouseActions = <
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 13 Command = emcOnMainGutterClick
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbRight Button = mbRight
ClickCount = ccSingle Command = emcContextMenu
ClickDir = cdUp
Command = 12
MoveCaret = False
Option = 0
Priority = 0
end> end>
Keystrokes = < Keystrokes = <
item item
@ -560,134 +534,91 @@ object CodeTemplateDialog: TCodeTemplateDialog
end> end>
MouseActions = < MouseActions = <
item item
Shift = []
ShiftMask = [ssShift, ssAlt] ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 1 Command = emcStartSelections
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = [ssShift] Shift = [ssShift]
ShiftMask = [ssShift, ssAlt] ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 1 Command = emcStartSelections
MoveCaret = True MoveCaret = True
Option = 1 Option = 1
Priority = 0
end end
item item
Shift = [ssAlt] Shift = [ssAlt]
ShiftMask = [ssShift, ssAlt] ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 3 Command = emcStartColumnSelections
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = [ssShift, ssAlt] Shift = [ssShift, ssAlt]
ShiftMask = [ssShift, ssAlt] ShiftMask = [ssShift, ssAlt]
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 3 Command = emcStartColumnSelections
MoveCaret = True MoveCaret = True
Option = 1 Option = 1
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbRight Button = mbRight
ClickCount = ccSingle Command = emcContextMenu
ClickDir = cdUp
Command = 12
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccDouble ClickCount = ccDouble
ClickDir = cdDown ClickDir = cdDown
Command = 6 Command = emcSelectWord
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccTriple ClickCount = ccTriple
ClickDir = cdDown ClickDir = cdDown
Command = 7 Command = emcSelectLine
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccQuad ClickCount = ccQuad
ClickDir = cdDown ClickDir = cdDown
Command = 8 Command = emcSelectPara
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbMiddle Button = mbMiddle
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 10 Command = emcPasteSelection
MoveCaret = True MoveCaret = True
Option = 0
Priority = 0
end end
item item
Shift = [ssCtrl] Shift = [ssCtrl]
ShiftMask = [ssShift, ssAlt, ssCtrl] ShiftMask = [ssShift, ssAlt, ssCtrl]
Button = mbLeft Command = emcMouseLink
ClickCount = ccSingle
ClickDir = cdUp
Command = 11
MoveCaret = False
Option = 0
Priority = 0
end> end>
MouseSelActions = < MouseSelActions = <
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccSingle
ClickDir = cdDown ClickDir = cdDown
Command = 9 Command = emcStartDragMove
MoveCaret = False
Option = 0
Priority = 0
end> end>
Lines.Strings = ( Lines.Strings = (
'TemplateSynEdit' 'TemplateSynEdit'
) )
VisibleSpecialChars = [vscSpace, vscTabAtLast]
BracketHighlightStyle = sbhsBoth BracketHighlightStyle = sbhsBoth
BracketMatchColor.Background = clNone
BracketMatchColor.Foreground = clNone
BracketMatchColor.Style = [fsBold]
FoldedCodeColor.Background = clNone
FoldedCodeColor.Foreground = clGray
FoldedCodeColor.FrameColor = clGray
MouseLinkColor.Background = clNone
MouseLinkColor.Foreground = clBlue
LineHighlightColor.Background = clNone
LineHighlightColor.Foreground = clNone
inline TSynGutterPartList inline TSynGutterPartList
object TSynGutterMarks object TSynGutterMarks
Width = 24 Width = 24
MouseActions = <>
end end
object TSynGutterLineNumber object TSynGutterLineNumber
Width = 17 Width = 17
@ -701,35 +632,26 @@ object CodeTemplateDialog: TCodeTemplateDialog
end end
object TSynGutterChanges object TSynGutterChanges
Width = 4 Width = 4
MouseActions = <>
ModifiedColor = 59900 ModifiedColor = 59900
SavedColor = clGreen SavedColor = clGreen
end end
object TSynGutterSeparator object TSynGutterSeparator
Width = 2 Width = 2
MouseActions = <>
end end
object TSynGutterCodeFolding object TSynGutterCodeFolding
MouseActions = < MouseActions = <
item item
Shift = []
ShiftMask = []
Button = mbRight Button = mbRight
ClickCount = ccSingle Command = emcCodeFoldContextMenu
ClickDir = cdUp
Command = 16
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = [ssShift] ShiftMask = [ssShift]
Button = mbMiddle Button = mbMiddle
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 14 Command = emcCodeFoldCollaps
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = [ssShift] Shift = [ssShift]
@ -737,58 +659,36 @@ object CodeTemplateDialog: TCodeTemplateDialog
Button = mbMiddle Button = mbMiddle
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 14 Command = emcCodeFoldCollaps
MoveCaret = False
Option = 1 Option = 1
Priority = 0
end end
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 0 Command = emcNone
MoveCaret = False
Option = 0
Priority = 0
end> end>
MarkupInfo.Background = clNone MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray MarkupInfo.Foreground = clGray
MouseActionsExpanded = < MouseActionsExpanded = <
item item
Shift = []
ShiftMask = []
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 14 Command = emcCodeFoldCollaps
MoveCaret = False
Option = 0
Priority = 0
end> end>
MouseActionsCollapsed = < MouseActionsCollapsed = <
item item
Shift = [ssCtrl] Shift = [ssCtrl]
ShiftMask = [ssCtrl] ShiftMask = [ssCtrl]
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 15 Command = emcCodeFoldExpand
MoveCaret = False
Option = 0
Priority = 0
end end
item item
Shift = []
ShiftMask = [ssCtrl] ShiftMask = [ssCtrl]
Button = mbLeft
ClickCount = ccAny ClickCount = ccAny
ClickDir = cdDown ClickDir = cdDown
Command = 15 Command = emcCodeFoldExpand
MoveCaret = False
Option = 1 Option = 1
Priority = 0
end> end>
end end
end end
@ -801,8 +701,8 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 39 Height = 39
Top = 63 Top = 53
Width = 465 Width = 469
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
@ -825,9 +725,9 @@ object CodeTemplateDialog: TCodeTemplateDialog
AnchorSideTop.Control = UseMacrosCheckBox AnchorSideTop.Control = UseMacrosCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 17
Top = 35 Top = 30
Width = 198 Width = 139
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'KeepSubIndentCheckBox' Caption = 'KeepSubIndentCheckBox'
ParentShowHint = False ParentShowHint = False
@ -837,16 +737,20 @@ object CodeTemplateDialog: TCodeTemplateDialog
end end
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 34 Height = 26
Top = 502 Top = 510
Width = 485 Width = 485
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = OkButtonClick OKButton.OnClick = OkButtonClick
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
HelpButton.OnClick = HelpButtonClick HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton' CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CloseButton.Enabled = False CloseButton.Enabled = False
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 3 TabOrder = 3
ShowButtons = [pbOK, pbCancel, pbHelp] ShowButtons = [pbOK, pbCancel, pbHelp]
ShowBevel = False ShowBevel = False

131
ide/codetemplatesdlg.pas
View File

@ -117,7 +117,6 @@ type
CommentEdit: TEdit; CommentEdit: TEdit;
OkButton: TButton; OkButton: TButton;
CancelButton: TButton; CancelButton: TButton;
procedure CodeTemplateEditFormResize(Sender: TObject);
procedure OkButtonClick(Sender: TObject); procedure OkButtonClick(Sender: TObject);
public public
SynAutoComplete: TSynEditAutoComplete; SynAutoComplete: TSynEditAutoComplete;
@ -797,17 +796,24 @@ begin
if LazarusResources.Find(ClassName)=nil then begin if LazarusResources.Find(ClassName)=nil then begin
Width:=300; Width:=300;
Height:=150; Height:=150;
Constraints.MinWidth:=300;
Constraints.MinHeight:=150;
BorderIcons:=[biSystemMenu];
Position:=poScreenCenter; Position:=poScreenCenter;
OnResize:=@CodeTemplateEditFormResize;
TokenLabel:=TLabel.Create(Self); TokenLabel:=TLabel.Create(Self);
with TokenLabel do begin with TokenLabel do begin
Name:='TokenLabel'; Name:='TokenLabel';
Parent:=Self; Parent:=Self;
Caption:=lisCodeTemplToken; Caption:=lisCodeTemplToken;
Left:=12; AutoSize:=true;
Top:=6; AnchorSide[akLeft].Control:=Self;
Width:=Self.ClientWidth-Left-Left; AnchorSide[akTop].Control:=Self;
AnchorSide[akLeft].Side:=asrLeft;
AnchorSide[akTop].Side:=asrTop;
BorderSpacing.Left:=6;
BorderSpacing.Top:=12;
Anchors:=[akLeft,akTop];
Show; Show;
end; end;
@ -815,9 +821,16 @@ begin
with TokenEdit do begin with TokenEdit do begin
Name:='TokenEdit'; Name:='TokenEdit';
Parent:=Self; Parent:=Self;
Left:=10; AnchorSide[akLeft].Control:=Self;
Top:=TokenLabel.Top+TokenLabel.Height+2; AnchorSide[akTop].Control:=TokenLabel;
Width:=Self.ClientWidth-Left-Left-4; AnchorSide[akRight].Control:=Self;
AnchorSide[akLeft].Side:=asrLeft;
AnchorSide[akTop].Side:=asrBottom;
AnchorSide[akRight].Side:=asrRight;
BorderSpacing.Left:=6;
BorderSpacing.Right:=6;
BorderSpacing.Top:=0;
Anchors:=[akLeft,akTop,akRight];
Text:=''; Text:='';
Show; Show;
end; end;
@ -827,9 +840,14 @@ begin
Name:='CommentLabel'; Name:='CommentLabel';
Parent:=Self; Parent:=Self;
Caption:=lisCodeTemplComment; Caption:=lisCodeTemplComment;
Left:=12; AutoSize:=true;
Top:=TokenEdit.Top+TokenEdit.Height+10; AnchorSide[akLeft].Control:=Self;
Width:=Self.ClientWidth-Left-Left; AnchorSide[akTop].Control:=TokenEdit;
AnchorSide[akLeft].Side:=asrLeft;
AnchorSide[akTop].Side:=asrBottom;
BorderSpacing.Left:=6;
BorderSpacing.Top:=12;
Anchors:=[akLeft,akTop];
Show; Show;
end; end;
@ -837,76 +855,51 @@ begin
with CommentEdit do begin with CommentEdit do begin
Name:='CommentEdit'; Name:='CommentEdit';
Parent:=Self; Parent:=Self;
Left:=10; AnchorSide[akLeft].Control:=Self;
Top:=CommentLabel.Top+CommentLabel.Height+2; AnchorSide[akTop].Control:=CommentLabel;
Width:=Self.ClientWidth-Left-Left-4; AnchorSide[akRight].Control:=Self;
AnchorSide[akLeft].Side:=asrLeft;
AnchorSide[akTop].Side:=asrBottom;
AnchorSide[akRight].Side:=asrRight;
BorderSpacing.Left:=6;
BorderSpacing.Right:=6;
BorderSpacing.Top:=0;
Anchors:=[akLeft,akTop,akRight];
Text:=''; Text:='';
Show; Show;
end; end;
OkButton:=TButton.Create(Self);
with OkButton do begin
Name:='OkButton';
Parent:=Self;
Caption:=lisMenuOk;
OnClick:=@OkButtonClick;
Left:=50;
Top:=Self.ClientHeight-Height-12;
Width:=80;
Show;
end;
CancelButton:=TButton.Create(Self); CancelButton:=TButton.Create(Self);
with CancelButton do begin with CancelButton do begin
Name:='CancelButton'; Name:='CancelButton';
Parent:=Self; Parent:=Self;
Caption:=lisCancel; Caption:=lisCancel;
ModalResult:=mrCancel; ModalResult:=mrCancel;
Width:=80; AutoSize:=true;
Left:=Self.ClientWidth-50-Width; AnchorSide[akRight].Control:=Self;
Top:=Self.ClientHeight-Height-12; AnchorSide[akBottom].Control:=Self;
AnchorSide[akRight].Side:=asrRight;
AnchorSide[akBottom].Side:=asrBottom;
BorderSpacing.Around:=6;
Anchors:=[akRight,akBottom];
Show; Show;
end; end;
end;
CodeTemplateEditFormResize(nil);
end;
procedure TCodeTemplateEditForm.CodeTemplateEditFormResize(Sender: TObject); OkButton:=TButton.Create(Self);
begin with OkButton do begin
with TokenLabel do begin Name:='OkButton';
Left:=12; Parent:=Self;
Top:=6; Caption:=lisMenuOk;
Width:=Self.ClientWidth-Left-Left; OnClick:=@OkButtonClick;
end; AutoSize:=true;
AnchorSide[akRight].Control:=CancelButton;
with TokenEdit do begin AnchorSide[akBottom].Control:=Self;
Left:=10; AnchorSide[akRight].Side:=asrLeft;
Top:=TokenLabel.Top+TokenLabel.Height+2; AnchorSide[akBottom].Side:=asrBottom;
Width:=Self.ClientWidth-Left-Left-4; BorderSpacing.Around:=6;
end; Anchors:=[akRight,akBottom];
Show;
with CommentLabel do begin end;
Left:=12;
Top:=TokenEdit.Top+TokenEdit.Height+10;
Width:=Self.ClientWidth-Left-Left;
end;
with CommentEdit do begin
Left:=10;
Top:=CommentLabel.Top+CommentLabel.Height+2;
Width:=Self.ClientWidth-Left-Left-4;
end;
with OkButton do begin
Left:=50;
Top:=Self.ClientHeight-Height-12;
Width:=80;
end;
with CancelButton do begin
Width:=80;
Left:=Self.ClientWidth-50-Width;
Top:=Self.ClientHeight-Height-12;
end; end;
end; end;
@ -1255,7 +1248,7 @@ begin
if (ep>sp) or ((s<>'') and (s[length(s)] in [#10,#13])) then if (ep>sp) or ((s<>'') and (s[length(s)] in [#10,#13])) then
AddLine(copy(s,sp,ep-sp)); AddLine(copy(s,sp,ep-sp));
end else begin end else begin
EditTemplateGroupBox.Caption:='no template selected'; EditTemplateGroupBox.Caption:=lisNoTemplateSelected;
end; end;
LastTemplate := a; LastTemplate := a;
TemplateSynEdit.Lines.EndUpdate; TemplateSynEdit.Lines.EndUpdate;

1
ide/lazarusidestrconsts.pas
View File

@ -3192,6 +3192,7 @@ resourcestring
lisCodeTemplComment = 'Comment:'; lisCodeTemplComment = 'Comment:';
lisCodeTemplATokenAlreadyExists = ' A token %s%s%s already exists! '; lisCodeTemplATokenAlreadyExists = ' A token %s%s%s already exists! ';
lisCodeTemplError = 'Error'; lisCodeTemplError = 'Error';
lisNoTemplateSelected = 'no template selected';
lisUnableToFindTheLfmFileOfComponentClassNeededByUnit = 'Unable to find the ' lisUnableToFindTheLfmFileOfComponentClassNeededByUnit = 'Unable to find the '
+'lfm file of component class "%s".%sNeeded by unit:%s%s'; +'lfm file of component class "%s".%sNeeded by unit:%s%s';
lisUnableToOpenDesignerTheClassDoesNotDescendFromADes = 'Unable to open ' lisUnableToOpenDesignerTheClassDoesNotDescendFromADes = 'Unable to open '