Text zur Anzeige kürzen mit Punkten hinten

[Guido Eisenbeis]

Zitat von DeddyH:

Vielleicht geht es mit MinimizeName, obwohl das AFAIK nur für Pfadangaben gedacht ist.

Stimmt, ist nur für Pfade.

Zitat von jaenicke:

EllipsisPosition
...
Geben tut es das ab Delphi 2006. Intern wird das 1:1 auf die entsprechenden Konstanten gemappt und an DrawText übergeben. Auch Canvas.TextRect kennt ein entsprechendes Flag. Aber das sind eben alles nur für die Ausgabe vorhandene Funktionen.

Danke für die Info. Hab EllipsisPosition gefunden beim TLabel in TurboDelphi. In Lazarus scheint's das nicht zu geben. In Delphi scheinbar nur im TLabel?

Zitat von jaenicke:

Zitat von Guido Eisenbeis:

... für DrawText wird ein hdc benötigt, was nicht bei allen in Frage kommenden Controls der Fall ist.

Bei welchen denn? Nicht bei allen kommst du direkt heran, aber eigentlich haben alle einen Device Context.

Ok, ich sitze jetzt schon über eine halbe Stunde nur daran, ein blöden Text mit DrawText auf ein Panel zu bekommen. (Habs auch mit Form1 versucht.) Ich habe bestimmt 1 Mio. Codes von MSDN bis Was-weiß-ich-was-WebSites und Foren (auch hier) probiert und bin am verzweifen! Ich krieg ums Verrecken keinen Text mit Panel zu sehen!! Das kenn ich von "damals", als ich noch mit VB (Classic) programmierte. Und genau aus diesem Grund wollte ich DrawTest nicht haben. Das nervt einfach nur.

Es folgt ein Beispiel-Code, den ich ausprobiert habe. Bitte zeig mir doch den Fehler, oder einen funktionierenden Code. Und glaub mir, ich hab zig verschieden Kombinationen der Paramter und Funktionen probiert!

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
var
  Txt: String;
  h: HDC;
  Rct: TRect;
begin
  Txt := 'Dies ist ein Beispiel-Text.';
  //h := GetDC(Panel1.Handle);
  //h := GetWindowDC(Panel1.Handle);
  GetWindowRect(Panel1.Handle, Rct);

  DrawText(Panel1.Canvas.Handle, PChar(Txt), Length(Txt), Rct,
    DT_SINGLELINE or DT_LEFT or DT_VCENTER or DT_END_ELLIPSIS);
end;

Guido.

[stahli]

Das wird so nix werden.
Wenn sich das Panel dann zeichnet übermalt es seinen Canvas ja wieder.
Du musst also ein eigenen Panel ableiten und die Paint-Methode mit override überschreiben.
Dazu kannst Du alles machen wie das originale Panel (Fläche füllen, Rahmen zeichnen etc.) und nur die Textausgabe an Deine Zwecke anpassen.

[Guido Eisenbeis]

Vielen Dank Stahli!

Das hat mir jetzt eine riesen Stein von der Seele purzeln lassen. Ich dachte schon, ich wär zu blöd, um ein "Hallo Welt" in ein Panel zu bekommen.

Zitat von stahli:

Das wird so nix werden.
Wenn sich das Panel dann zeichnet übermalt es seinen Canvas ja wieder.
Du musst also ein eigenen Panel ableiten und die Paint-Methode mit override überschreiben.
Dazu kannst Du alles machen wie das originale Panel (Fläche füllen, Rahmen zeichnen etc.) und nur die Textausgabe an Deine Zwecke anpassen.

Von Anfang an hatte ich das Gefühl, dass das so läuft. Aus Urzeiten hatte ich diese Probleme noch im Hinterkopf und mein Gefühl hat mich nicht getrogen. Siehe hier:

Zitat von Guido Eisenbeis:

DrawText will ich nicht.

Und deshalb habe ich auch auf einem String als Resultat bestanden, der problemlos weiterverarbeitet werden kann. DrawText ist also hinfällig, denn es sollen ja verschiedene Controls übergeben werden können, ohne jedes einzelne auf seinen Typ zu prüfen. Dementsprechend ist es vom Aufwand her ja unsinnig, was-weiß-ich-wieviele Controls abzuleiten und Methoden zu überschreiben.

Vielen Dank für diese Info André!

Guido.

[himitsu]

Ist dir schonmal aufgefallen, daß TCanvas.TextRect für den Text einen Var-Parameter nutzt?

Tipp:

tfModifyString, tfEndEllipsis oder tfPathEllipsis und tfCalcRect > TTextFormat

oder DT_MODIFYSTRING, DT_END_ELLIPSIS oder DT_PATH_ELLIPSIS und DT_CALCRECT > DrawTextEx

Delphi-Quellcode:

Text := DeinText;
Rect.Left := 1;
Rect.Top := 1;
Rect.Right := MaximaleBreite;
Rect.Bottom := MaximaleHöhe;
DrawTextEx(Handle, PChar(Text), Length(Text), Rect, ... or DT_END_ELLIPSIS or DT_MODIFYSTRING, nil);
SetLength(Text, StrLen(PChar(Text)));

siehe MSDN: DT_CALCRECT > but does not draw the text

[JamesTKirk]

Zitat von himitsu:

Ist dir schonmal aufgefallen, daß TCanvas.TextRect für den Text einen Var-Parameter nutzt?

Tipp:

tfModifyString, tfEndEllipsis oder tfPathEllipsis und tfCalcRect > TTextFormat

Zitat aus dem TCanvas der LCL:

Delphi-Quellcode:

procedure TextRect(const ARect: TRect; X, Y: integer; const Text: string);
procedure TextRect(ARect: TRect; X, Y: integer; const Text: string;
                    const Style: TTextStyle); virtual;

Diese unterstützt das nicht.

Gruß,
Sven

[himitsu]

Ich dachte die Lazarusleute hätten am Anfang erstmal alles kopiert?

Wollte schon Fragen, wie TTextStyle dort aussieht, aber das hat sich grade erledigt.
Da hat man sich mit einem IMHO etwas umständlichen Record begnügt. (Das SET wurde wohl erst später erfunden?)
Wäre ja zu witzig gewesen, wenn dort tfModifyString und Co. mit enthalten wäre.




http://www.delphipraxis.net/164139-t...-ellipsis.html
Nja, die letzte Variante, also die mit dem Handle (HDC), sollte dann wohl auch unter Lazarus laufen. (hoff ich einfach mal, und wenn nicht, dann müßt ihr's halt noch etwas anpassen)

[Furtbichler]

Mein Delphi hat ein TControlCanvas. Das instantiiert man, verbindet es mit einem Control und -wupps- kann man auf dem Control zeichnen.

[Luckie]

Geht doch:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
var
  Txt: String;
  Rct: TRect;
begin
  Txt := 'Dies ist ein Beispiel-Text.';
  GetWindowRect(Self.Handle, Rct);
  DrawText(Self.Canvas.Handle, PChar(Txt), Length(Txt), Rct, DT_SINGLELINE or DT_LEFT or DT_VCENTER or DT_END_ELLIPSIS);
end;

Mein Panel (D7) hat übrigens kein Canvas.

[DeddyH]

Zitat von Luckie:

Mein Panel (D7) hat übrigens kein Canvas.

Wetten, dass doch? Allerdings ist das protected, Du brauchst also eine Cracker-Klasse, um da ranzukommen.

[Luckie]

Ja, natürlich hat es einen. Aber ich meinte ein Canvas dem man so nutzen kann.