String Umbruch

[Delphi.Narium]

Alternativvorschlag:

Delphi-Quellcode:

const
  ciTextBreiteInBuchstaben = 25;
...
 LVZattoo.SetItemText(LVZattoo.Handle, (i - 1), 1, 
    SysUtils.WrapText(ChlRec.title,ciTextBreiteInBuchstaben) + #13#10 
  + 'Genre: ' + FZat.gEpg[i - 1].g + #13#10 
  + 'Sendung: ' + FZat.gEpg[i - 1].t + #13#10 
  + 'Laufzeit: ', 8);

ciTextBreiteInBuchstaben weist Du einen Wert zu, der der maximal sinnvoll anzeigbaren Breite in Buchstaben entspricht.

WrapText sorgt für eine entsprechende Textbreite, in dem es bei Erreichen dieses Wertes beim nächsten auftretenden WhiteSpace einen Zeilenumbruch einfügt.

Dann musst Du Dir keine Gedanken über Scrollbar Ja/Nein ... machen. Der Sendungstitel enthält dann jeweils auch entsprechend viele Zeilenumbrüche.

Ob's damit dann besser aussieht, müsstest Du mal ausprobieren.

[venice2]

Zitat von Delphi.Narium:

Alternativvorschlag:

Delphi-Quellcode:

const
  ciTextBreiteInBuchstaben = 25;
...
 LVZattoo.SetItemText(LVZattoo.Handle, (i - 1), 1, 
    SysUtils.WrapText(ChlRec.title,ciTextBreiteInBuchstaben) + #13#10 
  + 'Genre: ' + FZat.gEpg[i - 1].g + #13#10 
  + 'Sendung: ' + FZat.gEpg[i - 1].t + #13#10 
  + 'Laufzeit: ', 8);

ciTextBreiteInBuchstaben weist Du einen Wert zu, der der maximal sinnvoll anzeigbaren Breite in Buchstaben entspricht.

WrapText sorgt für eine entsprechende Textbreite, in dem es bei Erreichen dieses Wertes beim nächsten auftretenden WhiteSpace einen Zeilenumbruch einfügt.

Dann musst Du Dir keine Gedanken über Scrollbar Ja/Nein ... machen. Der Sendungstitel enthält dann jeweils auch entsprechend viele Zeilenumbrüche.

Ob's damit dann besser aussieht, müsstest Du mal ausprobieren.

Super werde es direkt mal versuchen..
Danke.

Melde mich dann.

ciTextBreiteInBuchstaben .. kann das nicht length text sein?
bzw. nach was richtet sich die value davon.

PS:
Es macht keinen unterschied.

[Delphi.Narium]

Ich weiß halt nicht, wie breit der Text in Deiner Anzeige sein darf, ohne das die Scrollbar benutzt werden muss.

Du müsstest bitte mal mit 'nem sehr langen Sendungstitel ausprobieren, wieviele Zeichen in einer Zeile angezeigt werden können, ohne dass der Text quasi über den rechten Rand hinausreicht. Oder bei der vorhandenen Anzeige mal für 'ne Reihe von Sendungstitel nachzählen, nach wievielen Buchstaben im Schnitt der rechte Rand erreicht ist.

Eventuell probierst Du es mal mit 'nem Sendungstitel ala 'WWW WWW WWW WWW WWW WWW WWW WWW WWW WWW WWW WWW' aus und zählst nach, wieviele WWW plus jeweils ein Leerzeichen angezeigt werden können, bevor der rechte Rand des Listviews erreicht ist. Die Anzahl der WWW * 4 nimmst Du dann als Wert für ciTextBreiteInBuchstaben. Passen z. B. acht WWW in den Listview, ohne den rechten Rand zu "überragen", wäre der Wert für ciTextBreiteInBuchstaben = 32.

Aber letztlich wird es darauf hinauslaufen, dass Du den "richtigen Wert" für ciTextBreiteInBuchstaben durch ausprobieren herausbekommen musst. Bei der Schriftart Courier New haben z. B. alle Buchstaben die gleiche Breite. Bei den anderen Schriftarten eher nicht, so dass man hier eigentlich keinen genauen oder "richtigen" Wert angeben kann. Da hilft nur probieren und sich dann für einen in der Regel passenden Wert entscheiden.

[venice2]

Ich mache es jetzt so.

Delphi-Quellcode:

    LVZattoo.SetItemText(LVZattoo.Handle, (i - 1), 1, ChlRec.title, 8,
      'Genre: ' + FZat.gEpg[i - 1].g + ';' +
      'Sendung: ' + FZat.gEpg[i - 1].t + ';' +
      'Laufzeit: ');

und löse es dann so auf.

Delphi-Quellcode:

   if Assigned(ColumnInfo[HeaderItem].SplitStr) then
   begin
     if ColumnInfo[HeaderItem].SplitStr[Item] <> '' then
     begin
       sSplit := Split(ColumnInfo[HeaderItem].SplitStr[Item], ';');
       TmpRect.Top := TextRect.Top;
       TmpRect.Left := TextRect.Left;
       TmpRect.Right :=  TextRect.Right;
       for i := Low(sSplit) to High(sSplit) do
       begin
         TmpRect.Top := TmpRect.Top + FPointSize + 2;
         DrawEllipsisText(WinHandle, DC, sSplit[i], TmpRect, Color, FFontName,
           FPointSize, FFontStyle, 0, 0);
        end;
     end;
    end;

anders geht es im Moment nicht bis ich eine bessere Lösung gefunden habe.

Oben wird der String mit Delemiter ';' übergeben
und unten ausgewertet.
Der string selbst wird nicht mehr an das Listview übergeben nur ChlRec.title (= wsItems)

Delphi-Quellcode:

procedure TSkinListView.SetItemText(hListView: hWnd; nItem: Integer; nSubItem: Integer;
  wsItems: WideString; TextTop: Integer = 0; SplitStr: WideString = '');
var
  lvItem: LV_ITEMW;
begin

  lvItem.mask := LVIF_TEXT;
  lvItem.iItem := nItem;
  lvItem.pszText := PWideChar(wsItems);
  lvItem.iSubItem := nSubItem;
  ListView_SetItem(hListView, lvItem);

  ColumnInfo[nSubItem].TextTop := TextTop;
  if SplitStr <> '' then
  begin
    SetLength(ColumnInfo[nSubItem].SplitStr, (nItem + 1));
    ColumnInfo[nSubItem].SplitStr[nItem] := SplitStr;
  end;

end;