MyInsight, das Delphi 2010 IDE-Insight für's eigene Programm

[christio]

Hallo,

Ich habe 2 kleine Fehler gefunden:

Bevel2:
Anchor akRight fehlt
ProcessActionList:
vor GetBitmap wird nicht überprüft, ob AL2.Images zugewiesen ist
Img sollte immer neu erzeugt werden, da es sonst zu Überdeckungen kommt

[himitsu]

Das TBitmap wollte ich eigentlich nur einmal erstellen, um so ein bissl was einzusparen, aber nun wird der Inhalt einfach übermalt, damit die alten Bilder weg sind.

• Anchor gefixt
• bei {ImageList}.Images wird nun geprüft, ob es existiert
• beim ImageIndex wird ebenfalls geprüft, ob das gewünschte Bild überhaupt in der ImageList enthalten ist
• {TMenuItem}.SubMenuImages und {TMenuItem}.Bitmap wird nun ebenfalls beachtet.
• der Inhalt des temporäten Bitmaps wird nun vor der Verwendung geleert
  und gleichzeitig wird für eine passendere Hintergrundfarbe gesorgt, falls das Bild transparent ist

Dateien siehe Beitrag #1

[christio]

Danke für die Änderungen.

Wie wird eigentlich das OnList - Event richtig behandelt? Ich probiere die Fensterliste einer MDI - Anwendung (Form.WindowMenu) einzubauen, habe aber mit dem Change und List - Event so meine Probleme.

Denkst du auch an die Funktion Insigth.AddApplicatonManager nach?

[Daniela.S]

Hallo,

das ist echt eine feine Sache, gefällt mir :thumb:

Wird es auch die Möglichkeit geben den Inhalt eines TActionManagers abzubilden?

[himitsu]

Für das OnList-Ereignis gibt es nun was in der Demo.

Dieses Ereignis wird immer aufgerufen, kurz bevor die Insight-Liste angezeigt wird.
Somit kannst du die Kategorie z.B. immer mit aktuellen Anpassungen versehn, also sie bearbeiten oder neu erstellen.
(die Menüs und Actionlisten werdn auch immer mit den aktuellen Daten geladen)

In der Demo wird einmal die Kategorie etwas bearbeitet.
> eine angezeigte Zahl jedesmal erhöht, wenn die Liste neu angezeigt wird
Und dann wird eine andere Kategorie neu erstellt.

Damit hat man also die Möglichkeit auch dynamische Daten aufzulisten, welche sich öfters mal ändern.



Bei den anderen Action-Sachen ... mal sehn was sich machen läßt.



Ein Fehler wurde auch noch behoben, wenn man im OnList-Ereignis was änderte, dann konnte es zu einer Endlosschleife und dem damit verbundenen Stacküberlauf kommen.

Diese Schleife war zwar bekannt und sollte über das _DoList unterbunden werden, aber das _DoList:=False war unglücklich positioniert und wurde vorzeitig zurückgesetzt.

Delphi-Quellcode:

If not Assigned(_Form) or _DoList Then Exit;
_DoList := True;
...
_DoList := False;