Problem mit TrayIcon-Such-Funktion

[Helmi]

Hallo Jungs,

ich hab eine selbst gebastelte TrayIcon-Komponente, die einen eigen-gebauten
BalloonTip anzeigen kann (nichts anderes als eine Form).

Damit ich diesen BalloonTip (mit einem Pfeil dran) direkt an dem TrayIcon
anzeigen kann, brauch ich die Koordinaten des TrayIcons.

Dazu hab ich im I-Net folgende function gefunden (bzw. mir damals zuschicken
lassen):

Delphi-Quellcode:

function TTrayIcon.FindTrayIcon(IcoDat: TNotifyIconData): TPoint;
const
  SearchColor = clBlack;

var
  ToolWnd   : HWND;
  r         : TRect;
  myhDC     : HDC;
  Cv        : TCanvas;
  BlackIcon : TIcon;
  TmpIcon   : TIcon;
  Bmp       : TBitmap;
  ImageList : TImageList;
  col1, col2, col3, col4, col5, col6, col7, col8, col9: TColor;
  i, j, a, b, x, y: Integer;
  found     : Boolean;
  p         : TPoint;

begin
  //leeren
  r.Top     := 0;
  r.Right   := 0;
  r.Bottom  := 0;
  r.Left    := 0;

  Shell_NotifyIcon(NIM_MODIFY, @IcoDat);

  ToolWnd := FindWindowEx(FindWindow('Shell_TrayWnd', nil), HWND(0), 'TrayNotifyWnd', nil);
  GetWindowRect(ToolWnd, r);

  try
    try
      TmpIcon                 := TIcon.Create;
      TmpIcon.Handle          := IcoDat.hIcon;

      BlackIcon               := TIcon.Create;
      Bmp                     := TBitmap.Create;

      with Bmp do
        begin
          Height              := TmpIcon.Height;
          Width               := TmpIcon.Height;
          Canvas.brush.color  := SearchColor;
          Canvas.FillRect(Rect(0, 0, TmpIcon.Height, TmpIcon.Height));
        end;

      ImageList               := TImageList.CreateSize(TmpIcon.Height, TmpIcon.Height);

        with ImageList do
          begin
            AddMasked(Bmp, clWhite);
            GetIcon(0, BlackIcon);
          end;

      IcoDat.hIcon            := BlackIcon.Handle;

      Shell_NotifyIcon(NIM_MODIFY, @IcoDat);
    finally
      FreeAndNil(Bmp);
      FreeAndNil(BlackIcon);
    end;

    try
      Bmp         := TBitmap.Create;

      with Bmp do
        begin
          Height  := r.Bottom-r.Top;
          Width   := r.Right-r.Left;
        end;

      myhDC       := GetWindowDC(ToolWnd);
      Cv          := TCanvas.Create;
      Cv.Handle   := myhDC;

      try
        Bmp.Canvas.CopyMode := cmSrcCopy;
        Bmp.Canvas.CopyRect(Rect(0, 0, r.Right-r.Left, r.Bottom-r.Top), Cv, Rect(0, 0, r.Right-r.Left, r.Bottom-r.Top));
      finally
        FreeAndNil(Cv);
        ReleaseDC(ToolWnd, myhDC);
      end;

      IcoDat.hIcon := TmpIcon.Handle;

      Shell_NotifyIcon(NIM_MODIFY, @IcoDat);

      a     := Bmp.Height - 16;
      b     := Bmp.Width - 16;
      x     := 0;
      y     := 0;
      found := false;

      for j := 0 to a do
        for i := 0 to b do
          begin
            col1 := Bmp.Canvas.Pixels[i, j];
            col2 := SearchColor; //Bmp.Canvas.Pixels[i + 15, j];
            col3 := Bmp.Canvas.Pixels[i + 13, j + 2];
            col4 := Bmp.Canvas.Pixels[i + 6, j + 4];
            col5 := Bmp.Canvas.Pixels[i + 8, j + 7];
            col6 := Bmp.Canvas.Pixels[i + 12, j + 9];
            col7 := Bmp.Canvas.Pixels[i + 15, j + 12];
            col8 := Bmp.Canvas.Pixels[i, j + 15];
            col9 := Bmp.Canvas.Pixels[i + 15, j + 15];
            if ((col1 = SearchColor) and (col2 = SearchColor) and (col3 = SearchColor) and
                (col4 = SearchColor) and (col5 = SearchColor) and (col6 = SearchColor) and
                (col7 = SearchColor) and (col8 = SearchColor) and (col9 = SearchColor)) then
              begin
                x := i + r.Left;
                y := j + r.Top;
                found := true;

                if (found) then
                  break;
              end;

            if (found) then
              break;
          end;

      if x <= 0 then
        x := r.Left;

      if y <= 0 then
        y := r.Top;

      p.x := x;
      p.y := y;

      Result := p;
    finally
      FreeAndNil(Bmp);
    end;
  finally
    //
  end;
