История изменений

Исправление X512, 10.09.20 14:25 (текущая версия) :

А где Message объявлен?

Можно написать

TYPE
	Message = ANYREC;

или

	TYPE
		Message = ABSTRACT RECORD END;
		
		MouseMsg = RECORD (Message)
			x, y: INTEGER;
			btns: SET;
			shape: INTEGER;
		END;
		
		CharMsg = RECORD (Message)
			ch: CHAR;
		END;

Исходная версия X512, 10.09.20 14:24:

А где Message объявлен?

Можно написать

TYPE
	Message = ANYREC;

или

		Message = ABSTRACT RECORD END;
		
		MouseMsg = RECORD (Message)
			x, y: INTEGER;
			btns: SET;
			shape: INTEGER;
		END;
		
		CharMsg = RECORD (Message)
			ch: CHAR;
		END;