Einzelnen Beitrag anzeigen

irmdaen

Registriert seit: 19. Sep 2008
6 Beiträge
 
#22

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

  Alt 18. Jan 2012, 16:05
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
  Mit Zitat antworten Zitat