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

fix upstream, option editor, nothing shown when ed is oekForm 

upstream: oekForm was not used so far
This commit is contained in:
Basile Burg 2016-11-06 17:02:37 +01:00
parent bd4941dedb
commit f9f9383ab4
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_optionseditor.pas
View File

@ -203,7 +203,10 @@ begin
// remove either the control, the form or the inspector used as editor. // remove either the control, the form or the inspector used as editor.
inspector.TIObject := nil; inspector.TIObject := nil;
if pnlEd.ControlCount > 0 then if pnlEd.ControlCount > 0 then
begin
pnlEd.Controls[0].Visible:=false;
pnlEd.Controls[0].Parent := nil; pnlEd.Controls[0].Parent := nil;
end;
// //
if selCat.Selected.isNil then exit; if selCat.Selected.isNil then exit;
if selCat.Selected.Data.isNil then exit; if selCat.Selected.Data.isNil then exit;
@ -215,19 +218,24 @@ begin
begin begin
TWinControl(dt^.container).Parent := pnlEd; TWinControl(dt^.container).Parent := pnlEd;
TWinControl(dt^.container).Align := alClient; TWinControl(dt^.container).Align := alClient;
TWinControl(dt^.container).Visible:=true;
end; end;
oekForm: oekForm:
begin begin
TCustomForm(dt^.container).ShowInTaskBar:= TShowInTaskbar.stNever;
TCustomForm(dt^.container).Parent := pnlEd; TCustomForm(dt^.container).Parent := pnlEd;
TCustomForm(dt^.container).Align := alClient; TCustomForm(dt^.container).Align := alClient;
TCustomForm(dt^.container).BorderIcons:= []; TCustomForm(dt^.container).BorderIcons:= [];
TCustomForm(dt^.container).BorderStyle:= bsNone; TCustomForm(dt^.container).BorderStyle:= bsNone;
TCustomForm(dt^.container).Show;
TCustomForm(dt^.container).Visible:=true;
end; end;
oekGeneric: oekGeneric:
begin begin
inspector.Parent := pnlEd; inspector.Parent := pnlEd;
inspector.Align := alClient; inspector.Align := alClient;
inspector.TIObject := dt^.container; inspector.TIObject := dt^.container;
inspector.Visible:=true;
end; end;
end; end;
// //