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

[christio]

Hallo,

Wie wäre es mit einem Insight.AddMainMenu?

[himitsu]

Menüs lassen sich in meiner internen Version schon hinzufügen und verwalten (das war nicht so schwer ... brauchte ja nur die Verwaltung der Action-Listen klonen),

aber die Menüs auch noch in die Insight-Liste einzufügen ... da muß ich erstmal überlegen/probieren wie sich die Menü-Struktur am Besten auf die Kategorien verteilen läßt.
Action-Listen und die Insight-Liste sind ja ein Baum, wo alle "Aktionen" nur in der zweiten Ebene liegen, wärend die erste Ebene immer eine Kategorie ist.

Ein Menü (MainMenu, PopupMenu und Co.) können eine Mehrdimensionale Baumstruktur sein und die Aktionen (Items mit OnClick-Ereignissen) können sonstwo liegen.


[add]
noch völlig ungetestet (werd ich versuchen bald nachzuholen), aber es kompiliert zumindestens schonmal.

Neue Befehle in IInsight:

Delphi-Quellcode:

Procedure AddMenu    (Menu: TMenu;      DefaultCategory: String);
Procedure AddMainMenu(Menu: TMainMenu;  DefaultCategory: String; AllInDefault: Boolean = False);
Procedure AddPopup   (Menu: TPopupMenu; DefaultCategory: String);
Function  CountMenus:            Integer;
Property  Menu  [idx:  Integer]: IInsightMenu Read GetMenu;
Procedure Delete(Menu: IInsightMenu); Overload;
Procedure ClearMenus;

[edit] Anhang gelöscht

[christio]

Schaut gut aus, deine Komponente macht wirklich Sinn.
Danke.

[christio]

Vielleicht noch eine Funktion fürs UI:

Delphi-Quellcode:

procedure TInsightForm.TreeView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((Key = VK_UP) and
      (not Assigned(TreeView1.Selected) or (TreeView1.Items.GetFirstNode = TreeView1.Selected))) then
    Edit1.SetFocus;
end;

procedure TInsightForm.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_DOWN then
    TreeView1.SetFocus;
end;

[Win32.API]

Starke Komponente

Weiter so, werde sie bald in einem Projekt einsetzen und hier Bericht erstatten.

//Win32

[himitsu]

Zitat von christio:

Vielleicht noch eine Funktion fürs UI:

OK, die Tastenspielerei ist auch drin.
Ich hoffe dir gefällt meine etwas andere Behandlung.

[edit] Anhang gelöscht

[christio]

Deine Tastenspielerei macht den Kreis wirklich rund

[himitsu]

So, nun noch ein Testmenü in die Demo eingebaut und dann die Hinweistexte im Insight-Menü optimiert (die Klammern und Anderes wurden nicht so schön ausgegeben)

[edit]
Anhänge entfernt