Bringtofront

CherryWoman

Всем привет! Делаю отчет, в котором в режиме реального времени отрисовываются фигуры, заполняются бенды и т.д. Данные беру из DataSet'а. При отрисовки получается, что некоторые фигуры накладываются друг на друга. Например, под фигурой видна стрелка, хотя фигура отрисовывается последней. Надо, чтобы фигура была на переднем плане, т.е. BringToFront. В связи с этим вопрос, как программно вызвать метод BringToFront или SetZOrder?

Palych

Я бы тоже очень хотел получить на этот вопрос! Разработчики, ау!

caduser

Помогите, так же актуален вопрос!

Palych написал: »

Я бы тоже очень хотел получить на этот вопрос! Разработчики, ау!

gpi

Смотрите исходники:

procedure TfrxDesignerForm.BringToFrontCmdExecute(Sender: TObject);
var
  i: Integer;
  c: TfrxComponent;
begin
  for i := 0 to FSelectedObjects.Count - 1 do
  begin
    c := FSelectedObjects[i];
    if c.Parent <> nil then
      if (c is TfrxReportComponent) and not (rfDontMove in c.Restrictions) then
      begin
        c.Parent.Objects.Remove(c);
        c.Parent.Objects.Add(c);
      end;
  end;

  ReloadObjects;
  Modified := True;
end;