ToolsAPI

[Bomberbb]

Zur Frage einmal den Hintergrund evtl. gibt es ja noch eine andere Lösung.

Ich nutze (Delphi 5) öfters 'Alle Projekte erstellen'. Da das bei mir eine ganze Zeit dauert nutze ich die Gelegenheit, eMail abzurufen. Nun kommt aber nach jedem kompiliertem Projekt Delphis Fenster mit dem Kompilerfortschritt in den Vordergrund. schaltet man das Fenster weg, weis man nicht, wann Delphi mit dem Kompilieren fertig ist.
Mich hat das jetzt so angenervt, dass ich was über ToolsAPI machen möchte. Meine erste Idee war, den Kompilerstatus in die Taskleiste zu setzen. Bin dann aber aufgrund der Fehlenden ToolsAPI-Kenntnisse gescheitert. Nun gebe ich nach dem Komplieren eine Meldung über

Delphi-Quellcode:

(BorlandIDEServices As IOTAMessageServices).AddToolMessage
      ('',uppercase(extractfilename(AusgabeDatei))+ ' erfolgreich kompiliert'
      , 'Meldung', 0, 0);

aus. Schön und gut, nun gibt es allerdings das Problem, dass das Fenster mit den Meldungen leiser nur kommt, wenn es Delphiseitig eine Meldung gibt, oder wenn Suchergebnisse drinstehen. Also komme ich so auch nicht weiter.

Hat jemand eine Idee?

[shmia]

Zitat von Bomberbb:

Zur Frage einmal den Hintergrund evtl. gibt es ja noch eine andere Lösung.

Klar gibt's ne andere Lösung; könnte nur sein ,dass sie deinem Geldbeutel nicht gefällt.
Dein Monitor ist zu klein!
Wenn du ernsthaft und professionell programmieren willst, brauchst du einen grossen Monitor (~26")
oder zwei mittelgrosse Monitore (20-22").
http://www.joelonsoftware.com/pictures/ggth10.jpg

[RWarnecke]

Als andere Lösung wäre vielleicht möglich einen Balloon-Tip anzeigen zu lassen.

Edit:
Ich habe ebengerade noch dieses Beispiel im Internet gefunden:

Delphi-Quellcode:

procedure TSDCSimpleExpert.ShowMessageWindow(b : boolean);
 var
  I: Integer;
 begin
  for I := 0 to Screen.FormCount - 1 do
   if Screen.Forms[I].ClassNameIs('TMessageViewForm') then
    begin
     if b then begin
       Screen.Forms[I].Show;
       Break;
       end else
        begin
       Screen.Forms[I].Hide;
       Break;
      end;
    end;
end;

procedure TSDCSimpleExpert.Execute;
begin
  (BorlandIDEServices as IOTAMessageServices).AddToolMessage('','hello', 'execute method', 0, 0);
  ShowMessageWindow(true);
end;

[Bomberbb]

Danke,

das Beispiel hat weitergeholfen!!!

[Bomberbb]

Noch eine Frage zur Toolapi. Wahrscheinlich auch etwas spezieller...
Ich benutze folgende Klasse (Delphi 5):

Delphi-Quellcode:

 TCompilerNotifier = Class(TNotifierObject, IOTAIDENotifier)
  Private
    AusgabeDatei: String;
  Public
    // IOTAIDENotifier
    Procedure FileNotification(NotifyCode: TOTAFileNotification; Const FileName: String; Var Cancel: Boolean); Virtual;
    Procedure BeforeCompile(Const Project: IOTAProject; Var Cancel: Boolean); Overload; Virtual;
    Procedure AfterCompile(Succeeded: Boolean); Overload; Virtual;

    // IOTAIDENotifier50
    Procedure BeforeCompile(Const Project: IOTAProject; IsCodeInsight: Boolean; Var Cancel: Boolean); Overload;
      Virtual;
    Procedure AfterCompile(Succeeded: Boolean; IsCodeInsight: Boolean); Overload; Virtual;
  End;

Nun wird BeforeCompile und AfterCompile auch zwischendurch ausgeführt. Ich möchte das aber nur ausführen, wenn ich selbst das Kompilieren gestartet haben.

Geht das?

[jbg]

Du must IsCodeInsight abfragen und nur bei False reagieren.

[rwachtel]

Zitat von shmia:

[...] Wenn du ernsthaft und professionell programmieren willst, brauchst du einen grossen Monitor (~26")
oder zwei mittelgrosse Monitore (20-22"). [...]

So ein Blödsinn. Glaubst Du wirklich, die Anzahl der Monitore ist ein Grad für Professionalität in der Softwareentwicklung?

Ich habe dutzende höchstens durchschnittlich begabte Programmierer mit zwei und mehr Monitoren gesehen und mindestens genauso viele Top-Entwickler, deren hauptsächliches Arbeitswerkzeug ein Notebook mit 1.440x900 Auflösung war.

http://ralfw.blogspot.com/2008/12/cl...g-zu-mehr.html

[Bomberbb]

Da hab ich ein Problem: Bei mir wird nur
  BeforeCompile(Const Project: IOTAProject; Var Cancel: Boolean) ausgeführt.
Durch
  BeforeCompile(Const Project: IOTAProject; IsCodeInsight: Boolean; Var Cancel: Boolean) scheint er nicht durchzugehen.

[worker]

[OT]

Zitat von shmia:

Wenn du ernsthaft und professionell programmieren willst, brauchst du einen grossen Monitor (~26")
oder zwei mittelgrosse Monitore (20-22").

Das ist ernsthaft Schwachsinn.
[/OT]

Edit: ah, gerade den Beitrag von rwachtel gelesen.