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

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and

TC_SA_DOUBLE)=TC_SA_DOUBLE then

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

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and

TC_SA_INTEGER)=TC_SA_INTEGER then

FormDisplay.Memo1.Lines.Add('Поддержка Integer Multiples Only When Scaling');

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and

TC_SA_CONTIN)=TC_SA_CONTIN then

FormDisplay.Memo1.Lines.Add('Поддержка Any Multiples For Exact Character Scaling');

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and

TC_EA_DOUBLE)=TC_EA_DOUBLE then

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

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and

TC_IA_ABLE)=TC_IA_ABLE then

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

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and

TC_UA_ABLE)=TC_UA_ABLE then

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

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and

TC_SO_ABLE)=TC_SO_ABLE then

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

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and

TC_RA_ABLE)=TC_RA_ABLE then

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

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and

TC_VA_ABLE)=TC_VA_ABLE then

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

if (GetDeviceCaps(Canvas.Handle, TEXTCAPS) and

TC_SCROLLBLT)=TC_SCROLLBLT then