Screen printing function
According to Custombrowser and customed, there are processes Setreportaction
Procedure Tfrmcustombrowser.setreportaction;
Begin
Processor.ReportOptions.CanPrint: = aprint.enabled;
Processor.ReportOptions.CanDesign: = Sametext (AppManager.AppUser.UserNO, ' Sys ') or AppManager.AppUser.CanDesignReport;
End
If you can print, you actually see the properties of aprint.enabled.
The "Browse form"
Inheriting the setactionenabled process
Procedure tfrmxxx.setactionenabled;
Begin
This line is necessary because the setactionenabled in Custombrowser does not handle the aprint.enabled.
aprint.enabled: = Isenabledaction (Aprint) and masterdataset.active and (Masterdataset.recordcount > 0);
inherited;
If condition is established then
Begin
aprint.enabled: = False;
End
End
"Editor or Bill form"
Procedure tfrmxxxbill.setactionenabled;
Begin
inherited;
If condition is established then
Begin
aprint.enabled: = False;
End
End
Attention:
Because setactionenabled in customed has already handled aprint.enabled, you do not need to set the Aprint.enabled property before inherited like the browse form.