掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.