Schriftgröße in Pixel ermitteln (TMemo)

[weltaran]

Hallo Leute!

Ich will in einem Memo abhängig von der Mauscursor-Position den Hint dynamisch verändern (OnMouseMove). Es soll letzlich im Hint sichtbar sein, in welcher Zeile des Memos sich der Mauscursor befindet. Die Schriftart des Memos bleibt immer konstant, nicht aber die Schriftgröße. 'Size' ist die Schriftgröße in Punkt -> ungeeignet. Auch Height ist noch zu klein, ich müsste den Abstand der Grundlinien der Schrift wissen.

Habt ihr sowas schon gemacht.

Ciao!

[negaH]

probier mal folgendes:

Delphi-Quellcode:

var
  R: TRect;
  TextHeight: Integer;
begin
  R := Bounds(0, 0, MaxInt, MaxInt);
  DrawText(Memo.Canvas.Handle, 'G'#13#10'g', 4, R, dt_CalcRect or dt_SingleLine);
  TextHeight := (R.Bottom - R.Top) div 2;
end;

Gruß hagen

[weltaran]

Hmmm, sieht gut aus, aber 'Canvas' ist anscheinend ein undefinierter Bezeichner. Ansonsten sieht
das ziemlich genial aus. Vielleicht sollte ich einfach die Height Eigenschafr mit einem geeigneten Wert (vielleicht 1.3) malnehmen und dann abrunden -- vier nicht allzuviele Zeilen geht das.

Danke trotzdem

[bixi400]

Versuchs mal mit:

Memo1.CaretPos

[weltaran]

Ja. Warum einfach wenns auch kompliziert geht ... . Ich hatte CaretPos nur flüchtig überflogen, und dachte es liefert mir nur den Index des Strings zurück.

Vielen Dank!