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

IDE: fpdoc link editor: return key

Browse Source 
git-svn-id: trunk@21055 -
This commit is contained in:
mattias 2009-08-01 12:05:16 +00:00
parent fde82e5b5f
commit 6556dda2b3
3 changed files with 27 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fpdocselectlink.lfm
View File

@ -3,7 +3,7 @@ object FPDocLinkEditorDlg: TFPDocLinkEditorDlg
Height = 282
Top = 304
Width = 408
ActiveControl = LinkEdit
ActiveControl = TitleEdit
Caption = 'FPDocLinkEditorDlg'
ClientHeight = 282
ClientWidth = 408

40
ide/fpdocselectlink.lrs
View File

@ -2,26 +2,26 @@
LazarusResources.Add('TFPDocLinkEditorDlg','FORMDATA',[
'TPF0'#19'TFPDocLinkEditorDlg'#18'FPDocLinkEditorDlg'#4'Left'#3'j'#1#6'Height'
+#3#26#1#3'Top'#3'0'#1#5'Width'#3#152#1#13'ActiveControl'#7#8'LinkEdit'#7'Cap'
+'tion'#6#18'FPDocLinkEditorDlg'#12'ClientHeight'#3#26#1#11'ClientWidth'#3#152
+#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#10'LCLVersion'
+#6#6'0.9.27'#0#6'TLabel'#9'LinkLabel'#22'AnchorSideLeft.Control'#7#5'Owner'
+#21'AnchorSideTop.Control'#7#9'TitleEdit'#18'AnchorSideTop.Side'#7#9'asrBott'
+'om'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asr'
+'Bottom'#4'Left'#2#6#6'Height'#2#18#3'Top'#2'E'#5'Width'#3#140#1#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#20'BorderSpaci'
+'ng.Around'#2#6#7'Caption'#6#9'LinkLabel'#11'ParentColor'#8#8'WordWrap'#9#0#0
+#6'TLabel'#10'TitleLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSid'
+'eTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSi'
+'deRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#6#5'Width'
+#3#140#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Arou'
+'nd'#2#6#7'Caption'#6#10'TitleLabel'#11'ParentColor'#8#8'WordWrap'#9#0#0#9'T'
+'PaintBox'#13'CompletionBox'#21'AnchorSideTop.Control'#7#8'LinkEdit'#18'Anch'
+'orSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2'~'#5'Wid'
+'th'#3#140#1#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRig'
+'ht'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'OnPaint'#7#18'CompletionBo'
+'xPaint'#0#0#12'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6#6'Height'#2','#3
+'Top'#3#232#0#5'Width'#3#140#1#8'TabOrder'#2#0#11'ShowButtons'#11#4'pbOK'#8
+#3#26#1#3'Top'#3'0'#1#5'Width'#3#152#1#13'ActiveControl'#7#9'TitleEdit'#7'Ca'
+'ption'#6#18'FPDocLinkEditorDlg'#12'ClientHeight'#3#26#1#11'ClientWidth'#3
+#152#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#10'LCLVer'
+'sion'#6#6'0.9.27'#0#6'TLabel'#9'LinkLabel'#22'AnchorSideLeft.Control'#7#5'O'
+'wner'#21'AnchorSideTop.Control'#7#9'TitleEdit'#18'AnchorSideTop.Side'#7#9'a'
+'srBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7
+#9'asrBottom'#4'Left'#2#6#6'Height'#2#18#3'Top'#2'E'#5'Width'#3#140#1#7'Anch'
+'ors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#20'Border'
+'Spacing.Around'#2#6#7'Caption'#6#9'LinkLabel'#11'ParentColor'#8#8'WordWrap'
+#9#0#0#6'TLabel'#10'TitleLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc'
+'horSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'An'
+'chorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#6#5
+'Width'#3#140#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpaci'
+'ng.Around'#2#6#7'Caption'#6#10'TitleLabel'#11'ParentColor'#8#8'WordWrap'#9#0
+#0#9'TPaintBox'#13'CompletionBox'#21'AnchorSideTop.Control'#7#8'LinkEdit'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2'~'#5
+'Width'#3#140#1#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'ak'
+'Right'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'OnPaint'#7#18'Completio'
+'nBoxPaint'#0#0#12'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6#6'Height'#2','
+#3'Top'#3#232#0#5'Width'#3#140#1#8'TabOrder'#2#0#11'ShowButtons'#11#4'pbOK'#8
+'pbCancel'#0#0#0#5'TEdit'#8'LinkEdit'#22'AnchorSideLeft.Control'#7#5'Owner'
+#21'AnchorSideTop.Control'#7#9'LinkLabel'#18'AnchorSideTop.Side'#7#9'asrBott'
+'om'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asr'

7
ide/fpdocselectlink.pas
View File

@ -169,7 +169,12 @@ begin
LinkEdit.Text:='';
TitleEdit.Text:='';
// disable return key
ButtonPanel1.OKButton.Default:=false;
FItems:=TFPDocLinkCompletionList.Create;
ActiveControl:=LinkEdit;
end;
procedure TFPDocLinkEditorDlg.FormDestroy(Sender: TObject);
@ -473,7 +478,7 @@ end;
procedure TFPDocLinkEditorDlg.SetLink(const AValue: string);
begin
if FItems=nil then exit;
if Link=fItems.Prefix then exit;
if AValue=fItems.Prefix then exit;
LinkEdit.Text:=AValue;
UpdateCompletionBox;
end;