StringGridの描画をListBoxと同じイメージに

Orczy 2003-08-06 04:22:18 No: 4321

StringGridをカスタマイズしているのですが
StyleをもってGridバージョンListバージョンを
変更したいんですが方法はあるのでしょうか？

にしの 2003-08-06 06:09:42 No: 4322

ちょっと文章から何をしたいのかが読み取れません。
想像ですが、

TMyGridStyle=(mgsGrid, mgsList);
TMyGrid=class(TStringGrid)
...
private
  FStyle: TMyGridStyle;
  procedure SetStyle(Value: TMyGridStyle);
protected
  procedure Paint; override;
...
published
  property Style: TMyGridStyle read FStyle write SetStyle;
end;

implementation

procedure TMyGrid.SetStyle(Value: TMyGridStyle);
begin
FStyle := Value;
invalidate;
end;

procedure TMyGrid.Paint;
begin
  case FStyle of
  mgsGrid: (* Gridとして描画 *)
  mgsList: (* Listとして描画 *)
  end;
end;

こういうことがやりたいのでしょうか。