paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 21:19:24 +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 Height = 282
Top = 304 Top = 304
Width = 408 Width = 408
ActiveControl = LinkEdit ActiveControl = TitleEdit
Caption = 'FPDocLinkEditorDlg' Caption = 'FPDocLinkEditorDlg'
ClientHeight = 282 ClientHeight = 282
ClientWidth = 408 ClientWidth = 408

40
ide/fpdocselectlink.lrs
View File

@ -2,26 +2,26 @@
LazarusResources.Add('TFPDocLinkEditorDlg','FORMDATA',[ LazarusResources.Add('TFPDocLinkEditorDlg','FORMDATA',[
'TPF0'#19'TFPDocLinkEditorDlg'#18'FPDocLinkEditorDlg'#4'Left'#3'j'#1#6'Height' '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' +#3#26#1#3'Top'#3'0'#1#5'Width'#3#152#1#13'ActiveControl'#7#9'TitleEdit'#7'Ca'
+'tion'#6#18'FPDocLinkEditorDlg'#12'ClientHeight'#3#26#1#11'ClientWidth'#3#152 +'ption'#6#18'FPDocLinkEditorDlg'#12'ClientHeight'#3#26#1#11'ClientWidth'#3
+#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#10'LCLVersion' +#152#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#10'LCLVer'
+#6#6'0.9.27'#0#6'TLabel'#9'LinkLabel'#22'AnchorSideLeft.Control'#7#5'Owner' +'sion'#6#6'0.9.27'#0#6'TLabel'#9'LinkLabel'#22'AnchorSideLeft.Control'#7#5'O'
+#21'AnchorSideTop.Control'#7#9'TitleEdit'#18'AnchorSideTop.Side'#7#9'asrBott' +'wner'#21'AnchorSideTop.Control'#7#9'TitleEdit'#18'AnchorSideTop.Side'#7#9'a'
+'om'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asr' +'srBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7
+'Bottom'#4'Left'#2#6#6'Height'#2#18#3'Top'#2'E'#5'Width'#3#140#1#7'Anchors' +#9'asrBottom'#4'Left'#2#6#6'Height'#2#18#3'Top'#2'E'#5'Width'#3#140#1#7'Anch'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#20'BorderSpaci' +'ors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#20'Border'
+'ng.Around'#2#6#7'Caption'#6#9'LinkLabel'#11'ParentColor'#8#8'WordWrap'#9#0#0 +'Spacing.Around'#2#6#7'Caption'#6#9'LinkLabel'#11'ParentColor'#8#8'WordWrap'
+#6'TLabel'#10'TitleLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSid' +#9#0#0#6'TLabel'#10'TitleLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc'
+'eTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSi' +'horSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'An'
+'deRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#6#5'Width' +'chorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#6#5
+#3#140#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Arou' +'Width'#3#140#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpaci'
+'nd'#2#6#7'Caption'#6#10'TitleLabel'#11'ParentColor'#8#8'WordWrap'#9#0#0#9'T' +'ng.Around'#2#6#7'Caption'#6#10'TitleLabel'#11'ParentColor'#8#8'WordWrap'#9#0
+'PaintBox'#13'CompletionBox'#21'AnchorSideTop.Control'#7#8'LinkEdit'#18'Anch' +#0#9'TPaintBox'#13'CompletionBox'#21'AnchorSideTop.Control'#7#8'LinkEdit'#18
+'orSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2'~'#5'Wid' +'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'd'#3'Top'#2'~'#5
+'th'#3#140#1#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRig' +'Width'#3#140#1#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'ak'
+'ht'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'OnPaint'#7#18'CompletionBo' +'Right'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'OnPaint'#7#18'Completio'
+'xPaint'#0#0#12'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6#6'Height'#2','#3 +'nBoxPaint'#0#0#12'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6#6'Height'#2','
+'Top'#3#232#0#5'Width'#3#140#1#8'TabOrder'#2#0#11'ShowButtons'#11#4'pbOK'#8 +#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' +'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' +#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' +'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:=''; LinkEdit.Text:='';
TitleEdit.Text:=''; TitleEdit.Text:='';
// disable return key
ButtonPanel1.OKButton.Default:=false;
FItems:=TFPDocLinkCompletionList.Create; FItems:=TFPDocLinkCompletionList.Create;
ActiveControl:=LinkEdit;
end; end;
procedure TFPDocLinkEditorDlg.FormDestroy(Sender: TObject); procedure TFPDocLinkEditorDlg.FormDestroy(Sender: TObject);
@ -473,7 +478,7 @@ end;
procedure TFPDocLinkEditorDlg.SetLink(const AValue: string); procedure TFPDocLinkEditorDlg.SetLink(const AValue: string);
begin begin
if FItems=nil then exit; if FItems=nil then exit;
if Link=fItems.Prefix then exit; if AValue=fItems.Prefix then exit;
LinkEdit.Text:=AValue; LinkEdit.Text:=AValue;
UpdateCompletionBox; UpdateCompletionBox;
end; end;