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

IDE, FPDoc-editor: added feature to edit topics

Browse Source 
git-svn-id: trunk@22630 -
This commit is contained in:
martin 2009-11-16 20:03:07 +00:00
parent fe9f11aa36
commit bb8c776c9c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/fpdoceditwindow.pas
View File

@ -497,7 +497,6 @@ begin
end; end;
FillTopicCombo; FillTopicCombo;
TopicListBox.ItemIndex := TopicListBox.Items.IndexOf(NewTopicNameEdit.Text); TopicListBox.ItemIndex := TopicListBox.Items.IndexOf(NewTopicNameEdit.Text);
TopicShort.SetFocus;
TopicListBoxClick(Sender); TopicListBoxClick(Sender);
end; end;
@ -557,6 +556,8 @@ begin
FInTopicSetup := True; FInTopicSetup := True;
TopicShort.Clear; TopicShort.Clear;
TopicDescr.Clear; TopicDescr.Clear;
TopicShort.Enabled := False;
TopicDescr.Enabled := False;
FInTopicSetup := false; FInTopicSetup := false;
FCurrentTopic := ''; FCurrentTopic := '';
@ -575,6 +576,9 @@ begin
Child := Node.FindNode('descr'); Child := Node.FindNode('descr');
if Child <> nil then if Child <> nil then
TopicDescr.Text := DFile.GetChildValuesAsString(Child); TopicDescr.Text := DFile.GetChildValuesAsString(Child);
TopicShort.Enabled := True;
TopicDescr.Enabled := True;
TopicShort.SetFocus;
FInTopicSetup := false; FInTopicSetup := false;
end; end;
@ -953,6 +957,8 @@ begin
TopicListBox.Clear; TopicListBox.Clear;
TopicShort.Clear; TopicShort.Clear;
TopicDescr.Clear; TopicDescr.Clear;
TopicShort.Enabled := False;
TopicDescr.Enabled := False;
FInTopicSetup := false; FInTopicSetup := false;
Dfile := TopicDocFile; Dfile := TopicDocFile;
if not assigned(DFile) then exit; if not assigned(DFile) then exit;