Projektpfad in der IDE-Titelzeile anzeigen?

[KodeZwerg]

Alsowenn man das Package installiert hat passieren zwei Sachen in der Delphi 2009 IDE, zum einen ist die Caption die der zuletzt geööffneten Datei und in der Messages Area wird es auch nochmal reingeschrieben.
Hier die Messages wenn ich das Projekt ShowPath öffne: Screenshot - 28_06.jpg

Ich brauch für OpenTools Api noch mehr Erfahrung um einen Hook zu realisieren, ich weiß nicht wie ich das anstellen soll.

Falls bei Euch die Messages nicht erscheinen, bitte unter Initialization das hier einfügen:  With (BorlandIDEServices As IOTAMessageServices) Do ShowMessageView(nil);

[Uwe Raabe]

Zitat von KodeZwerg:

Alsowenn man das Package installiert hat passieren zwei Sachen in der Delphi 2009 IDE, zum einen ist die Caption die der zuletzt geööffneten Datei und in der Messages Area wird es auch nochmal reingeschrieben.

Die Messages kommen schon, allerdings beinhaltet die Titelzeile immer noch die Kombination aus Projektname - Delphi Version - Aktuelle Datei. Es mag sein, daß zwischenzeitlich etwas anderes dort angezeigt wird, aber das ist offenbar nicht von Dauer.

Unabhängig davon wird aber auch ohne so ein Plugin der vollständige Pfad des Projekts in der Fußzeile der Projektverwaltung angezeigt, wenn das Projekt in der Struktur selektiert ist. Das gilt natürlich auch für die anderen Dateien des Projekts.

Alternativ würde ich auch eher eine separate Toolbar empfehlen, in der diese Information dann angezeigt wird. Das ist zukunftssicherer, als irgendein Hack in die IDE, der bei der nächsten Version dann womöglich nicht mehr funktioniert oder sogar was kaputt macht.

[KodeZwerg]

Es ist jeder Eingeladen daran mitzuwirken, mir fehlt mit OTA leider die Erfahrung um all das was Du schreibst umzusetzen, ich habe alles mir Mögliche getan um es umzusetzen, dem Wunsch des TEs entsprechend die Caption und für mich zum debug die Messages.

Wenn jemand einen Hook realisieren kann, ich wäre auch daran Interessiert! (oder eine andere Variante, Hauptsache die Caption bleibt)

Danke fürs Lesen und tut mir leid für nicht 100% funktionstüchtig. Da wird Tokyo wohl die Caption schneller refreshen als es D2009 macht.

[KodeZwerg]

Hier ein mini Update, es werden alle von D2009 unterstützten Ereignisse in der Messages-Area protokolliert mit jeweils einem "@ Ereignis" und eine "NewTitle" Variable ist hinzugekommen, falls es wer mit nem Hook hinbekommt, da ist der Inhalt der in die Caption gehört enthalten.

Viel Erfolg dabei!

Ps: So sehen nun die Messages aus wenn man ShowPath eingebunden hat: Screenshot - 28_06 002.jpg

[KodeZwerg]

Ich habe mal einen SetTimer() eingebaut, darauf reagiert die IDE allergisch und forciert sofort ein Caption-Refresh, also diese Möglichkeit scheidet damit aus.

Delphi-Quellcode:

procedure TimerProc(Wnd: HWnd; Msg, TimerID, dwTime: DWORD); stdcall;
begin
   if NewTitle <> '' then Application.MainForm.Caption := NewTitle;
end;
....
initialization
 NewTitle := 'Test 123';
 hTimer := SetTimer(0,0,250,@TimerProc);
finalization
  KillTimer(0, hTimer);

[Uwe Raabe]

Zitat von KodeZwerg:

Ich habe mal einen SetTimer() eingebaut, darauf reagiert die IDE allergisch und forciert sofort ein Caption-Refresh, also diese Möglichkeit scheidet damit aus.

Wie schon gesagt: Die Titelzeile scheidet als Ziel dieser Anzeige zumindest für mich aus, da dort noch genügend andere Informationen untergebracht sind (zumindest wohl seit Delphi 6), die das Plugin auch noch nachbilden müsste.

Falls es hilft: Fährt man mit der Maus über einen Editor-Tab wird auch der komplette Pfad angezeigt.

[KodeZwerg]

Ich mache es ja nur aus Akademischer Sicht weil mich das Thema OTA interessiert (Neuland) und um dem TE zu helfen.

Ich habe ja eine Lösung vor Augen aber ich weiß nicht wie ich das umsetze im OTA-konformen Stil.
Eine simple Msg Hook einrichten die auf WM_SETTEXT für die Caption reagiert.
Aber wie bekomme ich eine WndProc da reingecodet ohne eine Msg-Schleife zu haben, da bin ich völlig ratlos.
Vielleicht gehe ich da ja auch völlig falsch ran und es existiert eine OTA-Lösung, in den Hilfe-Dateien die ich zu OTA habe steht leider nichts was mir in diesen Punkt weiterhilft.

Wie die Titelzeile letzendlich auszusehen hat kann ja jeder sich selbst zusammenmixen, nur den String abändern wie auch immer der dann lauten soll oder erst gar nicht installieren

Ps: Worauf ich hier noch gar nicht reagiert habe und es auch nochmal untermauern will, alle Möglichkeiten die Uwe genannt hatte sind Vorhanden und sollten auch dementsprechend genutzt werden.
Mit dem Plugin da oben und den Messages (die man auch auf die Projekt-Datei beschränken könnte) hätte man zumindest immer einen Pfad+Namen sichtbar um Schnell zwischen O:\Project\12345\Test1.dproj und D:\Project\12345\Test1.dproj unterscheiden zu können, es sei denn Uwe haut jetzt noch den Knaller raus und verrät eine Option die das gleiche bewirkt (auch für D2009 zum Nachvollziehen) dann hätte sich das ganze für mich mehr als Erledigt auch wenn Caption Caption bleibt ^_^

[PeterPanino]

Zitat von KodeZwerg:

Ich habe mal einen SetTimer() eingebaut, darauf reagiert die IDE allergisch und forciert sofort ein Caption-Refresh, also diese Möglichkeit scheidet damit aus.

Wie wäre es, wenn man eine Message an sich selbst sendet und dann im Message-Handler die Caption setzt?
TApplication.HookMainWindow?

[KodeZwerg]

Hier ein mini Update für Messages, nun haben die Ihren Eigenen Reiter (Tab).
Jetzt werden keine Messages mehr durcheinander gewürfelt, und falls Messages nicht sichtbar sind schaltet die das Plugin an.
Vorschau:Screenshot - 30_06.jpg

[PeterPanino]

Zitat von KodeZwerg:

Hier ein mini Update

Danke! Wenn ich (in 10.2.3) ein Projekt lade, wird für kurze Zeit der Pfad dieses Projektes angezeigt, aber dann gleich von der Default-Caption überschrieben. Wenn man die Default-Caption in einer Variable speichern könnte, dann müsste man nur den Pfad dieser Variable HINZUFÜGEN (anstatt die Default-Caption zu ersetzen). Von irgendwo muss die IDE ja die Default-Caption holen. Wenn man also diese Default-Caption ersetzen könnte ...