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
|
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);
|
||||||
|
|
|
||||||
|
|
@ -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}
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue