From bb8c776c9cd54f5e8fa4cd7871d8009828b85124 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 16 Nov 2009 20:03:07 +0000
Subject: [PATCH] IDE, FPDoc-editor: added feature to edit topics

git-svn-id: trunk@22630 -
---
 ide/fpdoceditwindow.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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