DataModule Farben ändern

[Michl]

Ja, kein Problem. Anbei die beiden Diffs:

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;

Daß der Text vom Icon clWindowText ist:

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;

[lcb-User]

Die Zweite Änderung hab ich durchgebracht,
aber die erste mit dem Hintergrund hat nicht geklappt.

Fehler.png (124.46 KiB) 1221 mal betrachtet

Text vom Icon clWindowText.png (8.45 KiB) 1221 mal betrachtet

Hat wohl mit der Version 2.0.12 zu tun

Aber so ist es schon perfekt Danke!