контакт лист

[DeDoK]

какой надо использовать компонент чтобы получить картинки статусов? или как правильно рисовать на стандартных компонентах?

[Maxs]

Есть множество вариантов. Например: натянуть картинку на BitBtn(свойство Glyph), поставить на против ника image

[DeDoK]

ну а допустим если я лист бокс использую - что ставить кучу картинок чтоли?

[Maxs]

В лист бох картинки можно так добавить: Поставить style=lbOwnerDrawFixed
Поставить на форму image с картинкой bmp.

public
Procedure PaintImage(List1 :TListBox; Control: TWinControl;
 Index: Integer; Rect: TRect);

procedure TForm1.ListBoxSiteDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  PaintImage(ListBoxSite, Control, Index, Rect);
end;

Procedure TForm1.PaintImage(List1 :TListBox; Control: TWinControl;
 Index: Integer; Rect: TRect);
const W = 16;
      H = 16;
var BMPRect: TRect;
begin
  with (Control as TListBox).Canvas do
  begin
    FillRect(Rect);
    List1.Canvas.Draw(0, Rect.Top, Image1.Picture.Graphic);
    BMPRect := Bounds(Rect.Left, Rect.Top, W, H);
    TextOut(Rect.Left+W, Rect.Top, List1.Items[index]);
  end;
end;

[DeDoK]

а если у меня эти картинки в ImageList? как тогда?

[Evgeniy26]

var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  ImageList1.GetBitmap(<index>, Bitmap);

[S@fer]

Можно использовать компонент DBGridEh - из EhLib
и из ImageList вытаскивать картинки и вставлять их в ячейки
Во вложении сам компонент и пример использования

[Alter]

ImageList сам может рисовать через свойство DRAW. Намного быстрее будет.

[DeDoK]

Evgeniy26 - а как тогда использовать этот битмап? у него нет свойства Graphic. Alter расскажи пожалуйста подробней о вашем способе

[Alter]

Где I - номер картинки текущего статуса пользователя в компоненте StatusImg

  If I>=0 then
   StatusImg.Draw(Canvas, Rect.Left, Rect.Top, I);