名前 題名 ▼ Mr.XRAYさん > ▼ Saraさん。ゴメンなさい。今コードをみたら、 > > > 背景色を変更する方法はございますでしょうか？ > > （あと、Fontの色も・・・） > > 未確認ですが、背景は、 > > function TplExplorerFolderTree.PrePaint(hdc: HDC; var prc: TRect; > var plres: LRESULT): HRESULT; > > のHDCに描画すれば出来るかも知れません。多分TRectが背景のRectじゃ > ないかと思います。Fontの色の方は、 > > function TplExplorerFolderTree.ItemPrePaint(hdc: HDC; var prc: TRect; > var pnstccdItem: TNSTCCustomDraw; var pclrText, pclrTextBk: COLORREF; > var plres: LRESULT): HRESULT; > var > pShellItem : IShellItem; > pShellItemArray : IShellItemArray; > pidl : PItemIDList; > pFullPath : array [0..MAX_PATH - 1] of Char; > begin > if (pnstccdItem.uItemState and CDIS_FOCUS) > 0 then begin > pclrText := RGB(200, 0, 0); > plres := CDRF_NEWFONT; > end; > > ここでは、CDIS_FOCUSの時に色をRGBで設定していますから、それ以外のを > 設定すれば可能かも知れません。 > ダメだったらゴメンなさい。 > うまくいくようでしたら、プロパティに追加しますか… GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link