Появлениe image

[Rusl92]

Добрый вечер!
Подскажите пожалуйста: каким образом можно красиво вывести картинку на экран (то есть например с мерцанием или например круговая анимация, или по линиям). Заранее спасибо!

[Terran]

Вы можете поставить на форму компонент Image с картинкой, а потом использовать AnimateWindow для красивого появления или исчезания формы или ещё чего-нибудь. Здесь вся информация: AnimateWindow.rar

[Rusl92]

hwnd - Дескриптор окна, которое анимируется. Вызывающий поток должен владеть этим окном.
а мне нужно -картинку (image1), как это сделать?

[mihali4]

Ну вы же картинку-то не на канве экрана выводить будете?
Кладете картинку на форму, форме задаете свойство безбордерности, вот и все дела - работаете с обычной формой. А на ней нет ничего, кроме картинки...

[Rusl92]

А нельзя придумать что-то другое?
Чтобы именно картинки появлялись с мерцанием, с круговой анимацией - а форму не трогали?

[eoln]

Вот плавно выводим заставку до появления формы на глаза, по сути копируем изображение с части канвы экрана и шаг за шагом изменяем. Я уже приводил пару месяцев назад похожий пример - где-то в поиске

procedure TForm1.FormCreate(Sender: TObject);
const
  kadr = 100;//за сколько проходов отрисуем
var
  bm, bm1, bm2: TBitMap;
  p1, p2, p: PByteArray;
  x, y, i: integer;
  dtc:tcanvas;
  var Iz, Desc :TRect;
begin
  bm := TBitMap.Create;
  bm1 := TBitMap.Create;
  bm2 := TBitMap.Create;
  bm.PixelFormat := pf24bit;
  bm1.PixelFormat := pf24bit;
  bm2.PixelFormat := pf24bit;
  //загружаем конечное изображение
  bm2.LoadFromFile('start.bmp');
  bm.Height := bm2.Height;  bm.Width := bm2.Width;
  bm1.Height := bm2.Height; bm1.Width := bm2.Width;
  //получаем доступ к рабочему столу
  dtc:=tcanvas.create;
  dtc.handle:=getdc(hwnd_desktop);
  //выделяем часть рабочего стола (середину)
  Desc.Left:=(Screen.Width-bm.Width) div 2;
  Desc.Top:=(Screen.Height-bm.Height) div 2;
  Desc.Right:=(Screen.Width+bm.Width) div 2;
  Desc.Bottom:=(Screen.Height+bm.Height) div 2;
  //это не менять
  Iz.Left:=0;
  Iz.Top:=0;
  Iz.Right:=bm1.Height;
  Iz.Bottom:=bm1.Height;
  //копируем рабочий стол
  bm1.Canvas.CopyRect(Iz,dtc,Desc);
  //рисуем заставку
  for i := 1 to kadr - 1 do
  begin
    for y := 0 to bm.Height - 1 do
    begin
      p := bm.ScanLine[y];
      p1 := bm1.ScanLine[y];
      p2 := bm2.ScanLine[y];
      for x := 0 to bm.Width * 3 - 1 do
      p^[x] := round((p1^[x] * (kadr - i) + p2^[x] * i) / kadr);
    end;
    //отрисовка на рабочем столе
    dtc.Draw((Screen.Width-bm.Width) div 2,
             (Screen.Height-bm.Height) div 2,
             bm);
    //можно дать время на отбражение и чуть подождать
    Application.ProcessMessages;
    sleep(50);
  end;
  //освободим память
  dtc.Free;
  bm.Free;
  bm1.Free;
  bm2.Free
end;

[Rusl92]

а можно также jpg?

[eoln]

Вот если бы поиском прошлись, увидели бы что можно
заменяем

//загружаем конечное изображение
  bm2.LoadFromFile('start.bmp');
  bm.Height := bm2.Height;  bm.Width := bm2.Width;
  bm1.Height := bm2.Height; bm1.Width := bm2.Width;
  //получаем доступ к рабочему столу

на

//загружаем конечное изображение
  jp := TJPEGImage.Create;
  jp.LoadFromFile('start.jpg');
  bm2.Assign(jp);
  bm.Height := bm2.Height;  bm.Width := bm2.Width;
  bm1.Height := bm2.Height; bm1.Width := bm2.Width;
  //получаем доступ к рабочему столу

где естественно
uses JPEG;
var jp: TJPEGImage;

[Rusl92]

cпасибо большое!