Popupmenu in Listbox!! Repaint beim schließen!

[Sillium]

Hallo,

ich habe eine ListBox mit mehreren einträgen, der ich mit der Drawitem-Procedure Icons vor jeden eintrag zeichne.

Das klappt so weit sehr gut.
Jetzt habe ich allerdings für das ereignis rechte-mause-down über einem Eintrag ein popupmenu hinzugefügt.

Code:

procedure TForm3.tlbGamesMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

var
  cursorpos : TPoint;
  ndx : integer;
begin
  if Button=mbRight then
  begin
    cursorpos.X := X;
    cursorpos.Y := y;
    ndx := tlbGames.ItemAtPos(cursorpos,true);  // Item unter dem Cursor
    if (ndx <> -1) then
    begin
      with (Sender As TListBox) do
      begin
        Selected[ndx] := True;
        cursorpos :=  ClientToScreen(cursorpos);  // Positionsanpassung
        PopMenu1.Popup(cursorpos.x + Left,cursorpos.Y + Top);
      end;
    end;
  end;
end;

Klappt auch noch alles wunderbar.
Doch wenn ich jetzt rechts auf einen eintrag in meiner box klicke und dann neben das popupmenu, so dass sich diese wieder schließt, sind meine Einträge in der Listbox über denen das popup gezeichnet war weg. Erst durch anklicken mit der linken Maustaste werden sie wieder sichtbar(neu gezeichnet)
Wenn ich jetzt abfragen könnte wann das popupmenu geschlossen wird könnte ich mit

Code:

tlbGames.repaint   //<----ListBox neu zeichnen!!

die Listbox neu zeichnen lassen.
Aber wie mach ich das???

Oder weiß jemand ne andere Lösung??
Hab die verschiedenen Threads zum Thema Popupmenu onclose, usw. schon gelesen. Bloß werd ich daraus nicht schlau!!

Danke

[marabu]

Hallo Sillium,

warum weist du dein Kontextmenü nicht direkt der Eigenschaft TListBox.PopupMenu zu?
Bei mir wird nach dem Schließen des Kontextmenüs die Listbox im OnDrawItem korrekt und selbständig neu gezeichnet.

Grüße vom marabu

[Sillium]

Muß ich mal ausprobieren.

Danke soweit!!

Meld mich bei weiteren Fragen!!

[Sillium]

So ich hab jetzt selbst eine Lösung gefunden!!
Und zwar habe ich mein OnMouseDown Ereigniss (siehe alter Code oben) nur eine bischen abgeändert.

Delphi-Quellcode:

procedure TForm3.tlbGamesMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  cursorpos : TPoint;
  ndx : integer;
begin
  if Button=mbRight then
  begin
    cursorpos.X := X;
    cursorpos.Y := y;
    ndx := tlbGames.ItemAtPos(cursorpos,true);  // Item unter dem Cursor
    if (ndx <> -1) then
    begin
      with (Sender As TListBox) do
      begin
        Selected[ndx] := True;
        cursorpos :=  ClientToScreen(cursorpos);  // Positionsanpassung
        PopMenu1.Popup(cursorpos.x + Left,cursorpos.Y + Top);
      end;
    end;
    tlbGames.Repaint ; //<------Das hier ist neu und zeichnet meine Listbox beim
  end;                 //schließen meines Popupmenus!
end;

Wäre trotzdem an einer Lösung interessiert, die mir das Popupmenu.onClose Ereignis mitteilt!

[marabu]

Hast du diesen Beitrag schon gelesen?

marabu

[Sharky]

Hai ihr,

Zitat von marabu:

..warum weist du dein Kontextmenü nicht direkt der Eigenschaft TListBox.PopupMenu zu? ..

da ich den Code ganz oben als meinen erkenne glaube ich das der Grund war ein Item mit der rechten Maustaste selektieren zu können und gleichzeitig ein PopupMenü zu öffnen.

Jetzt habe ich aber gerad bemerkt das dies auch kürzer geht: (im .OnContextPopup Ereignis)

Delphi-Quellcode:

procedure TForm1.ListBox1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: boolean);
var
  aktItemIndex: integer;
begin
  with (Sender as TListBox) do
  begin
    aktItemIndex := ItemAtPos(MousePos, True);
    if (aktItemIndex = -1) then
    begin
      Handled := True;
    end
    else
    begin
      ItemIndex := aktItemIndex;
      Handled := False;
    end;
  end;
end;

Dabei ist das PopupMenu ganz normal mit der TListBox verknüpft.

@Sillium:
Was ich nicht verstehe ist warum deine ListBox nicht neu gezeichnet wird. Bei mir funktioniert das (egal mit welchem Code ich das Popup öffne) ohne Probleme.

[Sillium]

Danke!

Weis ich auch nicht! Vielleicht, weil ich ne andere popupkomponete als das standart popup benutze!

Hier is meine DrawItem prozedur:

Delphi-Quellcode:

procedure TForm3.tlbSettingsDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
 Icon2: Ticon;
 Icon3: Ticon;
 TopDif: Integer; // Gleicht die Höhendifferenz aus
begin
  Icon2:= Ticon.Create ;
  Icon2.Transparent := True;
  Icon3:= Ticon.Create ;
  Icon3.Transparent := True;
  checkIcon(Icon2, icon3,Control, Index);
 with (Control as TListbox) do
 begin
   if odSelected in State then //Prüft, ob ein Item markiert ist
   begin
     Canvas.Brush.Color := RGB(196,188,80); //Canvas-Hintergrundfarbe  setzen
   Canvas.FillRect(Rect); // Hintergrund malen
   Canvas.TextOut(Rect.Left + 6, Rect.Top + 6, Items[Index]); // Text ausgeben
   end;
   Canvas.Font.Color:=clWhite;
    TopDif := (ItemHeight div 2) - (Canvas.TextHeight(#32) div 2);
    Canvas.TextRect(Rect, Rect.Left + Icon2.Width + 8, Rect.Top + TopDif, Items[Index]);
    Canvas.FrameRect(Rect);
    Canvas.Draw(Rect.Left, Rect.Top, Icon2);
  end;
 end;

[Sharky]

Delphi-Quellcode:

.
   if odSelected in State then //Prüft, ob ein Item markiert ist
   begin
     Canvas.Brush.Color := RGB(196,188,80); //Canvas-Hintergrundfarbe  setzen
   Canvas.FillRect(Rect); // Hintergrund malen
   Canvas.TextOut(Rect.Left + 6, Rect.Top + 6, Items[Index]); // Text ausgeben
   end;

Du gibst den Text nur aus wenn das Item den Focus hat? Ist das absicht?

Hänge doch mal ein Bild an wie das ganze aussehen soll.

[Sillium]

 Canvas.TextRect(Rect, Rect.Left + Icon2.Width + 8, Rect.Top + TopDif, Items[Index]); Ich hab gedacht das Zeichnet mir den Text in mein Rect.......

Wenn ich aber
 Canvas.TextOut(Rect.Left + Icon2.Width + 8, Rect.Top + TopDif, Items[Index]); das hier benutze, funktioniert es.

Danke!

Is echt hgeil wie schnell hier geholfen wird!!

[Sillium]

Mist!!

Zu schnell geantwortet! Damit hab ich das gleiche Problem!