Developing.ru

Доброго времени суток.
Есть такая оргазмическая идея, написать свой рабочий стол, точнее написать некоторое приложение эмулирующее рабочий стол.
На стандартном ListView нет возможности сделать wallpaper.
Подскажите идеи или подскажите где можно покапать.
Заранее спасибо всем откликнувшимся.

Почему же нет...
В стандартном ListView обрабатывай onCustomDraw и рисуй под значками что тебе нравится...
Например: Отрисовывает в качестве фона картинку из Image1:

Код: Выделить всё

procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
begin
  bitBlt(Sender.Canvas.Handle, ARect.Left, ARect.Top,
    ARect.Right-ARect.Left, ARect.Bottom-ARect.Top,
    Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
end;

Спасибо Lost Angel выручил.

Developing.ru

Рабочий стол своими руками

Рабочий стол своими руками