Daß der Hintergrund vom Icon gleich dem Hintergrund vom Datamodul ist:
Code: Alles auswählen
Index: ide/customformeditor.pp
===================================================================
--- ide/customformeditor.pp (revision 64831)
+++ ide/customformeditor.pp (revision 64832)
@@ -893,6 +893,7 @@
LNonFormProxyDesignerClass := BaseFormEditor1.NonFormProxyDesignerForm[NonControlProxyDesignerFormId];
Result := TNonFormProxyDesignerForm(LNonFormProxyDesignerClass.NewInstance);
Result.Create(nil, TNonControlDesignerForm.Create(Result));
+ Result.Color := EnvironmentOptions.NonFormBackgroundColor;
end;
Result.Name:='_Designer_'+LookupRoot.Name;
(Result as INonFormDesigner).LookupRoot := LookupRoot;
Code: Alles auswählen
Index: designer/designer.pp
===================================================================
--- designer/designer.pp (revision 64832)
+++ designer/designer.pp (revision 64833)
@@ -3628,6 +3628,7 @@
else
Icon.Canvas.Brush.Color := clBtnFace;
Icon.Canvas.FillRect(TextRect);
+ Icon.Canvas.Font.Color := clWindowText;
DrawText(Icon.Canvas.Handle, PChar(AComponent.Name), -1, TextRect,
DT_CENTER or DT_VCENTER or DT_SINGLELINE or DT_NOCLIP);
TextRect.Left := (ItemLeft + ItemRight - LongInt(Round(TextSize.cx/ScaleFactor))) div 2;