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.FrameEdges := sfeAround;
fCurrIAttrib.FrameColor := clGray;
fCurrIAttrib.Background := cl3dlight;
fCurrIAttrib.FrameColor := $D4D4D4;
fCurrIAttrib.Background := $F0F0F0;
fDDocsAttrib.Foreground := clTeal;

View File

@ -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.

View File

@ -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;

View File

@ -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;

View File

@ -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.