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

fix, exceptions in the options editor

This commit is contained in:
Basile Burg 2015-09-14 04:22:41 +02:00
parent fd552ba69b
commit fd5e3219c3
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_optionseditor.pas
View File

@ -44,6 +44,7 @@ type
protected
procedure UpdateShowing; override;
private
fUpdatingCat: boolean;
fCatChanged: boolean;
fEdOptsSubj: TCEEditableOptionsSubject;
procedure updateCategories;
@ -103,8 +104,13 @@ var
i: Integer;
dt: PCategoryData;
ed: ICEEditableOptions;
sel: string = '';
begin
if selCat.Selected <> nil then
sel := selCat.Selected.Text;
fUpdatingCat := true;
inspector.TIObject := nil;
selCat.BeginUpdate;
selCat.Items.Clear;
for i:= 0 to fEdOptsSubj.observersCount-1 do
begin
@ -116,6 +122,11 @@ begin
dt^.observer := ed;
end;
selCat.Items.SortTopLevelNodes(@sortCategories);
for i := 0 to selCat.Items.Count-1 do
if SelCat.Items.Item[i].Text = sel then
SelCat.Selected := SelCat.Items.Item[i];
selCat.EndUpdate;
fUpdatingCat := false;
end;
function TCEOptionEditorWidget.sortCategories(Cat1, Cat2: TTreeNode): integer;
@ -134,6 +145,8 @@ var
dt: PCategoryData;
begin
result := true;
if fUpdatingCat then exit;
if csDestroying in ComponentState then exit;
if selCat.Selected = nil then exit;
if selCat.Selected.Data = nil then exit;
// accept/cancel is relative to a single category
@ -152,6 +165,7 @@ begin
begin
dt := PCategoryData(selCat.Selected.Data);
if dt^.container = nil then exit;
if dt^.observer = nil then exit;
if dt^.observer.optionedOptionsModified() then
begin
result := dlgOkCancel(msg_mod) = mrOk;