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

editor pages, fix, ddoc win sometimes not closed when changinf active memo

This commit is contained in:
Basile Burg 2015-10-15 05:35:58 +02:00
parent 1b7d0b93e7
commit ad9e8ccc69
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ce_editor.lfm
View File

@ -26,6 +26,7 @@ inherited CEEditorWidget: TCEEditorWidget
BorderSpacing.Around = 2 BorderSpacing.Around = 2
TabOrder = 0 TabOrder = 0
OnChange = PageControlChange OnChange = PageControlChange
OnChanging = PageControlChanging
Options = [nboShowCloseButtons, nboShowAddTabButton] Options = [nboShowCloseButtons, nboShowAddTabButton]
TabDragMode = dmAutomatic TabDragMode = dmAutomatic
TabDragAcceptMode = dmAutomatic TabDragAcceptMode = dmAutomatic

8
src/ce_editor.pas
View File

@ -43,6 +43,7 @@ type
procedure mnuedRedoClick(Sender: TObject); procedure mnuedRedoClick(Sender: TObject);
procedure mnuedJum2DeclClick(Sender: TObject); procedure mnuedJum2DeclClick(Sender: TObject);
procedure PageControlChange(Sender: TObject); procedure PageControlChange(Sender: TObject);
procedure PageControlChanging(Sender: TObject; var AllowChange: Boolean);
protected protected
procedure updateDelayed; override; procedure updateDelayed; override;
procedure updateImperative; override; procedure updateImperative; override;
@ -279,6 +280,13 @@ begin
updateImperative; updateImperative;
end; end;
procedure TCEEditorWidget.PageControlChanging(Sender: TObject; var AllowChange: Boolean);
begin
if fDoc = nil then exit;
fDoc.hideCallTips;
fDoc.hideDDocs;
end;
procedure TCEEditorWidget.memoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure TCEEditorWidget.memoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin begin
case Key of case Key of