掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TabContorolのTab毎に背景色を変えたい(FMX) (ID:151430)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
エラーが発生しました。 お探しのページは現在利用できません。 サーバーが停止しているか、ネットワークが混みあっている可能性があります。 //DELPHI 10/XE6 動作版 var TAB_HEIGHT: Single; BRECT: TRECTF; procedure TForm1.XXXXX(ACOLOR: TAlphaColor); 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.Left := -W; BRECT.Top := TAB_HEIGHT; TabControl1.Canvas.BeginScene; TabControl1.Canvas.ClearRect(BRECT,ACOLOR); TabControl1.Canvas.EndScene; for I := 0 to Form1.ComponentCount -1 do begin try if Form1.Components[I] is TControl then begin if TControl(Form1.Components[I]).Parent.ClassName = 'TTabItemContent' then begin TControl(Form1.Components[I]).Repaint; end; end; except end; end; end; procedure TForm1.TabControl1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin BRECT := ARECT; end; procedure TForm1.TabItem1Painting(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin TAB_HEIGHT := ARECT.Height; XXXXX($B2006ACC); end; procedure TForm1.TabItem2Painting(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin TAB_HEIGHT := ARECT.Height; XXXXX($B200CC6A); end; procedure TForm1.TabItem3324324324324Painting(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin TAB_HEIGHT := ARECT.Height; XXXXX($B2CC6A00); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.