TBX mit MDI-Anwendung

[Flocke]

Hallo Leute, ich habe folgendes Problem:

Ich muss eine relativ große Anwendung (~150.000 Zeilen) "verschönern". Daher möchte ich das alte Standardmenü (Delphi 5) umstellen auf TBX, hauptsächlich weil das mit dem Office2003-Theme so richtig gut aussieht.

Es handelt sich um eine MDI-Anwendung mit ~30 unterschiedlichen Arten von MDI-Unterfenstern, die alle jeweils eigene Menüs besitzen. Bei TMainMenu nimmt Delphi (bzw. Windows) einem ja die Arbeit ab, und das Hauptmenü vom aktiven MDI-Kind wird "automatisch" mit dem des Hauptfenster zusammengeführt.

Gibt's so etwas in der Art auch für TBX? Oder für eine ähnliche Komponentensammlung?

Wenn nicht, dann müsste ich ja einen riesigen Menubar machen, der über 50 Einträge hat und schon alle möglichen benötigten Menüeinträge beinhaltet; und die müsste ich dann noch je nach aktivem Fenster ein- und ausblenden und die OnClick-Ereignisse bzw. die Aktionen zuweisen.

Daher dachte ich mir, ehe ich mich jetzt hinsetze und selbst was dafür schreibe, frage ich lieber zuerst nach, ob das einer von euch schon mal gemacht hat oder ob es dafür vielleicht sogar schon fertige Lösungen gibt.

[alcaeus]

Hallo Flocke,

ich hab noch nicht so viel mit TBX gemacht, aber eine AutoMerge-Property wie sie z.B. beim MainMenu vorhanden ist, habe ich noch nicht gefunden. Guck mal durch die Hilfe-Datei, wenn ich mich richtig erinnere, war da ein kleines Kapitel ueber das Merging drin. Vergiss dabei auch nicht die Hilfedatei der TB2000-Komponenten, die TBX leitet ja nur davon ab.
Wenn du eine hoehere Version von Delphi (also Pro, Ent, Arch) hast, kannst du dir ja auch mal die Merge-Methode des TMainMenu ansehn, und dann eine solche Funktion in die TBX-Komponenten implementieren (du darfst die Merge-Methode aber nicht kopieren, das waere gegen die Lizenz!). Falls du es schaffst, ich bin auch dran interessiert

Greetz
alcaeus

[generic]

Zitat:

Falls du es schaffst, ich bin auch dran interessiert

dto.

ich hatte damals die hilfen alle mal durchgesehen. war aber nicht sehr ergibig.

[Flocke]

Here you go

Kann jeweils zwei TB2000-Toolbars (oder davon abgeleitete wie TBX, SpTBX) miteinander mergen und auch wieder entmergen.

Delphi-Quellcode:

unit TB2Merge;

...

interface

type
  TTBToolbarMerger = class(TComponent)
  public
    procedure Merge(Target, Source: TComponent; Options: TTBMergeOptions);
    procedure Unmerge(Target, Source: TComponent);
    procedure UnmergeAll(Comp: TComponent);
    procedure Delete(Index: Integer);
    function  IsMerged(Target: TComponent): Integer;
    function  IsMergedWith(Source: TComponent): Integer;
    procedure Clear;

    property Count: Integer read GetCount stored false;
    property Items[Index: Integer]: TTBMergedItems read GetItem stored false;
  end;

function ToolbarMerger: TTBToolbarMerger;

...

end.

Dazu müsst ihr z.B. einen Haupt-Toolbar als Menü im MDI-Parent haben und im MDI-Child macht ihr ein verstecktes Dock und darauf euer Kind-Toolbar als Menü (ähnlich wie man TMainMenu für MDI-Parent und MDI-Child einrichtet).

Annahmen:
- Hauptformular ist frmMDIParent
- Hauptmenü ist tbMainMenuBar
- Unterformular ist frmMDIChild
- Untermenü ist tbChildMenuBar

Dann müsst ihr in euer MDI-Child die folgenden Events einbauen:

Delphi-Quellcode:

procedure TfrmMDIChild.FormActivate(Sender: TObject);
begin
  ToolbarMerger.Merge(frmMDIParent.tbMainMenuBar, tbChildMenuBar, []);
