TPrinter:Preview() method

[Enrico Maria Giordano]

Is it right that TPrinter:Preview() method

Code: Select all  Expand view

METHOD Preview() INLINE If( ::lMeta .and. Len( ::aMeta ) > 0 .and. ::hDC != 0,;
                               RPreview( Self ), ::End() )

calls ::End() if ::lMeta is .F.? If I'm not wrong, it seems that it calls ::End() a second time inside PrintEnd() function:

Code: Select all  Expand view

FUNCTION PrintEnd()

     IF oPrinter:lMeta
          oPrinter:Preview()
     ELSE
          oPrinter:End()
     ENDIF

     oPrinter := nil

RETURN nil

EMG

[Antonio Linares]

Enrico,

Class TPrinter Method End() checks if ::hDC != nil so it should not be a problem to call it twice.

[Enrico Maria Giordano]

Yes, you are right. Sorry for the false alarm.

EMG