Länge der ComboListBox items festlegen

[EWeiss]

Zitat:

Keine weitere Idee, sorry.

Denke es ist eine Limitierung des alten Open File Dialog.. Aber kein Problem solange wie es nicht abstürzt.
Danke.

gruss

[Luckie]

Ich meine, man kann irgendwie die Breite der Liste vorgeben bzw. ändern. Kann es eventuell daran liegen?

[EWeiss]

Zitat von Luckie:

Ich meine, man kann irgendwie die Breite der Liste vorgeben bzw. ändern. Kann es eventuell daran liegen?

Leider nein diese setze ich ja.. Und ja man kann sie ändern aber nur wenn sie weiter ist als die Combo selbst. Weniger funktioniert nicht.

Delphi-Quellcode:

              // Edit update
              if (length(SkinEngine.SkinConfigFile) <> 0) and OpenDialog.UseSkin then
              begin
                Txt := PWideChar(OpenDialog.GetDlgPath(CDM_GETFILEPATH, WinHandle));
                if (not PathIsDirectoryW(Txt)) and (PathFileExistsW(Txt)) then
                begin
                  Txt := PWideChar(ExtractFileName(Txt));
                  SkinEngine.SetCTLText(edEdit.Handle, Txt);
                  SetToolTipText(edEdit.Handle, Txt, True);
                  SkinEngine.SetZorder(SKDialogHandle, HWND_TOPMOST);
                end 
                else
                begin
                  // clear edit if selected item not a path
                  SkinEngine.SetCTLText(edEdit.Handle, '');
                  // change width of Combo DropList
                  Txt := PWideChar(ExtractFileName(Txt));
                  GetTextBound(Txt, SkinEngine.SK_TEXTFONT, SkinEngine.SK_PUSHBUTFONTSIZE + 1,
                    bW, bH, nil, 0);

                  GetClientRect(hComboPath, rc);
                  if bW > rc.Right then
                    SendMessage(hComboPath, CB_SETDROPPEDWIDTH, bW, 0); // new DropList width
                  Result := 1;
                  Exit;
                end;
              end;

Aber wie man sehen kann ist der Eintrag leer.
Genauso wie der, der Combo selbst.

gruss

[EWeiss]

Hmmm.. wie ich es mir dachte.
Es scheint eine Limitierung zu sein.
67 und 70 Zeichen Dialog ohne Ownerdraw.

Bei 70 Zeichen ist der Eintrag in der Combo leer.
Und Windows setzt nicht mal die Weite der DropDownList auf die länge des längsten string.. Wirklich schwach.

gruss

[Klaus01]

.. wäre es eine Möglichkeit den Ausgabetext zu kürzen?
Aber so das man noch erkennen kann um was es bei dem Eintrag geht.

Grüße
Klaus

[EWeiss]

Zitat von Klaus01:

.. wäre es eine Möglichkeit den Ausgabetext zu kürzen?
Aber so das man noch erkennen kann um was es bei dem Eintrag geht.

Grüße
Klaus

Theoretisch aber praktisch leider nicht.
Wenn ich den Txt wie oben im Code erfrage dann habe ich den richtigen inklusive der länge sonst könnte ich die DropListe nicht entsprechend setzen.

Im Event der Combobox jedoch schlägt die abfrage auf den Text fehl. Siehe Kommentar.

Delphi-Quellcode:

              case PDis^.CtlID of
                ID_COMBOPATH:
                  begin
                    case PDis^.itemAction of

                      ODA_DRAWENTIRE:
                        begin
                          if (PDis.itemAction and ODA_DRAWENTIRE) = ODA_DRAWENTIRE then
                          begin
                            CbTxt := OpenDialog.CBListGetText(PDis.hwndItem, PDis.itemID); // Hier ist der Text leer wenn mehr wie 67 Zeichen da ist nichts zu kürzen.
                            GdipCheck(DrawTextToDC(PDis.HDC, CbTxt, PDis.rcItem,
                              SkinEngine.SK_INACTIVECAPTION, SkinEngine.SK_TEXTFONT,
                              SkinEngine.SK_PUSHBUTFONTSIZE, FontStyleBoldItalic, -1, 0, nil));
                          end;
                        end;

Trotzdem Danke..

gruss

[EWeiss]

Habe die Funktion nochmals geändert..

Delphi-Quellcode:

function TSkinOpenSaveDialog.CBListGetText(hList: HWND; Item: UINT): WideString;
var
  Len: Integer;
  Buf: array[0..255] of Char;
begin

  Result := '';

  Len := SendMessage(hList, CB_GETLBTEXTLEN, Item, 0);
  if Len > 0 then
  begin
    ZeroMemory(@Buf[0], SizeOf(Buf));
    SendMessage(hList, CB_GETLBTEXT, Item, LPARAM(@Buf));
    Result := Buf;
  end;
end;

Bei der alten hatte ich leichte Speicher Probleme.
Habe noch 2 kleine Problem.. Poste es hier weil hier auch die Bilder der Combobox hochgeladen wurden.

Meine neue Frage..
Und wie ist der Algo aufgebaut um die Einträge versetzt anzeigen zu lassen?

Jemand eine Idee?

Edit:
Hat sich erledigt, lasse es wie es ist.

gruss