TabContorolのTab毎に背景色を変えたい（FMX） (ID:151422)

名前

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

本文

Panel1Paintで塗りつぶすと　上にあるコンポーネントまで　塗りつぶされて、 repaint しても再描画されないね
なでの

TAB_HEIGHT: Single;
  BRECT: TRECTF;

procedure TForm1.TabControl1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
var
    I: Integer;
    W: Single;
begin
    W := 0;
    for I:=0 to TabControl1.TabCount -1 do
    begin
      W := W + TabControl1.Tabs[I].WIdth;
    end;

BRECT      := ARECT;
    BRECT.Left := -W;
    BRECT.Top  := TAB_HEIGHT;
end;

procedure TForm1.TabItem1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
    TAB_HEIGHT := ARECT.Height;
    TabControl1.Canvas.BeginScene;
    TabControl1.Canvas.ClearRect(BRECT,$B2006ACC);
    TabControl1.Canvas.EndScene;
end;

procedure TForm1.TabItem2Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
    TAB_HEIGHT := ARECT.Height;

TabControl1.Canvas.BeginScene;
    TabControl1.Canvas.ClearRect(BRECT,$B200CC6A);
    TabControl1.Canvas.EndScene;
end;

procedure TForm1.TabItem3Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
    TAB_HEIGHT := ARECT.Height;

TabControl1.Canvas.BeginScene;
    TabControl1.Canvas.ClearRect(BRECT,$B2CC006A);
    TabControl1.Canvas.EndScene;

end;

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

戻る