Контактлист или Stringgrid

[GAGARIN-NEW]

Подскажите какой компонент удобнее использовать чтобы сделать падобие контаклиста (Например а асе)

Мне нужно чтобы в каждую строчку можно было впихнуть рисунок (Чтото вроде статуса/пола и статуса) и чтобы выделялись только строчки но не отделано рисунок или строка без рисунка .

Если делать это с помощью стринггрид то подскажите как нарисовать в 1 столбце каждой строчки определённые разные рисунки ?

[AlDelta]

BitMap в StringGrid:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
with (Sender as TStringGrid) do
with Canvas do
begin
   {...}
   Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
   {...}
end;

Выделение строчки:

....
var   myRect: TGridRect;
.....
Begin
myRect.Left := Первый столбец;
myRect.Top :=Номер строчки;
myRect.Right := Последний столбец;
myRect.Bottom :=Номер строчки;
//Допиши сюда проверку на нужные тебе условия и выделяй строку
if ... then
StringGrid1.Selection:=myRect;
.....
end;

myRect.Top и myRect.Bottom должны иметь одинаковые значения если надо выделить одну строчку

[mihali4]

Выделение строчки:

У стринггрида есть опция goRowSelect, почему не ею?

[GAGARIN-NEW]

Спасибо.как выделять строчку я знаю и этот пример с ДелфиВорлд я тож видел но когда я выделаю строчку то изображение какбы остаётся поврх стринггрида (( и оно остаётся нетронутым... как этого "избежать" чтобы и изображение выделялось вместе с строчкой ?
и есть ли ещё какойнибудь более удобный компонент ?

[AlDelta]

Нарисуй в Photoshop'e свою выделенную картинку и при select'e просто подставляй её.

[KORN]

а я для этого использовал тривьев(не помню как по английски пишется)... там можно втыкать картинки, добавлять да и гемора меньше...

[GAGARIN-NEW]

ммм а есть ещё тот примерец ? например на счёт втыкания картинок ?

Сообщение от AlDelta

Нарисуй в Photoshop'e свою выделенную картинку и при select'e просто подставляй её.

Вроде смотрится хорошо но у меня таких картинок 16 и ещё я незнаю вот у меня в работающем приложении строчки выделяются синим а у юзеров может быть нестандартная тема экрана . у них может быть жругой цвет выделения ? если да тогда этот способ негодится... ((

[AlDelta]

Сообщение от GAGARIN-NEW

ммм а есть ещё тот примерец ? например на счёт втыкания картинок ?

Вроде смотрится хорошо но у меня таких картинок 16 и ещё я незнаю вот у меня в работающем приложении строчки выделяются синим а у юзеров может быть нестандартная тема экрана . у них может быть жругой цвет выделения ? если да тогда этот способ негодится... ((

В таком случае, можно применить какие-нибудь графические фильтры, например негатив:

procedure TForm1.Button1Click(Sender: TObject);
var
ColorLine: pByteArray;
i, j: integer;
begin
for i:=0 to Image1.Picture.Bitmap.Height-1 do
begin
ColorLine:=Image1.Picture.Bitmap.ScanLine[i];
for j:=0 to Image1.Picture.Bitmap.Width*3-1 do
ColorLine^[j]:=255-Line^[j];
end;
Image1.Refresh;
end;

[KORN]

вот посмотри.. написал... в исхлднике показано как поменять катринку у опреденного итема поменять иконку ну в общем разбешься че и как....

[GAGARIN-NEW]

Сообщение от AlDelta

В таком случае, можно применить какие-нибудь графические фильтры, например негатив:

procedure TForm1.Button1Click(Sender: TObject);
var
ColorLine: pByteArray;
i, j: integer;
begin
for i:=0 to Image1.Picture.Bitmap.Height-1 do
begin
ColorLine:=Image1.Picture.Bitmap.ScanLine[i];
for j:=0 to Image1.Picture.Bitmap.Width*3-1 do
ColorLine^[j]:=255-Line^[j];
end;
Image1.Refresh;
end;

- из области фантастики...