Canvas.getTextWidth(Text) funzt nicht richtig!

JRegier · Verfasst: Sa 30.07.05 10:43

Hi, ich habe eine Function geschrieben um StringLänge in Pixel zu ermitteln aber es funzt nicht richtig!
Was mache ich falsch siehe Code;

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

// String länge in Pix ermitteln
function TWhereManager.GetStrLenInPix(Text : String; Font : TFont) : Integer;
begin
   Canvas.Font := Font;  // Assign(Font) habe ich auch versucht
   Result := Canvas.TextWidth(Text);
end;

Ich will hiermit die Länge einer TEdit componente einstellen damit ganzer Text zu sehen ist! Ich addiere auch 8 dazu aber bei einer
Schriftart funzte es und bei anderer nicht!

GTA-Place · Verfasst: Sa 30.07.05 11:07

Schonmal so versucht?:

markieren

Delphi-Quelltext

1:
2:

Edit1.Canvas.Font := ...;
Edit1.Canvas.TextWidth(...);

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

Keldorn · Verfasst: Sa 30.07.05 11:09

GTA-Place hat folgendes geschrieben:

Schonmal so versucht?:

ein edit hat kein canvas als eigenschaft ;-)

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

GTA-Place · Verfasst: Sa 30.07.05 11:19

Oh... ^^
Naja, dann halt nicht...

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

Sprint · Beiträge: 849

Keldorn hat folgendes geschrieben:

GTA-Place hat folgendes geschrieben:

Schonmal so versucht?:

ein edit hat kein canvas als eigenschaft

Das kann man ja schnell ändern:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

  with TControlCanvas.Create do
    try
      Control := Edit1;
      Font := Edit1.Font;
      Edit1.ClientWidth := TextWidth(Edit1.Text) + 4;
    finally
      Free;
    end;

_________________
Ciao, Sprint.

JRegier · Verfasst: Sa 30.07.05 11:49

Vielen Dank schonmal, Delpher! :wink:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme