Proportionalschrift in Listbox

[Hansa]

Hi,

ich habe eine Listbox, bei der jede Zeile aus 3 Strings besteht, also st1+st2+st3 Die drei Teilstrings sollen allerdings untereinander stehen. Bei Font Sansserif z.B. klappt das selbst dann nicht, wenn ich die Strings rechts oder linksbündig mit Blanks auffülle. Mir fällt dazu nur ein : Schriftart wechseln, oder Stringgrid. Letzteres ist mir für diesen Zweck aber fast zu kompliziert. Und das erste sieht etwas seltsam aus. Gibts da noch irgendwas anderes?

[Daniel]

Hallo Hansa,

Du könntest die Listbox auch selber zeichnen und mittels Canvas.TextWidth() Deine Teilstrings pixelgenau plazieren.

[Hansa]

Wie wirkt sich das denn bei verschiedenen Bildschirm-Auflösungen aus :?: Ich will niemanden zwingen, eine bestimmte Auflösung zu benutzen.

[Mirilin]

Hei Hansa

Nimm doch eine Schrift wie CourierNew, bei der alle Zeichen gleich breit sind.

Mirilin

[Hansa]

Zitat:

Zitat von Mirilin

...wie CourierNew, bei der alle Zeichen gleich breit sind.

Ja, das würde gehen, siehe Titel. Dann ist das Thema eben für die :cat:

[Daniel B]

Hallo Hansa,

falls Du eine maximale Stringlänge haben solltest, kannst Du ja die Strings, vorne oder hinten mit Leerstellen auffüllen und so die Strings unterienander ausrichten. Das hatte ich mal in meinen anfängen gemacht, bis ich das auf eine LV wechseln musste, was aber nichts damit zutun hatte.

Grüsse, Daniel :hi:

[Hansa]

Zitat:

Zitat von Daniel B

falls Du eine maximale Stringlänge haben solltest, kannst Du ja die Strings, vorne oder hinten mit Leerstellen auffüllen

Darum geht es. Hab ich doch gemacht.

Zitat:

Zitat von Daniel B

... auf eine LV wechseln musste, was aber nichts damit zutun hatte.

Was ist LV :?:

[Daniel B]

Zitat:

Zitat von Hansa

Was ist LV :?:

Eine ListView. Wäre vielleicht auch noch eine alternative.

Grüsse, Daniel :hi:

[Hansa]

Zitat:

Zitat von Daniel B

...Eine ListView...

Das ganze läuft auf ein Grid hinaus. Wenn's denn sein muß.

[eddy]

Hallo Hansa,

anbei ein Beispiel für die mehrspaltige Ausgabe. Ist zwar auf zwei gekürzt, kann aber beliebig erweitert werden.

Code:

{ lbxOrt.Style muß auf lbOwnerDrawFixed gesetzt sein für eigene Auswahlliste
  Ergebnis: 2-spaltige Tabelle (mehr ist möglich
  Nachteil: der Sprung auf den bereits eingegebenen Ort erfolgt nicht }
procedure TFKasse.lbxOrtDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  strVal, strAll : string;
  pos1, pos2 : integer;
  rc : TRect;
  arrWidth : array[0..3] of integer;
begin
  lbxOrt.Canvas.Brush.Style := bsSolid;
  lbxOrt.Canvas.FillRect(Rect);
  { Die einzelnen Spalten müssen durch ';' getrennt sein }
  strAll := lbxOrt.Items[Index];
  arrWidth[0] := 0;
  arrWidth[1] := 120;
  arrWidth[2] := lbxOrt.Width;

  { Zeichenbereich für erste Spalte }
  rc.Left := Rect.Left + arrWidth[0] + 2;
  rc.Right := Rect.Left + arrWidth[1] - 2;
  rc.Top := Rect.Top;
  rc.Bottom := Rect.Bottom;
  { Text für erste Spalte ausfiltern }
  pos1 := Pos(';', strAll);
  strVal := Copy(strAll, 1, pos1 - 1);
  { Text ausgeben }
  lbxOrt.Canvas.TextRect(rc, rc.Left, rc.Top, strVal);
  { Trennlinie zwischen Spalten zeichnen }
  lbxOrt.Canvas.MoveTo(rc.Right, rc.Top);
  lbxOrt.Canvas.LineTo(rc.Right, rc.Bottom);
  { Zeichenbereich für zweite Spalte }
  rc.Left := Rect.Left + arrWidth[1] + 2;
  rc.Right := Rect.Left + arrWidth[2] - 2;
  { Text für zweite Spalte ausfiltern }
  strAll := Copy(strAll, pos1 + 1, Length(strAll) - pos1);
  pos1 := Pos(';', strAll);
  if pos1 > 0 then strVal := Copy(strAll, 1, pos1 - 1) else strVal := strAll;
  { Text ausgeben }
  lbxOrt.Canvas.TextRect(rc, rc.Left, rc.Top, strVal);
  { Trennlinie zwischen Spalten zeichnen }
  lbxOrt.Canvas.MoveTo(rc.Right, rc.Top);
  lbxOrt.Canvas.LineTo(rc.Right, rc.Bottom);
end;

Im Anhang noch ein Bild, wie's aussieht.

mfg
eddy