paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:40:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

make resourcestring dialog now checks for doubles (idents and values)

Browse Source 
git-svn-id: trunk@3054 -
This commit is contained in:
mattias 2002-08-18 08:57:21 +00:00
parent c83188fdbb
commit 9400a2b7fe
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/uniteditor.pp
View File

@ -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;