//Use SetDir.vw // Find file view Use API_Attr.nui // Functions for querying API attributes (No User Interface) Use Spec0011.utl // Floating menues on the fly Use Buttons.utl // Button texts Use GridUtil.utl // Grid and List utilities Use Files.utl // Utilities for handling file related stuff Use SetDir.pkg // cSetOfDirectories class Use Masks_DF.nui // DataFlex related file masks object oSetOfDirectories is a cSetOfDirectories NO_IMAGE #IFDEF IS$WINDOWS object oWait is a StatusPanel set allow_cancel_state to DFFALSE end_object procedure OnWait_On string lsCaption set caption_text of (oWait(self)) to lsCaption set title_text of (oWait(self)) to "" set message_text of (oWait(self)) to "" set action_text of (oWait(self)) to "" send Start_StatusPanel to (oWait(self)) end_procedure procedure OnWait_SetText1 string lsValue set Message_Text of (oWait(self)) to lsValue end_procedure procedure OnWait_SetText2 string lsValue set Action_Text of (oWait(self)) to lsValue end_procedure procedure OnWait_Off send Stop_StatusPanel to (oWait(self)) end_procedure #ELSE procedure OnWait_On string lsCaption send ScreenEndWait_On 0 0 send ScreenEndWait_SetText lsCaption end_procedure procedure OnWait_SetText1 string lsValue send ScreenEndWait_SetText lsValue end_procedure procedure OnWait_SetText2 string lsValue send ScreenEndWait_SetText2 lsValue end_procedure procedure OnWait_Off send ScreenEndWait_Off end_procedure #ENDIF end_object object oSetOfFilesNew is a cSetOfFilesNew NO_IMAGE set piSOD_Object to (oSetOfDirectories(self)) end_object #IFDEF IS$WINDOWS Use Buttons.utl // Button texts Use APS // Auto Positioning and Sizing classes for VDF activate_view Activate_FindFileResultVw for oNewFindFileResultVw object oNewFindFileResultVw is a aps.View label "Find file, result" on_key kuser send Activate_SetDirTestVw on_key kcancel send close_panel object oLst is a cSetOfFilesListNew set size to 200 0 set piSOF_Object to (oSetOfFilesNew(self)) procedure OnListFilled integer liFileCount number lnBytes send total_display (SEQ_FileSizeToString(lnBytes)+" in "+string(liFileCount)+" files") end_procedure procedure DoReset forward send DoReset send Activate_SetDirTestVw end_procedure end_object send aps_goto_max_row object oSelectTxt is a aps.TextBox end_object set auto_size_state of (oSelectTxt(self)) to DFTRUE procedure total_display string lsValue set value of (oSelectTxt(self)) to lsValue end_procedure object oBtn1 is a aps.Multi_Button on_item "Reset list" send DoReset to (oLst(self)) end_object object oBtn2 is a aps.Multi_Button on_item "Copy files" send DoCopyFilesToDirectory to (oLst(self)) end_object object oBtn3 is a aps.Multi_Button on_item t.btn.close send close_panel end_object send aps_locate_multi_buttons set Border_Style to BORDER_THICK // Make panel resizeable procedure aps_onResize integer delta_rw# integer delta_cl# send aps_resize (oLst(self)) delta_rw# 0 // delta_cl# send aps_auto_locate_control (oSelectTxt(self)) SL_DOWN (oLst(self)) send aps_register_multi_button (oBtn1(self)) send aps_register_multi_button (oBtn2(self)) send aps_register_multi_button (oBtn3(self)) send aps_locate_multi_buttons send aps_auto_size_container end_procedure procedure fill_list send fill_list to (oLst(self)) end_procedure end_object // oNewFindFileResultVw procedure Activate_FindFileResultVwReFill send fill_list to (oNewFindFileResultVw(self)) send Activate_FindFileResultVw end_procedure activate_view Activate_SetDirTestVw for oNewFindFileVw object oNewFindFileVw is a aps.View label "Find file" on_key kuser send Activate_FindFileResultVw set pMinimumSize to 220 0 on_key kcancel send close_panel object oLstHeader is a aps.Textbox label "Folders in search path" end_object object oLst is a cSetOfDirectoriesList snap SL_DOWN set size to 170 0 set piSetOfDirectoriesObject to (oSetOfDirectories(self)) register_object oLstTotal set Horz_Scroll_Bar_Visible_State to false procedure OnListChanged integer liItems set value of (oLstTotal(self)) to (" "+string(liItems)+" folders") end_procedure end_object object oLstTotal is a aps.Textbox label " 0 folders " end_object send aps_goto_max_row object oFrm is a aps.Form abstract AFT_ASCII80 label "Find this file (wildcards allowed):" set p_extra_internal_width to -240 register_object oBtn4 on_key kenter send goto_search_button end_object procedure DoAddOne send DoAddDirectory to (oLst(self)) end_procedure procedure DoAddSub send DoAddSubDirectories to (oLst(self)) end_procedure procedure DoMakePath local integer lhoWorkSpace local string lsPath get_profile_string "DfComp" "MakePath" to lsPath #IFDEF get_DFMatrix_WorkSpaceLoaded if (DFMatrix_WorkSpaceLoaded()) begin get phoWorkspace of ghoApplication To lhoWorkSpace move (psAppSrcPath(lhoWorkSpace)+";"+psProgramPath(lhoWorkSpace)+";"+psDataPath(lhoWorkSpace)+";"+psDdSrcPath(lhoWorkSpace)+";"+psHelpPath(lhoWorkSpace)+";"+psSystemMakePath(lhoWorkSpace)) to lsPath end #ENDIF send DoAddSearchPath to (oLst(self)) lsPath end_procedure procedure DoDFPath local integer lhoWorkSpace local string lsPath #IFDEF get_DFMatrix_WorkSpaceLoaded get phoWorkspace of ghoApplication To lhoWorkSpace if (DFMatrix_WorkSpaceLoaded()) move (psDfPath(lhoWorkSpace)) to lsPath else move (API_AttrValue_GLOBAL(DF_OPEN_PATH)) to lsPath // Oem fixed! move (ToOem(lsPath)) to lsPath #ELSE move (API_AttrValue_GLOBAL(DF_OPEN_PATH)) to lsPath #ENDIF send DoAddSearchPath to (oLst(self)) lsPath end_procedure send DoDFPath // Default value procedure DoPath send DoAddSearchPath to (oLst(self)) (API_OtherAttr_Value(OA_PATH)) end_procedure procedure DoReset send DoReset to (oLst(self)) end_procedure object oBtn1 is a aps.Button snap SL_RIGHT relative_to (oLst(self)) set size to 14 70 procedure PopupFM send FLOATMENU_PrepareAddItem msg_DoAddOne "One folder" send FLOATMENU_PrepareAddItem msg_DoAddSub "Sub-folders" send FLOATMENU_PrepareAddItem msg_DoMakePath "MakePath" send FLOATMENU_PrepareAddItem msg_DoDFPath "DFPath" send FLOATMENU_PrepareAddItem msg_DoPath "EXE search path" send FLOATMENU_PrepareAddItem msg_none "" send FLOATMENU_PrepareAddItem msg_DoReset "Reset list" send popup to (FLOATMENU_Apply(self)) end_procedure on_item "Add folders" send PopupFM end_object object oBtn2 is a aps.Button snap SL_DOWN set size to 14 70 on_item "Remove from list" send DoRemoveDirectory to (oLst(self)) end_object object oBtn3 is a aps.Button snap SL_DOWN set size to 14 70 on_item "Reset list" send DoReset end_object object oSpacer1 is a aps.Textbox label " " snap SL_DOWN end_object object oBtn4 is a aps.Button snap SL_DOWN set size to 14 70 on_item "Find file" send DoFindFile end_object object oBtn4 is a aps.Button snap SL_DOWN set size to 14 70 register_procedure DoFindDFSource register_procedure DoFindDFData register_procedure DoFindDFRuntime register_procedure DoFindDFAll procedure PopupFM send FLOATMENU_PrepareAddItem msg_DoFindDFSource "DF source code" send FLOATMENU_PrepareAddItem msg_DoFindDFData "DF data files" send FLOATMENU_PrepareAddItem msg_DoFindDFRuntime "DF runtime files" send FLOATMENU_PrepareAddItem msg_DoFindDFAll "All DF files" send popup to (FLOATMENU_Apply(self)) end_procedure on_item "Special find (slow)" send PopupFM end_object procedure goto_search_button send activate to (oBtn4(self)) end_procedure object oBtn5 is a aps.Button snap SL_DOWN set size to 14 70 on_item "Scan PR? file" send DoFindPrnFile end_object object oFirstOccuranceOnly is a aps.CheckBox label "1st occur. only" snap SL_DOWN end_object object oSpacer2 is a aps.Textbox label " " snap SL_DOWN end_object object oBtnClose is a aps.Button snap SL_DOWN set size to 14 70 on_item t.btn.close send close_panel end_object procedure DoFindFile local integer lbFirstOnly local string lsFileMask get value of (oFrm(self)) item 0 to lsFileMask if (lsFileMask<>"") begin get select_state of (oFirstOccuranceOnly(self)) to lbFirstOnly send DoFindFile to (oSetOfFilesNew(self)) lsFileMask lbFirstOnly send Activate_FindFileResultVwReFill end else begin send obs "You must enter a file name before finding." send activate to (oFrm(self)) end end_procedure procedure DoFindDFSource local integer lbFirstOnly get select_state of (oFirstOccuranceOnly(self)) to lbFirstOnly send DoFindFileBySetOfMasks to (oSetOfFilesNew(self)) (oSetOfMasks_DFSource(self)) lbFirstOnly send Activate_FindFileResultVwReFill end_procedure procedure DoFindDFData local integer lbFirstOnly get select_state of (oFirstOccuranceOnly(self)) to lbFirstOnly send DoFindFileBySetOfMasks to (oSetOfFilesNew(self)) (oSetOfMasks_DFData(self)) lbFirstOnly send Activate_FindFileResultVwReFill end_procedure procedure DoFindDFRuntime local integer lbFirstOnly get select_state of (oFirstOccuranceOnly(self)) to lbFirstOnly send DoFindFileBySetOfMasks to (oSetOfFilesNew(self)) (oSetOfMasks_DFRuntime(self)) lbFirstOnly send Activate_FindFileResultVwReFill end_procedure procedure DoFindDFAll local integer lbFirstOnly get select_state of (oFirstOccuranceOnly(self)) to lbFirstOnly send DoFindFileBySetOfMasks to (oSetOfFilesNew(self)) (oSetOfMasks_DFAll(self)) lbFirstOnly send Activate_FindFileResultVwReFill end_procedure procedure DoFindPrnFile local integer lbFirstOnly local string lsPrnFile get SEQ_SelectFile "Select compiler listing file" "Compiler listing (*.prn)|*.PRN|Precompile listing (*.prp)|*.PRP" to lsPrnFile if lsPrnFile ne "" begin get select_state of (oFirstOccuranceOnly(self)) to lbFirstOnly send DoFindFilesCompilerListing to (oSetOfFilesNew(self)) lsPrnFile lbFirstOnly send Activate_FindFileResultVwReFill end end_procedure procedure aps_beautify send aps_align_by_moving (oFrm(self)) (oLst(self)) SL_ALIGN_RIGHT send aps_align_by_moving (oLstTotal(self)) (oLst(self)) SL_ALIGN_BOTTOM end_procedure set Border_Style to BORDER_THICK // Make panel resizeable procedure aps_onResize integer delta_rw# integer delta_cl# send aps_resize (oLst(self)) delta_rw# 0 // delta_cl# send aps_auto_locate_control (oFrm(self)) SL_DOWN (oLst(self)) send aps_beautify send aps_register_max_rc (oBtn1(self)) send aps_auto_size_container end_procedure end_object // oNewFindFileVw #ELSE /NewFindFileResult.hdr 旼Find file, result컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� /NewFindFileResult.lst � � 쿑ile name Ext Size Modified Directory � �____________ ___ ______ ________________ ____________________________________ � �____________ ___ ______ ________________ ____________________________________ � �____________ ___ ______ ________________ ____________________________________ � �____________ ___ ______ ________________ ____________________________________ � �____________ ___ ______ ________________ ____________________________________ � �____________ ___ ______ ________________ ____________________________________ � �____________ ___ ______ ________________ ____________________________________ � �____________ ___ ______ ________________ ____________________________________ � �____________ ___ ______ ________________ ____________________________________ � �____________ ___ ______ ________________ ____________________________________ � /NewFindFileResult.Total �_____________________ � /NewFindFileResult.btn � ______________ ______________ ___________ � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 /* activate_view Activate_FindFileResultVw for oNewFindFileResultVw object oNewFindFileResultVw is a app.Client NewFindFileResult.hdr set location to 4 0 absolute on_key kuser send Activate_SetDirTestVw object oLst is a cSetOfFilesListNew NewFindFileResult.lst set location to 1 0 relative set piSOF_Object to (oSetOfFilesNew(self)) procedure OnListFilled integer liFileCount number lnBytes send total_display (SEQ_FileSizeToString(lnBytes)+" in "+string(liFileCount)+" files") end_procedure procedure DoReset forward send DoReset send Activate_SetDirTestVw end_procedure end_object object oSelectTxt is a Form NewFindFileResult.Total set focus_mode to POINTER_ONLY set window_color item 0 to 2 set location to 13 0 relative item_list on_item "" send none end_item_list end_object procedure total_display string lsValue set value of (oSelectTxt(self)) item 0 to lsValue end_procedure object oBtn1 is a app.Button NewFindFileResult.btn set location to 14 0 relative item_list on_item "Reset list" send DoReset to (oLst(self)) on_item "Copy files" send DoCopyFilesToDirectory to (oLst(self)) on_item t.btn.close send request_cancel end_item_list end_object procedure fill_list send fill_list to (oLst(self)) end_procedure end_object // oNewFindFileResultVw procedure Activate_FindFileResultVwReFill send fill_list to (oNewFindFileResultVw(self)) send Activate_FindFileResultVw end_procedure /NewFindFileVw.Hdr 旼Find file:컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 /NewFindFileVw.Lst � 쿞earch path: �__________________________________________________________ �__________________________________________________________ �__________________________________________________________ �__________________________________________________________ �__________________________________________________________ �__________________________________________________________ �__________________________________________________________ �__________________________________________________________� �__________________________________________________________ �__________________________________________________________ �__________________________________________________________ �__________________________________________________________ �__________________________________________________________ �__________________________________________________________ /NewFindFileVw.Total 냐___________________컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� /NewFindFileVw.Frm � Find this file (wildcards allowed):[____________________] � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 /NewFindFileVw.Btn1 � � _______________ � cA � _______________ � sF2 � _______________ � F5 � � _______________ � F9 � _______________ � cS � _______________ � cP � /NewFindFileVw.Cb ___ 1st occur � only � /NewFindFileVw.Btn2 � _______________ � 컴컴컴컴컴컴컴컴켸 /* Use App.utl // Character Mode classes Use Buttons.utl // Button texts activate_view Activate_SetDirTestVw for oNewFindFileVw object oNewFindFileVw is a app.Client NewFindFileVw.Hdr action_bar (main_menu(self)) set location to 2 1 absolute on_key kuser send Activate_FindFileResultVw object oLst is a cSetOfDirectoriesList NewFindFileVw.Lst set location to 1 0 relative set piSetOfDirectoriesObject to (oSetOfDirectories(self)) register_object oLstTotal procedure OnListChanged integer liItems set value of (oLstTotal(self)) item 0 to (string(liItems)+" folders컴컴컴컴컴컴컴컴컴") end_procedure end_object object oLstTotal is a Form NewFindFileVw.Total set location to 17 0 relative set focus_mode to POINTER_ONLY set window_color item 0 to 2 item_list on_item "0 folders컴컴컴컴컴컴컴컴컴" send none end_item_list end_object object oFrm is a Form NewFindFileVw.Frm set location to 18 0 relative on_key kenter send goto_search_button item_list on_item "" send goto_search_button end_item_list end_object procedure activate_scope forward send activate_scope send activate to (oFrm(self)) end_procedure procedure DoAddOne send DoAddDirectory to (oLst(self)) end_procedure procedure DoAddSub send DoAddSubDirectories to (oLst(self)) end_procedure procedure DoDFPath local string lsPath move (API_AttrValue_GLOBAL(DF_OPEN_PATH)) to lsPath send DoAddSearchPath to (oLst(self)) lsPath end_procedure send DoDFPath //Default value procedure DoPath send DoAddSearchPath to (oLst(self)) (API_OtherAttr_Value(OA_PATH)) end_procedure procedure DoReset send DoReset to (oLst(self)) end_procedure object oBtn1 is a app.Button NewFindFileVw.Btn1 set location to 1 60 relative procedure PopupFM1 send FLOATMENU_PrepareAddItem msg_DoAddOne "One folder" send FLOATMENU_PrepareAddItem msg_DoAddSub "Sub-folders" send FLOATMENU_PrepareAddItem msg_DoDFPath "DFPath" send FLOATMENU_PrepareAddItem msg_DoPath "EXE search path" send FLOATMENU_PrepareAddItem msg_none "" send FLOATMENU_PrepareAddItem msg_DoReset "Reset list" send popup to (FLOATMENU_Apply(self)) end_procedure register_procedure DoFindDFSource register_procedure DoFindDFData register_procedure DoFindDFRuntime register_procedure DoFindDFAll procedure PopupFM2 send FLOATMENU_PrepareAddItem msg_DoFindDFSource "DF source code" send FLOATMENU_PrepareAddItem msg_DoFindDFData "DF data files" send FLOATMENU_PrepareAddItem msg_DoFindDFRuntime "DF runtime files" send FLOATMENU_PrepareAddItem msg_DoFindDFAll "All DF files" send popup to (FLOATMENU_Apply(self)) end_procedure item_list on_item "Add folders" send PopupFM1 on_item "Rem from list" send DoRemoveDirectory to (oLst(self)) on_item "Reset list" send DoReset on_item "Find file" send DoFindFile on_item "Special find" send PopupFM2 on_item "Scan PR? file" send DoFindPrnFile end_item_list end_object procedure goto_search_button send activate to (oBtn1(self)) set current_item of (oBtn1(self)) to 3 end_procedure object oFirstOccuranceOnly is a Button NewFindFileVw.Cb set location to 16 60 relative set select_mode to multi_select on_key kdownarrow send switch on_key kuparrow send switch_back on_key kswitch send switch on_key kswitch_back send switch_back item_list on_item "" send none set checkbox_item_state to true set select_state to false end_item_list end_object object oBtnClose is a app.Button NewFindFileVw.Btn2 set location to 18 60 relative item_list on_item t.btn.close send request_cancel end_item_list end_object procedure DoFindFile local integer lbFirstOnly local string lsFileMask get value of (oFrm(self)) item 0 to lsFileMask if (lsFileMask<>"") begin get select_state of (oFirstOccuranceOnly(self)) item 0 to lbFirstOnly send DoFindFile to (oSetOfFilesNew(self)) lsFileMask lbFirstOnly send Activate_FindFileResultVwReFill end else begin send obs "You must enter a file name before finding." send activate to (oFrm(self)) end end_procedure procedure DoFindDFSource local integer lbFirstOnly get select_state of (oFirstOccuranceOnly(self)) item 0 to lbFirstOnly send DoFindFileBySetOfMasks to (oSetOfFilesNew(self)) (oSetOfMasks_DFSource(self)) lbFirstOnly send Activate_FindFileResultVwReFill end_procedure procedure DoFindDFData local integer lbFirstOnly get select_state of (oFirstOccuranceOnly(self)) item 0 to lbFirstOnly send DoFindFileBySetOfMasks to (oSetOfFilesNew(self)) (oSetOfMasks_DFData(self)) lbFirstOnly send Activate_FindFileResultVwReFill end_procedure procedure DoFindDFRuntime local integer lbFirstOnly get select_state of (oFirstOccuranceOnly(self)) item 0 to lbFirstOnly send DoFindFileBySetOfMasks to (oSetOfFilesNew(self)) (oSetOfMasks_DFRuntime(self)) lbFirstOnly send Activate_FindFileResultVwReFill end_procedure procedure DoFindDFAll local integer lbFirstOnly get select_state of (oFirstOccuranceOnly(self)) item 0 to lbFirstOnly send DoFindFileBySetOfMasks to (oSetOfFilesNew(self)) (oSetOfMasks_DFAll(self)) lbFirstOnly send Activate_FindFileResultVwReFill end_procedure procedure DoFindPrnFile local integer lbFirstOnly local string lsPrnFile get SEQ_SelectFile "Select compiler listing file" "Compiler listing (*.prn)|*.PRN|Precompile listing (*.prp)|*.PRP" to lsPrnFile if lsPrnFile ne "" begin get select_state of (oFirstOccuranceOnly(self)) item 0 to lbFirstOnly send DoFindFilesCompilerListing to (oSetOfFilesNew(self)) lsPrnFile lbFirstOnly send Activate_FindFileResultVwReFill end end_procedure on_key KEY_CTRL+KEY_A send PopupFM1 to (oBtn1(self)) on_key KDELETE_RECORD send DoRemoveDirectory to (oLst(self)) on_key KCLEAR send DoReset on_key KFIND send DoFindFile on_key KEY_CTRL+KEY_S send PopupFM2 to (oBtn1(self)) on_key KEY_CTRL+KEY_P send DoFindPrnFile end_object // oNewFindFileVw #ENDIF