Текущий архив: 2007.08.26;
Скачать: CL | DM;

Вниз

почему не обновляется окно?   Найти похожие ветки 

← →
Альберт ©   (2007-03-05 20:58) [0]

здравствуйте) вопрос - сабж

var  pt1, pt2:TPoint;
    sz:TSize;
    bf:TBlendFunction;
begin
   pt1 := Point(form1.Left , form1.Top  );
   pt2 := Point(0,0);
   sz.cx := dst.Width;
   sz.cy := dst.Height;

   with bf do begin
     BlendOp := AC_SRC_OVER;
     BlendFlags := 0;
     SourceConstantAlpha :=255;
     AlphaFormat := AC_SRC_ALPHA;
   end;

   BitBlt(getdc(Form1.Handle), 0, 0, Form1.Width, Form1.Height, getdc($0), Form1.Left, Form1.Top, SRCCOPY );

   UpdateLayeredWindow(Form1.Handle, getdc(0), @pt1, @sz, dst.Canvas.Handle, @pt2,0, @bf,ULW_ALPHA);

end;

---

← →
Eraser ©   (2007-03-05 22:16) [1]

> [0] Альберт ©   (05.03.07 20:58)

попробуйте InvalidateRect.

PS
не стОит прорисовывать окно в "левом" методе. Для прорисовки есть OnPaint.

---

← →
Альберт ©   (2007-03-07 01:16) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.08.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.023 c