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

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

if (GetDeviceCaps(Canvas.Handle, CURVECAPS) and

CC_WIDE)=CC_WIDE then

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

if (GetDeviceCaps(Canvas.Handle, CURVECAPS) and

CC_STYLED)=CC_STYLED then

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

if (GetDeviceCaps(Canvas.Handle, CURVECAPS) and

CC_WIDESTYLED)=CC_WIDESTYLED then

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

if (GetDeviceCaps(Canvas.Handle, CURVECAPS) and

CC_INTERIORS)=CC_INTERIORS then

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

if (GetDeviceCaps(Canvas.Handle, CURVECAPS) and

CC_ROUNDRECT)=CC_ROUNDRECT then

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

end;

if GetDeviceCaps(Canvas.Handle, LINECAPS)=LC_NONE then

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

else

begin

if (GetDeviceCaps(Canvas.Handle, LINECAPS) and

LC_POLYLINE)=LC_POLYLINE then

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

if (GetDeviceCaps(Canvas.Handle, LINECAPS) and

LC_MARKER)=LC_MARKER then

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

if (GetDeviceCaps(Canvas.Handle, LINECAPS) and

LC_POLYMARKER)=LC_POLYMARKER then