Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.23;
Скачать: CL | DM;

Вниз

TCustomListBox vs Columns   Найти похожие ветки 

 
Phn   (2003-12-11 16:39) [0]

Здравствуйте, Мастера. Я делаю компонент-потомок от TCustomListBox. Там есть такое св-во Columns. Дык вот когда устанавливаешь это свойство > 0, выделенный итем из одной колонки накладываются на соседний в другой. Как сделать, чтобы Brush отрисовывался только на длину строки, как в TreeView, или хотя бы, чтобы строка не перекрывала другие. Вот код отрисовки строк:


Function IsDirectory(Str:String):Boolean;
Begin
Result:=False;
if (Str[1] = "[") and (AnsiLastChar(Str)^ = "]") then
Result:=True;
End;

procedure TAnyListBox.DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
Offset: Integer;
begin
with Canvas do
begin
Offset:=2;

If IsDirectory(Items[Index]) Then
Font.Assign(FDirectoriesFont)
Else
Font.Assign(FFileFont);

if odSelected in State Then
Begin
Brush.Color:=FSelectedItemColor;
Font.Color:=FSelectedItemFontColor;
End;

FillRect(Rect);
TextOut(Rect.Left + offset, Rect.Top, Items[Index]);
end;
end;


Заранее всем спасибо.


 
Sandman25 ©   (2003-12-11 16:42) [1]

Видимо, надо использовать не TextOut, а TextRect


 
Phn   (2003-12-11 16:47) [2]

Большущее тебе спасибо, Sandman!



Страницы: 1 вся ветка

Текущий архив: 2003.12.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
1-75189
Михаил
2003-12-11 14:17
2003.12.23
Tmemo


14-75359
Gorlum
2003-11-29 13:38
2003.12.23
Тормозят фильмы


1-75215
Raduga
2003-12-11 09:06
2003.12.23
[Error] RLINK32: Error opening file


1-75213
maxfiles
2003-12-12 03:02
2003.12.23
как связать ListView и i-ую картинку из listview?


3-75122
Атнон С.
2003-11-28 14:05
2003.12.23
Подскажите, как засунуть картинку bmp в SQL Server?