paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 16:52:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Added code-template mode: Edit params in cells / Make it compile with 2.3.1 too

Browse Source 
git-svn-id: trunk@20733 -
This commit is contained in:
martin 2009-06-24 19:39:31 +00:00
parent d6b3aff8c9
commit 307d3935d1
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/synedit/synplugintemplateedit.pp
View File

@ -579,6 +579,7 @@ var
i, XOffs, YOffs: Integer;
CurCell: TSynPluginSyncEditCell;
CaretPos: TSynPluginSyncEditCell;
p: TPoint;
begin
CaretPos := nil;
if Cells.GroupCell[-2, 0] <> nil then begin
@ -593,12 +594,16 @@ begin
CurCell := aCellList[i];
with Cells.AddNew do begin;
Assign(CurCell);
if LogStart.y = 1 then
LogStart.x := LogStart.x + XOffs;
LogStart.y := LogStart.y + YOffs;
if LogEnd.y = 1 then
LogEnd.x := LogEnd.x + XOffs;
LogEnd.y := LogEnd.y + YOffs;
p := LogStart;
if p.y = 1 then
p.x := p.x + XOffs;
p.y := p.y + YOffs;
LogStart := p;
p := LogEnd;
if p.y = 1 then
p.x := p.x + XOffs;
p.y := p.y + YOffs;
LogEnd := p;
end;
end;