mirror of https://gitlab.com/basile.b/dexed.git
fix docking issues
- editor cant be disassociated from the menu - a fix exists for the 3rd part component, but will be only applied if it's accepted by the people in charge (to consider when building CE from source). - the fix will be applied in the next CE binary release (even if not officially cherry merged to the Lazarus components). fix #13 fix #4 waiting for that a widget must not undocked (right click) before getting closed.
This commit is contained in:
parent
22fcf8a02f
commit
fed331360c
|
@ -6,6 +6,7 @@ inherited CEEditorWidget: TCEEditorWidget
|
||||||
Caption = 'Source editor'
|
Caption = 'Source editor'
|
||||||
ClientHeight = 406
|
ClientHeight = 406
|
||||||
ClientWidth = 465
|
ClientWidth = 465
|
||||||
|
OnCloseQuery = FormCloseQuery
|
||||||
inherited Back: TPanel
|
inherited Back: TPanel
|
||||||
Height = 406
|
Height = 406
|
||||||
Width = 465
|
Width = 465
|
||||||
|
|
|
@ -34,6 +34,7 @@ type
|
||||||
macRecorder: TSynMacroRecorder;
|
macRecorder: TSynMacroRecorder;
|
||||||
editorStatus: TStatusBar;
|
editorStatus: TStatusBar;
|
||||||
mnuEditor: TPopupMenu;
|
mnuEditor: TPopupMenu;
|
||||||
|
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
|
||||||
procedure mnuedCopyClick(Sender: TObject);
|
procedure mnuedCopyClick(Sender: TObject);
|
||||||
procedure mnuedCutClick(Sender: TObject);
|
procedure mnuedCutClick(Sender: TObject);
|
||||||
procedure mnuEditorPopup(Sender: TObject);
|
procedure mnuEditorPopup(Sender: TObject);
|
||||||
|
@ -139,6 +140,13 @@ begin
|
||||||
fErrList.Free;
|
fErrList.Free;
|
||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TCEEditorWidget.FormCloseQuery(Sender: TObject; var CanClose: boolean);
|
||||||
|
begin
|
||||||
|
// grants the window not to be undocked.
|
||||||
|
// additional fix, depend on of http://bugs.freepascal.org/view.php?id=28325
|
||||||
|
CanClose := Parent = nil;
|
||||||
|
end;
|
||||||
{$ENDREGION}
|
{$ENDREGION}
|
||||||
|
|
||||||
{$REGION ICEMultiDocObserver ---------------------------------------------------}
|
{$REGION ICEMultiDocObserver ---------------------------------------------------}
|
||||||
|
|
Loading…
Reference in New Issue