Shape beschriften oder alternative?

[DerNewbie]

Hi,

gibt es eine möglichkeit einem Shape, irgendwie eine Caption zu geben, ohne z.b ein zusätzliches
transparentes Label über das Shape zu legen, da ich Shape und Text als Einheit brauche. Welche alternative möglichkeit gäbe es denn, soetwas zu realisieren.


Gruß DerNewbie

[Niko]

Hi,

am einfachsten dürfte es wohl sein, wenn du dir dafür eine eigene Shape-Komponente bastelst:

Delphi-Quellcode:

unit ExtShape;

interface

uses
  ExtCtrls, Graphics;

type TExtShape = class(TShape)
  protected
    procedure Paint; override;
  published
    property Caption;
    property Font;
  end;

implementation

{ TCaptionShape }

procedure TExtShape.Paint;
begin
  inherited Paint;
  Canvas.Font := Font;
  Canvas.Brush.Style := bsClear;
  with Canvas do
  begin
    TextOut((Width - TextWidth(Caption)) div 2,
      (Height - TextHeight(Caption)) div 2, Caption);
  end;
end;

Das ganze kannst du dann entweder in die Komponentenpalette aufnehmen oder direkt einsetzen:

Delphi-Quellcode:

with TExtShape.Create(Form1) do
begin
  parent := Form1;
  Font.Height := 30;
  Caption := 'Hallo!';
end;