Jpeg: IGxImageFormat;
Свойство Jpeg возвращает графический объект в формате Jpeg.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки и компонента ImageBox с наименованием ImageBox1. В ImageBox1 загружено какое-либо изображение.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Image: IGxImage;
s: String;
Begin
Image := ImageBox1.Image;
If Image.RawFormat = GxImageFormats.Jpeg Then
s := "Yes";
Else
s := "No";
End If;
End Sub Button1OnClick;
При нажатии на кнопку в переменной s будет содержаться «Yes», если в компоненте ImageBox1 содержится изображение в формате Jpg или Jpeg.
См. также: