Graphischer Hint mit eigenen Bitmap

[Helmi]

soooo,

ich hab selbst ne Lösung gefunden

ich hab einfach eine function geschrieben, die mir aus der ShellListView das Bitmap ausliest:

Delphi-Quellcode:

function ShellListView_Bitmap(Bitmap_Datei: TFileName): TBitmap;
var
  i: Integer;

begin
  Result := TBitmap.Create;


  try
    with SymboleForm.ShellListView_Tastenbilder do
      begin
        for i := 0 to Pred(Items.Count) do
          If Folders[i].DisplayName = Bitmap_Datei then
            begin
              Result.LoadFromFile(Folders[i].PathName);

              break;
            end;
      end;
  finally
//    FreeAndNil(Result);
  end;
end;

und wird so aufgerufen:

Delphi-Quellcode:

procedure TGraphicHintWindow.Paint;
var
  Rec         : TRect;
  Bitmap      : TBitmap;
  Diff_Height : Integer;

begin
  //ClientRect auf Rec schreiben
  Rec     := ClientRect;

  //
  Inc(Rec.Left, 2);
  Inc(Rec.Top, 2);

  Bitmap  := TBitmap.Create;

  try
    Bitmap.Assign(ShellListView_Bitmap(Caption)); //<-- hier

    with Canvas do
      begin
        Brush.Style := bsSolid;

so erhalt ich das bitmap.