Drag&Drop и рисование

[Andy]

Доброго времени суток!
Есть проблема: неверная (частичная) отрисовка канваса (объект от TGraphicControl) при событии OnDragOver с DragImageList...

Написал вопрос - сам туго понимаю, но, кто сталкивался, поймет и поможет в решении проблемы...

[x77]

а можно код в студию?

[Александр]

Поподробнее что именно и где не полностью отрисовывается? А то на вскидку сказать трудно.

[Anonymous]

Суть такова: при начале Drag-n-Drop для контрола "Control1" создаю DragImage - копия самого контрола:
...
  B := TBitmap.Create;
  DIL := TDragImageList.Create(Self);
  B.Canvas.CopyRect(ClientRect, Canvas, ClientRect)
  DIL.Add( B, nil );
  DIL.SetDragImage( 0, P.X + X, P.Y + Y) ;
....
Потом при событии OnDragOver других контрола "Control2,3 и т.д" хочу их перекрашивать в другой цвет, чтоб было видно над каким конролом происходит DragOver (как это сделано например в виндовом Проводнике когда перетаскиваем файлы на какой-нить папкой):

...
procedure DesignItem1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if (Source is TDesignItem) then
  with (Source as TDesignItem) do
   begin      
     Canvas.Brush.Color := clYellow;
     Canvas.FillRect(ClientRect);
   end;
end;
...
Все отрабатывается, но не происходит заливка куска канваса кот. пересекается с куском DragImage...

[x77]

а какие, собственно, контролы? от кого унаследованы?

у меня пока две идеи: перекрашивать контрол через Invalidate, или выставлять прозрачность у DragImage (можно, в принципе, и в битмапе перед добавлением).

[Andy]

а какие, собственно, контролы? от кого унаследованы?

от TGraphicControl...

у меня пока две идеи: перекрашивать контрол через Invalidate, или выставлять прозрачность у DragImage (можно, в принципе, и в битмапе перед добавлением).

Все так и есть... Более подробно о проблеме: DragOver возникает, когда курсор заходит на контрол. Вместе с этим начинается отрисовка фокуса контрола. Но в это время некоторый кусок DragImage уже находится над контролом, и как раз регион пересечения DragImage и контрола не перерисовывается...

[x77]

Andy, т.е. прозрачность выставлена? а от кого, всё-таки,  унаследованы контролы?

[Andy]

Andy, т.е. прозрачность выставлена? а от кого, всё-таки,  унаследованы контролы?

Контролы яж сказал от TGraphicControl...
в общем проблему решил! нашел вот что:
при драг-н-дропе DragImage делает LockWindowUpdate родительского окна. И поэтому невозможно отрисовать область родителя над которой находится DragImage
проблема решается так :

//
ImageList_DragShowNolock(FALSE);
...Рисуем все что хотим;
ImageList_DragShowNolock(TRUE);
//
Вот так. Всем спасибо за участие. Тема закрыта

[Александр]

Пожалуйста!