Плавная смена обоев

Posted by Chas under Delphi

Интересует вопрос как сделать плавную смену обоев, как в Windows 7?

rokweb

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
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; procedure TForm2.FormCreate(Sender: TObject); begin Form2.DoubleBuffered := True; end; end.[/code] тема на форуме

Похожие статьи

• Посоветуйте ПО для защиты ПК с пред-настройкой «групп файлов». На примере Comodo.
• Handle окна по файлу EXE
• При нажатии кнопки открыть сайт
• Получить время через интернет
• Сеть на ассемблере: проблема
• Получить иконку файла
• Как узнать пользовательскую директорию
• Запустить выбранные адреса в checklistbox
• Управление отображением рабочего стола Windows на нескольких экранах
• Вставить TBitMap в RichEdit