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