mirror of https://gitlab.com/basile.b/dexed.git
nothing
This commit is contained in:
parent
dfe9f1a8ba
commit
96f0eed32b
|
@ -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);
|
||||
|
|
|
@ -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}
|
||||
|
||||
|
|
Loading…
Reference in New Issue