Александр Н.
New member
- Регистрация
- 02.10.2007
- Сообщения
- 7
- Реакции
- 3
- Баллы
- 3
Plomba,
Исправление (моё
) косяка с хинтами для DevExpress v2011 VOL***
procedure TcxBaseHintWindow.ActivateHint(ARect: TRect; const AHint: string);
begin
{$IFNDEF DELPHI12}
if not IsMonitorValid(ARect.TopLeft) then Exit;
{$ENDIF}
if FStandardHint then
inherited
else
begin
FActivating := True;
try
Caption := AHint;
AdjustActivateRect(ARect);
{!!!} SetBounds(ARect.Left, ARect.Top, cxRectWidth(ARect), cxRectHeight(ARect));
UpdateBoundsRect(ARect);
SetWindowPos(Handle, HWND_TOPMOST, ARect.Left, ARect.Top, Width, Height,
{!!!} SWP_NOSIZE or SWP_NOMOVE or SWP_NOACTIVATE);
CheckExecuteAnimation(AHint);
Show;
FHintAreaBounds := cxEmptyRect;
finally
FLastActive := GetTickCount;
FActivating := False;
end;
end;
end;
Исправление (моё
) косяка с хинтами для DevExpress v2011 VOL***procedure TcxBaseHintWindow.ActivateHint(ARect: TRect; const AHint: string);
begin
{$IFNDEF DELPHI12}
if not IsMonitorValid(ARect.TopLeft) then Exit;
{$ENDIF}
if FStandardHint then
inherited
else
begin
FActivating := True;
try
Caption := AHint;
AdjustActivateRect(ARect);
{!!!} SetBounds(ARect.Left, ARect.Top, cxRectWidth(ARect), cxRectHeight(ARect));
UpdateBoundsRect(ARect);
SetWindowPos(Handle, HWND_TOPMOST, ARect.Left, ARect.Top, Width, Height,
{!!!} SWP_NOSIZE or SWP_NOMOVE or SWP_NOACTIVATE);
CheckExecuteAnimation(AHint);
Show;
FHintAreaBounds := cxEmptyRect;
finally
FLastActive := GetTickCount;
FActivating := False;
end;
end;
end;
