Домой Классы Статические функции Перечисления (ENUM) Записи (RECORD)

{Dialog_dir|ectory_select}


CLASS {Dialog_dir|ectory_select} , UNTESTED :



IMPORT : {Form} , {Control} , {AL4_dir_dialog} , {Geometry} .

BASE CLASS {Control} .



------------------------------------------------------------------ 'create'

 

FUNCTION New_dialog_dir|ectory_select (
     
{Form} F|orm_owner ,
     
STR A|lias_dialog ) ==> {Dialog_dir} , NEW



-------------------------------------------------------------- 'properties'

STR Title|_dialog


STR Initial_path||InitialPath


STR Path|_selected



------------------------------------------------ 'show to select directory'

   

METHOD Select_dir|ectory ==> BOOL



METHOD Execute|_selection_directory ==> BOOL



OVERRIDE Bounds ==> {Geometry}.{rect} , REPLACE


END


См. так же с защищёнными членами