Save dialog - update file extension in dialog on type change

[Sailor]

The following code in the OnTypeChange event handler
will do it:

WITH SaveDialog
DO BEGIN
SendMessage(GetParent(Handle),cdm_SetControlText,E dt1,
Integer(PChar(ExtractFileName(file_id))));
SetWindowText(GetParent(Handle),PChar(Title))
END