почему не обновляется окно?

← →
Альберт © (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.

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

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