WDLLMOD.LST 1.0 KB

12345678910111213141516171819202122232425262728293031
  1. Listing:
  2. 1 (*# check(stack=>off,
  3. 2 index=>off,
  4. 3 range=>off,
  5. 4 overflow=>off,
  6. 5 nil_ptr=>off) *)
  7. 6 IMPLEMENTATION MODULE WDLLMod;
  8. 7
  9. 8 PROCEDURE MessagePaint(hdc: Windows.HDC; szMessage: ARRAY OF CHAR; MessageLength: CARDINAL);
  10. ***** ^ undeclared identifier
  11. ***** ^ not supported yet
  12. ***** ^ not supported yet
  13. 9
  14. 10 BEGIN
  15. 11 IF Windows.TextOut(hdc, 10, 10, szMessage, MessageLength ) # 0 THEN END;
  16. ***** ^ undeclared identifier
  17. ***** ^ not supported yet
  18. ***** ^ not supported yet
  19. ***** ^ not supported yet
  20. ***** ^ not supported yet
  21. 12 END MessagePaint;
  22. ***** ^ not supported yet
  23. 13
  24. 14
  25. 15 END WDLLMod.
  26. ***** ^ not supported yet
  27. 10 errors