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

IDE: compiler options dlg: move build mode up/down

Browse Source 
git-svn-id: trunk@18279 -
This commit is contained in:
mattias 2009-01-13 16:52:26 +00:00
parent bed259ea54
commit ecf54e3f86
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packager/frames/compiler_buildmodes_options.pas
View File

@ -120,7 +120,7 @@ var
begin
if not GetSelectedBuildMode(BuildMode) then exit;
i:=ModesGrid.Row;
if i<ModesGrid.Row-1 then begin
if (i<ModesGrid.RowCount-1) and (i<BuildModes.Count-1) then begin
BuildModes.Move(i,i+1);
ModesGrid.Cells[0,i]:=BuildModes.Items[i].Identifier;
ModesGrid.Cells[0,i+1]:=BuildModes.Items[i+1].Identifier;
@ -135,7 +135,7 @@ var
begin
if not GetSelectedBuildMode(BuildMode) then exit;
i:=ModesGrid.Row;
if i>0 then begin
if (i>0) and (i<ModesGrid.RowCount) and (i<BuildModes.Count) then begin
BuildModes.Move(i,i-1);
ModesGrid.Cells[0,i]:=BuildModes.Items[i].Identifier;
ModesGrid.Cells[0,i-1]:=BuildModes.Items[i-1].Identifier;