end;

Wenn ich die richtig versteh, so erstellt sie ein Rechteck-Icon mit der Farbe schwarz (clBlack)
und dannach werden ein paar Punkte gesucht und wenn die übereinstimmen, dann muss sich an
diesen Koordinaten das Icon befinden.

Unter XP hatte ich keine Probleme mit dieser Function.
Aber Unter Vista Ultimate funktioniert diese nicht mehr.

die Variablen x und y bleiben 0. Das heisst die Prüfung

Delphi-Quellcode:

if ((col1 = SearchColor) and (col2 = SearchColor) and (col3 = SearchColor) and
                (col4 = SearchColor) and (col5 = SearchColor) and (col6 = SearchColor) and
                (col7 = SearchColor) and (col8 = SearchColor) and (col9 = SearchColor)) then

bleibt false.

Ich blick nicht wirklich durch, wieso diese Prüfung jetzt nicht mehr funktioniert.

Ich hab den Verdacht, dass die Farbprüfung von anderen Icons "abgelenkt" wird.

Weiss jemand wie ich die Funktion unter Vista zum Laufen bringen kann oder
(was noch besser wär) vielleicht ne einfachere Form, die Position des Icons
zu finden.

[Larsi]

kannste nicht einfach sagen i = deinehotkexkomponente.position oder so

[Helmi]

dazu müsste trayicon die möglichkeit kennen eine Position als property auszugeben
aber das tut sie nicht
deswegen ja auch mein code

[Larsi]

@Helmi: du hast doch in der zweiten zeile oder so geschrieben, dass deine komponente nichts anderes als ne normale form ist und da kannste doch die position auslesen, oder?
ich verstehs nicht
!

[Helmi]

du hast es falsch verstanden

ich zeig ein TrayIcon an.
Nun möcht ich, so wie es der Windows-BalloonTip macht, auf der Höhe
des TrayIcons eine Form anzeigen lassen.
Um die genau an der Position des TrayIcons anzeigen zu lassen
benötige ich die Koordinaten des TrayIcons.

Damit wird die Position der Form berechnet, damit der Pfeil
der an der Form dranhängt genau auf das TrayIcon schaut

[Larsi]

also die position der taskbar position kannste ja so herausfinden:

Delphi-Quellcode:

Handle := FindWindow('Shell_TrayWnd', nil);
GetWindowRect(Handle, TaskBarRect);

ich hab jez kein delphi da, aber wenn du dann davon die position hast kannste ja da schoma n form "hinsetzen". hat das n ganz ganz ganz kleines bisschen geholfen?

[Helmi]

sorry

du verstehst nicht was ich mein.

Der Code oben bestimmt die Position des TrayIcons (meines Icons, das ich selbst erzeugt habe).

Nur unter Vista gibts damit Probleme.

Das raufinden der Taskbar-Position ist ja nicht das problematische - sondern ich will die Position meines Icons!!!!!

[Larsi]

ok dann kann ich dir nicht helfen, aber morgen probiers ich mal bei mir in vista aus ob es bei mir auch nicht geht.