Форум: "Начинающим";
Текущий архив: 2008.01.13;
Скачать: [xml.tar.bz2];
ВнизListViewDrawItem Найти похожие ветки
← →
webpauk © (2007-12-14 20:02) [0]
procedure TFormMain.ListView1DrawItem(Sender: TCustomListView; Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var
TxtRect: TRect;
begin
with Sender.Canvas do
begin
Brush.Color:=clWindow;
if odFocused in State then Brush.Color:=clHighlight;
FillRect(Rect);
Font.Color := clred;
TextOut(Rect.Left, Rect.Top, Item.Caption);
end;
end;
рисуются только Items
а как рисовать Items.SubItems?
← →
begin...end © (2007-12-14 20:36) [1]Неужели в обработчике OnCustomDrawSubItem? 8-O
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.01.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c