diff --git a/src/ce_controls.pas b/src/ce_controls.pas index 7a8f2063..bd83c301 100644 --- a/src/ce_controls.pas +++ b/src/ce_controls.pas @@ -5,8 +5,7 @@ unit ce_controls; interface uses - Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, - ExtCtrls, buttons; + Classes, SysUtils, Forms, Controls, ComCtrls, ExtCtrls, buttons; type TCEPageControlButton = (pbClose, pbMoveLeft, pbMoveRight, pbAdd); @@ -17,11 +16,19 @@ const type + // Used instead of a TTabSheet since only the caption is interesting TCEPage = class(TCustomControl) protected procedure RealSetText(const Value: TCaption); override; end; + (** + * Minimalist page-control dedicated to Coedit + * + * - get rid of the framed aspect of the default LCL one + * - no published props, since CE has to be compilable w/o extra IDE comps + * - add/close/move left and right speed buttons + *) TCEPageControl = class(TWinControl) private fHeader: TWinControl; @@ -37,7 +44,6 @@ type fOnChanged: TNotifyEvent; fOnChanging: TTabChangingEvent; - procedure btnCloseClick(sender: TObject); procedure btnMoveLeftClick(sender: TObject); procedure btnMoveRightClick(sender: TObject); diff --git a/src/ce_editor.pas b/src/ce_editor.pas index 7a67875c..44c13ea0 100644 --- a/src/ce_editor.pas +++ b/src/ce_editor.pas @@ -5,9 +5,9 @@ unit ce_editor; interface uses - Classes, SysUtils, FileUtil, ExtendedNotebook, Forms, Controls, lcltype, - Graphics, SynEditKeyCmds, ComCtrls, SynEditHighlighter, ExtCtrls, Menus, - SynMacroRecorder, SynPluginSyncroEdit, SynEdit, SynHighlighterMulti, ce_dialogs, + Classes, SysUtils, FileUtil, Forms, Controls, lcltype, Graphics, SynEditKeyCmds, + ComCtrls, SynEditHighlighter, ExtCtrls, Menus, SynMacroRecorder, + SynPluginSyncroEdit, SynEdit, SynHighlighterMulti, ce_dialogs, ce_widget, ce_interfaces, ce_synmemo, ce_dlang, ce_common, ce_dcd, ce_observer, ce_sharedres, ce_controls; @@ -428,14 +428,6 @@ begin end; if md = '' then md := extractFileName(fDoc.fileName); pageControl.currentPage.Caption := md; - - // note: not true anymore vecause cesyms use send the doc in stdin - // when a widget saves a temp file & syncro mode is on: - // - editor is saved - // - gutter is updated (green bar indicating a saved block) - // - syncroedit icon is hidden - //if fDoc.syncroEdit.Active then - //fDoc.Refresh; end; {$ENDREGION}