This commit is contained in:
Basile Burg 2015-12-07 11:32:13 +01:00
parent dfe9f1a8ba
commit 96f0eed32b
2 changed files with 12 additions and 14 deletions

View File

@ -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);

View File

@ -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}