Popupmenu in Listbox!! Repaint beim schließen!

[Sharky]

Kannst Du dein Projekt mal anhängen? Oder ist das zu komplex?

[Sillium]

Zu komplex!

Aber du kennst ja meine Draw-Item Prozedur und meine PopUp-Prozedur.
Die andere kürzere Version von Dir habe ich noch nicht ausprobiert!

[Sharky]

Zitat:

Zitat von Sillium

...Aber du kennst ja meine Draw-Item Prozedur und meine PopUp-Prozedur.

Mir fehlt nur die Methode um die Icons auszuwählen.
Ausserdem wäre es schön mal einen Scrennshot zu sehen wie es deiner Meinung nach aussehen sollte ;-)

Dann bekommen wir das sicher in den Griff.

[Sillium]

Also ich schreibe mir ein Programm in der Art von Steam, von dem aus ich Alle meine spiele starten kann, server suchen und starten und diverse Einstellungen machen kann.

Bis jetzt sucht dass Programm nur nach meinen installierten Valve Spiele. (siehe Screenshot)

Hier ist noch die Prozedur, die mir meine Icons auswählt!

Delphi-Quellcode:

{*****************************************************************************
 Funktion, die meinem Listeneinträgen die richtigen Icons zuordnet
 ******************************************************************************}

procedure TForm3.checkIcon(var Icon:TIcon; var Icon1:TIcon; Control: TWinControl; Index: Integer);

begin
  Icon:= Ticon.Create ;
  with (Control as TListbox) do
 begin
 If Items[Index] = 'Half-Life' then begin
   Icon.Handle := ExtractIcon(Hinstance, 'EightIc.dll', 8);
   Icon1.Handle := ExtractIcon(Hinstance, 'EightIc.dll', 34);
   end;
 If Items[Index] = 'Counter-Strike 1.6' then  begin
   Icon.Handle := ExtractIcon(Hinstance, 'EightIc.dll', 2);
   Icon1.Handle := ExtractIcon(Hinstance, 'EightIc.dll', 27);
   end;
 end;

In meine Settings kommt dann eine Auswahl, welche Icons benutzt werden sollen. deswegen hier die zwei Icons.

Und die Prozedur habe ich geschrieben, weil ich in allen Vier Listen (Games, Settings,.....) die Icons brauch!!

Und jetzt ist es eben so, dass manchmal, wenn sich mein Popupmenu schließt, die hälfte des Intrages in der Liste weg ist. oder nur das Icon weg ist.

Wenn ich wie oben, das Repaint mit in mein Mousedown ereignis einbinde ist das zwar nicht mehr der fall, aber jedesmal, wenn ich einen Eintrag anklicke "blitzt" die liste kurz.

[Sharky]

Hai Sillium,

was ist das denn für eine Komponente die Du da verwendest? (Die mit diesem "Outlook-Style").
Hast Du den Code denn schon einmal mit einer ListBox auf einer "normalen" TForm versucht?

Nicht das wir uns den Wolf suchen und der Fehler durch diese dritt Kompo verursacht wird ;-)

[Sillium]

Hi,

ich benutze eine Komponente, die TransparentListBox heißt.

Das Panel im Outlookstyle ist von Jedi!!

Ich häng dir mal die TransparentListBox an. Wäre net, wenn du mal schauen könntest, ob du da was findest!