Komponente benützt ParentFont und soll Font.Style und Font.Color überschreiben

[himitsu]

Man kann ja in das Create am Ende ein

Delphi-Quellcode:

if not Assigned(Owner) or not (csLoading in Owner.ComponentStyle) then Load;

in Oncreate legen, bzw. auch noch beim Ändern des Parent den Font des Parent auslesen und danach Style neu setzen.

[irmdaen]

Zitat:

Zitat von DeddyH (Beitrag 1146481)

Entweder es hat dieselbe Schrift wie der Parent oder eben nicht. Wenn Du zuerst sagst "Ja, hat es" und dann nachträglich die Schrift änderst, ist es ja wieder eine andere als die des Parents. Von daher ist das Verhalten ja nur logisch und richtig.

[edit] Schnell zusammengeschustert und nicht sonderlich schön, tut aber:

Delphi-Quellcode:

type
  TTestLabel = class(StdCtrls.TLabel)
  protected
    procedure Paint; override;
  end;

...

procedure TTestLabel.Paint;
begin
  Canvas.Font.Assign(Font);
  Canvas.Font.Style := Canvas.Font.Style + [fsBold, fsUnderLine];
  Canvas.Brush.Style := bsClear;
  Canvas.Font.Color := clNavy;
  if AutoSize then
    Width := Canvas.TextWidth(Caption);
  Canvas.TextOut(0, 0, Caption);
end;

[/edit]

Herzlichen Dank!! Ich fasse es nicht, das ist genau was ich mir vorgestellt habe :lol:

[DeddyH]

Zitat:

Zitat von himitsu (Beitrag 1146509)

Man kann ja in das Create am Ende ein

Delphi-Quellcode:

if not Assigned(Owner) or not (csLoading in Owner.ComponentStyle) then Load;

in Oncreate legen, bzw. auch noch beim Ändern des Parent den Font des Parent auslesen und danach Style neu setzen.

[OT] Oder man leitet sich ein Formular ab, weil man einen Link möchte :stupid: [/OT] So, nu isses aber genug, ich klinke mich aus.