Text > Label?

[_Sebastian_]

Zitat:

Zitat von Kompon Ente

Was willst Du denn überhaupt?

Das frage ich mich im moment auch. :-) Ich glaub mir fehlt heute mein Mittagessen...


Ich habe ein Label in dem ein Text angezeigt wird. Wenn der Text zu lang ist soll der rest der nicht mehr ins memo zeigt mit '...' ersetzt werden.

Mittels DrawText hab jetzt zwar die Höhe die der Text in dem Label brauchen würde und auch die Anzahl der Zeilen, aber kann damit doch nicht das anfangen was ich wollte. -> Nämlich die Position im String ab der der Text nicht mehr sichtbar ist..

ich hoffe mein problem ist jetzt ein bischen klarer.. :-)

[Kompon Ente]

Allerdings, ich seh, dass du ein mächtiges Problem hast! *g*

[BrunoT]

Hi Sebastian,

Es müsste so gehen:
1. Ermittle die Länge eines Buchtsabens mittlerer Breite 'm' in Pixel
2. Teile die Länge des Labels durch die mittlere Länge und erhältst die Anzahl der möglichen Zeichen im Label
3. Nur so viel Buchtaben ausgeben, wie nötig.

Delphi-Quellcode:

var
  i,hsc, AnzChar, LenPix, middLen, ZeilenChar, AnzZeilen: INTEGER;
  Rect: Trect;
begin
  s:=Label1.Caption;
  AnzChar := Length(s);
    LenPix := Label1.width; //Laenge Text
    DrawText(Form1.Canvas.DC, // handle to device context
      'm', // m - buchstabe mit mitteler Länge
      1, // string length, in characters
      Rect, // pointer to structure with formatting dimensions
      DT_CALCRECT);
    hsc := rect.Bottom - rect.Top; //Höhe Schriftart
    middLen := rect.Right - rect.Left; //Laenge von 'm'
    ZeilenChar:= LenPix DIV middLen; //Anzahl der Buchstaben, die in eine Zeile passen
    AnzZeilen:=Label1.Height DIV hsc; //Anzahl Zeilen
  end; 
  Label1.Caption:='';
  If (ZeilenChar*AnzZeilen)>AnzChar Then
    Label1.Caption:=copy(s,1,(ZeilenChar*AnzZeilen)-4)+'...'
  else
    Label1.Caption:=s;
end;

(ungetestet)

mfg

BrunoT

[_Sebastian_]

Danke.
Ich hab nun auch schon hinbekommen.

Delphi-Quellcode:

while x > Label.Height do
 begin
  s := copy(s,0,length(s)-1);
  x := DrawText(...); //DrawText mit Wordwrap
 end;

Finde das zwar nicht so sonderlich schön, aber es funktioniert erstmal soweit.