Wäre ein Ableiten von TGraphicControl nicht einfacher und sinnvoller?
Delphi-Quellcode:
type
THexagon = class(TGraphicControl)
private
FPolygon: array [0..5] of TPoint;
FCenter: TPoint;
public
constructor Create(Owner: TComponent; Center: TPoint; Radius: integer);
function CenterOfNeighbour(index: integer): TPoint;
procedure Paint; override;
end;
Grüße vom marabu