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 interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, Classes, SysUtils, Forms, Controls, ComCtrls, ExtCtrls, buttons;
ExtCtrls, buttons;
type type
TCEPageControlButton = (pbClose, pbMoveLeft, pbMoveRight, pbAdd); TCEPageControlButton = (pbClose, pbMoveLeft, pbMoveRight, pbAdd);
@ -17,11 +16,19 @@ const
type type
// Used instead of a TTabSheet since only the caption is interesting
TCEPage = class(TCustomControl) TCEPage = class(TCustomControl)
protected protected
procedure RealSetText(const Value: TCaption); override; procedure RealSetText(const Value: TCaption); override;
end; 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) TCEPageControl = class(TWinControl)
private private
fHeader: TWinControl; fHeader: TWinControl;
@ -37,7 +44,6 @@ type
fOnChanged: TNotifyEvent; fOnChanged: TNotifyEvent;
fOnChanging: TTabChangingEvent; fOnChanging: TTabChangingEvent;
procedure btnCloseClick(sender: TObject); procedure btnCloseClick(sender: TObject);
procedure btnMoveLeftClick(sender: TObject); procedure btnMoveLeftClick(sender: TObject);
procedure btnMoveRightClick(sender: TObject); procedure btnMoveRightClick(sender: TObject);

View File

@ -5,9 +5,9 @@ unit ce_editor;
interface interface
uses uses
Classes, SysUtils, FileUtil, ExtendedNotebook, Forms, Controls, lcltype, Classes, SysUtils, FileUtil, Forms, Controls, lcltype, Graphics, SynEditKeyCmds,
Graphics, SynEditKeyCmds, ComCtrls, SynEditHighlighter, ExtCtrls, Menus, ComCtrls, SynEditHighlighter, ExtCtrls, Menus, SynMacroRecorder,
SynMacroRecorder, SynPluginSyncroEdit, SynEdit, SynHighlighterMulti, ce_dialogs, SynPluginSyncroEdit, SynEdit, SynHighlighterMulti, ce_dialogs,
ce_widget, ce_interfaces, ce_synmemo, ce_dlang, ce_common, ce_dcd, ce_observer, ce_widget, ce_interfaces, ce_synmemo, ce_dlang, ce_common, ce_dcd, ce_observer,
ce_sharedres, ce_controls; ce_sharedres, ce_controls;
@ -428,14 +428,6 @@ begin
end; end;
if md = '' then md := extractFileName(fDoc.fileName); if md = '' then md := extractFileName(fDoc.fileName);
pageControl.currentPage.Caption := md; 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; end;
{$ENDREGION} {$ENDREGION}