This commit is contained in:
Basile Burg 2014-07-11 19:21:32 +02:00
parent 85ff09a704
commit ec95e951fd
5 changed files with 7 additions and 4 deletions

View File

@ -300,8 +300,8 @@ begin
fCurrIAttrib.Foreground := clBlack; fCurrIAttrib.Foreground := clBlack;
fCurrIAttrib.FrameEdges := sfeAround; fCurrIAttrib.FrameEdges := sfeAround;
fCurrIAttrib.FrameColor := clGray; fCurrIAttrib.FrameColor := $D4D4D4;
fCurrIAttrib.Background := cl3dlight; fCurrIAttrib.Background := $F0F0F0;
fDDocsAttrib.Foreground := clTeal; fDDocsAttrib.Foreground := clTeal;

View File

@ -15,6 +15,8 @@ type
TCEMainForm = class; TCEMainForm = class;
//TODO: options
//TODO-cwidget: options editor
(** (**
* Encapsulates the options in a writable component. * Encapsulates the options in a writable component.
* note: likely to change however needed to test correctly Coedit. * note: likely to change however needed to test correctly Coedit.

View File

@ -106,6 +106,7 @@ begin
nme := ''; nme := '';
beginUpdateByEvent; beginUpdateByEvent;
cfg := fProj.addConfiguration; 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; if InputQuery('Configuration name', '', nme) then cfg.name := nme;
fProj.ConfigurationIndex := cfg.Index; fProj.ConfigurationIndex := cfg.Index;
endUpdateByEvent; endUpdateByEvent;

View File

@ -100,7 +100,7 @@ var
i: nativeInt; i: nativeInt;
begin begin
fOptsColl.Assign(aValue); fOptsColl.Assign(aValue);
for i:= 0 to self.fOptsColl.Count-1 do for i:= 0 to fOptsColl.Count-1 do
Configuration[i].onChanged := @subMemberChanged; Configuration[i].onChanged := @subMemberChanged;
end; end;

View File

@ -9,7 +9,7 @@ uses
type 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. * An implementer is informed when a new document is added, focused or closed.