AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

D7 TActionBarItem.Assign sehr langsam

Ein Thema von SneakL8 · begonnen am 11. Feb 2016
Antwort Antwort
SneakL8

Registriert seit: 11. Feb 2016
24 Beiträge
 
#1

D7 TActionBarItem.Assign sehr langsam

  Alt 11. Feb 2016, 14:01
Ich habe hier ein altes Delphi 7 Programm. Das läuft soweit ganz gut.

Jetzt meldet der Kunde ein Problem bei einem speziellen User. Mit einigem an Logging bin ich dem entscheidenden Befehl auf die Schliche gekommen, dessen Ausführung knapp 2 Minuten (!) benötigt.

Die Stelle im Programm sieht aber äußerst unschuldig aus:

Code:
var
  OldBar,
  ABar : TActionBarItem;
begin
  OldBar := GetActionBarItem(ActionMainMenu);
  ABar := TGActionManager.ActionBars.Add;
  ABar.Assign(OldBar); // braucht 2 Minuten zur Ausführung
end;
Ich hatte zunächst vermutet, dass beim Assign evtl. die Actions upgedatet werden und daher ein OnUpdate länger braucht. Aber die werden beim Assign gar nicht ausgeführt. Ein F7 im Debugger führt auch nur den Assign aus und steht dann auf dem nächsten Befehl, also nichts zum Debuggen im Hintergrund.
Wird auf dem selben Rechner das Programm mit einem anderen User ausgeführt, läuft es prima (Dauer ca. 50ms).

Hat jemand eine Idee, woran die Verzögerung liegen könnte? Oder was bei der Zuweisung so alles ausgeführt wird, wo ich weitersuchen könnnte?

Viele Grüße
SneakL8
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz