View Full Version : wui_save_as_file
Yannick Rouat
11-18-2002, 01:34 AM
Hello
By default , wui_save_as_file open the windows with the *.mi file.
Is it possible to change this to *.bi or other
Regards
Yannick Rouat
11-18-2002, 05:51 AM
A solution from Mike Ratajczyk who work very well
DEFINE Wui_store_as_compressed_bi
LOCAL Return_string
LOCAL File_name
INQ_SELECTED_ELEM SELECT ALL CONFIRM
IF ((INQ 14)=0)
BEEP
DISPLAY "The current file is empty. Can not stored file."
ELSE
INQ_ENV 10
IF (INQ 19 = 1) {for MFC WUI only}
LET Return_string (WUI_FILE_DIALOG FILE_SAVE CAPTION "Store as Compressed MI file")
FILTER "Compressed MI (*.bi)|*.bi|All Files(*.*)|*.*||")
IF (Return_string = 'OK')
INQ_ENV 0
LET File_name (INQ 904) {first selected file from file dialog}
STORE ALL DEL_OLD File_name
END_IF
END_IF
END_IF
END_DEFINE
vBulletin® v3.8.4, Copyright ©2000-2024, Jelsoft Enterprises Ltd.