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