Bringtofront

CherryWoman · December 2008

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

Palych · January 2009

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

caduser · May 2011

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

Palych написал: »

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

gpi · May 2011

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

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;

Bringtofront

Комментарии

Оставить комментарий