Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
15-1185433846
@!!ex
2007-07-26 11:10
2007.08.26
Маечка.


2-1186236576
DelphiKettle
2007-08-04 18:09
2007.08.26
Сравнение переменных


2-1185790796
pukin
2007-07-30 14:19
2007.08.26
Найду ли я динамически созданный компонент?


2-1185363784
TruePunk
2007-07-25 15:43
2007.08.26
записи на рабочем столе


15-1185792847
Andre_s
2007-07-30 14:54
2007.08.26
Проблема с Asus P5PL2-E