J2KSetDefaults Example for Delphi

var
   strMsg: String;
begin
   // Display all the default JPEG2000 advanced options
   LEADDicomDS1.J2KOptions.J2KSetDefaults ();

   strMsg:= 'J2KUseColorTransform = ' + BoolToStr(LEADDicomDS1.J2KOptions.J2KUseColorTransform) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KDerivedQuantization = ' + BoolToStr(LEADDicomDS1.J2KOptions.J2KDerivedQuantization) + Chr(13) + Chr(10);

   strMsg:= strMsg + 'J2KXOsiz = ' + IntToStr(LEADDicomDS1.J2KOptions.J2KXOsiz) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KYOsiz = ' + IntToStr(LEADDicomDS1.J2KOptions.J2KYOsiz) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KXTsiz = ' + IntToStr(LEADDicomDS1.J2KOptions.J2KXTsiz) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KYTsiz = ' + IntToStr(LEADDicomDS1.J2KOptions.J2KYTsiz) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KXTOsiz = ' + IntToStr(LEADDicomDS1.J2KOptions.J2KXTOsiz) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KYTOsiz = ' + IntToStr(LEADDicomDS1.J2KOptions.J2KYTOsiz) + Chr(13) + Chr(10);

   strMsg:= strMsg + 'J2KDecompLevel = ' + IntToStr(LEADDicomDS1.J2KOptions.J2KDecompLevel) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KProgressOrder = ' + IntToStr(LEADDicomDS1.J2KOptions.J2KProgressOrder) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KCodBlockWidth = ' + IntToStr(LEADDicomDS1.J2KOptions.J2KCodBlockWidth) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KCodBlockHeight = ' + IntToStr(LEADDicomDS1.J2KOptions.J2KCodBlockHeight) + Chr(13) + Chr(10);

   strMsg:= strMsg + 'J2KCBS_SelectiveACBypass = ' + BoolToStr(LEADDicomDS1.J2KOptions.J2KCBS_SelectiveACBypass) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KCBS_ResetContextOnBoundaries = ' + BoolToStr(LEADDicomDS1.J2KOptions.J2KCBS_ResetContextOnBoundaries) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KCBS_TerminationOnEachPass = ' + BoolToStr(LEADDicomDS1.J2KOptions.J2KCBS_TerminationOnEachPass) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KCBS_VerticallyCausalContext = ' + BoolToStr(LEADDicomDS1.J2KOptions.J2KCBS_VerticallyCausalContext) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KCBS_PredictableTermination = ' + BoolToStr(LEADDicomDS1.J2KOptions.J2KCBS_PredictableTermination) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KCBS_ErrorResilienceSymbol = ' + BoolToStr(LEADDicomDS1.J2KOptions.J2KCBS_ErrorResilienceSymbol) + Chr(13) + Chr(10);

   strMsg:= strMsg + 'J2KGuardBits = ' + IntToStr(LEADDicomDS1.J2KOptions.J2KGuardBits) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KDerivedBaseMantissa = ' + IntToStr(LEADDicomDS1.J2KOptions.J2KDerivedBaseMantissa) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KDerivedBaseExponent = ' + IntToStr(LEADDicomDS1.J2KOptions.J2KDerivedBaseExponent) + Chr(13) + Chr(10);

   strMsg:= strMsg + 'J2KUseSOPMarker = ' + BoolToStr(LEADDicomDS1.J2KOptions.J2KUseSOPMarker) + Chr(13) + Chr(10);
   strMsg:= strMsg + 'J2KUseEPHMarker = ' + BoolToStr(LEADDicomDS1.J2KOptions.J2KUseEPHMarker) + Chr(13) + Chr(10);

   ShowMessage(strMsg);
end;