Icon Desctop

[One.Love]

У меня такая проблемка, Подскажите пожалуйста через какой компонент можно создать типо рабочего стола чтобы туда ярлыки поместить и запускать с них игры и т.д.
Или подскажите как в ShellListView сделать фон из какой-нибудь картинки Заранее спасибо

[Stilet]

Чеж ты так крикуешь )
Вот смотри:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ShellCtrls;

type
   TShellListView=class(ShellCtrls.TShellListView)
    procedure wmp(var m:TWMPaint);message  WM_Paint;
    procedure wme(var m:TWMEraseBkgnd);message  WM_EraseBkgnd;
   end;
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N11: TMenuItem;
    N31: TMenuItem;
    ShellListView1: TShellListView;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  br:TBitmap;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  br:=TBitmap.Create;
  br.LoadFromFile('D:\Мои документы\Мои рисунки\lory.bmp');
end;

{ TShellListView }

procedure TShellListView.wme(var m: TWMEraseBkgnd);
begin
 inherited;
\\ Если просто вывести рисонок то так:
   BitBlt(m.DC,0,0,Width,Height,br.Canvas.Handle,0,0,SRCCOPY);
\\ Если нужно рисунок растянуть и подогнать по размеру то так:
\\    StretchBlt(m.DC,0,0,Width,Height,br.Canvas.Handle,0,0,br.Width,br.Height,SRCCOPY);
\\ Сам выбирай
end;

procedure TShellListView.wmp(var m: TWMPaint);
begin
  //
  inherited;
end;

end.

[xakkkkker]

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