paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: parameter hints: fixed moving insert position of synedit

Browse Source 
git-svn-id: trunk@30731 -
This commit is contained in:
mattias 2011-05-14 10:55:29 +00:00
parent e6c4ffc414
commit ea9eb8184b
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/ide/declarevardlg.pas
View File

@ -63,7 +63,7 @@ procedure ShowDeclareVariableDialog(Sender: TObject);
var
CodyDeclareVarDialog: TCodyDeclareVarDialog;
begin
// ParseTilCursor(Tool,CleanPos,Node);
//ParseTilCursor(Tool,CleanPos,Node);
dbgs(3);
ShowMessage('Not implemented yet');

7
ide/codecontextform.pas
View File

@ -911,6 +911,7 @@ procedure TCodeContextFrm.CompleteParameters(DeclCode: string);
TokenEnd: integer;
LastToken: String;
Indent: LongInt;
XY: TPoint;
begin
TokenEnd:=1;
BracketLevel:=0;
@ -966,8 +967,10 @@ procedure TCodeContextFrm.CompleteParameters(DeclCode: string);
NewCode:=copy(NewCode,Indent+1,length(NewCode));
// insert
ASynEdit.BeginUndoBlock;
ASynEdit.BlockBegin:=Point(X,Y);
ASynEdit.BlockEnd:=Point(X,Y);
XY:=Point(X,Y);
ASynEdit.BlockBegin:=XY;
ASynEdit.BlockEnd:=XY;
ASynEdit.LogicalCaretXY:=XY;
ASynEdit.SelText:=NewCode;
ASynEdit.EndUndoBlock;
end;