Design Problem (Shapes)

[DeddyH]

Delphi-Quellcode:

procedure TShape.Paint;
begin
  case FTyp of
    Typ1:
      PaintTyp1;
    Typ2:
      PaintTyp2;
    Typ3:
      PaintTyp3;
    Typ4:
      PaintTyp4;
    Typ5:
      PaintTyp5;
    ..

    TypN:
  end;
end; 

procedure TShape.PaintTyp1;
begin
  ...
end;

procedure TShape.PaintTyp2;
begin
  ...
end;

//usw. usf.

[Bjoerk]

Jenau.

[Sir Rufo]

Wenn du das flexibel erweitern möchtest, dann nimm eine Shape-Klasse und eine ShapeStrategy-Klasse.
Hier mal skizziert, wie das geht:

Delphi-Quellcode:

type
  TShapeStrategy = class abstract
  protected
    procedure Paint( ACanvas : TCanvas ); virtual; abstract;
  end;

  TShapeStrategyClass = class of TShapeStrategy;

  TShape = class( TGraphicControl )
  private
    FStrategyName : string;
    FStrategy : TShapeStrategy;
    procedure SetStrategyName( const Value : string );
  protected
    procedure Paint; override;
  public
    class procedure RegisterStrategy( const AName : string; AStrategy : TShapeStrategyClass );
  published
    property StrategyName : string read FStrategyName write SetStrategyName;
  end;

procedure TShape.Paint;
begin
  if Assigned( FStrategy ) then
    FStrategy.Paint( Canvas );
end;