From da1bbffa4cfbaef133e9a39f0914c028cf25fc22 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Thu, 10 Dec 2015 02:03:53 +0100 Subject: [PATCH] fix, pagecontrol, wrong captions when reloading last session --- src/ce_editor.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/ce_editor.pas b/src/ce_editor.pas index 44c13ea0..09819c1f 100644 --- a/src/ce_editor.pas +++ b/src/ce_editor.pas @@ -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);