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