Text zur Anzeige kürzen mit Punkten hinten

[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

[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:

Zitat von Luckie (Beitrag 1133530)

Mein Panel (D7) hat übrigens kein Canvas.

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

[Bummi]

das kennst Du schon, oder?

Delphi-Quellcode:

type
  TPanel = Class(ExtCtrls.TPanel)
    Public Property Canvas;
  End;
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure Panel1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Panel1Click(Sender: TObject);
begin
  Panel1.Canvas.Rectangle(1,1,100,100);
end;

[Luckie]

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

[JamesTKirk]

Zitat:

Zitat von himitsu (Beitrag 1133527)

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? :stupid:

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. :roll:




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.

[Guido Eisenbeis]

Zitat:

Zitat von Furtbichler (Beitrag 1133552)

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

Kannst du mir das Package umschreiben für Lazarus? :wink:

Ansonsten:

Was ist da nur so interessant an DrawText? Mein oben genannter 5-Zeiler erledigt das doch gut:

+ Anwendbar auf die Caption-Eigenschaft
+ gibt eine String zurück
+ evtl. Plattformunabhängig ???
- Abhängigkeit von Caption (bzw Text)
+ keine Abhängigkeit von Canvas
+ kein Publizieren des Canvas (für jede Control-Klasse!)
+ kein Überschreiben von Paint (für jede Control-Klasse!)

Zitat:

Zitat von Luckie (Beitrag 1133530)

Geht doch:

Delphi-Quellcode:

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

Bei mir nicht. :( Ist nichts zu sehen weder in Delphi, noch in Lazarus. Liegt an den von Stahli genannten Gründen, denke ich.


Guido.

[Luckie]

Zitat:

Zitat von Guido Eisenbeis (Beitrag 1133583)

Zitat:

Zitat von Luckie (Beitrag 1133530)

Geht doch:

Delphi-Quellcode:

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

Bei mir nicht. :( Ist nichts zu sehen weder in Delphi, noch in Lazarus. Liegt an den von Stahli genannten Gründen, denke ich.

Guck mal genau hin. Ich gebe den Text nicht auf einem Panel aus, sondern auf der Form selber, wo du aber auch gesagt hast, das würde nicht funktionieren.