Popup menü items sortieren?

[Cylence]

Hi,

ich habe ein Programm, das in deutsch und englisch verfügbar ist. in dem programm sind einige popupmenüs von denen ich eben die caption if englisch einfach umbenenne und gut, aber dann stimmt ja die sortierung absolut nichtm ehr (alphabetisch) gibt es eine funktion oder so mit der man popupmenüs einfach schnell sortieren kann alphabetisch?

Thanx

tom

[toms]

Hallo, mir ist keine Funktion bekannt. Musst es wohl von Hand sortieren,
indem du den MenuIndex der Items veränderst.

[Cylence]

oooch neeeee jetzt das is ja üüüübel :-(

[DeddyH]

Außerdem finde ich persönlich es nicht sonderlich benutzerfreundlich, wenn sich Positionen von MenuItems zur Laufzeit ändern.

[toms]

Zitat:

Zitat von DeddyH

Außerdem finde ich persönlich es nicht sonderlich benutzerfreundlich, wenn sich Positionen von MenuItems zur Laufzeit ändern.

Je nach dem ist es aber wünschenswert.

Die Favoriten im IE z.B lassen sich ja auch vom Benutzer sortieren.

[DeddyH]

Na gut, bei zur Laufzeit generierten Items kann man das noch einsehen.

[edit] Schlechtschreibung [/edit]

[RavenIV]

Also ich fände es äusserst uncool, wenn sich in einem Popup-Menu der Eintrag für "kopieren" von Stelle 5 plötzlich an Stelle 2 findet, nur weil er jetzt "copy" heisst.
Der Anwender gewöhnt sich daran, dass er auf den Eintrag an 5.Stelle klicken muss.

Ebenso ist es beim Support.
"Klicken sie auf den Eintrag an Stelle 5" würde dann nicht mehr passen.

[toms]

Zitat:

Zitat von RavenIV

Also ich fände es äusserst uncool, wenn sich in einem Popup-Menu der Eintrag für "kopieren" von Stelle 5 plötzlich an Stelle 2 findet, nur weil er jetzt "copy" heisst.
Der Anwender gewöhnt sich daran, dass er auf den Eintrag an 5.Stelle klicken muss.

Normalerweise wählt man ja auch eine GUI Sprache und arbeitet mit dieser.
Zudem kommt es doch drauf an, um was für Items es sich handelt.
Wenn es sich z.B um eine Liste von Früchten, Bundesländer etc. handelt,
wäre es doch von Vorteil, wenn die Items sortiert sind?

[Cylence]

also einmal so support zu machen is ja nich grad das wahre man sollte da wohl schon angeben was man klicken soll nich das wievielte item... naja und da in deutsch alles ok is aber in englisch alles total durch einander find ichs überhaupt nicht falsch das ich das sortieren will....naja aber wie auch immer

[taaktaak]

Aber ist es Aufgabe eines Mumus deratige Listen abzubilden? Das erscheint mir schon recht grenzwertig...

[Cylence]

häh? mumus? was abarbeiten? ich will nur die menüs sortiert haben was is daran jetzt so schlimm? und die menüs ändern sich doch nich dauernd oder sowas...nur in englisch sorted in deutsch isses schon sorted fertig aber sowas gibts ja eh nich also is das ja relativ

[RavenIV]

TMenu.Items ist ein indiziertes Array.
Da kann man sicher irgendwie ein "Sort" dafür aufrufen.

Quäl Dich mal durch die Hilfe für TMenu.

[Cylence]

ok das hört sich gut an ich dachte auch schon an sowas wie einfach items.sorted aber das gibts leider nicht...

[Cylence]

mir fällt ein gutes beispiel ein windows xp startmenü rechtsklick nach namen sortieren genau sowas brauch ich...

[RavenIV]

Zitat:

Zitat von Cylence

ok das hört sich gut an ich dachte auch schon an sowas wie einfach items.sorted aber das gibts leider nicht...

Vermutlich musst Du das selber schreiben.
Da kannst Du ja einen der einfachen Sortieralgos (z.B. BubbleSort) nehmen.
Du wirst ja nicht mehrere Tausend MenuItems haben, sodass das optimiert sein müsste.

/nicht ernst gemeint
Oder aufwändig:
Punp die Menueinträge in eine TList.
Da gibt es ein TList.Sort

[Cylence]

hmmm sehr schade na dann werd ich das wohl so machen müssen ich danke euch!!!

[toms]

Hier mal ein Vorschlag:

Delphi-Quellcode:

procedure SortPopupMenu(PopupMenu: TPopupMenu);
var
  n1, n2: Integer;
  mi: TMenuItem;
begin
  with PopupMenu, Items do
  begin
    for n1 := 0 to Count - 1 do
    begin
      for n2 := n1 + 1 to Count - 1 do
      begin
        if Items[n1].Caption > Items[n2].Caption then
        begin
          mi := Items[n2];
          Delete(n2);
          Insert(n1, mi);
        end;
      end;
    end;
  end;
end;

[RavenIV]

ich würde aber das
if Items[n1].Caption > Items[n2].Caption then
erweitern, sodass nur nach dem Anfangsbuchstaben gesucht wird
if Items[n1].Caption[1] > Items[n2].Caption[1] then

[toms]

Zitat:

Zitat von RavenIV

ich würde aber das
if Items[n1].Caption > Items[n2].Caption then
erweitern, sodass nur nach dem Anfangsbuchstaben gesucht wird
if Items[n1].Caption[1] > Items[n2].Caption[1] then

Dann ist es aber nicht mehr ganz alphabetisch.

[RavenIV]

Zitat:

Zitat von toms

Dann ist es aber nicht mehr ganz alphabetisch.

Kommt halt auf die Anforderungen an.
Wenn es z.B. mehr als einmal "C..." geben sollte, muss man halt mit StrComp (oder so) arbeiten und mehr als nur eine Stelle beachten.

[RavenIV]

Zitat:

Zitat von Cylence

mir fällt ein gutes beispiel ein windows xp startmenü rechtsklick nach namen sortieren genau sowas brauch ich...

Beim Firefox kann man auch die Lesezeichen sortieren lassen.
Das wäre dann ja sowas, wie Du brauchst.

Soweit ich weiss, sind die Quellen des Mozilla doch frei.
Aber vermutlich wird der nicht mit Delphi geschrieben sein :-(

[Cylence]

Hi,

cool also dann werd ich das mal testen dieses wochenende was ihr hier gepostet habt und evtl auch mal schaun ob man das vom firefox übersetzen kann *g* aber erst wird heute geglotzt und gezockt *g* hab nen lg 32er endlich *freu* wünsch euch allen ein schönes wochenende!!!

gruß

tom

[ringli]

Wie muss ich den Code von toms eigentlich erweitern damit auch Untermenüs alphabetisch sortiert werden? Ich habe den Code schon etwas erweitert, nur leider wird immer das letzte Untermenü nicht mehr sortiert. Wo ist mein Denkfehler?

Delphi-Quellcode:

procedure SortPopupMenu(PopupMenu: TPopupMenu);
var
  n1, n2   : Integer;
  m1, m2   : Integer;
  mi1, mi2 : TMenuItem;
begin

  with PopupMenu, Items do
    begin
      for n1 := 0 to Count - 1 do
        begin
          for n2 := n1 + 1 to Count - 1 do
            begin
              if Items[n1].Caption > Items[n2].Caption then
                begin
                  mi1 := Items[n2];
                  Delete(n2);
                  Insert(n1, mi1);

                  for m1 := 0 to Items[n1].Count - 1 do
                    begin
                      for m2 := m1 + 1 to items[n1].Count - 1 do
                        begin
                          if items[n1].items[m1].Caption > items[n1].items[m2].Caption then
                            begin
                              mi2 := Items[n1].Items[m2];
                              Items[n1].Delete(m2);
                              Items[n1].Insert(m1, mi2);
                            end;
                        end;
                    end;
                end;
            end;
        end;
    end;
end;