Radiobuttonの黒丸がなかなか表示されない (ID：150956)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ボタンの描画は適当 (青と赤)

TRadioButton = class(vcl.StdCtrls.TRadioButton)
  private
    ControlCanvas: TControlCanvas;
    FCanvas: TCanvas;
    procedure WM_PAINT(var TWMPAINT); message WM_PAINT;
  protected
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property Canvas: TCanvas read FCanvas;
  end;

constructor TRadioButton.Create(AOwner: TComponent);
begin
    inherited;
    FCanvas := TControlCanvas.Create;
    TControlCanvas(FCanvas).Control := Self;
end;

destructor TRadioButton.Destroy;
begin
    FreeAndNil(FCanvas);
    inherited;
end;

procedure TRadioButton.WM_PAINT(var TWMPAINT);
begin
    inherited;
    Canvas.Brush.Style := bsSolid;
    Canvas.Brush.Color := clBtnFace;
    Canvas.FillRect(Rect(0,0,Width,Height));
    if Checked = True then
    begin
      Canvas.Brush.Color := clRed;
      Canvas.FillRect(Rect(0,0,Height,Height));
    end
    else
    begin
      Canvas.Brush.Color := clBlue;
      Canvas.FillRect(Rect(0,0,Height,Height));
    end;
    Canvas.Brush.Style := bsClear;
    Canvas.TextOut(Height,0,Caption);
end;

←解決時は質問者本人がここをチェックしてください。

戻る