Курсовая работа: Мониторинг ОС

if (GetDeviceCaps(Canvas.Handle, LINECAPS) and

LC_WIDE)=LC_WIDE then

FormDisplay.Memo1.Lines.Add('Поддержка Wide Lines');

if (GetDeviceCaps(Canvas.Handle, LINECAPS) and

LC_STYLED)=LC_STYLED then

FormDisplay.Memo1.Lines.Add('Поддержка Styled Lines');

if (GetDeviceCaps(Canvas.Handle, LINECAPS) and

LC_WIDESTYLED)=LC_WIDESTYLED then

FormDisplay.Memo1.Lines.Add('Поддержка Wide And Styled Lines');

if (GetDeviceCaps(Canvas.Handle, LINECAPS) and

LC_INTERIORS)=LC_INTERIORS then

FormDisplay.Memo1.Lines.Add('Поддержка Interiors');

end;

if GetDeviceCaps(Canvas.Handle, POLYGONALCAPS)=PC_NONE then

FormDisplay.Memo1.Lines.Add('Device Does Not Support Polygons')

else

begin

if (GetDeviceCaps(Canvas.Handle, POLYGONALCAPS) and

PC_POLYGON)=PC_POLYGON then

FormDisplay.Memo1.Lines.Add('Поддержка Alternate Fill Polygons');

if (GetDeviceCaps(Canvas.Handle, POLYGONALCAPS) and

PC_RECTANGLE)=PC_RECTANGLE then

FormDisplay.Memo1.Lines.Add('Поддержка Rectangles');

if (GetDeviceCaps(Canvas.Handle, POLYGONALCAPS) and

PC_WINDPOLYGON)=PC_WINDPOLYGON then

FormDisplay.Memo1.Lines.Add('Поддержка Winding Fill Polygons');

if (GetDeviceCaps(Canvas.Handle, POLYGONALCAPS) and

PC_SCANLINE)=PC_SCANLINE then

FormDisplay.Memo1.Lines.Add('Поддержка Single Scanlines');