DrawTextR(Text: String; Font: IGxFont; Brush: IGxBrush; Rect: IGxRectF);
Text. Текст.
Font. Шрифт, которым будет выведен текст.
Brush. Кисть, которой будет отрисован текст.
Rect. Прямоугольник, в котором будет выведен текст.
Метод DrawTextR осуществляет вывод текста заданной кистью и шрифтом в прямоугольнике, передаваемом посредством параметра Rect.
Для выполнения примера предполагается наличие формы, где расположены: кнопка с наименованием «Button1», компонент ImageBox с наименованием «ImageBox1». Подключите системные сборки: Drawing, Forms.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
BMP: IGxBitmap;
ImgFont: IGxFont;
ImgBrush: IGxBrush;
Graph: IGxGraphics;
r: IGxRectF;
Begin
BMP := GxBitmap.CreateNew(ImageBox1.ClientWidth, ImageBox1.ClientHeight, GxPixelFormat.Format24bppRgb);
ImgFont := New GxFont.Create("Times New Roman", 16, GxFontStyle.BoldItalic, GxUnit.World);
ImgBrush := New GxSolidBrush.Create(GxColor.FromName("Red"));
Graph := GxGraphicsClass.FromImage(BMP);
r := New GxRectF.Create(0, 0, 0, 0);
r := Graph.MeasureTextRF("New Image", ImgFont, r, Null);
r.Width := r.Width / 2;
Graph.DrawTextR("New Image", ImgFont, ImgBrush, r);
ImageBox1.Image := BMP;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку в компоненте ImageBox отобразится новое битовое изображение с усечённым по ширине прямоугольником, в котором отрисована указанная надпись с заданными настройками.
См. также: