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

fix, pagecontrol, wrong captions when reloading last session

This commit is contained in:
Basile Burg 2015-12-10 02:03:53 +01:00
parent 13dbc5edae
commit da1bbffa4c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_editor.pas
View File

@ -40,7 +40,7 @@ type
procedure mnuedUndoClick(Sender: TObject);
procedure mnuedRedoClick(Sender: TObject);
procedure mnuedJum2DeclClick(Sender: TObject);
procedure PageControlChange(Sender: TObject);
procedure PageControlChanged(Sender: TObject);
procedure PageControlChanging(Sender: TObject; var AllowChange: Boolean);
protected
procedure updateDelayed; override;
@ -94,7 +94,7 @@ begin
pageControl := TCEPageControl.Create(self);
pageControl.Parent := Content;
pageControl.align := alClient;
pageControl.onChanged:= @PageControlChange;
pageControl.onChanged:= @PageControlChanged;
pageControl.onChanging:=@PageControlChanging;
pageControl.closeButton.OnClick:=@pageCloseBtnClick;
pageControl.addButton.OnClick:=@pageBtnAddCLick;
@ -273,9 +273,9 @@ begin
end;
end;
procedure TCEEditorWidget.PageControlChange(Sender: TObject);
procedure TCEEditorWidget.PageControlChanged(Sender: TObject);
begin
updateImperative;
//updateImperative;
end;
procedure TCEEditorWidget.PageControlChanging(Sender: TObject; var AllowChange: Boolean);