pdis^.rcItem, GetSysColorBrush(COLOR_HIGHLIGHT));
SetTextColor(pdis^.hDC, GetsysColor(COLOR_HIGHLIGHTTEXT));
end
else begin
FillRect(pdis^.hDC, pdis^.rcItem, GetSysColorBrush(COLOR_WINDOW));
SetTextColor(pdis^.hDC, GetSysColor(COLOR_WINDOWTEXT));
end;
SetBkMode(pdis^.hDC, TRANSPARENT);
if csidl<>555 then begin // csidl
SHGetSpecialFolderLocation(AWnd, csidl, pidl);
str := GetNameFromPIDL(pidl);
GetSmallIconFromPIDL(pidl, himl, iImage);
ImageList_Draw(himl, iImage, pdis^.hDC, pdis^.rcItem.Left+2, pdis^.rcItem.Top+2, ILD_TRANSPARENT);
Inc(pdis^.rcItem.Left, 20);
DrawText(pdis^.hdc, PChar(str), -1, pdis^.rcItem, DT_SINGLELINE or DT_LEFT or DT_VCENTER);
CoTaskMemFree(pidl);
end
else begin // normal path
SetLength(str, MAX_PATH);
SendMessage(hCombo, CB_GETLBTEXT, pdis^.itemID, LongInt(PChar(str)));
str := PChar(str);
GetSmallIconFromPath(str, himl, iImage);
ImageList_Draw(himl, iImage, pdis^.hDC, pdis^.rcItem.Left+2, pdis^.rcItem.Top+2, ILD_TRANSPARENT);
Inc(pdis^.rcItem.Left, 20);
DrawText(pdis^.hDC, PChar(str), -1, pdis^.rcItem, DT_SINGLELINE or DT_LEFT or DT_VCENTER);
end;
end;
end;
上一页 [1] [2] [3] [4] [常用软件]Window Media Player 播放器 [Delphi程序]Window SubClassing之另类运用(之一) [Delphi程序]override deal with window closing in database … [Delphi程序]Window 消息大全使用详解 [网页制作]Chromeless Window For IE6 SP1 [网页制作]关于Web设计、开发中window对象的资料 [Web开发]JavaScript : WINDOW FOR JAVASCRIPT [Web开发]JavaScript关于window.open()应用 [Web开发]关于Web设计、开发中window对象的资料 [Web开发]Javascript:window对象的方法
|