BitonalScaling example for Delphi

This example sets the display to use scale-to-gray and repaints the image. This affects only 1-bit images.

If Lead1.IsSupportLocked(L_SUPPORT_EXPRESS) Then
    ShowMessage('No scale to gray - You need to unlock Document/Medical capabilities')
Else
begin
   Lead1.BitonalScaling := btsScaleToGray;
   Lead1.ForceRepaint;
End;