Висяк при экспорте в Excel

Комментарии

• Konst

  January 2005 отредактировано 16:53

  ну так это и понятно.
  
  запусти под 2000 - такого не должно быть..
  
  ИМНО рано еще переходить на следующую платформу глюкавая она.
• vkozlov

  January 2005 отредактировано 16:53

  Konst написал:

  ИМНО рано еще переходить на следующую платформу глюкавая она.

  "дети Билли не любили, дети Билли часто били"
  Закомментил в трех местах в TfrxPreviewPages.Export Report.InternalOnProgress,Report.InternalOnProgressStart, Report.InternalOnProgressStop и всё заработало. Кстати, аналогичная хрень у меня была при портировании FR253 под D2005
  А разбираться, почему под D7 эдак, а под D2005 так - лень. Ну не будет окошка с прогрессом, и фиг с ним - разработчики потом пофиксят ))))))
• vkozlov

  January 2005 отредактировано 16:53

  vkozlov написал:

  А разбираться, почему под D7 эдак, а под D2005 так - лень.

  Нет, я таки человек очень нудный и противный. Посмотрел в код frxProgress.pas:
  
  procedure TfrxProgress.FormCreate(Sender: TObject);
  begin
  ...
  FActiveForm := Screen.ActiveForm;
  if FActiveForm <> nil then FActiveForm.Enabled := False;
  ...
  end;
  
  procedure TfrxProgress.FormHide(Sender: TObject);
  begin
  if FActiveForm <> nil then FActiveForm.Enabled := True;
  end;
  
  
  Смотрим в исходники VCL 2005:
  
  procedure TCustomForm.DoHide;
  begin
  if Assigned(FOnHide) then FOnHide(Self);
  end;
  
  Этот самый DoHide присутствует только в TCustomForm.CMShowingChanged; и финальный аккорд от дядьки Борланда:
  
  procedure TCustomForm.BeforeDestruction;
  begin
  GlobalNameSpace.BeginWrite;
  Destroying;
  Screen.FSaveFocusedList.Remove(Self);
  RemoveFixupReferences(Self, '');
  if FOleForm <> nil then FOleForm.OnDestroy;
  if FormStyle <> fsMDIChild then Hide;
  if not OldCreateOrder then DoDestroy;
  end;
  
  Сдублировал код TfrxProgress.FormHide в TfrxProgress.FormDestroy - заработало...