DataModule Farben ändern

Für Fragen rund um die Ide und zum Debugger
Michl
Beiträge: 2505
Registriert: Di 19. Jun 2012, 12:54

Re: DataModule Farben ändern

Beitrag von 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;

Code: Alles auswählen

type
  TLiveSelection = (lsMoney, lsChilds, lsTime);
  TLive = Array[0..1] of TLiveSelection; 

Benutzeravatar
lcb-User
Beiträge: 54
Registriert: Di 15. Jul 2014, 13:18
OS, Lazarus, FPC: Linux Mint 21.1 Cinnamon Lazarus 2.3.0 (rev main-2_3-3744-g967034aff5) FPC 3.3.1
CPU-Target: 64Bit
Wohnort: München

Re: DataModule Farben ändern

Beitrag von lcb-User »

Die Zweite Änderung hab ich durchgebracht,
aber die erste mit dem Hintergrund hat nicht geklappt.
Fehler.png
Fehler.png (124.46 KiB) 895 mal betrachtet
Text vom Icon clWindowText.png
Text vom Icon clWindowText.png (8.45 KiB) 895 mal betrachtet

Hat wohl mit der Version 2.0.12 zu tun

Aber so ist es schon perfekt :) Danke!
Sonnige Grüße
Bibsi


Traue keiner Statistik die du nicht selbst gefälscht hast (Sir Winston Churchill 1874 - 1965)
Linux Mint 21.1 Cinnamon 5.6.7 Kernel 5.19.0-35-generic
Lazarus 2.3.0 (rev main-2_3-3744-g967034aff5) FPC 3.3.1 x86_64-linux-gtk2

Antworten