Hi,
wie kann ich die Höhe des Cares oder die Zeilenhöhe ( im RitchEdit ) erhalten ?

es geht mir nicht um die schriftgrösse !

Die Zeilenhöhe ändert sich Abhängig der Schrift -Art und -Grösse unterschiedlich.


Danke !!!!

Antwort : canvas.TextHeigth('A')

danke

edit : meine komponente hat ein canvas objekt, deswegen geht's

Wie geht das aber bei dem standard TMemo, bei dem die Canvas Property nicht freigegeben ist.

Über

markieren

Code:

 Memo.Font.Height

bekommt man ja nur die Höhe der schrift und nicht den Abstand der Zeilen.

zusammenfalten · markieren

Delphi-Quellcode:

function TrueFontHeight(fnt: TFont): integer;
// written by Udo Nesshoever, Jan 2001
var
   dc: hdc;
   tm: TTextMetric;
begin
   DC := GetDC(0);
   SelectObject(DC, fnt.Handle);
   GetTextMetrics(DC, tm);
   ReleaseDC(0, DC);
   Result:= tm.tmHeight;
end;

function TrueFontWidth(fnt: TFont; const text:string): Integer;
var
   dc: hdc;
   tsize : Windows.TSize;
begin
   dc := GetDC(0);
   SelectObject(DC, fnt.Handle);
   GetTextExtentPoint32(dc, PChar(text), Length(text), tsize);
   ReleaseDC(0, DC);
   Result := tsize.cx;
end;

@shmia
wenn du deinen Code auch noch dort Länge und Höhe eines Textes (String) eintragen würdest, dann hätten bestimmt noch mehr was davon

@Snoop007
die DP-Suchfuntion bringt dazu auch schon vieles ans Tageslicht und in der Cod-Lib ist auch massig zu finden

Wow, die Antwort kam ja schnell. Danke

Zitat von himitsu:

@shmia
wenn du deinen Code auch noch dort Länge und Höhe eines Textes (String) eintragen würdest, dann hätten bestimmt noch mehr was davon

Würde ich gerne machen, habe aber keine (Schreib-)Rechte.
Also wo sind die Administrator-Helden, die dies übernehmen ?

@ himitsu

Snoppy hat den Thead bestimmt schon vergessen. Siehe Datum.
Ich wollte nur keinen neuen Thread aufmachen.

da beim Memo die Schrift ja vom Memo fesgelegt wird:

einfach die Schrift (Memo1.Font) an eine unserer Prozeduren übergeben und du bekommst die Höhe.



wenn in dem RitchEdit die Schrift nicht geändert wird, dann geht es dort genauso (RitchEdit1.Font übergeben), sonnst geht es z.B. so (andere wird es bestimmt auch mal interessieren)

zusammenfalten · markieren

Delphi-Quellcode:

Function FontHeightAtPos(Pos: Integer): Integer;
  Var Font: TFont;

  Begin
    If Pos < Length(Form1.RichEdit1.Text) Then Begin
      Form1.RichEdit1.SelStart := Pos;
      Form1.RichEdit1.SelLength := 1;
      Font := Form1.RichEdit1.Font;
      Font.Charset := Form1.RichEdit1.SelAttributes.Charset;
      Font.Name := Form1.RichEdit1.SelAttributes.Name;
      Font.Pitch := Form1.RichEdit1.SelAttributes.Pitch;
      Font.Size := Form1.RichEdit1.SelAttributes.Size;
      Font.Style := Form1.RichEdit1.SelAttributes.Style;
      // such dir eine der Prozeduren von Shmia, oder mir aus
      Result := TrueFontHeight(Font);
      // oder die
      Result := TextHoehe(Font, 'Xg');
    End Else
      Result := -1;
  End;

markieren

Delphi-Quellcode:

h := FontHeightAtPos(12);
// für 12 einfach die Position des Zeichens angeben, von welchem die Höhe benötigt wird

Und wenn die Komponente, von der man die Texthöhe haben möchte ein Canvas hat, dann ist es auch möglich Canvas.TextHeight dieser Komponente zu verwenden.

Zitat von Snoop007:

Hi,
wie kann ich die Höhe des Cares oder die Zeilenhöhe ( im RitchEdit ) erhalten ?

Ein Thread kann in windows nur einen Caret zur selben zeit haben. An die Informationen ob und wo am bildschirm ein caret eines Fensters eines Threads blinkt, kommst du via GetGUIThreadInfo(). Du bekommst das Fenster-Handle des windows, welchen den Caret enthaelt und die Koordinaten (inkl. Groesse) relativ zu dessen Client-Area. Siehe PSDK