> -- Цитата:
> PROCEDURE (axes: Rendaxes) HandlePropMsg (VAR msg: Properties.Message);		CONST  w =  160 * Ports.mm;  h = 90 * Ports.mm;	BEGIN		WITH msg: Properties.SizePref DO			---- 				msg.w := w; msg.h := h			END		|  msg: Properties.ResizePref DO			msg.horFitToWin := TRUE;  msg.verFitToWin := TRUE		ELSE		END	END HandlePropMsg;
а вообще по моему очень симпатично