function ProcWnd(Wnd: HWND; uMsg: Integer; wPrm: WPARAM; lPrm: LPARAM): LRESULT; STDCALL; var // pnm: PNMHDR; // LPNMTVCD: LPNMTVCUSTOMDRAW; begin // Result:=0; // if uMsg = WM_NOTIFY then begin // pnm:=PNMHDR(lPrm); // if pnm^.idFrom = idMyTreeView then // if pnm^.code = NM_CUSTOMDRAW then begin // LPNMTVCD:=LPNMTVCUSTOMDRAW(lPrm); // case LPNMTVCD^.nmcd.dwDrawStage of // CDDS_PREPAINT: begin // uMsg:=CDRF_NOTIFYITEMDRAW; // Result:=CDRF_NOTIFYITEMDRAW; // Exit; end; // CDDS_ITEMPREPAINT: begin // if (LPNMTVCD^.nmcd.uItemState and CDIS_SELECTED) <> 0 then begin // LPNMTVCD^.clrText:=$ffffff; // LPNMTVCD^.clrTextBk:=$c56a31; end; // Result:=CDRF_NEWFONT; end; end; end end; // ---> Обработка остальных событий окна. end;