From 9400a2b7fe0e3ea2ab046fa428eee3fa409a16d0 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 18 Aug 2002 08:57:21 +0000
Subject: [PATCH] make resourcestring dialog now checks for doubles (idents and
 values)

git-svn-id: trunk@3054 -
---
 ide/uniteditor.pp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/ide/uniteditor.pp b/ide/uniteditor.pp
index e2391bcc32..1f038d86ea 100644
--- a/ide/uniteditor.pp
+++ b/ide/uniteditor.pp
@@ -257,6 +257,8 @@ type
 
     Function GetCaretPosFromCursorPos(CursorPos : TPoint) : TPoint;
     procedure CenterCursor;
+    
+    procedure Activate;
   public
     // properties
     property CodeBuffer: TCodeBuffer read FCodeBuffer write SetCodeBuffer;
@@ -1853,6 +1855,12 @@ begin
   EditorComponent.TopLine:=NewTopLine;
 end;
 
+procedure TSourceEditor.Activate;
+begin
+  if (FSourceNoteBook=nil) then exit;
+  FSourceNoteBook.SetActiveSE(Self);
+end;
+
 Function TSourceEditor.GetWordAtCurrentCaret: String;
 var
   CaretPos : TPoint;