paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 04:39:22 +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; i, XOffs, YOffs: Integer;
CurCell: TSynPluginSyncEditCell; CurCell: TSynPluginSyncEditCell;
CaretPos: TSynPluginSyncEditCell; CaretPos: TSynPluginSyncEditCell;
p: TPoint;
begin begin
CaretPos := nil; CaretPos := nil;
if Cells.GroupCell[-2, 0] <> nil then begin if Cells.GroupCell[-2, 0] <> nil then begin
@ -593,12 +594,16 @@ begin
CurCell := aCellList[i]; CurCell := aCellList[i];
with Cells.AddNew do begin; with Cells.AddNew do begin;
Assign(CurCell); Assign(CurCell);
if LogStart.y = 1 then p := LogStart;
LogStart.x := LogStart.x + XOffs; if p.y = 1 then
LogStart.y := LogStart.y + YOffs; p.x := p.x + XOffs;
if LogEnd.y = 1 then p.y := p.y + YOffs;
LogEnd.x := LogEnd.x + XOffs; LogStart := p;
LogEnd.y := LogEnd.y + YOffs; p := LogEnd;
if p.y = 1 then
p.x := p.x + XOffs;
p.y := p.y + YOffs;
LogEnd := p;
end; end;
end; end;