Плавная смена обоев(как в windows 7)

[Пепел Феникса]

попробуйте через http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
с флагом SPI_SETDESKWALLPAPER
но там говорять есть глюк что нельзя использовать слайдшоу из вне...

[dmitriegorovih]

можно попробовать брать две картинки вторую превращать в PNG и уже с альфой накладывать на другую при этом уменьшать прозрачность и постоянно замещать картинки на раб. столе геморройно но есть какой-то выход)))) кстати должно и на XP заработать.

[rokweb]

Пепел Феникса
Дык так и используется эта функция с этим параметром(в сообщении из моего первого поста) - нет анимации плавной смены обоев... Вопрос остается открытым.

dmitriegorovih
Мне кажется будет очень тормозно, если вообще будет работать.

[rokweb]

Вопрос всё еще актуален, есть ли у кого-либо еще идеи?

[rokweb]

Решил сделать, как написал в посте #8. Использую следующий код:
Показываю форму:

Form2.Show;

Форма имеет включенный Timer1 с интервалом 1. Вот код 2 юнита:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm2 = class(TForm)
    Timer1: TTimer;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private

  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Image1: TImage;

implementation

{$R *.dfm}

procedure ScreenShot(Bild: TBitMap);
 var
   c: TCanvas;
   r: TRect;
 begin
   c := TCanvas.Create;
   c.Handle := GetWindowDC(GetDesktopWindow);
   try
     r := Rect(0, 0, Screen.Width, Screen.Height);
     Bild.Width := Screen.Width;
     Bild.Height := Screen.Height;
     Bild.Canvas.CopyRect(r, c, r);
   finally
     ReleaseDC(0, c.Handle);
     c.Free;
   end;
 end;

procedure TForm2.FormShow(Sender: TObject);
begin
Image1 := TImage.Create(Form2);
Image1.Parent := Form2;
Image1.Align := AlClient;
ScreenShot(Image1.Picture.BitMap);
Form2.AlphaBlendValue := 255;
Form2.Timer1.Enabled := True;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
Form2.AlphaBlendValue := Form2.AlphaBlendValue-5;
If Form2.AlphaBlendValue<=0 then
begin
Image1.Free;
Form2.Hide;
Form2.Timer1.Enabled := False;
End;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Form2.DoubleBuffered := True;
end;

end.

Проблема в том, что при смене изображения(как раз, когда появляется 2 форма со скрином на весь экран - изображение как бы соскаивает на предыдущий скрин... Видео с проблемой:

http://rghost.ru/38066732
http://narod.ru/disk/49072607001.e5e...Video.rar.html
http://dump.ru/file/5727475

[dmitriegorovih]

procedure TForm2.Timer1Timer(Sender: TObject);
begin
If Form2.AlphaBlendValue<=0 then
begin
Image1.Free;
Form2.Hide;
Form2.Timer1.Enabled := False;
End;
Form2.AlphaBlendValue := Form2.AlphaBlendValue-5;
end;

попробуй так, не надо делать что-бы AlphaBlendValue уходил в отрицательные числа
а вообще глюк в первой форме

[rokweb]

dmitriegorovih
Спасибо за попытки помочь, но всё равно не помогло. Всё равно на 0,2-0,5 сек изображение "прыгает" на предыдущую картинку. В упор не понимаю в чем может быть проблема. Если есть еще какие-либо идеи - высказывайте, обязательно буду пробовать.
Кстати если убрать

Form2.DoubleBuffered := True;

Смена обоев моргает цветом формы(такое ощущение, что форма обновиться не успевает).

Нашел проблему:
Вот так работать, как мне требуется, не будет:

procedure TForm2.FormShow(Sender: TObject);
begin
ScreenShot(Form2.Image1.Picture.BitMap);
Form2.Timer1.Enabled := True;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
If Form2.AlphaBlendValue<=0 then
begin
Form2.Image1.Picture := Nil;
Form2.Hide;
Form2.Timer1.Enabled := False;
Form2.AlphaBlendValue := 255;
End;
Form2.AlphaBlendValue := Form2.AlphaBlendValue-5;
end;

А вот так будет:

procedure TForm2.FormShow(Sender: TObject);
begin
ScreenShot(Form2.Image1.Picture.BitMap);
Form2.AlphaBlend := True;
Form2.Timer1.Enabled := True;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
If Form2.AlphaBlendValue<=0 then
begin
Form2.Image1.Picture := Nil;
Form2.Hide;
Form2.Timer1.Enabled := False;
Form2.AlphaBlend := False;
Form2.AlphaBlendValue := 255;
End;
Form2.AlphaBlendValue := Form2.AlphaBlendValue-5;
end;

Т.е., как я понимаю, вся соль была в отключении и включении альфабленда формы. С вкл. и выкл. альфы - работает, без этого - не работает.

Тему прошу не закрывать, возможно будут еще вопросы. Спасибо за помощь!