AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Graphischer Hint mit eigenen Bitmap

Ein Thema von Helmi · begonnen am 10. Mai 2008 · letzter Beitrag vom 19. Sep 2008
 
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.344 Beiträge
 
Delphi XE2 Professional
 
#1

Graphischer Hint mit eigenen Bitmap

  Alt 10. Mai 2008, 11:25
Hallo,

bei diesem Schweizer link wird gezeigt, wie man einen graphischen Hint mit Bitmap drin erzeugen kann.

Das funktioniert auch - nur würd ich jetzt gerne dem Hint ein Bitmap mitgeben.
Nicht so wie in dem Beispiel, dass ein festes Bitmap geladen wird.

Mit diesem Code:
Delphi-Quellcode:
procedure TSymboleForm.ShellListView_TastenbilderMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  ListItem: TListItem;
  Zeile : Integer;
  Hint_alt: String;
  Hint_neu: String;

begin
  //Variablen vordefinieren
  Hint_alt := '';
  Hint_neu := '';
  Zeile := -1;

  with ShellListView_Tastenbilder do
    begin
      ListItem := GetItemAt(X, Y);

      //alter Hint-Text auf Variable schreiben
      Hint_alt := Hint;

      If Assigned(ListItem) then
        begin
          //aktuelle Zeile auslesen
          Zeile := ListItem.Index;

          //neuen Hint auslesen
          Hint_neu := Folders[Zeile].DisplayName;
        end;

      //neue Zeile angewählt? - dann Hint_alt leeren
      If Zeile <> Tag then
        begin
          Hint_alt := '';
          Tag := Zeile;
        end;

      //Hint-Text neu?
      If Hint_neu <> Hint_alt then
        begin
          //Hinttext anzeigen
          Hint := Hint_neu;

          //Hint anzeigen
          Application.CancelHint;
        end;
    end;
end;
les ich mir in MouseMove das aktuelle Item der ShellListView aus, beschreib den Hint mit dem Dateinamen und zeig dann den Hint an.

Nun würd ich aber dabei auch gerne das Icon des ShellListView-Items in dem Hint mit anzeigen.

Nur wie mach ich das?
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz