forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

bulk update

This commit is contained in:
Basile Burg 2015-05-15 13:50:08 +02:00
parent 260d3f8ba6
commit 0a4bc21023
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_libmaneditor.pas
View File

@ -314,11 +314,12 @@ procedure TCELibManEditorWidget.dataToGrid;
var var
itm: TLibraryItem; itm: TLibraryItem;
row: TListItem; row: TListItem;
i: NativeInt; i: Integer;
begin begin
List.Clear;
if LibMan = nil then if LibMan = nil then
exit; exit;
List.BeginUpdate;
List.Clear;
for i := 0 to LibMan.libraries.Count - 1 do for i := 0 to LibMan.libraries.Count - 1 do
begin begin
itm := TLibraryItem(LibMan.libraries.Items[i]); itm := TLibraryItem(LibMan.libraries.Items[i]);
@ -327,6 +328,7 @@ begin
row.SubItems.Add(itm.libFile); row.SubItems.Add(itm.libFile);
row.SubItems.Add(itm.libSourcePath); row.SubItems.Add(itm.libSourcePath);
end; end;
List.EndUpdate;
end; end;
procedure TCELibManEditorWidget.gridToData; procedure TCELibManEditorWidget.gridToData;
@ -336,6 +338,7 @@ var
begin begin
if LibMan = nil then if LibMan = nil then
exit; exit;
LibMan.libraries.BeginUpdate;
LibMan.libraries.Clear; LibMan.libraries.Clear;
for row in List.Items do for row in List.Items do
begin begin
@ -344,6 +347,7 @@ begin
itm.libFile := row.SubItems.Strings[0]; itm.libFile := row.SubItems.Strings[0];
itm.libSourcePath := row.SubItems.Strings[1]; itm.libSourcePath := row.SubItems.Strings[1];
end; end;
LibMan.libraries.EndUpdate;
LibMan.updateDCD; LibMan.updateDCD;
end; end;