end;

procedure TfrmMDIChild.FormDeactivate(Sender: TObject);
begin
  ToolbarMerger.Unmerge(frmMDIParent.tbMainMenuBar, tbChildMenuBar);
end;

procedure TfrmMDIChild.FormDestroy(Sender: TObject);
begin
  ToolbarMerger.UnmergeAll(tbChildMenuBar);
end;

Bei dem Prozess werden KEINE Element neu erzeugt, lediglich der Vater und die Position werden umgehängt (also die ausgeblendeten aus dem ursprünglichen Menü wandern in das versteckte Menü des Kindfensters und umgekehrt).

Die behandelten Element müssen einfach nur von TTBItem abstammen, daher sollte es mit allen von TB2000 abgeleiteten Klassen funktionieren (wie TBX, SpTBX).

Mit der großen Bitte um Kommentare und Anregungen.

[alcaeus]

Hallo Flocke,

sieht schon mal gut aus. Ich werd das Ding heute nachmittag mal durchtesten und eventuell verbessern, falls dies noetig ist.

Greetz
alcaeus

[Flocke]

Probier's mal aus.

Ich habe mit einer Beispielanwendung angefangen, hab' aber im Moment keine Zeit mehr. Außerdem sind mir gestern noch einige Verbesserung eingefallen, die das Ganze noch etwas komfortabler und sicherer machen.

Ein Problem ist z.B., dass ich mich zwar per Notification(..., opRemove) darüber informiert lassen kann, dass ein TToolBar gelöscht wird, aber zum unmergen ist es dann schon zu spät, weil sich ja die herausgenommenen Items aus dem Haupt-Toolbar jetzt in der Komponente befinden, die gelöscht wird (und auch bereits zum Löschen markiert sind). Ich werde also wohl noch mit einer dritten Komponente arbeiten, nämlich einfach einem TTBItemContainer zur Aufnahme der ausgeblendeten Elemente.

Außerdem werde ich wohl, nach dem Vorbild von TB2MDI, noch eine automatisches Mergen/Unmergen bei Aktivierung/Deaktivierung von Fenstern einbauen.

Danach wäre das Ganze dann eine "Fire and Forget"-Lösung, so dass man dem Merger nur noch in FormCreate des MDI-Kindfensters einmal mitteilen muss, welche Toolbars wie gemerged werden sollen und der Rest läuft dann automatisch.

Mal schau'n ob ich das in der nächsten Woche alles schaffe...

[Flocke]

So, hab' jetzt mal ein Beispiel gemacht (siehe Anhang).
Ist auch eine etwas verbesserte Version von TB2Merge.pas mit drin.

[Flocke]

Scheint ja nicht wirklich jemanden zu interessieren

... aber trotzdem: hier eine aktuelle Version, in der ich noch einige Dinge korrigiert habe.

Für eigene Anwendungen braucht man nur die Datei "TB2Merge.pas", der Rest ist eine Demo-Anwendung.

Die Demo zeigt recht schön, was man mit dem Flag moRecursive so alles anstellen kann.

Wenn man die Demo startet hat man zunächst nur das MDI Hauptfenster. Der Menüpunkt "Datei / Neu" erzeugt abwechselnd rote und blaue MDI Kindfenster, die (im Quelltext) jeweils unterschiedliche Methoden zum Mergen demonstrieren. An der Farbe der Menüpunkte erkennt man, welcher Eintrag zu welchem Fenster gehört.

Natürlich kann man beliebig viele Toolbars mergen, also z.B. das Menü und "wirkliche" Toolbars, allerdings nur jeweils paarweise.

Wenn's einer von euch ausprobiert, wär ein Kommentar echt mal nicht schlecht

[alcaeus]

Da sieht man mal wie vergesslich ich bin
Wenn mein Programm heute noch so funktioniert wie ichs gern haette (), dann guck ich mir die Sachen heute Nachmittag mal an (und diesmal sicher).

Greetz
alcaeus

[fylo]

Hi Flocke,

hab es gerade mal ausprobiert und bei mir funktioniert es super. Werd die Unit vielleicht mal bei meinen nächsten Projekten einsetzen. Vielen Dank für deine Arbeit.