掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphi7 TTabControl 64ビットOSでOwnerDRawが効かない (ID：150717)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Delphi7のTTabControlのOwnerDrawを32ビットでは、問題なく表示するが、64ビットOSでは消えてしまう。 OwnerDrawをTRue; procedure TabContorol1.DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var R: TRect; begin R := Rect; with Control.Canvas do begin if Active then begin Brush.Color := $00F7EEB5; Font.Color := clBlue; Font.Style := [fsBold]; InflateRect(R, -1, -1); end else begin Brush.Color := clWhite; Font.Color := clBlack; Font.Style := []; OffsetRect(R, 0, 2); end; FillRect(R); TextOut(Rect.Left+4, Rect.Top+4, TTabControl(Control).Tabs[TabIndex]); end; end; これが、32ビットOSであると問題なく動く。 ６４ビットOSだとTABが真っ白（＝ω＝；） なんででしょう？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.