diff --git a/src/ce_d2syn.pas b/src/ce_d2syn.pas index f027b934..578888fb 100644 --- a/src/ce_d2syn.pas +++ b/src/ce_d2syn.pas @@ -300,8 +300,8 @@ begin fCurrIAttrib.Foreground := clBlack; fCurrIAttrib.FrameEdges := sfeAround; - fCurrIAttrib.FrameColor := clGray; - fCurrIAttrib.Background := cl3dlight; + fCurrIAttrib.FrameColor := $D4D4D4; + fCurrIAttrib.Background := $F0F0F0; fDDocsAttrib.Foreground := clTeal; diff --git a/src/ce_main.pas b/src/ce_main.pas index 450c623f..80c14e98 100644 --- a/src/ce_main.pas +++ b/src/ce_main.pas @@ -15,6 +15,8 @@ type TCEMainForm = class; + //TODO: options + //TODO-cwidget: options editor (** * Encapsulates the options in a writable component. * note: likely to change however needed to test correctly Coedit. diff --git a/src/ce_projconf.pas b/src/ce_projconf.pas index 39fef804..5f01958b 100644 --- a/src/ce_projconf.pas +++ b/src/ce_projconf.pas @@ -106,6 +106,7 @@ begin nme := ''; beginUpdateByEvent; cfg := fProj.addConfiguration; + // note: Cancel is actually related to the conf name not to the adding operation. if InputQuery('Configuration name', '', nme) then cfg.name := nme; fProj.ConfigurationIndex := cfg.Index; endUpdateByEvent; diff --git a/src/ce_project.pas b/src/ce_project.pas index 44d32f12..778b1b29 100644 --- a/src/ce_project.pas +++ b/src/ce_project.pas @@ -100,7 +100,7 @@ var i: nativeInt; begin fOptsColl.Assign(aValue); - for i:= 0 to self.fOptsColl.Count-1 do + for i:= 0 to fOptsColl.Count-1 do Configuration[i].onChanged := @subMemberChanged; end; diff --git a/src/ce_widgettypes.pas b/src/ce_widgettypes.pas index d02f8deb..c7a05055 100644 --- a/src/ce_widgettypes.pas +++ b/src/ce_widgettypes.pas @@ -9,7 +9,7 @@ uses type - // TODO: interface for document content access/modification + // TODO-cinterface: document content access/modification (** * An implementer is informed when a new document is added, focused or closed.