Как в GDI+ сделать аналог функции TextWidth? Пытаюсь адаптироваль для Delphi найденную тут функцию, он она падает на MeasureCharacterRanges с ошибкой "(GDI+ Error) One of the arguments passed to the method was not valid.". Как это исправить?
Function MeasureDisplayStringWidth(Graphics: IGPGraphics; Text: String; Font: IGPFont): Extended;
Var
StringFormat: IGPStringFormat;
R: TGPRectF;
CharRanges: IGPCharacterRanges;
CharRange: TGPCharacterRange;
Regions: IGPRegions;
Begin
R.Initialize(0, 0, 1000, 1000);
CharRanges := TGPArray<TGPCharacterRange>.Create(1);
CharRange.Initialize(0, 2);
CharRanges[0] := CharRange;
StringFormat:= TGPStringFormat.Create;
StringFormat.SetMeasurableCharacterRanges(CharRanges);
Regions := Graphics.MeasureCharacterRanges(Text, Font, R, StringFormat);
Regions[0].GetBounds(R, Graphics);
Result:=R.Right+1;
End;
MeasureCharacterRanges
— это правильный путь. А вот в вопросе мало информации. Как именно вылетает? Что говорит? Чему равны аргументы при этом?CharRange.Initialize(0, 2);
нужно написатьCharRange.Initialize(0, Length(Text));
тогда всё работает правильно. Инициализировал 2 символа, а передавал 1