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