View Issue Details

IDProjectCategoryView StatusLast Update
0005752JEDI VCL00 JVCL Componentspublic2013-12-13 11:31
ReporterUlvertAssigned Toobones 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionsuspended 
Product VersionDaily / GIT 
Target VersionFixed in Version 
Summary0005752: JvDesignPanel selection handles does not move with component
DescriptionWhen a component on a JvDesignPanel is moved or resized the selection frame and handles are not moved or resized with it. This applies to all selected components except the 3:d selected one..?
Strange code here on line 647 of JvDesignImp.pas:
  if Count = 2 then
    ShowHideResizeHandles
  else
    H.UpdateHandles;
Additional InformationCode example that seems to work:
procedure TJvDesignSelector.AddToSelection(AValue: TControl);
var
  H: TJvDesignHandles;
  I: Integer;
begin
  if AValue = nil then
    raise EJVCLException.CreateRes(@RsEDesignCannotSelect)
  if not IsSelected(AValue) then
  begin
    H := TJvDesignHandles.Create(Self);
    H.Container := Surface.Container;
    H.Resizeable := Count = 0;
    FHandles.Add(H);
    H.Selected := AValue;
  end;

  ShowHideResizeHandles;

  for I := 0 to Count - 1 do
    with Handles[I] do
    begin
      UpdateHandles;
      Surface.Messenger.DesignComponent(Handles[0], True);
      Surface.Messenger.DesignComponent(Handles[1], True);
      Surface.Messenger.DesignComponent(Handles[2], True);
      Surface.Messenger.DesignComponent(Handles[3], True);
    end;
end;
TagsNo tags attached.

Activities

obones

2012-02-22 14:59

administrator   ~0019454

Please provide the zipped sources of a sample application showing this

obones

2012-06-13 16:29

administrator   ~0019975

Any news?

obones

2013-12-13 11:31

administrator   ~0020787

No news, suspending the issue

Issue History

Date Modified Username Field Change
2011-12-27 10:43 Ulvert New Issue
2012-02-22 14:59 obones Note Added: 0019454
2012-02-22 14:59 obones Status new => feedback
2012-06-13 16:29 obones Note Added: 0019975
2013-12-13 11:31 obones Note Added: 0020787
2013-12-13 11:31 obones Status feedback => resolved
2013-12-13 11:31 obones Resolution open => suspended
2013-12-13 11:31 obones Assigned To => obones