diff --git a/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/Button.4dm b/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/Button.4dm index aa42637..7329b9f 100644 --- a/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/Button.4dm +++ b/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/Button.4dm @@ -1,18 +1,19 @@ -C_TEXT:C284($Txt_fileName) +var $file_name : Text -$Txt_fileName:=Select document:C905("";"";"";0) + +$file_name:=Select document:C905(""; ""; ""; 0) If (OK=1) - //set the path - (OBJECT Get pointer:C1124(Object named:K67:5;"widget_path"))->:=DOCUMENT + //set the path + (OBJECT Get pointer:C1124(Object named:K67:5; "widget_path"))->:=DOCUMENT - //set the type, message & placeholder - PathPicker SET TYPE ("widget_path";Is a document:K24:1) - pathPicker SET MESSAGE ("widget_path";"Select file:") - PathPicker SET PLACEHOLDER ("widget_path";"Please select a file") + //set the type, message & placeholder + PathPicker SET TYPE("widget_path"; Is a document:K24:1) + pathPicker SET MESSAGE("widget_path"; "Select file:") + PathPicker SET PLACEHOLDER("widget_path"; "Please select a file") - //update UI + //update UI SET TIMER:C645(-1) End if \ No newline at end of file diff --git a/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/Button1.4dm b/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/Button1.4dm index 7997a77..5fb6ca4 100644 --- a/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/Button1.4dm +++ b/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/Button1.4dm @@ -1,18 +1,18 @@ -C_TEXT:C284($Txt_path) +var $path : Text -$Txt_path:=Select folder:C670("";"";0) +$path:=Select folder:C670(""; ""; 0) If (OK=1) - //set the path - (OBJECT Get pointer:C1124(Object named:K67:5;"widget_path"))->:=$Txt_path + //set the path + (OBJECT Get pointer:C1124(Object named:K67:5; "widget_path"))->:=$path - //set the type, message & placeholder - PathPicker SET TYPE ("widget_path";Is a folder:K24:2) - pathPicker SET MESSAGE ("widget_path";"Select folder:") - PathPicker SET PLACEHOLDER ("widget_path";"Please select a folder") + //set the type, message & placeholder + PathPicker SET TYPE("widget_path"; Is a folder:K24:2) + pathPicker SET MESSAGE("widget_path"; "Select folder:") + PathPicker SET PLACEHOLDER("widget_path"; "Please select a folder") - //update UI + //update UI SET TIMER:C645(-1) End if \ No newline at end of file diff --git a/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/type.4dm b/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/type.4dm index 597cfd0..d2af091 100644 --- a/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/type.4dm +++ b/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/type.4dm @@ -1,10 +1,11 @@ -C_LONGINT:C283($Lon_type) +var $type : Integer -$Lon_type:=Self:C308->-1 -PathPicker SET TYPE ("widget_path";$Lon_type) -pathPicker SET MESSAGE ("widget_path";Choose:C955($Lon_type=Is a document:K24:1;"Select file:";"Select folder:")) -PathPicker SET PLACEHOLDER ("widget_path";Choose:C955($Lon_type=Is a document:K24:1;"Please select a file";"Please select a folder")) +$type:=Self:C308->-1 - //update UI +PathPicker SET TYPE("widget_path"; $type) +pathPicker SET MESSAGE("widget_path"; Choose:C955($type=Is a document:K24:1; "Select file:"; "Select folder:")) +PathPicker SET PLACEHOLDER("widget_path"; Choose:C955($type=Is a document:K24:1; "Please select a file"; "Please select a folder")) + +//update UI SET TIMER:C645(-1) \ No newline at end of file diff --git a/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/widget_path.4dm b/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/widget_path.4dm index a1ab02e..c058c61 100644 --- a/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/widget_path.4dm +++ b/Project/Sources/Forms/HDI_PATH_PICKER/ObjectMethods/widget_path.4dm @@ -1,47 +1,52 @@ - // ---------------------------------------------------- - // Object method : HDI_PATH_PICKER.widget_path - // ID[5AC07F61D04D4C29A136AA0B224F1384] - // Created #9-9-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Declarations -C_LONGINT:C283($Lon_bottom;$Lon_formEvent;$Lon_left;$Lon_right;$Lon_top) -C_POINTER:C301($Ptr_me) -C_TEXT:C284($Txt_me) - - // ---------------------------------------------------- - // Initialisations -$Lon_formEvent:=Form event code:C388 -$Txt_me:=OBJECT Get name:C1087(Object current:K67:2) -$Ptr_me:=OBJECT Get pointer:C1124(Object current:K67:2) - -$Lon_formEvent:=Form event code:C388 - - // ---------------------------------------------------- +// ---------------------------------------------------- +// Object method : HDI_PATH_PICKER.widget_path +// ID[5AC07F61D04D4C29A136AA0B224F1384] +// Created #9-9-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Declarations + +var $e : Object +var $my_name : Text +var $self : Pointer + +var $left; $top; $right; $bottom : Integer + + + +// ---------------------------------------------------- +// Initialisations + +$e:=FORM Event:C1606 +$my_name:=OBJECT Get name:C1087(Object current:K67:2) +$self:=OBJECT Get pointer:C1124(Object current:K67:2) + + +// ---------------------------------------------------- Case of - //______________________________________________________ - : ($Lon_formEvent<0) + //______________________________________________________ + : ($e.code<0) - //______________________________________________________ - : ($Lon_formEvent=On Data Change:K2:15) + //______________________________________________________ + : ($e.code=On Data Change:K2:15) - //update UI + //update UI SET TIMER:C645(-1) - //______________________________________________________ - : ($Lon_formEvent=On Load:K2:1) + //______________________________________________________ + : ($e.code=On Load:K2:1) - //Resize the widget - OBJECT GET COORDINATES:C663(*;$Txt_me+".template";$Lon_left;$Lon_top;$Lon_right;$Lon_bottom) - OBJECT SET COORDINATES:C1248(*;$Txt_me;$Lon_left;$Lon_top;$Lon_right;$Lon_bottom) + //Resize the widget + OBJECT GET COORDINATES:C663(*; $my_name+".template"; $left; $top; $right; $bottom) + OBJECT SET COORDINATES:C1248(*; $my_name; $left; $top; $right; $bottom) - //Offsets of the widget - subform_SET_OFFSET ($Txt_me) + //Offsets of the widget + subform_SET_OFFSET($my_name) - //______________________________________________________ + //______________________________________________________ Else - ASSERT:C1129(False:C215;"Form event activated unnecessary ("+String:C10($Lon_formEvent)+")") + ASSERT:C1129(False:C215; "Form event activated unnecessary ("+String:C10($e.code)+")") - //______________________________________________________ + //______________________________________________________ End case \ No newline at end of file diff --git a/Project/Sources/Forms/HDI_PATH_PICKER/form.4DForm b/Project/Sources/Forms/HDI_PATH_PICKER/form.4DForm index 16d64a0..5e124da 100644 --- a/Project/Sources/Forms/HDI_PATH_PICKER/form.4DForm +++ b/Project/Sources/Forms/HDI_PATH_PICKER/form.4DForm @@ -1,4 +1,4 @@ -{ +{ "destination": "detailScreen", "windowTitle": "HDI Path picker", "windowSizingY": "fixed", @@ -314,5 +314,10 @@ "message" ] } - ] + ], + "geometryStamp": 4, + "$4d": { + "version": "1", + "kind": "form" + } } \ No newline at end of file diff --git a/Project/Sources/Forms/HDI_PATH_PICKER/method.4dm b/Project/Sources/Forms/HDI_PATH_PICKER/method.4dm index 5cf1461..efe59d3 100644 --- a/Project/Sources/Forms/HDI_PATH_PICKER/method.4dm +++ b/Project/Sources/Forms/HDI_PATH_PICKER/method.4dm @@ -1,50 +1,51 @@ - // ---------------------------------------------------- - // Form method : HDI_PATH_PICKER - // ID[6422098872994C57B8AC9F8BBA079A42] - // Created #9-9-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Declarations -C_LONGINT:C283($Lon_formEvent) +// ---------------------------------------------------- +// Form method : HDI_PATH_PICKER +// ID[6422098872994C57B8AC9F8BBA079A42] +// Created #9-9-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Declarations +var $e : Object - // ---------------------------------------------------- - // Initialisations -$Lon_formEvent:=Form event code:C388 - // ---------------------------------------------------- +// ---------------------------------------------------- +// Initialisations +$e:=FORM Event:C1606 + +// ---------------------------------------------------- Case of - //______________________________________________________ - : ($Lon_formEvent=On Load:K2:1) + //______________________________________________________ + : ($e.code=On Load:K2:1) - GOTO OBJECT:C206(*;"") + GOTO OBJECT:C206(*; "") SET TIMER:C645(-1) - //______________________________________________________ - : ($Lon_formEvent=On Unload:K2:2) + //______________________________________________________ + : ($e.code=On Unload:K2:2) - //______________________________________________________ - : ($Lon_formEvent=On Timer:K2:25) + //______________________________________________________ + : ($e.code=On Timer:K2:25) SET TIMER:C645(0) - //options - (OBJECT Get pointer:C1124(Object named:K67:5;"browse"))->:=Num:C11(PathPicker Get option ("widget_path";1)) - (OBJECT Get pointer:C1124(Object named:K67:5;"showOnDisk"))->:=Num:C11(PathPicker Get option ("widget_path";2)) - (OBJECT Get pointer:C1124(Object named:K67:5;"copyPath"))->:=Num:C11(PathPicker Get option ("widget_path";3)) - (OBJECT Get pointer:C1124(Object named:K67:5;"openItem"))->:=Num:C11(PathPicker Get option ("widget_path";4)) - (OBJECT Get pointer:C1124(Object named:K67:5;"type"))->:=1+PathPicker Get type ("widget_path") - (OBJECT Get pointer:C1124(Object named:K67:5;"message"))->:=PathPicker Get message ("widget_path") - (OBJECT Get pointer:C1124(Object named:K67:5;"placeholder"))->:=PathPicker Get placeholder ("widget_path") + //options + (OBJECT Get pointer:C1124(Object named:K67:5; "browse"))->:=Num:C11(PathPicker Get option("widget_path"; 1)) + (OBJECT Get pointer:C1124(Object named:K67:5; "showOnDisk"))->:=Num:C11(PathPicker Get option("widget_path"; 2)) + (OBJECT Get pointer:C1124(Object named:K67:5; "copyPath"))->:=Num:C11(PathPicker Get option("widget_path"; 3)) + (OBJECT Get pointer:C1124(Object named:K67:5; "openItem"))->:=Num:C11(PathPicker Get option("widget_path"; 4)) + (OBJECT Get pointer:C1124(Object named:K67:5; "type"))->:=1+PathPicker Get type("widget_path") + (OBJECT Get pointer:C1124(Object named:K67:5; "message"))->:=PathPicker Get message("widget_path") + (OBJECT Get pointer:C1124(Object named:K67:5; "placeholder"))->:=PathPicker Get placeholder("widget_path") - //path - (OBJECT Get pointer:C1124(Object named:K67:5;"path"))->:=(OBJECT Get pointer:C1124(Object named:K67:5;"widget_path"))-> + //path + (OBJECT Get pointer:C1124(Object named:K67:5; "path"))->:=(OBJECT Get pointer:C1124(Object named:K67:5; "widget_path"))-> - //______________________________________________________ + //______________________________________________________ Else - ASSERT:C1129(False:C215;"Form event activated unnecessary ("+String:C10($Lon_formEvent)+")") + ASSERT:C1129(False:C215; "Form event activated unnecessary ("+String:C10($e.code)+")") - //______________________________________________________ + //______________________________________________________ End case \ No newline at end of file diff --git a/Project/Sources/Forms/NQR/method.4dm b/Project/Sources/Forms/NQR/method.4dm index a581227..97ba808 100644 --- a/Project/Sources/Forms/NQR/method.4dm +++ b/Project/Sources/Forms/NQR/method.4dm @@ -4,9 +4,9 @@ // Created #13-3-2014 by Vincent de Lachaux // ---------------------------------------------------- // Declarations -C_BOOLEAN:C305($Boo_many; $Boo_one) -C_LONGINT:C283($Lon_area; $Lon_formEvent; $Lon_timerEvent) -C_POINTER:C301($Ptr_timer) +_O_C_BOOLEAN:C305($Boo_many; $Boo_one) +_O_C_LONGINT:C283($Lon_area; $Lon_formEvent; $Lon_timerEvent) +_O_C_POINTER:C301($Ptr_timer) // ---------------------------------------------------- // Initialisations @@ -67,12 +67,12 @@ Case of $Ptr_timer->:=-1 //init SET TIMER:C645(-1) - If (<>withFeature102041) - - // do not modify .doAction C++ is using it for launching QR ON COMMAND - Form:C1466.doAction:=Formula:C1597(NQR_doAction($1)) - - End if + //If (<>withFeature102041) + + // do not modify .doAction C++ is using it for launching QR ON COMMAND + Form:C1466.doAction:=Formula:C1597(NQR_doAction($1)) + + //End if //______________________________________________________ : ($Lon_formEvent=On Timer:K2:25) diff --git a/Project/Sources/Forms/PATH PICKER/ObjectMethods/browse.4dm b/Project/Sources/Forms/PATH PICKER/ObjectMethods/browse.4dm index b4dc9f3..48d48b3 100644 --- a/Project/Sources/Forms/PATH PICKER/ObjectMethods/browse.4dm +++ b/Project/Sources/Forms/PATH PICKER/ObjectMethods/browse.4dm @@ -1,128 +1,133 @@ - // ---------------------------------------------------- - // Object method : PATH PICKER.browse - // ID[FBCDFA41F1B94F72901526D840F4C608] - // Created #10-9-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Declarations -C_LONGINT:C283($0) +// ---------------------------------------------------- +// Object method : PATH PICKER.browse +// ID[FBCDFA41F1B94F72901526D840F4C608] +// Created #10-9-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Declarations +#DECLARE()->$RESULT : Integer -C_BOOLEAN:C305($Boo_OK) -C_LONGINT:C283($Lon_directory;$Lon_formEvent;$Lon_options;$Lon_type) -C_POINTER:C301($Ptr_me;$Ptr_widget) -C_TEXT:C284($Txt_directory;$Txt_fileTypes;$Txt_me;$Txt_message;$Txt_path) -C_OBJECT:C1216($Obj_widget) +var $is_ok : Boolean +var $e : Object - // ---------------------------------------------------- - // Initialisations -$Lon_formEvent:=Form event code:C388 -$Txt_me:=OBJECT Get name:C1087(Object current:K67:2) -$Ptr_me:=OBJECT Get pointer:C1124(Object current:K67:2) +var $directory_code; $options; $type : Integer +var $self; $widget_pointer : Pointer +var $directory_path; $file_types; $path; $message; $object_name : Text -$Ptr_widget:=OBJECT Get pointer:C1124(Object named:K67:5;"ob_widget") -$Obj_widget:=JSON Parse:C1218($Ptr_widget->) +var $widget : Object -$Lon_type:=OB Get:C1224($Obj_widget;"type";Is longint:K8:6) -$0:=-1 - // ---------------------------------------------------- +// ---------------------------------------------------- +// Initialisations +$e:=FORM Event:C1606 +$object_name:=OBJECT Get name:C1087(Object current:K67:2) +$self:=OBJECT Get pointer:C1124(Object current:K67:2) + +$widget_pointer:=OBJECT Get pointer:C1124(Object named:K67:5; "ob_widget") +$widget:=JSON Parse:C1218($widget_pointer->) + +$type:=OB Get:C1224($widget; "type"; Is longint:K8:6) + +$RESULT:=-1 + +// ---------------------------------------------------- Case of - //______________________________________________________ - : ($Lon_formEvent=On Clicked:K2:4) + //______________________________________________________ + : ($e.code=On Clicked:K2:4) - $Txt_message:=OB Get:C1224($Obj_widget;"message";Is text:K8:3) - $Txt_directory:=OB Get:C1224($Obj_widget;"directory";Is text:K8:3) - $Lon_options:=OB Get:C1224($Obj_widget;"options";Is longint:K8:6) + $message:=OB Get:C1224($widget; "message"; Is text:K8:3) + $directory_path:=OB Get:C1224($widget; "directory"; Is text:K8:3) + $options:=OB Get:C1224($widget; "options"; Is longint:K8:6) - $Lon_directory:=Num:C11($Txt_directory) + $directory_code:=Num:C11($directory_path) Case of - //……………………………………………………………… - : ($Lon_type=Is a document:K24:1) + //……………………………………………………………… + : ($type=Is a document:K24:1) - $Txt_fileTypes:=OB Get:C1224($Obj_widget;"fileTypes";Is text:K8:3) + $file_types:=OB Get:C1224($widget; "fileTypes"; Is text:K8:3) - If (String:C10($Lon_directory)=$Txt_directory) + If (String:C10($directory_code)=$directory_path) - //use a memorized access path - $Txt_path:=Select document:C905($Lon_directory;$Txt_fileTypes;$Txt_message;$Lon_options) + //use a memorized access path + $path:=Select document:C905($directory_code; $file_types; $message; $options) Else - $Txt_path:=Select document:C905($Txt_directory;$Txt_fileTypes;$Txt_message;$Lon_options) + $path:=Select document:C905($directory_path; $file_types; $message; $options) End if - $Boo_OK:=(OK=1) + $is_ok:=(OK=1) - If ($Boo_OK) + If ($is_ok) - $Txt_path:=DOCUMENT + $path:=DOCUMENT End if - //……………………………………………………………… - : ($Lon_type=Is a folder:K24:2) + //……………………………………………………………… + : ($type=Is a folder:K24:2) - If (String:C10($Lon_directory)=$Txt_directory) + If (String:C10($directory_code)=$directory_path) - //use a memorized access path - $Txt_path:=Select folder:C670($Txt_message;$Lon_directory;$Lon_options) + //use a memorized access path + $path:=Select folder:C670($message; $directory_code; $options) Else - $Txt_path:=Select folder:C670($Txt_message;$Txt_directory;$Lon_options) + $path:=Select folder:C670($message; $directory_path; $options) End if - $Boo_OK:=(OK=1) + $is_ok:=(OK=1) - //……………………………………………………………… + //……………………………………………………………… Else - //NOTHING MORE TO DO + //NOTHING MORE TO DO - //……………………………………………………………… + //……………………………………………………………… End case - //______________________________________________________ - : ($Lon_formEvent=On Drag Over:K2:13) + //______________________________________________________ + : ($e.code=On Drag Over:K2:13) - $Txt_path:=Get file from pasteboard:C976(1) + $path:=Get file from pasteboard:C976(1) - If (Test path name:C476($Txt_path)=$Lon_type) + If (Test path name:C476($path)=$type) - $0:=0 + $RESULT:=0 End if - //______________________________________________________ - : ($Lon_formEvent=On Drop:K2:12) + //______________________________________________________ + : ($e.code=On Drop:K2:12) - $Txt_path:=Get file from pasteboard:C976(1) + $path:=Get file from pasteboard:C976(1) - $Boo_OK:=(Test path name:C476($Txt_path)=$Lon_type) + $is_ok:=(Test path name:C476($path)=$type) - //______________________________________________________ + //______________________________________________________ Else - ASSERT:C1129(False:C215;"Form event activated unnecessary ("+String:C10($Lon_formEvent)+")") + ASSERT:C1129(False:C215; "Form event activated unnecessary ("+String:C10($e.code)+")") - //______________________________________________________ + //______________________________________________________ End case -If ($Boo_OK) +If ($is_ok) - OB SET:C1220($Obj_widget;\ - "accessPath";$Txt_path) - $Ptr_widget->:=JSON Stringify:C1217($Obj_widget) + OB SET:C1220($widget; \ + "accessPath"; $path) + $widget_pointer->:=JSON Stringify:C1217($widget) - //update UI - path_picker_SET_LABEL ($Ptr_widget) + //update UI + path_picker_SET_LABEL($widget_pointer) - //return value - (OBJECT Get pointer:C1124(Object subform container:K67:4))->:=$Txt_path + //return value + (OBJECT Get pointer:C1124(Object subform container:K67:4))->:=$path End if \ No newline at end of file diff --git a/Project/Sources/Forms/PATH PICKER/ObjectMethods/plus.4dm b/Project/Sources/Forms/PATH PICKER/ObjectMethods/plus.4dm index 9a9c251..b696dae 100644 --- a/Project/Sources/Forms/PATH PICKER/ObjectMethods/plus.4dm +++ b/Project/Sources/Forms/PATH PICKER/ObjectMethods/plus.4dm @@ -1,204 +1,210 @@ - // ---------------------------------------------------- - // Object method : PATH PICKER.plus - // ID[B74219C236C449369799F773E0D32B78] - // Created #9-9-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Declarations -C_LONGINT:C283($Lon_;$Lon_bottom;$Lon_formEvent;$Lon_i;$Lon_left;$Lon_leftOffset) -C_LONGINT:C283($Lon_platform;$Lon_topOffset) -C_POINTER:C301($Ptr_me;$Ptr_widget) -C_TEXT:C284($kTxt_Separator;$Mnu_popup;$Txt_;$Txt_action;$Txt_Buffer;$Txt_me) -C_TEXT:C284($Txt_path) -C_OBJECT:C1216($Obj_widget) +// ---------------------------------------------------- +// Object method : PATH PICKER.plus +// ID[B74219C236C449369799F773E0D32B78] +// Created #9-9-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Declarations -ARRAY TEXT:C222($tTxt_volumes;0) +var $i; $long : Integer +var $left; $bottom; $leftOffset; $topOffset : Integer - // ---------------------------------------------------- - // Initialisations -$Lon_formEvent:=Form event code:C388 -$Txt_me:=OBJECT Get name:C1087(Object current:K67:2) -$Ptr_me:=OBJECT Get pointer:C1124(Object current:K67:2) +var $e : Object -$Ptr_widget:=OBJECT Get pointer:C1124(Object named:K67:5;"ob_widget") +var $self; $widget_pointer : Pointer +var $action; $buffer; $separator; $menu; $path; $text; $object_name : Text +var $widget : Object - // ---------------------------------------------------- + +ARRAY TEXT:C222($_volumes; 0) + +// ---------------------------------------------------- +// Initialisations + +$e:=FORM Event:C1606 +$object_name:=OBJECT Get name:C1087(Object current:K67:2) +$self:=OBJECT Get pointer:C1124(Object current:K67:2) + +$widget_pointer:=OBJECT Get pointer:C1124(Object named:K67:5; "ob_widget") + +// ---------------------------------------------------- Case of - //______________________________________________________ - : ($Lon_formEvent=On Clicked:K2:4) + //______________________________________________________ + : ($e.code=On Clicked:K2:4) - $Obj_widget:=JSON Parse:C1218($Ptr_widget->) + $widget:=JSON Parse:C1218($widget_pointer->) - $Txt_path:=OB Get:C1224($Obj_widget;"accessPath";Is text:K8:3) + $path:=OB Get:C1224($widget; "accessPath"; Is text:K8:3) Case of - //…………………………………………………………………………………………………………………… + //…………………………………………………………………………………………………………………… : (Application type:C494=4D Remote mode:K5:5)\ - & ($Lon_platform=Mac OS:K25:2)\ - & (Position:C15("\\";$Txt_path)>0) + & (Is macOS:C1572)\ + & (Position:C15("\\"; $path)>0) - $kTxt_Separator:="\\" + $separator:="\\" - //…………………………………………………………………………………………………………………… + //…………………………………………………………………………………………………………………… : (Application type:C494=4D Remote mode:K5:5)\ - & ($Lon_platform=Windows:K25:3)\ - & (Position:C15(":";Replace string:C233($Txt_path;":";"";1))>0) + & (Is Windows:C1573)\ + & (Position:C15(":"; Replace string:C233($path; ":"; ""; 1))>0) - $kTxt_Separator:=":" + $separator:=":" - //…………………………………………………………………………………………………………………… + //…………………………………………………………………………………………………………………… Else - $kTxt_Separator:=Folder separator:K24:12 + $separator:=Folder separator:K24:12 - //…………………………………………………………………………………………………………………… + //…………………………………………………………………………………………………………………… End case - VOLUME LIST:C471($tTxt_volumes) - _O_PLATFORM PROPERTIES:C365($Lon_platform) + VOLUME LIST:C471($_volumes) + + //_O_PLATFORM PROPERTIES($platform) - $Mnu_popup:=Create menu:C408 + $menu:=Create menu:C408 - For ($Lon_i;1;Length:C16($Txt_path);1) + For ($i; 1; Length:C16($path); 1) - If ($Txt_path[[$Lon_i]]=$kTxt_Separator) + If ($path[[$i]]=$separator) - If ($Lon_platform=Windows:K25:3) + If (Is Windows:C1573) - APPEND MENU ITEM:C411($Mnu_popup;$Txt_Buffer) + APPEND MENU ITEM:C411($menu; $buffer) Else - INSERT MENU ITEM:C412($Mnu_popup;0;$Txt_Buffer) + INSERT MENU ITEM:C412($menu; 0; $buffer) End if - //keep the item path - SET MENU ITEM PARAMETER:C1004($Mnu_popup;-1;Substring:C12($Txt_path;1;$Lon_i)) + //keep the item path + SET MENU ITEM PARAMETER:C1004($menu; -1; Substring:C12($path; 1; $i)) - //set item icon - $Txt_:=Substring:C12($Txt_path;1;$Lon_i-1) + //set item icon + $text:=Substring:C12($path; 1; $i-1) Case of - //------------------------------------------- - : (Find in array:C230($tTxt_volumes;$Txt_)>0) + //------------------------------------------- + : (Find in array:C230($_volumes; $text)>0) - SET MENU ITEM ICON:C984($Mnu_popup;-1;"#images/widgets/path/drive.png") + SET MENU ITEM ICON:C984($menu; -1; "#images/widgets/path/drive.png") - //------------------------------------------- - : (Test path name:C476($Txt_)=Is a folder:K24:2) + //------------------------------------------- + : (Test path name:C476($text)=Is a folder:K24:2) - SET MENU ITEM ICON:C984($Mnu_popup;-1;"#images/widgets/path/folder.png") + SET MENU ITEM ICON:C984($menu; -1; "#images/widgets/path/folder.png") - //------------------------------------------- - : (Test path name:C476($Txt_)=Is a document:K24:1) + //------------------------------------------- + : (Test path name:C476($text)=Is a document:K24:1) - SET MENU ITEM ICON:C984($Mnu_popup;-1;"#images/widgets/path/file.png") + SET MENU ITEM ICON:C984($menu; -1; "#images/widgets/path/file.png") - //______________________________________________________ + //______________________________________________________ End case - CLEAR VARIABLE:C89($Txt_Buffer) + CLEAR VARIABLE:C89($buffer) Else - $Txt_Buffer:=$Txt_Buffer+$Txt_path[[$Lon_i]] + $buffer:=$buffer+$path[[$i]] End if End for - If (Length:C16($Txt_Buffer)>0) + If (Length:C16($buffer)>0) - If ($Lon_platform=Windows:K25:3) + If (Is Windows:C1573) - APPEND MENU ITEM:C411($Mnu_popup;$Txt_Buffer) + APPEND MENU ITEM:C411($menu; $buffer) Else - INSERT MENU ITEM:C412($Mnu_popup;0;$Txt_Buffer) + INSERT MENU ITEM:C412($menu; 0; $buffer) End if - SET MENU ITEM PARAMETER:C1004($Mnu_popup;-1;$Txt_path) - SET MENU ITEM ICON:C984($Mnu_popup;-1;"#images/widgets/path/file.png") + SET MENU ITEM PARAMETER:C1004($menu; -1; $path) + SET MENU ITEM ICON:C984($menu; -1; "#images/widgets/path/file.png") End if - If (Count menu items:C405($Mnu_popup)>0) + If (Count menu items:C405($menu)>0) - If (OB Get:C1224($Obj_widget;"showOnDisk";Is boolean:K8:9))\ - | (OB Get:C1224($Obj_widget;"copyPath";Is boolean:K8:9)) + If (OB Get:C1224($widget; "showOnDisk"; Is boolean:K8:9))\ + | (OB Get:C1224($widget; "copyPath"; Is boolean:K8:9)) - APPEND MENU ITEM:C411($Mnu_popup;"-") + APPEND MENU ITEM:C411($menu; "-") End if - If (OB Get:C1224($Obj_widget;"showOnDisk";Is boolean:K8:9)) + If (OB Get:C1224($widget; "showOnDisk"; Is boolean:K8:9)) - APPEND MENU ITEM:C411($Mnu_popup;Get localized string:C991("ShowOnDisk")) - SET MENU ITEM PARAMETER:C1004($Mnu_popup;-1;"show") + APPEND MENU ITEM:C411($menu; Localized string:C991("ShowOnDisk")) + SET MENU ITEM PARAMETER:C1004($menu; -1; "show") End if - If (OB Get:C1224($Obj_widget;"copyPath";Is boolean:K8:9)) + If (OB Get:C1224($widget; "copyPath"; Is boolean:K8:9)) - APPEND MENU ITEM:C411($Mnu_popup;Get localized string:C991("CopyPath")) - SET MENU ITEM PARAMETER:C1004($Mnu_popup;-1;"copy") + APPEND MENU ITEM:C411($menu; Localized string:C991("CopyPath")) + SET MENU ITEM PARAMETER:C1004($menu; -1; "copy") End if - $Lon_leftOffset:=(OBJECT Get pointer:C1124(Object named:K67:5;"left"))-> - $Lon_topOffset:=(OBJECT Get pointer:C1124(Object named:K67:5;"top"))-> + $leftOffset:=(OBJECT Get pointer:C1124(Object named:K67:5; "left"))-> + $topOffset:=(OBJECT Get pointer:C1124(Object named:K67:5; "top"))-> - If (($Lon_leftOffset+$Lon_topOffset)=0) + If (($leftOffset+$topOffset)=0) - $Txt_action:=Dynamic pop up menu:C1006($Mnu_popup) + $action:=Dynamic pop up menu:C1006($menu) Else - OBJECT GET COORDINATES:C663(*;"border";$Lon_left;$Lon_;$Lon_;$Lon_bottom) + OBJECT GET COORDINATES:C663(*; "border"; $left; $long; $long; $bottom) - $Txt_action:=Dynamic pop up menu:C1006($Mnu_popup;"";$Lon_left+$Lon_leftOffset;$Lon_bottom+$Lon_topOffset-5) + $action:=Dynamic pop up menu:C1006($menu; ""; $left+$leftOffset; $bottom+$topOffset-5) End if - RELEASE MENU:C978($Mnu_popup) + RELEASE MENU:C978($menu) Case of - //……………………… - : (Length:C16($Txt_action)=0) + //……………………… + : (Length:C16($action)=0) - //……………………… - : ($Txt_action="copy") + //……………………… + : ($action="copy") - SET TEXT TO PASTEBOARD:C523($Txt_path) + SET TEXT TO PASTEBOARD:C523($path) - //……………………… - : ($Txt_action="show") + //……………………… + : ($action="show") - SHOW ON DISK:C922($Txt_path) + SHOW ON DISK:C922($path) - //……………………… - : (Not:C34(OB Get:C1224($Obj_widget;"openItem";Is boolean:K8:9))) + //……………………… + : (Not:C34(OB Get:C1224($widget; "openItem"; Is boolean:K8:9))) - //NOTHING MORE TO DO + //NOTHING MORE TO DO - //……………………… + //……………………… Else - SHOW ON DISK:C922($Txt_action) + SHOW ON DISK:C922($action) - //……………………… + //……………………… End case End if - //______________________________________________________ + //______________________________________________________ Else - ASSERT:C1129(False:C215;"Form event activated unnecessary ("+String:C10($Lon_formEvent)+")") + ASSERT:C1129(False:C215; "Form event activated unnecessary ("+String:C10($e.code)+")") - //______________________________________________________ + //______________________________________________________ End case \ No newline at end of file diff --git a/Project/Sources/Forms/PATH PICKER/method.4dm b/Project/Sources/Forms/PATH PICKER/method.4dm index 505b9d0..b0ad3cc 100644 --- a/Project/Sources/Forms/PATH PICKER/method.4dm +++ b/Project/Sources/Forms/PATH PICKER/method.4dm @@ -1,97 +1,104 @@ - // ---------------------------------------------------- - // Form method : PATH PICKER - (4D Report) - // ID[FA1AC624FC504898B4D7D3EF0766501C] - // Created #9-9-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Declarations -C_LONGINT:C283($Lon_;$Lon_bottom;$Lon_browseLeft;$Lon_browseRight;$Lon_formEvent;$Lon_left) -C_LONGINT:C283($Lon_right;$Lon_top) -C_POINTER:C301($Ptr_widget) -C_TEXT:C284($Txt_me) -C_OBJECT:C1216($Obj_widget) +// ---------------------------------------------------- +// Form method : PATH PICKER - (4D Report) +// ID[FA1AC624FC504898B4D7D3EF0766501C] +// Created #9-9-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Declarations - // ---------------------------------------------------- - // Initialisations -$Lon_formEvent:=Form event code:C388 -$Txt_me:=OBJECT Get name:C1087(Object current:K67:2) +var $left; $top; $right; $bottom; $browseLeft; $browseRight : Integer +var $long : Integer -$Ptr_widget:=OBJECT Get pointer:C1124(Object named:K67:5;"ob_widget") +var $e : Object +var $widget : Object +var $widget_pointer : Pointer +var $widget_name : Text - // ---------------------------------------------------- + + +// ---------------------------------------------------- +// Initialisations + +$e:=FORM Event:C1606 + +$widget_name:=OBJECT Get name:C1087(Object current:K67:2) + +$widget_pointer:=OBJECT Get pointer:C1124(Object named:K67:5; "ob_widget") + +// ---------------------------------------------------- Case of - //______________________________________________________ - : ($Lon_formEvent=On Load:K2:1) + //______________________________________________________ + : ($e.code=On Load:K2:1) - If (Length:C16($Ptr_widget->)=0) + If (Length:C16($widget_pointer->)=0) - //default values - $Ptr_widget->:=JSON Stringify:C1217(path_picker_INIT ) + //default values + $widget_pointer->:=JSON Stringify:C1217(path_picker_INIT) End if SET TIMER:C645(-1) - //______________________________________________________ - : ($Lon_formEvent=On Timer:K2:25) + //______________________________________________________ + : ($e.code=On Timer:K2:25) SET TIMER:C645(0) - $Obj_widget:=JSON Parse:C1218($Ptr_widget->) + $widget:=JSON Parse:C1218($widget_pointer->) - If (OB Get:C1224($Obj_widget;"browse";Is boolean:K8:9)) + If (OB Get:C1224($widget; "browse"; Is boolean:K8:9)) - If (Not:C34(OBJECT Get visible:C1075(*;"browse"))) + If (Not:C34(OBJECT Get visible:C1075(*; "browse"))) - OBJECT SET VISIBLE:C603(*;"browse";True:C214) + OBJECT SET VISIBLE:C603(*; "browse"; True:C214) - OBJECT GET COORDINATES:C663(*;"browse";$Lon_browseLeft;$Lon_;$Lon_browseRight;$Lon_) - $Lon_right:=$Lon_browseLeft-5 + OBJECT GET COORDINATES:C663(*; "browse"; $browseLeft; $long; $browseRight; $long) + $right:=$browseLeft-5 - OBJECT GET COORDINATES:C663(*;"accessPath";$Lon_left;$Lon_top;$Lon_;$Lon_bottom) - OBJECT SET COORDINATES:C1248(*;"accessPath";$Lon_left;$Lon_top;$Lon_right;$Lon_bottom) - OBJECT GET COORDINATES:C663(*;"border";$Lon_left;$Lon_top;$Lon_;$Lon_bottom) - OBJECT SET COORDINATES:C1248(*;"border";$Lon_left;$Lon_top;$Lon_right;$Lon_bottom) + OBJECT GET COORDINATES:C663(*; "accessPath"; $left; $top; $long; $bottom) + OBJECT SET COORDINATES:C1248(*; "accessPath"; $left; $top; $right; $bottom) + OBJECT GET COORDINATES:C663(*; "border"; $left; $top; $long; $bottom) + OBJECT SET COORDINATES:C1248(*; "border"; $left; $top; $right; $bottom) End if Else - If (OBJECT Get visible:C1075(*;"browse")) + If (OBJECT Get visible:C1075(*; "browse")) - OBJECT SET VISIBLE:C603(*;"browse";False:C215) + OBJECT SET VISIBLE:C603(*; "browse"; False:C215) - OBJECT GET COORDINATES:C663(*;"browse";$Lon_browseLeft;$Lon_;$Lon_browseRight;$Lon_) - $Lon_right:=$Lon_browseRight + OBJECT GET COORDINATES:C663(*; "browse"; $browseLeft; $long; $browseRight; $long) + $right:=$browseRight - OBJECT GET COORDINATES:C663(*;"accessPath";$Lon_left;$Lon_top;$Lon_;$Lon_bottom) - OBJECT SET COORDINATES:C1248(*;"accessPath";$Lon_left;$Lon_top;$Lon_right;$Lon_bottom) - OBJECT GET COORDINATES:C663(*;"border";$Lon_left;$Lon_top;$Lon_;$Lon_bottom) - OBJECT SET COORDINATES:C1248(*;"border";$Lon_left;$Lon_top;$Lon_right;$Lon_bottom) + OBJECT GET COORDINATES:C663(*; "accessPath"; $left; $top; $long; $bottom) + OBJECT SET COORDINATES:C1248(*; "accessPath"; $left; $top; $right; $bottom) + OBJECT GET COORDINATES:C663(*; "border"; $left; $top; $long; $bottom) + OBJECT SET COORDINATES:C1248(*; "border"; $left; $top; $right; $bottom) End if End if - OBJECT SET PLACEHOLDER:C1295(*;"accessPath";OB Get:C1224($Obj_widget;"placeHolder";Is text:K8:3)) + OBJECT SET PLACEHOLDER:C1295(*; "accessPath"; OB Get:C1224($widget; "placeHolder"; Is text:K8:3)) - //______________________________________________________ - : ($Lon_formEvent=On Bound Variable Change:K2:52) + //______________________________________________________ + : ($e.code=On Bound Variable Change:K2:52) - $Obj_widget:=JSON Parse:C1218($Ptr_widget->) + $widget:=JSON Parse:C1218($widget_pointer->) - OB SET:C1220($Obj_widget;\ - "accessPath";(OBJECT Get pointer:C1124(Object subform container:K67:4))->) + OB SET:C1220($widget; \ + "accessPath"; (OBJECT Get pointer:C1124(Object subform container:K67:4))->) - $Ptr_widget->:=JSON Stringify:C1217($Obj_widget) + $widget_pointer->:=JSON Stringify:C1217($widget) - path_picker_SET_LABEL ($Ptr_widget) + path_picker_SET_LABEL($widget_pointer) SET TIMER:C645(-1) - //______________________________________________________ + //______________________________________________________ Else - ASSERT:C1129(False:C215;"Form event activated unnecessary ("+String:C10($Lon_formEvent)+")") + ASSERT:C1129(False:C215; "Form event activated unnecessary ("+String:C10($e.code)+")") - //______________________________________________________ + //______________________________________________________ End case \ No newline at end of file diff --git a/Project/Sources/Methods/COMPILER_NQR.4dm b/Project/Sources/Methods/COMPILER_NQR.4dm index b1acb4d..7dcba3d 100644 --- a/Project/Sources/Methods/COMPILER_NQR.4dm +++ b/Project/Sources/Methods/COMPILER_NQR.4dm @@ -9,20 +9,31 @@ // Compiler directives // ---------------------------------------------------- // Declarations -C_BOOLEAN:C305(<>Boo_debug) + +var <>Boo_debug : Boolean + +//_O_C_BOOLEAN(<>Boo_debug) // =============================================== // DON'T RENAME THESE VARIABLES LINKED TO C++ CODE // =============================================== -C_LONGINT:C283(C_QR_MASTERTABLE) -C_BLOB:C604(C_QR_INITBLOB) -C_TEXT:C284(C_QR_INITPATH) -C_LONGINT:C283(QR_area) -C_OBJECT:C1216(C_QR_ONCOMMANDFORMULA) +var C_QR_MASTERTABLE : Integer +var C_QR_INITBLOB : Blob +var C_QR_INITPATH : Text +var QR_area : Integer +var C_QR_ONCOMMANDFORMULA : Object + +//_O_C_LONGINT(C_QR_MASTERTABLE) +//_O_C_BLOB(C_QR_INITBLOB) +//_O_C_TEXT(C_QR_INITPATH) +//_O_C_LONGINT(QR_area) +//_O_C_OBJECT(C_QR_ONCOMMANDFORMULA) // =============================================== -C_OBJECT:C1216(ob_dialog) +var ob_dialog : Object + +//_O_C_OBJECT(ob_dialog) // ---------------------------------------------------- // Initialisations @@ -31,8 +42,8 @@ QR_area:=0 <>Boo_debug:=Not:C34(Is compiled mode:C492) // -C_BOOLEAN:C305(<>withFeature102041) -<>withFeature102041:=True:C214 +//_O_C_BOOLEAN(<>withFeature102041) +//<>withFeature102041:=True //Assertions are enabled in dev mode @@ -42,66 +53,66 @@ SET ASSERT ENABLED:C1131(<>Boo_debug; *) // Methods If (False:C215) - // ======================================= - C_OBJECT:C1216(NQR_AREA_HANDLE; $1) + //// ======================================= + //_O_C_OBJECT(NQR_AREA_HANDLE; $1) - // ======================================= - C_POINTER:C301(NQR_DIGEST; $1) - C_BOOLEAN:C305(NQR_DIGEST; $2) + //// ======================================= + //_O_C_POINTER(NQR_DIGEST; $1) + //_O_C_BOOLEAN(NQR_DIGEST; $2) - // ======================================= - C_OBJECT:C1216(NQR_DO_IT; $1) + //// ======================================= + //_O_C_OBJECT(NQR_DO_IT; $1) - // ======================================= - C_TEXT:C284(NQR_DRAW_TABS; ${1}) + //// ======================================= + //_O_C_TEXT(NQR_DRAW_TABS; ${1}) - // ======================================= - C_POINTER:C301(NQR_MENU_CELLS; $1) + //// ======================================= + //_O_C_POINTER(NQR_MENU_CELLS; $1) - // ======================================= - C_POINTER:C301(NQR_MENU_COLUMN; $1) + //// ======================================= + //_O_C_POINTER(NQR_MENU_COLUMN; $1) - // ======================================= - C_LONGINT:C283(NQR_NEW; $1) + //// ======================================= + //_O_C_LONGINT(NQR_NEW; $1) - // ======================================= - C_OBJECT:C1216(NQR_OPEN; $1) + //// ======================================= + //_O_C_OBJECT(NQR_OPEN; $1) - // ======================================= - C_TEXT:C284(NQR_OPTIONS_ACTION; $1) + //// ======================================= + //_O_C_TEXT(NQR_OPTIONS_ACTION; $1) - // ======================================= - C_BOOLEAN:C305(NQR_Save; $0) - C_BOOLEAN:C305(NQR_SaveAs; $0) + //// ======================================= + //_O_C_BOOLEAN(NQR_Save; $0) + //_O_C_BOOLEAN(NQR_SaveAs; $0) - // ======================================= - C_LONGINT:C283(NQR_SET_DESTINATION; $1) + //// ======================================= + //_O_C_LONGINT(NQR_SET_DESTINATION; $1) - // ======================================= - C_TEXT:C284(NQR_HEADER_AND_FOOTER_ACTION; $1) + //// ======================================= + //_O_C_TEXT(NQR_HEADER_AND_FOOTER_ACTION; $1) - // ======================================= - C_TEXT:C284(NQR_SET_SELECTION; $1) + //// ======================================= + //_O_C_TEXT(NQR_SET_SELECTION; $1) - // ======================================= - C_LONGINT:C283(NQR_GET_HEADER_AND_FOOTER; $1) + //// ======================================= + //_O_C_LONGINT(NQR_GET_HEADER_AND_FOOTER; $1) - // ======================================= - C_TEXT:C284(NQR_STATUS_BAR; $1) + //// ======================================= + //_O_C_TEXT(NQR_STATUS_BAR; $1) - // ======================================= - C_TEXT:C284(NQR_TOOLBAR; $1) - C_BOOLEAN:C305(NQR_TOOLBAR; $2) + //// ======================================= + //_O_C_TEXT(NQR_TOOLBAR; $1) + //_O_C_BOOLEAN(NQR_TOOLBAR; $2) - // ======================================= + //// ======================================= - C_LONGINT:C283(NQR_doAction; $1) + //_O_C_LONGINT(NQR_doAction; $1) - // ======================================= + //// ======================================= - C_LONGINT:C283(NQR_GET_BORDER; $1) + //_O_C_LONGINT(NQR_GET_BORDER; $1) - // ======================================= + //// ======================================= diff --git a/Project/Sources/Methods/COMPILER_PATH PICKER.4dm b/Project/Sources/Methods/COMPILER_PATH PICKER.4dm index 2f72544..208cedb 100644 --- a/Project/Sources/Methods/COMPILER_PATH PICKER.4dm +++ b/Project/Sources/Methods/COMPILER_PATH PICKER.4dm @@ -1,80 +1,80 @@ //%attributes = {"invisible":true} -If (False:C215) //shared - - If (False:C215) //setters - - //pathPicker SET DIRECTORY - C_TEXT:C284(pathPicker SET DIRECTORY ;$1) - C_TEXT:C284(pathPicker SET DIRECTORY ;$2) - - //pathPicker SET FILE TYPES - C_TEXT:C284(pathPicker SET FILE TYPES ;$1) - C_TEXT:C284(pathPicker SET FILE TYPES ;$2) - C_TEXT:C284(pathPicker SET FILE TYPES ;${3}) - - //pathPicker SET MESSAGE - C_TEXT:C284(pathPicker SET MESSAGE ;$1) - C_TEXT:C284(pathPicker SET MESSAGE ;$2) - - //PathPicker SET OPTIONS - C_TEXT:C284(PathPicker SET OPTIONS ;$1) - C_BOOLEAN:C305(PathPicker SET OPTIONS ;$2) - C_LONGINT:C283(PathPicker SET OPTIONS ;$3) - C_LONGINT:C283(PathPicker SET OPTIONS ;${4}) - - //PathPicker SET PLACEHOLDER - C_TEXT:C284(PathPicker SET PLACEHOLDER ;$1) - C_TEXT:C284(PathPicker SET PLACEHOLDER ;$2) - - //PathPicker SET SELECTION OPTION - C_TEXT:C284(PathPicker SET SELECTION OPTION ;$1) - C_LONGINT:C283(PathPicker SET SELECTION OPTION ;$2) - - //PathPicker SET TYPE - C_TEXT:C284(PathPicker SET TYPE ;$1) - C_LONGINT:C283(PathPicker SET TYPE ;$2) - End if - - If (False:C215) //getters - - //PathPicker Get message - C_TEXT:C284(PathPicker Get message ;$0) - C_TEXT:C284(PathPicker Get message ;$1) - - //PathPicker Get option - C_BOOLEAN:C305(PathPicker Get option ;$0) - C_TEXT:C284(PathPicker Get option ;$1) - C_LONGINT:C283(PathPicker Get option ;$2) - - //PathPicker Get placeholder - C_TEXT:C284(PathPicker Get placeholder ;$0) - C_TEXT:C284(PathPicker Get placeholder ;$1) - - //PathPicker Get Type - C_LONGINT:C283(PathPicker Get type ;$0) - C_TEXT:C284(PathPicker Get type ;$1) - End if -End if - -If (False:C215) //private - - //path_picker_Get_object - C_POINTER:C301(path_picker_Get_object ;$0) - C_TEXT:C284(path_picker_Get_object ;$1) - C_POINTER:C301(path_picker_Get_object ;$2) - - //PathPicker INIT - C_OBJECT:C1216(path_picker_INIT ;$0) - - //pathPicker_SET_LABEL - C_POINTER:C301(path_picker_SET_LABEL ;$1) - - //path_picker_SET_TEXT_ATTRIBUTE - C_TEXT:C284(path_picker_SET_TEXT_ATTRIBUTE ;$1) - C_TEXT:C284(path_picker_SET_TEXT_ATTRIBUTE ;$2) - C_TEXT:C284(path_picker_SET_TEXT_ATTRIBUTE ;$3) - - //HDI_PATH_PICKER - C_TEXT:C284(HDI_PATH_PICKER ;$1) - -End if \ No newline at end of file +//If (False) //shared + +//If (False) //setters + +////pathPicker SET DIRECTORY +//_O_C_TEXT(pathPicker SET DIRECTORY; $1) +//_O_C_TEXT(pathPicker SET DIRECTORY; $2) + +////pathPicker SET FILE TYPES +//_O_C_TEXT(pathPicker SET FILE TYPES; $1) +//_O_C_TEXT(pathPicker SET FILE TYPES; $2) +//_O_C_TEXT(pathPicker SET FILE TYPES; ${3}) + +////pathPicker SET MESSAGE +//_O_C_TEXT(pathPicker SET MESSAGE; $1) +//_O_C_TEXT(pathPicker SET MESSAGE; $2) + +////PathPicker SET OPTIONS +//_O_C_TEXT(PathPicker SET OPTIONS; $1) +//_O_C_BOOLEAN(PathPicker SET OPTIONS; $2) +//_O_C_LONGINT(PathPicker SET OPTIONS; $3) +//_O_C_LONGINT(PathPicker SET OPTIONS; ${4}) + +////PathPicker SET PLACEHOLDER +//_O_C_TEXT(PathPicker SET PLACEHOLDER; $1) +//_O_C_TEXT(PathPicker SET PLACEHOLDER; $2) + +////PathPicker SET SELECTION OPTION +//_O_C_TEXT(PathPicker SET SELECTION OPTION; $1) +//_O_C_LONGINT(PathPicker SET SELECTION OPTION; $2) + +////PathPicker SET TYPE +//_O_C_TEXT(PathPicker SET TYPE; $1) +//_O_C_LONGINT(PathPicker SET TYPE; $2) +//End if + +//If (False) //getters + +////PathPicker Get message +//_O_C_TEXT(PathPicker Get message; $0) +//_O_C_TEXT(PathPicker Get message; $1) + +////PathPicker Get option +//_O_C_BOOLEAN(PathPicker Get option; $0) +//_O_C_TEXT(PathPicker Get option; $1) +//_O_C_LONGINT(PathPicker Get option; $2) + +////PathPicker Get placeholder +//_O_C_TEXT(PathPicker Get placeholder; $0) +//_O_C_TEXT(PathPicker Get placeholder; $1) + +////PathPicker Get Type +//_O_C_LONGINT(PathPicker Get type; $0) +//_O_C_TEXT(PathPicker Get type; $1) +//End if +//End if + +//If (False) //private + +////path_picker_Get_object +//_O_C_POINTER(path_picker_Get_object; $0) +//_O_C_TEXT(path_picker_Get_object; $1) +//_O_C_POINTER(path_picker_Get_object; $2) + +////PathPicker INIT +//_O_C_OBJECT(path_picker_INIT; $0) + +////pathPicker_SET_LABEL +//_O_C_POINTER(path_picker_SET_LABEL; $1) + +////path_picker_SET_TEXT_ATTRIBUTE +//_O_C_TEXT(path_picker_SET_TEXT_ATTRIBUTE; $1) +//_O_C_TEXT(path_picker_SET_TEXT_ATTRIBUTE; $2) +//_O_C_TEXT(path_picker_SET_TEXT_ATTRIBUTE; $3) + +////HDI_PATH_PICKER +//_O_C_TEXT(HDI_PATH_PICKER; $1) + +//End if \ No newline at end of file diff --git a/Project/Sources/Methods/COMPILER_report.4dm b/Project/Sources/Methods/COMPILER_report.4dm index d86209c..deb3813 100644 --- a/Project/Sources/Methods/COMPILER_report.4dm +++ b/Project/Sources/Methods/COMPILER_report.4dm @@ -12,25 +12,31 @@ // =============================================== // DON'T RENAME THESE VARIABLES LINKED TO C++ CODE // =============================================== -C_LONGINT:C283(Form_C_UseVirtualStructure) +var Form_C_UseVirtualStructure : Integer + +//_O_C_LONGINT(Form_C_UseVirtualStructure) // =============================================== -C_OBJECT:C1216(ob_dialog; ob_area) +var ob_dialog; ob_area : Object + +//_O_C_OBJECT(ob_dialog; ob_area) ob_area:=ob_area || New object:C1471 ARRAY LONGINT:C221(tLon_rowHeights; 0) -C_BOOLEAN:C305(boo_useVirtualStructure) +var boo_useVirtualStructure : Boolean + +//_O_C_BOOLEAN(boo_useVirtualStructure) // ---------------------------------------------------- // Initialisations -C_BOOLEAN:C305(<>withFeature105739) -<>withFeature105739:=True:C214 -C_BOOLEAN:C305(<>withFeature110931) // border managment -<>withFeature110931:=False:C215 +var <>withFeature110931 : Boolean + +//_O_C_BOOLEAN(<>withFeature110931) // border managment +//<>withFeature110931<>withFeature110931:=False //C_BOOLEAN(<>withFeature111172) // Virtual structure //<>withFeature111172:=True @@ -57,100 +63,100 @@ report_INIT // Methods If (False:C215) - //---------------------------------- - C_TEXT:C284(report_ADD_COLUMN; $1) - C_OBJECT:C1216(report_ADD_COLUMN; $2) - - //---------------------------------- - C_TEXT:C284(report_catchErrors; $0) - C_TEXT:C284(report_catchErrors; $1) - C_TEXT:C284(report_catchErrors; $2) - - //---------------------------------- - C_TEXT:C284(report_cell_content; $0) - C_TEXT:C284(report_cell_content; $1) - C_LONGINT:C283(report_cell_content; $2) - C_BOOLEAN:C305(report_cell_content; $3) - C_BOOLEAN:C305(report_cell_content; $4) - - //---------------------------------- - C_TEXT:C284(report_cell_styled_content; $0) - C_LONGINT:C283(report_cell_styled_content; $1) - C_TEXT:C284(report_cell_styled_content; $2) - C_LONGINT:C283(report_cell_styled_content; $3) - C_LONGINT:C283(report_cell_styled_content; $4) - C_TEXT:C284(report_cell_styled_content; $5) - - //---------------------------------- - C_TEXT:C284(report_cell_tips; $0) - C_TEXT:C284(report_cell_tips; $1) - - //---------------------------------- - C_LONGINT:C283(report_CONTEXTUAL_MENUS; $1) - C_LONGINT:C283(report_CONTEXTUAL_MENUS; $2) - C_LONGINT:C283(report_CONTEXTUAL_MENUS; $3) - - //---------------------------------- - C_LONGINT:C283(report_EDIT_COLUMN_FORMULA; $1) - C_LONGINT:C283(report_EDIT_COLUMN_FORMULA; $2) - - //---------------------------------- - C_LONGINT:C283(report_Get_table; $0) - C_LONGINT:C283(report_Get_table; $1) - - //---------------------------------- - C_LONGINT:C283(report_Get_target; $0) - C_OBJECT:C1216(report_Get_target; $1) - C_POINTER:C301(report_Get_target; $2) - C_POINTER:C301(report_Get_target; $3) - C_BOOLEAN:C305(report_Get_target; $4) - - //---------------------------------- - C_POINTER:C301(report_CREATE_AREA; $1) - - //---------------------------------- - C_LONGINT:C283(report_DISPLAY_AREA; $1) - - //---------------------------------- - C_LONGINT:C283(report_DISPLAY_CROSS; $1) - - //---------------------------------- - C_OBJECT:C1216(report_DISPLAY_COMMON; $1) - - //---------------------------------- - C_LONGINT:C283(report_DISPLAY_LIST; $1) - - //---------------------------------- - C_LONGINT:C283(report_SET_CELL_FORMAT; $1) - C_TEXT:C284(report_SET_CELL_FORMAT; $2) - C_LONGINT:C283(report_SET_CELL_FORMAT; $3) - C_LONGINT:C283(report_SET_CELL_FORMAT; $4) - C_LONGINT:C283(report_SET_CELL_FORMAT; $5) - C_TEXT:C284(report_SET_CELL_FORMAT; $6) - C_POINTER:C301(report_SET_CELL_FORMAT; $7) - C_LONGINT:C283(report_SET_CELL_FORMAT; $8) - - //---------------------------------- - C_TEXT:C284(report_SELECTION; $1) - C_LONGINT:C283(report_SELECTION; $2) - C_LONGINT:C283(report_SELECTION; $3) - - //---------------------------------- - C_LONGINT:C283(report_SET_CELL_BACKGROUND; $1) - C_TEXT:C284(report_SET_CELL_BACKGROUND; $2) - C_LONGINT:C283(report_SET_CELL_BACKGROUND; $3) - C_LONGINT:C283(report_SET_CELL_BACKGROUND; $4) - C_LONGINT:C283(report_SET_CELL_BACKGROUND; $5) - - //---------------------------------- - C_TEXT:C284(report_SET_COLUMN_WIDTH; $1) - C_LONGINT:C283(report_SET_COLUMN_WIDTH; $2) - - //---------------------------------- - C_TEXT:C284(report_SET_EVENTS; $1) - C_TEXT:C284(report_SET_EVENTS; $2) - - //---------------------------------- + ////---------------------------------- + //_O_C_TEXT(report_ADD_COLUMN; $1) + //_O_C_OBJECT(report_ADD_COLUMN; $2) + + ////---------------------------------- + //_O_C_TEXT(report_catchErrors; $0) + //_O_C_TEXT(report_catchErrors; $1) + //_O_C_TEXT(report_catchErrors; $2) + + ////---------------------------------- + //_O_C_TEXT(report_cell_content; $0) + //_O_C_TEXT(report_cell_content; $1) + //_O_C_LONGINT(report_cell_content; $2) + //_O_C_BOOLEAN(report_cell_content; $3) + //_O_C_BOOLEAN(report_cell_content; $4) + + ////---------------------------------- + //_O_C_TEXT(report_cell_styled_content; $0) + //_O_C_LONGINT(report_cell_styled_content; $1) + //_O_C_TEXT(report_cell_styled_content; $2) + //_O_C_LONGINT(report_cell_styled_content; $3) + //_O_C_LONGINT(report_cell_styled_content; $4) + //_O_C_TEXT(report_cell_styled_content; $5) + + ////---------------------------------- + //_O_C_TEXT(report_cell_tips; $0) + //_O_C_TEXT(report_cell_tips; $1) + + ////---------------------------------- + //_O_C_LONGINT(report_CONTEXTUAL_MENUS; $1) + //_O_C_LONGINT(report_CONTEXTUAL_MENUS; $2) + //_O_C_LONGINT(report_CONTEXTUAL_MENUS; $3) + + ////---------------------------------- + //_O_C_LONGINT(report_EDIT_COLUMN_FORMULA; $1) + //_O_C_LONGINT(report_EDIT_COLUMN_FORMULA; $2) + + ////---------------------------------- + //_O_C_LONGINT(report_Get_table; $0) + //_O_C_LONGINT(report_Get_table; $1) + + ////---------------------------------- + //_O_C_LONGINT(report_Get_target; $0) + //_O_C_OBJECT(report_Get_target; $1) + //_O_C_POINTER(report_Get_target; $2) + //_O_C_POINTER(report_Get_target; $3) + //_O_C_BOOLEAN(report_Get_target; $4) + + ////---------------------------------- + //_O_C_POINTER(report_CREATE_AREA; $1) + + ////---------------------------------- + //_O_C_LONGINT(report_DISPLAY_AREA; $1) + + ////---------------------------------- + //_O_C_LONGINT(report_DISPLAY_CROSS; $1) + + ////---------------------------------- + //_O_C_OBJECT(report_DISPLAY_COMMON; $1) + + ////---------------------------------- + //_O_C_LONGINT(report_DISPLAY_LIST; $1) + + ////---------------------------------- + //_O_C_LONGINT(report_SET_CELL_FORMAT; $1) + //_O_C_TEXT(report_SET_CELL_FORMAT; $2) + //_O_C_LONGINT(report_SET_CELL_FORMAT; $3) + //_O_C_LONGINT(report_SET_CELL_FORMAT; $4) + //_O_C_LONGINT(report_SET_CELL_FORMAT; $5) + //_O_C_TEXT(report_SET_CELL_FORMAT; $6) + //_O_C_POINTER(report_SET_CELL_FORMAT; $7) + //_O_C_LONGINT(report_SET_CELL_FORMAT; $8) + + ////---------------------------------- + //_O_C_TEXT(report_SELECTION; $1) + //_O_C_LONGINT(report_SELECTION; $2) + //_O_C_LONGINT(report_SELECTION; $3) + + ////---------------------------------- + //_O_C_LONGINT(report_SET_CELL_BACKGROUND; $1) + //_O_C_TEXT(report_SET_CELL_BACKGROUND; $2) + //_O_C_LONGINT(report_SET_CELL_BACKGROUND; $3) + //_O_C_LONGINT(report_SET_CELL_BACKGROUND; $4) + //_O_C_LONGINT(report_SET_CELL_BACKGROUND; $5) + + ////---------------------------------- + //_O_C_TEXT(report_SET_COLUMN_WIDTH; $1) + //_O_C_LONGINT(report_SET_COLUMN_WIDTH; $2) + + ////---------------------------------- + //_O_C_TEXT(report_SET_EVENTS; $1) + //_O_C_TEXT(report_SET_EVENTS; $2) + + ////---------------------------------- End if // ---------------------------------------------------- diff --git a/Project/Sources/Methods/Compiler_.4dm b/Project/Sources/Methods/Compiler_.4dm new file mode 100644 index 0000000..da01a13 --- /dev/null +++ b/Project/Sources/Methods/Compiler_.4dm @@ -0,0 +1,465 @@ +//%attributes = {"invisible":true} + + +//PathPicker Get placeholder +_O_C_TEXT:C284(PathPicker Get placeholder; $0) +_O_C_TEXT:C284(PathPicker Get placeholder; $1) + +//NQR_GET_HEADER_AND_FOOTER +_O_C_LONGINT:C283(NQR_GET_HEADER_AND_FOOTER; $1) + +//QR_SET_CELL_TEXT +_O_C_LONGINT:C283(QR_SET_CELL_TEXT; $1) +_O_C_LONGINT:C283(QR_SET_CELL_TEXT; $2) +_O_C_LONGINT:C283(QR_SET_CELL_TEXT; $3) +_O_C_TEXT:C284(QR_SET_CELL_TEXT; $4) + +//doc_getFromPath +_O_C_TEXT:C284(doc_getFromPath; $0) +_O_C_TEXT:C284(doc_getFromPath; $1) +_O_C_TEXT:C284(doc_getFromPath; $2) +_O_C_TEXT:C284(doc_getFromPath; $3) + +//_o_db_Get_field_pointer +_O_C_POINTER:C301(_o_db_Get_field_pointer; $0) +_O_C_TEXT:C284(_o_db_Get_field_pointer; $1) + +//Rgx_ExtractText +_O_C_LONGINT:C283(Rgx_ExtractText; $0) +_O_C_TEXT:C284(Rgx_ExtractText; $1) +_O_C_TEXT:C284(Rgx_ExtractText; $2) +_O_C_TEXT:C284(Rgx_ExtractText; $3) +_O_C_POINTER:C301(Rgx_ExtractText; $4) +_O_C_LONGINT:C283(Rgx_ExtractText; $5) + +//NQR_NEW +_O_C_LONGINT:C283(NQR_NEW; $1) + +//menu_format +_O_C_TEXT:C284(menu_format; $0) +_O_C_LONGINT:C283(menu_format; $1) +_O_C_TEXT:C284(menu_format; $2) + +//db_virtualFieldName +_O_C_TEXT:C284(db_virtualFieldName; $0) +_O_C_TEXT:C284(db_virtualFieldName; $1) + +//path_picker_SET_TEXT_ATTRIBUTE +_O_C_TEXT:C284(path_picker_SET_TEXT_ATTRIBUTE; $1) +_O_C_TEXT:C284(path_picker_SET_TEXT_ATTRIBUTE; $2) +_O_C_TEXT:C284(path_picker_SET_TEXT_ATTRIBUTE; $3) + +//list_SET_DRAG_ICON +_O_C_POINTER:C301(list_SET_DRAG_ICON; $1) + +//NQR_STATUS_BAR +_O_C_TEXT:C284(NQR_STATUS_BAR; $1) +_O_C_LONGINT:C283(PathPicker SET OPTIONS; ${4}) +_O_C_TEXT:C284(PathPicker SET OPTIONS; $1) +_O_C_BOOLEAN:C305(PathPicker SET OPTIONS; $2) +_O_C_LONGINT:C283(PathPicker SET OPTIONS; $3) + +//mnu_breakSpacing +_O_C_TEXT:C284(mnu_breakSpacing; $0) +_O_C_LONGINT:C283(mnu_breakSpacing; $1) + +//QR_SET_BORDER_PROPERTIES +_O_C_LONGINT:C283(QR_SET_BORDER_PROPERTIES; $1) +_O_C_OBJECT:C1216(QR_SET_BORDER_PROPERTIES; $2) +_O_C_LONGINT:C283(QR_SET_BORDER_PROPERTIES; $3) +_O_C_LONGINT:C283(QR_SET_BORDER_PROPERTIES; $4) + +//svg_Get_string_width +_O_C_REAL:C285(svg_Get_string_width; $0) +_O_C_TEXT:C284(svg_Get_string_width; $1) +_O_C_TEXT:C284(svg_Get_string_width; $2) +_O_C_LONGINT:C283(svg_Get_string_width; $3) +_O_C_LONGINT:C283(svg_Get_string_width; $4) + +//report_SET_CELL_FORMAT +_O_C_LONGINT:C283(report_SET_CELL_FORMAT; $1) +_O_C_TEXT:C284(report_SET_CELL_FORMAT; $2) +_O_C_LONGINT:C283(report_SET_CELL_FORMAT; $3) +_O_C_LONGINT:C283(report_SET_CELL_FORMAT; $4) +_O_C_LONGINT:C283(report_SET_CELL_FORMAT; $5) +_O_C_TEXT:C284(report_SET_CELL_FORMAT; $6) +_O_C_POINTER:C301(report_SET_CELL_FORMAT; $7) +_O_C_LONGINT:C283(report_SET_CELL_FORMAT; $8) + +//pathPicker SET DIRECTORY +_O_C_TEXT:C284(pathPicker SET DIRECTORY; $1) +_O_C_TEXT:C284(pathPicker SET DIRECTORY; $2) + +//QR_SWAP_COLUMNS +_O_C_LONGINT:C283(QR_SWAP_COLUMNS; $1) +_O_C_LONGINT:C283(QR_SWAP_COLUMNS; $2) +_O_C_LONGINT:C283(QR_SWAP_COLUMNS; $3) + +//report_SET_COLUMN_WIDTH +_O_C_TEXT:C284(report_SET_COLUMN_WIDTH; $1) +_O_C_LONGINT:C283(report_SET_COLUMN_WIDTH; $2) + +//QR_Get_computation +_O_C_LONGINT:C283(QR_Get_computation; $0) +_O_C_LONGINT:C283(QR_Get_computation; $1) +_O_C_LONGINT:C283(QR_Get_computation; $2) +_O_C_LONGINT:C283(QR_Get_computation; $3) + +//NQR_DO_IT +_O_C_OBJECT:C1216(NQR_DO_IT; $1) + +//CONTROL_SET_COLORS +_O_C_LONGINT:C283(CONTROL_SET_COLORS; $1) + +//subform_SET_OFFSET +_O_C_TEXT:C284(subform_SET_OFFSET; $1) +_O_C_LONGINT:C283(subform_SET_OFFSET; $2) +_O_C_LONGINT:C283(subform_SET_OFFSET; $3) + +//QR_Get_font_size +_O_C_LONGINT:C283(QR_Get_font_size; $0) +_O_C_LONGINT:C283(QR_Get_font_size; $1) +_O_C_LONGINT:C283(QR_Get_font_size; $2) +_O_C_LONGINT:C283(QR_Get_font_size; $3) + +//NQR_HEADER_AND_FOOTER_ACTION +_O_C_TEXT:C284(NQR_HEADER_AND_FOOTER_ACTION; $1) + +//mnu_borderThickness +_O_C_TEXT:C284(mnu_borderThickness; $0) +_O_C_LONGINT:C283(mnu_borderThickness; $1) +_O_C_TEXT:C284(mnu_borderThickness; $2) + +//mess_Preferences +_O_C_BOOLEAN:C305(mess_Preferences; $0) +_O_C_TEXT:C284(mess_Preferences; $1) +_O_C_TEXT:C284(mess_Preferences; $2) + +//NQR_AREA_HANDLE +_O_C_OBJECT:C1216(NQR_AREA_HANDLE; $1) + +//CONTROL_BorderHdl +_O_C_LONGINT:C283(CONTROL_BorderHdl; $1) + +//report_Get_table +_O_C_LONGINT:C283(report_Get_table; $0) +_O_C_LONGINT:C283(report_Get_table; $1) + +//NQR_MENU_COLUMN +_O_C_POINTER:C301(NQR_MENU_COLUMN; $1) + +//CONTROL_Get_color +_O_C_LONGINT:C283(CONTROL_Get_color; $0) +_O_C_LONGINT:C283(CONTROL_Get_color; $1) +_O_C_TEXT:C284(CONTROL_Get_color; $2) + +//Rgx_SubstituteText +_O_C_LONGINT:C283(Rgx_SubstituteText; $0) +_O_C_TEXT:C284(Rgx_SubstituteText; $1) +_O_C_TEXT:C284(Rgx_SubstituteText; $2) +_O_C_POINTER:C301(Rgx_SubstituteText; $3) +_O_C_LONGINT:C283(Rgx_SubstituteText; $4) + +//NQR_SETTING_HANDLER +_O_C_TEXT:C284(NQR_SETTING_HANDLER; $1) +_O_C_LONGINT:C283(NQR_SETTING_HANDLER; $2) + +//pathPicker SET MESSAGE +_O_C_TEXT:C284(pathPicker SET MESSAGE; $1) +_O_C_TEXT:C284(pathPicker SET MESSAGE; $2) + +//NQR_SET_SELECTION +_O_C_TEXT:C284(NQR_SET_SELECTION; $1) +_O_C_TEXT:C284(Obj_ALIGN; ${5}) +_O_C_LONGINT:C283(Obj_ALIGN; $1) +_O_C_LONGINT:C283(Obj_ALIGN; $2) +_O_C_TEXT:C284(Obj_ALIGN; $3) +_O_C_TEXT:C284(Obj_ALIGN; $4) + +//NQR_doAction +_O_C_LONGINT:C283(NQR_doAction; $1) + +//QR_SET_CELL_DATA +_O_C_LONGINT:C283(QR_SET_CELL_DATA; $1) +_O_C_LONGINT:C283(QR_SET_CELL_DATA; $2) +_O_C_LONGINT:C283(QR_SET_CELL_DATA; $3) +_O_C_LONGINT:C283(QR_SET_CELL_DATA; $4) +_O_C_TEXT:C284(Obj_BEST_WIDTH; ${3}) +_O_C_LONGINT:C283(Obj_BEST_WIDTH; $1) +_O_C_TEXT:C284(Obj_BEST_WIDTH; $2) + +//QR_Get_color +_O_C_LONGINT:C283(QR_Get_color; $0) +_O_C_LONGINT:C283(QR_Get_color; $1) +_O_C_LONGINT:C283(QR_Get_color; $2) +_O_C_LONGINT:C283(QR_Get_color; $3) +_O_C_LONGINT:C283(QR_Get_color; $4) + +//list_ITEM_COPY_METADATA +_O_C_LONGINT:C283(list_ITEM_COPY_METADATA; $1) +_O_C_LONGINT:C283(list_ITEM_COPY_METADATA; $2) +_O_C_LONGINT:C283(list_ITEM_COPY_METADATA; $3) +_O_C_LONGINT:C283(list_ITEM_COPY_METADATA; $4) + +//_max +_O_C_REAL:C285(_max; $0) +_O_C_REAL:C285(_max; ${3}) +_O_C_REAL:C285(_max; $1) +_O_C_REAL:C285(_max; $2) + +//Rgx_MatchText +_O_C_LONGINT:C283(Rgx_MatchText; $0) +_O_C_TEXT:C284(Rgx_MatchText; $1) +_O_C_TEXT:C284(Rgx_MatchText; $2) +_O_C_POINTER:C301(Rgx_MatchText; $3) +_O_C_LONGINT:C283(Rgx_MatchText; $4) +_O_C_TEXT:C284(Obj_SET_ENABLED; ${3}) +_O_C_BOOLEAN:C305(Obj_SET_ENABLED; $1) +_O_C_TEXT:C284(Obj_SET_ENABLED; $2) + +//report_SET_CELL_BACKGROUND +_O_C_LONGINT:C283(report_SET_CELL_BACKGROUND; $1) +_O_C_TEXT:C284(report_SET_CELL_BACKGROUND; $2) +_O_C_LONGINT:C283(report_SET_CELL_BACKGROUND; $3) +_O_C_LONGINT:C283(report_SET_CELL_BACKGROUND; $4) +_O_C_LONGINT:C283(report_SET_CELL_BACKGROUND; $5) + +//PathPicker Get option +_O_C_BOOLEAN:C305(PathPicker Get option; $0) +_O_C_TEXT:C284(PathPicker Get option; $1) +_O_C_LONGINT:C283(PathPicker Get option; $2) + +//QR_SET_COLUMN_WIDTH +_O_C_LONGINT:C283(QR_SET_COLUMN_WIDTH; $1) +_O_C_LONGINT:C283(QR_SET_COLUMN_WIDTH; $2) +_O_C_LONGINT:C283(QR_SET_COLUMN_WIDTH; $3) + +//report_DISPLAY_CROSS +_O_C_LONGINT:C283(report_DISPLAY_CROSS; $1) + +//QR_SET_CELL_OBJECT +_O_C_LONGINT:C283(QR_SET_CELL_OBJECT; $1) +_O_C_OBJECT:C1216(QR_SET_CELL_OBJECT; $2) +_O_C_LONGINT:C283(QR_SET_CELL_OBJECT; $3) +_O_C_LONGINT:C283(QR_SET_CELL_OBJECT; $4) + +//CONTROL_DRAW_SEGMENTS +_O_C_TEXT:C284(CONTROL_DRAW_SEGMENTS; $1) +_O_C_LONGINT:C283(CONTROL_DRAW_SEGMENTS; $2) +_O_C_LONGINT:C283(CONTROL_DRAW_SEGMENTS; $3) +_O_C_LONGINT:C283(CONTROL_DRAW_SEGMENTS; $4) +_O_C_LONGINT:C283(CONTROL_DRAW_SEGMENTS; $5) +_O_C_LONGINT:C283(CONTROL_DRAW_SEGMENTS; $6) +_O_C_POINTER:C301(CONTROL_DRAW_SEGMENTS; $7) + +//CONTROL_Form_hdl +_O_C_LONGINT:C283(CONTROL_Form_hdl; $0) + +//mess_DISPLAY +_O_C_OBJECT:C1216(mess_DISPLAY; $1) + +//QR_returnBorderFromCollection +_O_C_OBJECT:C1216(QR_returnBorderFromCollection; $0) +_O_C_COLLECTION:C1488(QR_returnBorderFromCollection; $1) +_O_C_OBJECT:C1216(QR_returnBorderFromCollection; $2) + +//mnu_borderSubMenu +_O_C_TEXT:C284(mnu_borderSubMenu; $0) +_O_C_TEXT:C284(mnu_borderSubMenu; $1) + +//PathPicker SET SELECTION OPTION +_O_C_TEXT:C284(PathPicker SET SELECTION OPTION; $1) +_O_C_LONGINT:C283(PathPicker SET SELECTION OPTION; $2) + +//CONTROL_Area_hdl +_O_C_TEXT:C284(CONTROL_Area_hdl; $0) +_O_C_OBJECT:C1216(CONTROL_Area_hdl; $1) +_O_C_TEXT:C284(pathPicker SET FILE TYPES; ${3}) +_O_C_TEXT:C284(pathPicker SET FILE TYPES; $1) +_O_C_TEXT:C284(pathPicker SET FILE TYPES; $2) + +//NQR_OPTIONS_ACTION +_O_C_TEXT:C284(NQR_OPTIONS_ACTION; $1) + +//subform_SET_DYNAMIC_VARIABLES +_O_C_OBJECT:C1216(subform_SET_DYNAMIC_VARIABLES; $1) + +//path_picker_Get_object +_O_C_POINTER:C301(path_picker_Get_object; $0) +_O_C_TEXT:C284(path_picker_Get_object; $1) +_O_C_POINTER:C301(path_picker_Get_object; $2) + +//path_picker_SET_LABEL +_O_C_POINTER:C301(path_picker_SET_LABEL; $1) + +//Rgx_SplitText +_O_C_LONGINT:C283(Rgx_SplitText; $0) +_O_C_TEXT:C284(Rgx_SplitText; $1) +_O_C_TEXT:C284(Rgx_SplitText; $2) +_O_C_POINTER:C301(Rgx_SplitText; $3) +_O_C_LONGINT:C283(Rgx_SplitText; $4) +_O_C_TEXT:C284(NQR_DRAW_TABS; ${1}) + +//QR_isValidField +_O_C_BOOLEAN:C305(QR_isValidField; $0) +_O_C_LONGINT:C283(QR_isValidField; $1) +_O_C_LONGINT:C283(QR_isValidField; $2) + +//PathPicker SET PLACEHOLDER +_O_C_TEXT:C284(PathPicker SET PLACEHOLDER; $1) +_O_C_TEXT:C284(PathPicker SET PLACEHOLDER; $2) + +//QR_Get_border_properties +_O_C_OBJECT:C1216(QR_Get_border_properties; $0) +_O_C_LONGINT:C283(QR_Get_border_properties; $1) +_O_C_LONGINT:C283(QR_Get_border_properties; $2) +_O_C_LONGINT:C283(QR_Get_border_properties; $3) + +//path_picker_INIT +_O_C_OBJECT:C1216(path_picker_INIT; $0) + +//QR_Get_font_style +_O_C_LONGINT:C283(QR_Get_font_style; $0) +_O_C_LONGINT:C283(QR_Get_font_style; $1) +_O_C_LONGINT:C283(QR_Get_font_style; $2) +_O_C_LONGINT:C283(QR_Get_font_style; $3) + +//env_4D_Resources_folder_path +_O_C_TEXT:C284(env_4D_Resources_folder_path; $0) + +//QR_DUPLICATE_COLUMN +_O_C_LONGINT:C283(QR_DUPLICATE_COLUMN; $1) +_O_C_LONGINT:C283(QR_DUPLICATE_COLUMN; $2) +_O_C_LONGINT:C283(QR_DUPLICATE_COLUMN; $3) +_O_C_LONGINT:C283(QR_DUPLICATE_COLUMN; $4) + +//PathPicker Get type +_O_C_LONGINT:C283(PathPicker Get type; $0) +_O_C_TEXT:C284(PathPicker Get type; $1) + +//mnu_border +_O_C_TEXT:C284(mnu_border; $0) + +//report_CREATE_AREA +_O_C_POINTER:C301(report_CREATE_AREA; $1) + +//mnu_Justification +_O_C_TEXT:C284(mnu_Justification; $0) +_O_C_LONGINT:C283(mnu_Justification; $1) + +//HDI_PATH_PICKER +_O_C_TEXT:C284(HDI_PATH_PICKER; $1) + +//NQR_SET_DESTINATION +_O_C_LONGINT:C283(NQR_SET_DESTINATION; $1) + +//PathPicker Get message +_O_C_TEXT:C284(PathPicker Get message; $0) +_O_C_TEXT:C284(PathPicker Get message; $1) + +//template_DRAW +_O_C_OBJECT:C1216(template_DRAW; $1) + +//QR_get_TotalsSpacing +_O_C_LONGINT:C283(QR_get_TotalsSpacing; $0) +_O_C_LONGINT:C283(QR_get_TotalsSpacing; $1) +_O_C_LONGINT:C283(QR_get_TotalsSpacing; $2) +_O_C_LONGINT:C283(QR_get_TotalsSpacing; $3) + +//doc_volumeName +_O_C_TEXT:C284(doc_volumeName; $0) +_O_C_TEXT:C284(doc_volumeName; $1) + +//NQR_TOOLBAR +_O_C_TEXT:C284(NQR_TOOLBAR; $1) +_O_C_BOOLEAN:C305(NQR_TOOLBAR; $2) + +//mnu_Color +_O_C_TEXT:C284(mnu_Color; $0) +_O_C_LONGINT:C283(mnu_Color; $1) +_O_C_TEXT:C284(mnu_Color; $2) +_O_C_TEXT:C284(mnu_Color; $3) + +//ob_GATHER +_O_C_OBJECT:C1216(ob_GATHER; $1) +_O_C_OBJECT:C1216(ob_GATHER; $2) + +//report_catchErrors +_O_C_TEXT:C284(report_catchErrors; $0) +_O_C_TEXT:C284(report_catchErrors; $1) +_O_C_TEXT:C284(report_catchErrors; $2) + +//template_LOAD +_O_C_TEXT:C284(template_LOAD; $1) + +//Rgx_Get_Pattern +_O_C_TEXT:C284(Rgx_Get_Pattern; $0) +_O_C_TEXT:C284(Rgx_Get_Pattern; $1) +_O_C_TEXT:C284(Rgx_Get_Pattern; $2) +_O_C_POINTER:C301(Rgx_Get_Pattern; $3) + +//NQR_DIGEST +_O_C_POINTER:C301(NQR_DIGEST; $1) +_O_C_BOOLEAN:C305(NQR_DIGEST; $2) + +//QR_Get_justification +_O_C_LONGINT:C283(QR_Get_justification; $0) +_O_C_LONGINT:C283(QR_Get_justification; $1) +_O_C_LONGINT:C283(QR_Get_justification; $2) +_O_C_LONGINT:C283(QR_Get_justification; $3) + +//template_Get_style +_O_C_TEXT:C284(template_Get_style; $0) +_O_C_OBJECT:C1216(template_Get_style; $1) +_O_C_TEXT:C284(template_Get_style; $2) +_O_C_LONGINT:C283(template_Get_style; $3) +_O_C_LONGINT:C283(template_Get_style; $4) + +//report_EDIT_COLUMN_FORMULA +_O_C_LONGINT:C283(report_EDIT_COLUMN_FORMULA; $1) +_O_C_LONGINT:C283(report_EDIT_COLUMN_FORMULA; $2) + +//report_CONTEXTUAL_MENUS +_O_C_LONGINT:C283(report_CONTEXTUAL_MENUS; $1) +_O_C_LONGINT:C283(report_CONTEXTUAL_MENUS; $2) +_O_C_LONGINT:C283(report_CONTEXTUAL_MENUS; $3) + +//report_SET_EVENTS +_O_C_TEXT:C284(report_SET_EVENTS; $1) +_O_C_TEXT:C284(report_SET_EVENTS; $2) + +//mnu_FontSyle +_O_C_TEXT:C284(mnu_FontSyle; $0) +_O_C_LONGINT:C283(mnu_FontSyle; $1) + +//Obj_BOUND_WITH_LIST +_O_C_LONGINT:C283(Obj_BOUND_WITH_LIST; $1) +_O_C_TEXT:C284(Obj_BOUND_WITH_LIST; $2) + +//mnu_Font +_O_C_TEXT:C284(mnu_Font; $0) + +//rgx_Options +_O_C_TEXT:C284(rgx_Options; $0) +_O_C_LONGINT:C283(rgx_Options; $1) + +//report_cell_styled_content +_O_C_TEXT:C284(report_cell_styled_content; $0) +_O_C_LONGINT:C283(report_cell_styled_content; $1) +_O_C_TEXT:C284(report_cell_styled_content; $2) +_O_C_LONGINT:C283(report_cell_styled_content; $3) +_O_C_LONGINT:C283(report_cell_styled_content; $4) +_O_C_TEXT:C284(report_cell_styled_content; $5) + +//QR_SET_CELL_DATA_from_widget +_O_C_LONGINT:C283(QR_SET_CELL_DATA_from_widget; $1) +_O_C_LONGINT:C283(QR_SET_CELL_DATA_from_widget; $2) +_O_C_LONGINT:C283(QR_SET_CELL_DATA_from_widget; $3) +_O_C_LONGINT:C283(QR_SET_CELL_DATA_from_widget; $4) + +//db_virtualTableName +_O_C_TEXT:C284(db_virtualTableName; $0) +_O_C_LONGINT:C283(db_virtualTableName; $1) + +//NQR_MENU_CELLS +_O_C_POINTER:C301(NQR_MENU_CELLS; $1) \ No newline at end of file diff --git a/Project/Sources/Methods/HDI_PATH_PICKER.4dm b/Project/Sources/Methods/HDI_PATH_PICKER.4dm index f21d123..d59e3e9 100644 --- a/Project/Sources/Methods/HDI_PATH_PICKER.4dm +++ b/Project/Sources/Methods/HDI_PATH_PICKER.4dm @@ -1,131 +1,128 @@ //%attributes = {} - // ---------------------------------------------------- - // Project method: HDI_PATH_PICKER - // ID[B9E4C0C8755B4287980CF03451A7C3F2] - // Created #9-9-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description - // - // ---------------------------------------------------- - // Declarations -C_TEXT:C284($1) +// ---------------------------------------------------- +// Project method: HDI_PATH_PICKER +// ID[B9E4C0C8755B4287980CF03451A7C3F2] +// Created #9-9-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description +// +// ---------------------------------------------------- +// Declarations +#DECLARE($entry_point : Text) -C_LONGINT:C283($Lon_parameters;$Win_hdl) -C_TEXT:C284($Mnu_bar;$Mnu_edit;$Txt_entryPoint;$Txt_methodName) +var $count_parameters; $window_reference : Integer +var $menu_bar; $menu_edit; $method_name : Text -If (False:C215) - C_TEXT:C284(HDI_PATH_PICKER ;$1) -End if - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 -If ($Lon_parameters>=1) +If ($count_parameters>=1) - $Txt_entryPoint:=$1 + //$entry_point:=$1 End if - // ---------------------------------------------------- +// ---------------------------------------------------- Case of - //___________________________________________________________ - : (Length:C16($Txt_entryPoint)=0) + //___________________________________________________________ + : (Length:C16($entry_point)=0) - $Txt_methodName:=Current method name:C684 + $method_name:=Current method name:C684 Case of - //…………………………………………………………………… - : (Method called on error:C704=$Txt_methodName) + //…………………………………………………………………… + : (Method called on error:C704=$method_name) - //Error handling manager + //Error handling manager - //…………………………………………………………………… - //: (Method called on event=$Txt_methodName) + //…………………………………………………………………… + //: (Method called on event=$Txt_methodName) - //Event manager - disabled for a component method + //Event manager - disabled for a component method - //…………………………………………………………………… + //…………………………………………………………………… Else - //This method must be executed in a unique new process - BRING TO FRONT:C326(New process:C317($Txt_methodName;24*1024;"$"+$Txt_methodName;"_run";*)) + //This method must be executed in a unique new process + BRING TO FRONT:C326(New process:C317($method_name; 24*1024; "$"+$method_name; "_run"; *)) - //…………………………………………………………………… + //…………………………………………………………………… End case - //___________________________________________________________ - : ($Txt_entryPoint="_run") + //___________________________________________________________ + : ($entry_point="_run") - //First launch of this method executed in a new process - HDI_PATH_PICKER ("_declarations") - HDI_PATH_PICKER ("_init") + //First launch of this method executed in a new process + HDI_PATH_PICKER("_declarations") + HDI_PATH_PICKER("_init") - $Win_hdl:=Open form window:C675("HDI_PATH_PICKER";Plain form window:K39:10;Horizontally centered:K39:1;Vertically centered:K39:4) + $window_reference:=Open form window:C675("HDI_PATH_PICKER"; Plain form window:K39:10; Horizontally centered:K39:1; Vertically centered:K39:4) DIALOG:C40("HDI_PATH_PICKER") CLOSE WINDOW:C154 - HDI_PATH_PICKER ("_deinit") + HDI_PATH_PICKER("_deinit") - //___________________________________________________________ - : ($Txt_entryPoint="_declarations") + //___________________________________________________________ + : ($entry_point="_declarations") - //___________________________________________________________ - : ($Txt_entryPoint="_init") + //___________________________________________________________ + : ($entry_point="_init") - $Mnu_bar:=Create menu:C408 - $Mnu_edit:=Create menu:C408 + $menu_bar:=Create menu:C408 + $menu_edit:=Create menu:C408 - APPEND MENU ITEM:C411($Mnu_edit;Get localized string:C991("CommonMenuItemUndo")) - SET MENU ITEM PROPERTY:C973($Mnu_edit;-1;Associated standard action:K56:1;_o_Undo action:K59:16) - SET MENU ITEM SHORTCUT:C423($Mnu_edit;-1;"Z";Command key mask:K16:1) + APPEND MENU ITEM:C411($menu_edit; Localized string:C991("CommonMenuItemUndo")) + SET MENU ITEM PROPERTY:C973($menu_edit; -1; Associated standard action:K56:1; _o_Undo action:K59:16) + SET MENU ITEM SHORTCUT:C423($menu_edit; -1; "Z"; Command key mask:K16:1) - APPEND MENU ITEM:C411($Mnu_edit;Get localized string:C991("CommonMenuRedo")) - SET MENU ITEM PROPERTY:C973($Mnu_edit;-1;Associated standard action:K56:1;_o_Redo action:K59:17) - SET MENU ITEM SHORTCUT:C423($Mnu_edit;-1;"Z";Shift key mask:K16:3) + APPEND MENU ITEM:C411($menu_edit; Localized string:C991("CommonMenuRedo")) + SET MENU ITEM PROPERTY:C973($menu_edit; -1; Associated standard action:K56:1; _o_Redo action:K59:17) + SET MENU ITEM SHORTCUT:C423($menu_edit; -1; "Z"; Shift key mask:K16:3) - APPEND MENU ITEM:C411($Mnu_edit;"-") + APPEND MENU ITEM:C411($menu_edit; "-") - APPEND MENU ITEM:C411($Mnu_edit;Get localized string:C991("CommonMenuItemCut")) - SET MENU ITEM PROPERTY:C973($Mnu_edit;-1;Associated standard action:K56:1;_o_Cut action:K59:18) - SET MENU ITEM SHORTCUT:C423($Mnu_edit;-1;"X";Command key mask:K16:1) + APPEND MENU ITEM:C411($menu_edit; Localized string:C991("CommonMenuItemCut")) + SET MENU ITEM PROPERTY:C973($menu_edit; -1; Associated standard action:K56:1; _o_Cut action:K59:18) + SET MENU ITEM SHORTCUT:C423($menu_edit; -1; "X"; Command key mask:K16:1) - APPEND MENU ITEM:C411($Mnu_edit;Get localized string:C991("CommonMenuItemCopy")) - SET MENU ITEM PROPERTY:C973($Mnu_edit;-1;Associated standard action:K56:1;_o_Copy action:K59:19) - SET MENU ITEM SHORTCUT:C423($Mnu_edit;-1;"C";Command key mask:K16:1) + APPEND MENU ITEM:C411($menu_edit; Localized string:C991("CommonMenuItemCopy")) + SET MENU ITEM PROPERTY:C973($menu_edit; -1; Associated standard action:K56:1; _o_Copy action:K59:19) + SET MENU ITEM SHORTCUT:C423($menu_edit; -1; "C"; Command key mask:K16:1) - APPEND MENU ITEM:C411($Mnu_edit;Get localized string:C991("CommonMenuItemPaste")) - SET MENU ITEM PROPERTY:C973($Mnu_edit;-1;Associated standard action:K56:1;_o_Paste action:K59:20) - SET MENU ITEM SHORTCUT:C423($Mnu_edit;-1;"V";Command key mask:K16:1) + APPEND MENU ITEM:C411($menu_edit; Localized string:C991("CommonMenuItemPaste")) + SET MENU ITEM PROPERTY:C973($menu_edit; -1; Associated standard action:K56:1; _o_Paste action:K59:20) + SET MENU ITEM SHORTCUT:C423($menu_edit; -1; "V"; Command key mask:K16:1) - APPEND MENU ITEM:C411($Mnu_edit;Get localized string:C991("CommonMenuItemClear")) - SET MENU ITEM PROPERTY:C973($Mnu_edit;-1;Associated standard action:K56:1;_o_Clear action:K59:21) + APPEND MENU ITEM:C411($menu_edit; Localized string:C991("CommonMenuItemClear")) + SET MENU ITEM PROPERTY:C973($menu_edit; -1; Associated standard action:K56:1; _o_Clear action:K59:21) - APPEND MENU ITEM:C411($Mnu_edit;Get localized string:C991("CommonMenuItemSelectAll")) - SET MENU ITEM PROPERTY:C973($Mnu_edit;-1;Associated standard action:K56:1;_o_Select all action:K59:22) - SET MENU ITEM SHORTCUT:C423($Mnu_edit;-1;"A";Command key mask:K16:1) + APPEND MENU ITEM:C411($menu_edit; Localized string:C991("CommonMenuItemSelectAll")) + SET MENU ITEM PROPERTY:C973($menu_edit; -1; Associated standard action:K56:1; _o_Select all action:K59:22) + SET MENU ITEM SHORTCUT:C423($menu_edit; -1; "A"; Command key mask:K16:1) - APPEND MENU ITEM:C411($Mnu_edit;"(-") + APPEND MENU ITEM:C411($menu_edit; "(-") - APPEND MENU ITEM:C411($Mnu_edit;Get localized string:C991("CommonMenuItemShowClipboard")) - SET MENU ITEM PROPERTY:C973($Mnu_edit;-1;Associated standard action:K56:1;_o_Show clipboard action:K59:23) + APPEND MENU ITEM:C411($menu_edit; Localized string:C991("CommonMenuItemShowClipboard")) + SET MENU ITEM PROPERTY:C973($menu_edit; -1; Associated standard action:K56:1; _o_Show clipboard action:K59:23) - APPEND MENU ITEM:C411($Mnu_bar;Get localized string:C991("CommonMenuEdit");$Mnu_edit) - RELEASE MENU:C978($Mnu_edit) + APPEND MENU ITEM:C411($menu_bar; Localized string:C991("CommonMenuEdit"); $menu_edit) + RELEASE MENU:C978($menu_edit) - SET MENU BAR:C67($Mnu_bar) + SET MENU BAR:C67($menu_bar) - //___________________________________________________________ - : ($Txt_entryPoint="_deinit") + //___________________________________________________________ + : ($entry_point="_deinit") RELEASE MENU:C978(Get menu bar reference:C979) - //___________________________________________________________ + //___________________________________________________________ Else - ASSERT:C1129(False:C215;"Unknown entry point ("+$Txt_entryPoint+")") + ASSERT:C1129(False:C215; "Unknown entry point ("+$entry_point+")") - //___________________________________________________________ + //___________________________________________________________ End case \ No newline at end of file diff --git a/Project/Sources/Methods/NQR_SaveAs.4dm b/Project/Sources/Methods/NQR_SaveAs.4dm index fcf61c5..26b046c 100644 --- a/Project/Sources/Methods/NQR_SaveAs.4dm +++ b/Project/Sources/Methods/NQR_SaveAs.4dm @@ -13,11 +13,8 @@ #DECLARE()->$OK : Boolean -var \ -$count_parameters : Integer - -var \ -$document_name : Text +var $count_parameters : Integer +var $document_name : Text // ---------------------------------------------------- @@ -47,7 +44,7 @@ QR REPORT TO BLOB:C770(QR_area; C_QR_INITBLOB) $document_name:=Select document:C905(8858; \ ".4qr"; \ -Get localized string:C991("save_the_report_as"); \ +Localized string:C991("save_the_report_as"); \ File name entry:K24:17+Use sheet window:K24:11+Package open:K24:8) $OK:=(OK=1) diff --git a/Project/Sources/Methods/PathPicker Get message.4dm b/Project/Sources/Methods/PathPicker Get message.4dm index cbedd91..14318ae 100644 --- a/Project/Sources/Methods/PathPicker Get message.4dm +++ b/Project/Sources/Methods/PathPicker Get message.4dm @@ -1,42 +1,38 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : PathPicker Get message - // ID[4C754CB98E0E4BE290EA0C08EF4A7DCC] - // Created #26-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_TEXT:C284($0) -C_TEXT:C284($1) - -C_LONGINT:C283($Lon_parameters) -C_TEXT:C284($Txt_message;$Txt_widget) -C_OBJECT:C1216($Obj_widget) - -If (False:C215) - C_TEXT:C284(PathPicker Get message ;$0) - C_TEXT:C284(PathPicker Get message ;$1) -End if +// ---------------------------------------------------- +// Project method : PathPicker Get message +// ID[4C754CB98E0E4BE290EA0C08EF4A7DCC] +// Created #26-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations + +#DECLARE($widget_name : Text) : Text + +var $count_parameters : Integer +var $message : Text +var $widget : Object + + - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) - //Required parameters - $Txt_widget:=$1 //Name of the widget object + //Required parameters - //Optional parameters - If ($Lon_parameters>=2) + //Optional parameters + If ($count_parameters>=2) - // + // End if - path_picker_Get_object ($Txt_widget;->$Obj_widget) + path_picker_Get_object($widget_name; ->$widget) Else @@ -44,12 +40,12 @@ Else End if - // ---------------------------------------------------- -$Txt_message:=OB Get:C1224($Obj_widget;"message";Is text:K8:3) +// ---------------------------------------------------- +$message:=String:C10($widget.message) - // ---------------------------------------------------- - // Return -$0:=$Txt_message +// ---------------------------------------------------- +// Return +return $message - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/PathPicker Get option.4dm b/Project/Sources/Methods/PathPicker Get option.4dm index 30a0b17..b340b7d 100644 --- a/Project/Sources/Methods/PathPicker Get option.4dm +++ b/Project/Sources/Methods/PathPicker Get option.4dm @@ -1,46 +1,37 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : PathPicker Get option - // ID[C135460FA6414D3AA834ECC6E198CB5F] - // Created #26-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_BOOLEAN:C305($0) -C_TEXT:C284($1) -C_LONGINT:C283($2) +// ---------------------------------------------------- +// Project method : PathPicker Get option +// ID[C135460FA6414D3AA834ECC6E198CB5F] +// Created #26-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations -C_BOOLEAN:C305($Boo_enabled) -C_LONGINT:C283($Lon_option;$Lon_parameters) -C_TEXT:C284($Txt_widget) -C_OBJECT:C1216($Obj_widget) +#DECLARE($widget_name : Text; $option/*1 = browse button | 2 = show on disk | 3 = copy path | 4 = open item*/: Integer) : Boolean + +var $count_parameters : Integer +var $enabled : Boolean +var $widget : Object -If (False:C215) - C_BOOLEAN:C305(PathPicker Get option ;$0) - C_TEXT:C284(PathPicker Get option ;$1) - C_LONGINT:C283(PathPicker Get option ;$2) -End if - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=2;"Missing parameter")) +If (Asserted:C1132($count_parameters>=2; "Missing parameter")) - //Required parameters - $Txt_widget:=$1 //Name of the widget object - $Lon_option:=$2 // 1 = browse button | 2 = show on disk | 3 = copy path | 4 = open item + //Required parameters - //Optional parameters - If ($Lon_parameters>=3) + //Optional parameters + If ($count_parameters>=3) - // + // End if - path_picker_Get_object ($Txt_widget;->$Obj_widget) + path_picker_Get_object($widget_name; ->$widget) Else @@ -48,25 +39,25 @@ Else End if - // ---------------------------------------------------- -If ($Lon_option>0) +// ---------------------------------------------------- +If ($option>0) - ARRAY TEXT:C222($tTxt_tags;4) + ARRAY TEXT:C222($tTxt_tags; 4) $tTxt_tags{1}:="browse" $tTxt_tags{2}:="showOnDisk" $tTxt_tags{3}:="copyPath" $tTxt_tags{4}:="openItem" - If (OB Is defined:C1231($Obj_widget)) + If (OB Is defined:C1231($widget)) - $Boo_enabled:=OB Get:C1224($Obj_widget;$tTxt_tags{$Lon_option};Is boolean:K8:9) + $enabled:=Bool:C1537($widget[$tTxt_tags{$option}]) End if End if - // ---------------------------------------------------- - // Return -$0:=$Boo_enabled +// ---------------------------------------------------- +// Return +return $enabled - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/PathPicker Get placeholder.4dm b/Project/Sources/Methods/PathPicker Get placeholder.4dm index 5091bc9..f395e75 100644 --- a/Project/Sources/Methods/PathPicker Get placeholder.4dm +++ b/Project/Sources/Methods/PathPicker Get placeholder.4dm @@ -1,42 +1,36 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : PathPicker Get placeholder - // ID[A2986B83A2154D3A83FD6B49AD7D340F] - // Created #26-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_TEXT:C284($0) -C_TEXT:C284($1) - -C_LONGINT:C283($Lon_parameters) -C_TEXT:C284($Txt_placeholder;$Txt_widget) -C_OBJECT:C1216($Obj_widget) - -If (False:C215) - C_TEXT:C284(PathPicker Get placeholder ;$0) - C_TEXT:C284(PathPicker Get placeholder ;$1) -End if +// ---------------------------------------------------- +// Project method : PathPicker Get placeholder +// ID[A2986B83A2154D3A83FD6B49AD7D340F] +// Created #26-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE($widget_name : Text) : Text + +var $count_parameters : Integer +var $placeholder : Text +var $widget : Object - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 + +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) - //Required parameters - $Txt_widget:=$1 //Name of the widget object + //Required parameters - //Optional parameters - If ($Lon_parameters>=2) + //Optional parameters + If ($count_parameters>=2) - // + // End if - path_picker_Get_object ($Txt_widget;->$Obj_widget) + path_picker_Get_object($widget_name; ->$widget) Else @@ -44,12 +38,13 @@ Else End if - // ---------------------------------------------------- -$Txt_placeholder:=OB Get:C1224($Obj_widget;"placeHolder";Is text:K8:3) +// ---------------------------------------------------- +$placeholder:=String:C10($widget.placeHolder) + - // ---------------------------------------------------- - // Return -$0:=$Txt_placeholder +// ---------------------------------------------------- +// Return +return $placeholder - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/PathPicker Get type.4dm b/Project/Sources/Methods/PathPicker Get type.4dm index 1550ad2..ff0e951 100644 --- a/Project/Sources/Methods/PathPicker Get type.4dm +++ b/Project/Sources/Methods/PathPicker Get type.4dm @@ -1,42 +1,35 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : PathPicker Get type - // ID[9B2F3EC320594A1AB1E85BC49AAEBB25] - // Created #26-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_LONGINT:C283($0) -C_TEXT:C284($1) +// ---------------------------------------------------- +// Project method : PathPicker Get type +// ID[9B2F3EC320594A1AB1E85BC49AAEBB25] +// Created #26-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE($widget_name : Text) : Integer -C_LONGINT:C283($Lon_parameters;$Lon_type) -C_TEXT:C284($Txt_widget) -C_OBJECT:C1216($Obj_widget) +var $count_parameters; $type : Integer +var $widget : Object -If (False:C215) - C_LONGINT:C283(PathPicker Get type ;$0) - C_TEXT:C284(PathPicker Get type ;$1) -End if - - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) - //Required parameters - $Txt_widget:=$1 //Name of the widget object + //Required parameters + //$widget_name:=$1 //Name of the widget object - //Optional parameters - If ($Lon_parameters>=2) + //Optional parameters + If ($count_parameters>=2) - // + // End if - path_picker_Get_object ($Txt_widget;->$Obj_widget) + path_picker_Get_object($widget_name; ->$widget) Else @@ -44,12 +37,12 @@ Else End if - // ---------------------------------------------------- -$Lon_type:=OB Get:C1224($Obj_widget;"type";Is longint:K8:6) +// ---------------------------------------------------- +$type:=Num:C11($widget.type) - // ---------------------------------------------------- - // Return -$0:=$Lon_type //0 = folder | 1 = document +// ---------------------------------------------------- +// Return +return $type //0 = folder | 1 = document - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/PathPicker SET OPTIONS.4dm b/Project/Sources/Methods/PathPicker SET OPTIONS.4dm index df59d7e..f616618 100644 --- a/Project/Sources/Methods/PathPicker SET OPTIONS.4dm +++ b/Project/Sources/Methods/PathPicker SET OPTIONS.4dm @@ -1,57 +1,50 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : PathPicker SET OPTIONS - // ID[E06B5F5E36284EB28516C73B5C393676] - // Created #26-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_TEXT:C284($1) -C_BOOLEAN:C305($2) -C_LONGINT:C283($3) -C_LONGINT:C283(${4}) +// ---------------------------------------------------- +// Project method : PathPicker SET OPTIONS +// ID[E06B5F5E36284EB28516C73B5C393676] +// Created #26-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE($widget_name : Text; $enabled : Boolean; $option/* 1 = browse button | 2 = show on disk | 3 = copy path | 4 = open item | 0 = all*/: Integer; ... : Integer) -C_BOOLEAN:C305($Boo_enabled) -C_LONGINT:C283($kLon_optionNumber;$Lon_i;$Lon_option;$Lon_parameters) -C_POINTER:C301($Ptr_widget) -C_TEXT:C284($Txt_widget) -C_OBJECT:C1216($Obj_widget) +var $widget_pointer : Pointer +var $widget : Object +var $i; $count_parameters; $option_number : Integer +var $_parameter : Collection + +// ---------------------------------------------------- + + +// Initialisations -If (False:C215) - C_TEXT:C284(PathPicker SET OPTIONS ;$1) - C_BOOLEAN:C305(PathPicker SET OPTIONS ;$2) - C_LONGINT:C283(PathPicker SET OPTIONS ;$3) - C_LONGINT:C283(PathPicker SET OPTIONS ;${4}) -End if - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +$count_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) - //Required parameters - $Txt_widget:=$1 //Name of the widget object + //Required parameters + //$widget_name:=$1 //Name of the widget object - //Optional parameters - If ($Lon_parameters>=2) + //Optional parameters + If ($count_parameters>=2) - $Boo_enabled:=$2 + //$enabled:=$2 - If ($Lon_parameters>=3) + If ($count_parameters>=3) - $Lon_option:=$3 // 1 = browse button | 2 = show on disk | 3 = copy path | 4 = open item | 0 = all + //$option:=$3 // 1 = browse button | 2 = show on disk | 3 = copy path | 4 = open item | 0 = all End if End if - $Ptr_widget:=path_picker_Get_object ($Txt_widget;->$Obj_widget) + $widget_pointer:=path_picker_Get_object($widget_name; ->$widget) - $kLon_optionNumber:=4 + $option_number:=4 - ARRAY TEXT:C222($ktTxt_tags;$kLon_optionNumber) + ARRAY TEXT:C222($ktTxt_tags; $option_number) $ktTxt_tags{1}:="browse" $ktTxt_tags{2}:="showOnDisk" $ktTxt_tags{3}:="copyPath" @@ -63,46 +56,53 @@ Else End if - // ---------------------------------------------------- +// ---------------------------------------------------- Case of - //______________________________________________________ - : ($Lon_option=0) + //______________________________________________________ + : ($option=0) - For ($Lon_i;1;Size of array:C274($ktTxt_tags);1) + For ($i; 1; Size of array:C274($ktTxt_tags); 1) - OB SET:C1220($Obj_widget;\ - $ktTxt_tags{$Lon_i};$Boo_enabled) + //OB SET($widget; \ + $ktTxt_tags{$i}; $enabled) + + + $widget[$ktTxt_tags{$i}]:=$enabled End for - $Ptr_widget->:=JSON Stringify:C1217($Obj_widget) + $widget_pointer->:=JSON Stringify:C1217($widget) - //______________________________________________________ + //______________________________________________________ Else - For ($Lon_i;3;$Lon_parameters;1) + $_parameter:=Copy parameters:C1790 + + For ($i; 2; $_parameter.length-1; 1) - $Lon_option:=${$Lon_i} + $option:=$_parameter[$i] //${$i} - If ($Lon_option<=$kLon_optionNumber) + If ($option<=$option_number) + + //OB SET($widget; \ + $ktTxt_tags{$option}; $enabled) - OB SET:C1220($Obj_widget;\ - $ktTxt_tags{$Lon_option};$Boo_enabled) + $widget[$ktTxt_tags{$option}]:=$enabled End if End for - $Ptr_widget->:=JSON Stringify:C1217($Obj_widget) + $widget_pointer->:=JSON Stringify:C1217($widget) - //______________________________________________________ + //______________________________________________________ End case - //update UI -EXECUTE METHOD IN SUBFORM:C1085($Txt_widget;"path_picker_UPDATE_UI") +//update UI +EXECUTE METHOD IN SUBFORM:C1085($widget_name; "path_picker_UPDATE_UI") - // ---------------------------------------------------- - // Return - // - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// Return +// +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/PathPicker SET PLACEHOLDER.4dm b/Project/Sources/Methods/PathPicker SET PLACEHOLDER.4dm index 7b23efa..e9bd58f 100644 --- a/Project/Sources/Methods/PathPicker SET PLACEHOLDER.4dm +++ b/Project/Sources/Methods/PathPicker SET PLACEHOLDER.4dm @@ -1,37 +1,28 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : PathPicker SET PLACEHOLDER - // ID[378E3848209F46F6954883C001F9F137] - // Created #26-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_TEXT:C284($1) -C_TEXT:C284($2) +// ---------------------------------------------------- +// Project method : PathPicker SET PLACEHOLDER +// ID[378E3848209F46F6954883C001F9F137] +// Created #26-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE($widget_name : Text; $placeholder : Text) -C_LONGINT:C283($Lon_parameters) -C_TEXT:C284($Txt_placeHolder;$Txt_widget) +var $count_parameters : Integer -If (False:C215) - C_TEXT:C284(PathPicker SET PLACEHOLDER ;$1) - C_TEXT:C284(PathPicker SET PLACEHOLDER ;$2) -End if - - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) - //Required parameters - $Txt_widget:=$1 //Name of the widget object + //Required parameters - //Optional parameters - If ($Lon_parameters>=2) + //Optional parameters + If ($count_parameters>=2) - $Txt_placeHolder:=$2 End if @@ -41,11 +32,11 @@ Else End if - // ---------------------------------------------------- -path_picker_SET_TEXT_ATTRIBUTE ($Txt_widget;"placeHolder";$Txt_placeHolder) +// ---------------------------------------------------- +path_picker_SET_TEXT_ATTRIBUTE($widget_name; "placeHolder"; $placeholder) - // ---------------------------------------------------- - // Return - // - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// Return +// +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/PathPicker SET SELECTION OPTION.4dm b/Project/Sources/Methods/PathPicker SET SELECTION OPTION.4dm index 7b74aec..5637889 100644 --- a/Project/Sources/Methods/PathPicker SET SELECTION OPTION.4dm +++ b/Project/Sources/Methods/PathPicker SET SELECTION OPTION.4dm @@ -1,43 +1,28 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : PathPicker SET SELECTION OPTION - // ID[353E31F11B474F3981E6DAB1BE1C3AE7] - // Created #26-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_TEXT:C284($1) -C_LONGINT:C283($2) - -C_LONGINT:C283($Lon_options;$Lon_parameters) -C_POINTER:C301($Ptr_widget) -C_TEXT:C284($Txt_widget) -C_OBJECT:C1216($Obj_widget) - -If (False:C215) - C_TEXT:C284(PathPicker SET SELECTION OPTION ;$1) - C_LONGINT:C283(PathPicker SET SELECTION OPTION ;$2) -End if +// ---------------------------------------------------- +// Project method : PathPicker SET SELECTION OPTION +// ID[353E31F11B474F3981E6DAB1BE1C3AE7] +// Created #26-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE($widget_name : Text; $options : Integer) - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) - - //Required parameters - $Txt_widget:=$1 //Name of the widget object - - //Optional parameters - If ($Lon_parameters>=2) - - $Lon_options:=$2 - - End if +var $count_parameters : Integer + +var $widget_pointer : Pointer +var $widget : Object + +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 + +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) - $Ptr_widget:=path_picker_Get_object ($Txt_widget;->$Obj_widget) + $widget_pointer:=path_picker_Get_object($widget_name; ->$widget) Else @@ -45,14 +30,15 @@ Else End if - // ---------------------------------------------------- -OB SET:C1220($Obj_widget;\ -"options";$Lon_options) +// ---------------------------------------------------- + + +$widget.options:=$options -$Ptr_widget->:=JSON Stringify:C1217($Obj_widget) +$widget_pointer->:=JSON Stringify:C1217($widget) - // ---------------------------------------------------- - // Return - // - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// Return +// +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/PathPicker SET TYPE.4dm b/Project/Sources/Methods/PathPicker SET TYPE.4dm index 83f4cbb..7161fb9 100644 --- a/Project/Sources/Methods/PathPicker SET TYPE.4dm +++ b/Project/Sources/Methods/PathPicker SET TYPE.4dm @@ -1,47 +1,32 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : PathPicker SET TYPE - // ID[52DC25E150D1413BA15300A6FAC3A94F] - // Created #26-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_TEXT:C284($1) -C_LONGINT:C283($2) +// ---------------------------------------------------- +// Project method : PathPicker SET TYPE +// ID[52DC25E150D1413BA15300A6FAC3A94F] +// Created #26-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE($widget_name : Text; $path_type : Integer) -C_LONGINT:C283($Lon_parameters;$Lon_type) -C_POINTER:C301($Ptr_widget) -C_TEXT:C284($Txt_widget) -C_OBJECT:C1216($Obj_widget) +var $count_parameters : Integer +var $widget_pointer : Pointer +var $widget : Object -If (False:C215) - C_TEXT:C284(PathPicker SET TYPE ;$1) - C_LONGINT:C283(PathPicker SET TYPE ;$2) -End if - - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) - //Required parameters - $Txt_widget:=$1 //Name of the widget object - $Lon_type:=Is a document:K24:1 + $path_type:=(Count parameters:C259>1) ? $path_type : Is a document:K24:1 - //Optional parameters - If ($Lon_parameters>=2) - - $Lon_type:=$2 //0 = folder | 1 (default) = document - - End if - ASSERT:C1129(($Lon_type=Is a folder:K24:2) | ($Lon_type=Is a document:K24:1);"The value must be 0 or 1") + ASSERT:C1129(($path_type=Is a folder:K24:2) | ($path_type=Is a document:K24:1); "The value must be 0 or 1") - $Ptr_widget:=path_picker_Get_object ($Txt_widget;->$Obj_widget) + $widget_pointer:=path_picker_Get_object($widget_name; ->$widget) Else @@ -49,19 +34,17 @@ Else End if - // ---------------------------------------------------- -If ($Lon_type=Is a folder:K24:2)\ - | ($Lon_type=Is a document:K24:1) +// ---------------------------------------------------- +If ($path_type=Is a folder:K24:2) | ($path_type=Is a document:K24:1) - OB SET:C1220($Obj_widget;\ - "type";$Lon_type) + $widget.type:=$path_type - $Ptr_widget->:=JSON Stringify:C1217($Obj_widget) + $widget_pointer->:=JSON Stringify:C1217($widget) End if - // ---------------------------------------------------- - // Return - // - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// Return +// +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/pathPicker SET DIRECTORY.4dm b/Project/Sources/Methods/pathPicker SET DIRECTORY.4dm index 1a693ff..6cbda93 100644 --- a/Project/Sources/Methods/pathPicker SET DIRECTORY.4dm +++ b/Project/Sources/Methods/pathPicker SET DIRECTORY.4dm @@ -1,37 +1,28 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : pathPicker SET DIRECTORY - // ID[22365EAA97E546159FA239A7A658E5BA] - // Created #26-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_TEXT:C284($1) -C_TEXT:C284($2) +// ---------------------------------------------------- +// Project method : pathPicker SET DIRECTORY +// ID[22365EAA97E546159FA239A7A658E5BA] +// Created #26-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE($widget_name : Text; $directory : Text) -C_LONGINT:C283($Lon_parameters) -C_TEXT:C284($Txt_directory;$Txt_widget) +var $count_parameters : Integer -If (False:C215) - C_TEXT:C284(pathPicker SET DIRECTORY ;$1) - C_TEXT:C284(pathPicker SET DIRECTORY ;$2) -End if - - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) - //Required parameters - $Txt_widget:=$1 //Name of the widget object + //Required parameters - //Optional parameters - If ($Lon_parameters>=2) + //Optional parameters + If ($count_parameters>=2) - $Txt_directory:=$2 End if @@ -41,11 +32,11 @@ Else End if - // ---------------------------------------------------- -path_picker_SET_TEXT_ATTRIBUTE ($Txt_widget;"directory";$Txt_directory) +// ---------------------------------------------------- +path_picker_SET_TEXT_ATTRIBUTE($widget_name; "directory"; $directory) - // ---------------------------------------------------- - // Return - // - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// Return +// +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/pathPicker SET FILE TYPES.4dm b/Project/Sources/Methods/pathPicker SET FILE TYPES.4dm index c7125e8..64fad84 100644 --- a/Project/Sources/Methods/pathPicker SET FILE TYPES.4dm +++ b/Project/Sources/Methods/pathPicker SET FILE TYPES.4dm @@ -1,47 +1,42 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : pathPicker SET FILE TYPES - // ID[E6A6D14A18404D3DA7496CA99AB21BDD] - // Created #26-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_TEXT:C284($1) -C_TEXT:C284($2) -C_TEXT:C284(${3}) +// ---------------------------------------------------- +// Project method : pathPicker SET FILE TYPES +// ID[E6A6D14A18404D3DA7496CA99AB21BDD] +// Created #26-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE($widget_name : Text; $type : Text; ... : Text) -C_LONGINT:C283($Lon_i;$Lon_parameters) -C_TEXT:C284($Txt_type;$Txt_widget) -If (False:C215) - C_TEXT:C284(pathPicker SET FILE TYPES ;$1) - C_TEXT:C284(pathPicker SET FILE TYPES ;$2) - C_TEXT:C284(pathPicker SET FILE TYPES ;${3}) -End if +var $i; $count_parameters : Integer +var $_parameter : Collection - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) - //Required parameters - $Txt_widget:=$1 //Name of the widget object + //Required parameters - //Optional parameters - If ($Lon_parameters=2) + //Optional parameters + If ($count_parameters=2) - $Txt_type:=$2 Else - For ($Lon_i;2;$Lon_parameters;1) + $_parameter:=Copy parameters:C1790 + + For ($i; 2; $_parameter.length-1; 1) // $type is initialized with $2 then start with 2 === 3 - $Txt_type:=$Txt_type+${$Lon_i}+(";"*Num:C11($Lon_i<$Lon_parameters)) + //$type:=$type+${$i}+(";"*Num($i<$count_parameters)) + $type:=$type+";"+$_parameter[$i] End for + End if Else @@ -50,11 +45,11 @@ Else End if - // ---------------------------------------------------- -path_picker_SET_TEXT_ATTRIBUTE ($Txt_widget;"fileTypes";$Txt_type) +// ---------------------------------------------------- +path_picker_SET_TEXT_ATTRIBUTE($widget_name; "fileTypes"; $type) - // ---------------------------------------------------- - // Return - // - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// Return +// +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/pathPicker SET MESSAGE.4dm b/Project/Sources/Methods/pathPicker SET MESSAGE.4dm index 8a66f25..b0a140d 100644 --- a/Project/Sources/Methods/pathPicker SET MESSAGE.4dm +++ b/Project/Sources/Methods/pathPicker SET MESSAGE.4dm @@ -1,37 +1,29 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : pathPicker SET MESSAGE - // ID[A5D95D40CFD6461CA50862466531CD28] - // Created #26-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_TEXT:C284($1) -C_TEXT:C284($2) +// ---------------------------------------------------- +// Project method : pathPicker SET MESSAGE +// ID[A5D95D40CFD6461CA50862466531CD28] +// Created #26-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE($widget_name : Text; $message : Text) -C_LONGINT:C283($Lon_parameters) -C_TEXT:C284($Txt_message;$Txt_widget) +var $count_parameters : Integer -If (False:C215) - C_TEXT:C284(pathPicker SET MESSAGE ;$1) - C_TEXT:C284(pathPicker SET MESSAGE ;$2) -End if - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) - //Required parameters - $Txt_widget:=$1 //Name of the widget object + //Required parameters - //Optional parameters - If ($Lon_parameters>=2) + //Optional parameters + If ($count_parameters>=2) - $Txt_message:=$2 End if @@ -41,11 +33,11 @@ Else End if - // ---------------------------------------------------- -path_picker_SET_TEXT_ATTRIBUTE ($Txt_widget;"message";$Txt_message) +// ---------------------------------------------------- +path_picker_SET_TEXT_ATTRIBUTE($widget_name; "message"; $message) - // ---------------------------------------------------- - // Return - // - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// Return +// +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/path_picker_Get_object.4dm b/Project/Sources/Methods/path_picker_Get_object.4dm index 3e85cf9..acd9e1e 100644 --- a/Project/Sources/Methods/path_picker_Get_object.4dm +++ b/Project/Sources/Methods/path_picker_Get_object.4dm @@ -1,41 +1,32 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : path_picker_Get_object - // ID[54AF9A672A2847FEAE71180159E52D38] - // Created #28-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_POINTER:C301($0) -C_TEXT:C284($1) -C_POINTER:C301($2) +// ---------------------------------------------------- +// Project method : path_picker_Get_object +// ID[54AF9A672A2847FEAE71180159E52D38] +// Created #28-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE($widget_name : Text; $widget : Pointer)->$widget_pointer : Pointer -C_LONGINT:C283($Lon_parameters) -C_POINTER:C301($Ptr_object;$Ptr_widget) -C_TEXT:C284($Txt_widget) -If (False:C215) - C_POINTER:C301(path_picker_Get_object ;$0) - C_TEXT:C284(path_picker_Get_object ;$1) - C_POINTER:C301(path_picker_Get_object ;$2) -End if +var $count_parameters : Integer - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) + + //Required parameters + //$widget_name:=$1 //Name of the widget object - //Required parameters - $Txt_widget:=$1 //Name of the widget object - $Ptr_object:=$2 //Object to populate - //Optional parameters - If ($Lon_parameters>=2) + //Optional parameters + If ($count_parameters>=2) - // + // End if @@ -45,19 +36,19 @@ Else End if - // ---------------------------------------------------- -$Ptr_widget:=OBJECT Get pointer:C1124(Object named:K67:5;"ob_widget";$Txt_widget) +// ---------------------------------------------------- +$widget_pointer:=OBJECT Get pointer:C1124(Object named:K67:5; "ob_widget"; $widget_name) -If (Not:C34(Is nil pointer:C315($Ptr_widget))) +If (Not:C34(Is nil pointer:C315($widget_pointer))) - If (Length:C16($Ptr_widget->)=0) + If (Length:C16($widget_pointer->)=0) - //default values - $Ptr_object->:=path_picker_INIT + //default values + $widget->:=path_picker_INIT Else - $Ptr_object->:=JSON Parse:C1218($Ptr_widget->) + $widget->:=JSON Parse:C1218($widget_pointer->) End if @@ -67,9 +58,9 @@ Else End if - // ---------------------------------------------------- - // Return -$0:=$Ptr_widget //Pointer to the widget object +// ---------------------------------------------------- +// Return +return $widget_pointer //Pointer to the widget object - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/path_picker_INIT.4dm b/Project/Sources/Methods/path_picker_INIT.4dm index 836b0a7..cd079bf 100644 --- a/Project/Sources/Methods/path_picker_INIT.4dm +++ b/Project/Sources/Methods/path_picker_INIT.4dm @@ -1,34 +1,30 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : path_picker_INIT - // ID[9639159F9EBF4D44976176215E23838B] - // Created #10-9-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_OBJECT:C1216($0) - -C_LONGINT:C283($Lon_parameters) -C_OBJECT:C1216($Obj_widget) - -If (False:C215) - C_OBJECT:C1216(path_picker_INIT ;$0) -End if +// ---------------------------------------------------- +// Project method : path_picker_INIT +// ID[9639159F9EBF4D44976176215E23838B] +// Created #10-9-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE() : Object + +var $count_parameters : Integer +var $widget : Object - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=0;"Missing parameter")) +If (Asserted:C1132($count_parameters>=0; "Missing parameter")) - //NO PARAMETERS REQUIRED + //NO PARAMETERS REQUIRED - //Optional parameters - If ($Lon_parameters>=1) + //Optional parameters + If ($count_parameters>=1) - // + // End if @@ -38,24 +34,27 @@ Else End if - // ---------------------------------------------------- -OB SET:C1220($Obj_widget;\ -"accessPath";"";\ -"browse";True:C214;\ -"showOnDisk";True:C214;\ -"copyPath";True:C214;\ -"openItem";True:C214;\ -"type";Is a document:K24:1;\ -"options";Package selection:K24:9+Use sheet window:K24:11;\ -"directory";"8858";\ -"fileTypes";"";\ -"message";"";\ -"placeHolder";"";\ -"_lastPath";"") - - // ---------------------------------------------------- - // Return -$0:=$Obj_widget - - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- + +$widget:={\ +accessPath: ""; \ +browse: True:C214; \ +showOnDisk: True:C214; \ +copyPath: True:C214; \ +openItem: True:C214; \ +type: Is a document:K24:1; \ +options: Package selection:K24:9+Use sheet window:K24:11; \ +directory: "8858"; \ +fileTypes: ""; \ +message: ""; \ +placeHolder: ""; \ +_lastPath: ""\ +} + + +// ---------------------------------------------------- +// Return +return $widget + +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/path_picker_SET_LABEL.4dm b/Project/Sources/Methods/path_picker_SET_LABEL.4dm index c86aac1..01afbae 100644 --- a/Project/Sources/Methods/path_picker_SET_LABEL.4dm +++ b/Project/Sources/Methods/path_picker_SET_LABEL.4dm @@ -1,39 +1,35 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : path_picker_SET_LABEL - // ID[F366056285464A5390A355AA354BA923] - // Created #10-9-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_POINTER:C301($1) +// ---------------------------------------------------- +// Project method : path_picker_SET_LABEL +// ID[F366056285464A5390A355AA354BA923] +// Created #10-9-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE($widget_pointer : Pointer) -C_LONGINT:C283($Lon_parameters;$Lon_platform;$Lon_size) -C_POINTER:C301($Ptr_widget) -C_TEXT:C284($kTxt_Separator;$Txt_Buffer;$Txt_File;$Txt_lastPath;$Txt_path;$Txt_Volume) -C_OBJECT:C1216($Obj_widget) +var $count_parameters; $size : Integer +var $separator; $buffer; $file; $last_path; $path; $volume : Text +var $widget : Object -If (False:C215) - C_POINTER:C301(path_picker_SET_LABEL ;$1) -End if - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) - //Required parameters - $Ptr_widget:=$1 + //Required parameters + //$widget_pointer:=$1 - $Obj_widget:=JSON Parse:C1218($Ptr_widget->) + $widget:=JSON Parse:C1218($widget_pointer->) - //Optional parameters - If ($Lon_parameters>=2) + //Optional parameters + If ($count_parameters>=2) - // + // End if @@ -43,79 +39,78 @@ Else End if - // ---------------------------------------------------- -$Txt_path:=OB Get:C1224($Obj_widget;"accessPath";Is text:K8:3) -$Txt_lastPath:=OB Get:C1224($Obj_widget;"_lastPath";Is text:K8:3) +// ---------------------------------------------------- +$path:=OB Get:C1224($widget; "accessPath"; Is text:K8:3) +$last_path:=OB Get:C1224($widget; "_lastPath"; Is text:K8:3) -If ($Txt_path#$Txt_lastPath) +If ($path#$last_path) - $Lon_size:=Length:C16($Txt_path) + $size:=Length:C16($path) - If ($Lon_size>0) + If ($size>0) - // C/S mode on Mac the path could be in Windows mode if server run on PC - // E:\Backup Base Rezs v11\Ressources_4D_v11[0373].4BK - _O_PLATFORM PROPERTIES:C365($Lon_platform) + // C/S mode on Mac the path could be in Windows mode if server run on PC + // E:\Backup Base Rezs v11\Ressources_4D_v11[0373].4BK Case of - //…………………………………………………………………………………………………………………… + //…………………………………………………………………………………………………………………… : (Application type:C494=4D Remote mode:K5:5)\ - & ($Lon_platform=Mac OS:K25:2)\ - & (Position:C15("\\";$Txt_path)>0) + & (Is macOS:C1572)\ + & (Position:C15("\\"; $path)>0) - $kTxt_Separator:="\\" + $separator:="\\" - //…………………………………………………………………………………………………………………… + //…………………………………………………………………………………………………………………… : (Application type:C494=4D Remote mode:K5:5)\ - & ($Lon_platform=Windows:K25:3)\ - & (Position:C15(":";Replace string:C233($Txt_path;":";"";1))>0) + & (Is Windows:C1573)\ + & (Position:C15(":"; Replace string:C233($path; ":"; ""; 1))>0) - $kTxt_Separator:=":" + $separator:=":" - //…………………………………………………………………………………………………………………… + //…………………………………………………………………………………………………………………… Else - $kTxt_Separator:=Folder separator:K24:12 + $separator:=Folder separator:K24:12 - //…………………………………………………………………………………………………………………… + //…………………………………………………………………………………………………………………… End case - $Txt_Volume:=Replace string:C233(doc_volumeName ($Txt_path);$kTxt_Separator;"") - $Txt_File:=Replace string:C233(doc_getFromPath ("fullName";$Txt_path;$kTxt_Separator);$kTxt_Separator;"") + $volume:=Replace string:C233(doc_volumeName($path); $separator; "") + $file:=Replace string:C233(doc_getFromPath("fullName"; $path; $separator); $separator; "") - If ($Txt_File#$Txt_Volume) + If ($file#$volume) - $Txt_Buffer:=Replace string:C233(Get localized string:C991("FileInVolume");"{file}";$Txt_File) - $Txt_Buffer:=Replace string:C233($Txt_Buffer;"{volume}";$Txt_Volume) + $buffer:=Replace string:C233(Localized string:C991("FileInVolume"); "{file}"; $file) + $buffer:=Replace string:C233($buffer; "{volume}"; $volume) Else - $Txt_Buffer:="\""+$Txt_File+"\"" + $buffer:="\""+$file+"\"" End if - OBJECT SET VISIBLE:C603(*;"plus";True:C214) + OBJECT SET VISIBLE:C603(*; "plus"; True:C214) Else - CLEAR VARIABLE:C89($Txt_buffer) - OBJECT SET VISIBLE:C603(*;"plus";False:C215) + CLEAR VARIABLE:C89($buffer) + OBJECT SET VISIBLE:C603(*; "plus"; False:C215) End if - //store the current path value - OB SET:C1220($Obj_widget;\ - "_lastPath";$Txt_path) + //store the current path value + OB SET:C1220($widget; \ + "_lastPath"; $path) - $Ptr_widget->:=JSON Stringify:C1217($Obj_widget) + $widget_pointer->:=JSON Stringify:C1217($widget) - (OBJECT Get pointer:C1124(Object named:K67:5;"accessPath"))->:=$Txt_buffer + (OBJECT Get pointer:C1124(Object named:K67:5; "accessPath"))->:=$buffer End if - // ---------------------------------------------------- - // Return - // - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// Return +// +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/path_picker_SET_TEXT_ATTRIBUTE.4dm b/Project/Sources/Methods/path_picker_SET_TEXT_ATTRIBUTE.4dm index cbc924b..9a43d07 100644 --- a/Project/Sources/Methods/path_picker_SET_TEXT_ATTRIBUTE.4dm +++ b/Project/Sources/Methods/path_picker_SET_TEXT_ATTRIBUTE.4dm @@ -1,46 +1,34 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : path_picker_SET_TEXT_ATTRIBUTE - // ID[2B2C8CB6DAEC4870A375A6DD4D11DAE9] - // Created #28-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_TEXT:C284($1) -C_TEXT:C284($2) -C_TEXT:C284($3) - -C_LONGINT:C283($Lon_parameters) -C_POINTER:C301($Ptr_widget) -C_TEXT:C284($Txt_name;$Txt_value;$Txt_widget) -C_OBJECT:C1216($Obj_widget) - -If (False:C215) - C_TEXT:C284(path_picker_SET_TEXT_ATTRIBUTE ;$1) - C_TEXT:C284(path_picker_SET_TEXT_ATTRIBUTE ;$2) - C_TEXT:C284(path_picker_SET_TEXT_ATTRIBUTE ;$3) -End if - - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 - -If (Asserted:C1132($Lon_parameters>=2;"Missing parameter")) - - //Required parameters - $Txt_widget:=$1 //Name of the widget object - $Txt_name:=$2 //name of the attribute to set - - //Optional parameters - If ($Lon_parameters>=3) +// ---------------------------------------------------- +// Project method : path_picker_SET_TEXT_ATTRIBUTE +// ID[2B2C8CB6DAEC4870A375A6DD4D11DAE9] +// Created #28-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE($widget_name : Text; $attribut : Text; $value : Text) + +var $count_parameters : Integer +var $widget_pointer : Pointer +var $widget : Object + +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 + +If (Asserted:C1132($count_parameters>=2; "Missing parameter")) + + //Required parameters + + //Optional parameters + If ($count_parameters>=3) - $Txt_value:=$3 //{Value} End if - $Ptr_widget:=path_picker_Get_object ($Txt_widget;->$Obj_widget) + $widget_pointer:=path_picker_Get_object($widget_name; ->$widget) Else @@ -48,20 +36,21 @@ Else End if - // ---------------------------------------------------- -OB SET:C1220($Obj_widget;\ -$Txt_name;$Txt_value) +// ---------------------------------------------------- + + +$widget[$attribut]:=$value -$Ptr_widget->:=JSON Stringify:C1217($Obj_widget) +$widget_pointer->:=JSON Stringify:C1217($widget) -If ($Txt_name="placeHolder") +If ($attribut="placeHolder") - EXECUTE METHOD IN SUBFORM:C1085($Txt_widget;"path_picker_UPDATE_UI") + EXECUTE METHOD IN SUBFORM:C1085($widget_name; "path_picker_UPDATE_UI") End if - // ---------------------------------------------------- - // Return - // - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// Return +// +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/path_picker_UPDATE_UI.4dm b/Project/Sources/Methods/path_picker_UPDATE_UI.4dm index 09b14f3..f5c83dc 100644 --- a/Project/Sources/Methods/path_picker_UPDATE_UI.4dm +++ b/Project/Sources/Methods/path_picker_UPDATE_UI.4dm @@ -1,27 +1,29 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : path_picker_UPDATE_UI - // ID[6684F017FD004A4A90E60CEC1033E961] - // Created #28-11-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_LONGINT:C283($Lon_parameters) +// ---------------------------------------------------- +// Project method : path_picker_UPDATE_UI +// ID[6684F017FD004A4A90E60CEC1033E961] +// Created #28-11-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +var $count_parameters : Integer -If (Asserted:C1132($Lon_parameters>=0;"Missing parameter")) + +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 + +If (Asserted:C1132($count_parameters>=0; "Missing parameter")) - //NO PARAMETERS REQUIRED + //NO PARAMETERS REQUIRED - //Optional parameters - If ($Lon_parameters>=1) + //Optional parameters + If ($count_parameters>=1) - // + // End if @@ -31,11 +33,11 @@ Else End if - // ---------------------------------------------------- +// ---------------------------------------------------- SET TIMER:C645(-1) - // ---------------------------------------------------- - // Return - // - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// Return +// +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/report_AREA_OBJECT_METHOD.4dm b/Project/Sources/Methods/report_AREA_OBJECT_METHOD.4dm index 4309e24..edf91f8 100644 --- a/Project/Sources/Methods/report_AREA_OBJECT_METHOD.4dm +++ b/Project/Sources/Methods/report_AREA_OBJECT_METHOD.4dm @@ -76,7 +76,7 @@ If (Asserted:C1132($count_parameters>=0; "Missing parameter")) $event_code:=Form event code:C388 //mouse state - GET MOUSE:C468($mouse_x; $mouse_y; $mouse_button) + MOUSE POSITION:C468($mouse_x; $mouse_y; $mouse_button) $contextual_click:=(($event_code=On Clicked:K2:4) | ($event_code=On Header Click:K2:40)) & (Contextual click:C713 | ($mouse_button=2)) $mouse_down:=($mouse_button=1) @@ -290,20 +290,20 @@ If (Not:C34($skip)\ //______________________________________________________ : ($event_code=On Mouse Enter:K2:33) - //If (<>withFeature105739) + ob_area.tipsDelay:=Get database parameter:C643(Tips delay:K37:80) SET DATABASE PARAMETER:C642(Tips delay:K37:80; 0) - //End if + //______________________________________________________ : ($event_code=On Mouse Leave:K2:34) - //If (<>withFeature105739) + SET DATABASE PARAMETER:C642(Tips delay:K37:80; Num:C11(ob_area.tipsDelay)) - //End if + //______________________________________________________ : ($event_code=On Header Click:K2:40) @@ -664,7 +664,7 @@ If (Not:C34($skip)\ LISTBOX GET CELL COORDINATES:C1330(*; $my_name; 1; $row_index; $left; $top; $right; $bottom) - //If (<>withFeature105739) + If (ob_area.sortNumber>0) // The report is sorted @@ -686,12 +686,12 @@ If (Not:C34($skip)\ & (ob_area.rowIndex<(3+ob_area.sortNumber))) // In a subtotal row header //%W-533.3 - $help_tip_text:=Get localized string:C991(Choose:C955($aOrdersReordered{(ob_area.rowIndex-2)}=1; "ascendingSortOrder"; "descendingSortOrder")) + $help_tip_text:=Localized string:C991(Choose:C955($aOrdersReordered{(ob_area.rowIndex-2)}=1; "ascendingSortOrder"; "descendingSortOrder")) //%W+533.3 End if End if - //End if + //………………………………………………… : ($is_in_header_column) diff --git a/Project/Sources/Methods/subform_SET_DYNAMIC_VARIABLES.4dm b/Project/Sources/Methods/subform_SET_DYNAMIC_VARIABLES.4dm index dbacb2d..ca4746e 100644 --- a/Project/Sources/Methods/subform_SET_DYNAMIC_VARIABLES.4dm +++ b/Project/Sources/Methods/subform_SET_DYNAMIC_VARIABLES.4dm @@ -1,44 +1,42 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : subform_SET_DYNAMIC_VARIABLES - // Database: 4D Report - // ID[AD0697EE830A493BAAF3FF510F9A35D1] - // Created #2-6-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_OBJECT:C1216($1) +// ---------------------------------------------------- +// Project method : subform_SET_DYNAMIC_VARIABLES +// Database: 4D Report +// ID[AD0697EE830A493BAAF3FF510F9A35D1] +// Created #2-6-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations -C_LONGINT:C283($Lon_i;$Lon_parameters;$Lon_type) -C_POINTER:C301($Ptr_target) -C_TEXT:C284($Txt_target) -C_OBJECT:C1216($Obj_variables) +#DECLARE($variables : Object) + +var $i; $count_parameters; $type : Integer +var $target_name : Text +var $target_pointer : Pointer + +ARRAY TEXT:C222($_properties; 0) -ARRAY TEXT:C222($tTxt_properties;0) -If (False:C215) - C_OBJECT:C1216(subform_SET_DYNAMIC_VARIABLES ;$1) -End if - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) - //Required parameters - $Obj_variables:=$1 + //Required parameters + //$variables:=$1 - //Optional parameters - If ($Lon_parameters>=1) + //Optional parameters + If ($count_parameters>=1) - // + // End if - OB GET PROPERTY NAMES:C1232($Obj_variables;$tTxt_properties) + OB GET PROPERTY NAMES:C1232($variables; $_properties) Else @@ -46,29 +44,29 @@ Else End if - // ---------------------------------------------------- -For ($Lon_i;1;Size of array:C274($tTxt_properties);1) +// ---------------------------------------------------- +For ($i; 1; Size of array:C274($_properties); 1) - $Txt_target:=$tTxt_properties{$Lon_i} - $Ptr_target:=OBJECT Get pointer:C1124(Object named:K67:5;$Txt_target) + $target_name:=$_properties{$i} + $target_pointer:=OBJECT Get pointer:C1124(Object named:K67:5; $target_name) - If (Not:C34(Is nil pointer:C315($Ptr_target))) + If (Not:C34(Is nil pointer:C315($target_pointer))) - $Lon_type:=Type:C295($Ptr_target->) + $type:=Type:C295($target_pointer->) - $Ptr_target->:=OB Get:C1224($Obj_variables;$Txt_target;$Lon_type) + $target_pointer->:=OB Get:C1224($variables; $target_name; $type) Else - ASSERT:C1129(False:C215;"unknown object: "+$Txt_target) + ASSERT:C1129(False:C215; "unknown object: "+$target_name) End if End for - // ---------------------------------------------------- - // Return +// ---------------------------------------------------- +// Return - // +// - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/subform_SET_OFFSET.4dm b/Project/Sources/Methods/subform_SET_OFFSET.4dm index a4694f5..bfad974 100644 --- a/Project/Sources/Methods/subform_SET_OFFSET.4dm +++ b/Project/Sources/Methods/subform_SET_OFFSET.4dm @@ -1,47 +1,38 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : subform_SET_OFFSET - // Database: 4D Report - // ID[0DB924DBB3D24F8C8701B8A010320FBC] - // Created #11-9-2014 by Vincent de Lachaux - // ---------------------------------------------------- - // Description: - // - // ---------------------------------------------------- - // Declarations -C_TEXT:C284($1) -C_LONGINT:C283($2) -C_LONGINT:C283($3) - -C_LONGINT:C283($Lon_;$Lon_left;$Lon_leftOffset;$Lon_parameters;$Lon_rightOffset;$Lon_top) -C_TEXT:C284($Txt_subform) -C_OBJECT:C1216($Obj_param) - -If (False:C215) - C_TEXT:C284(subform_SET_OFFSET ;$1) - C_LONGINT:C283(subform_SET_OFFSET ;$2) - C_LONGINT:C283(subform_SET_OFFSET ;$3) -End if - - // ---------------------------------------------------- - // Initialisations -$Lon_parameters:=Count parameters:C259 - -If (Asserted:C1132($Lon_parameters>=1;"Missing parameter")) +// ---------------------------------------------------- +// Project method : subform_SET_OFFSET +// Database: 4D Report +// ID[0DB924DBB3D24F8C8701B8A010320FBC] +// Created #11-9-2014 by Vincent de Lachaux +// ---------------------------------------------------- +// Description: +// +// ---------------------------------------------------- +// Declarations +#DECLARE($name : Text; $left_offset : Integer; $right_offset : Integer) + +var $count_parameters : Integer +var $left; $top; $long : Integer +var $param : Object + + +// ---------------------------------------------------- +// Initialisations +$count_parameters:=Count parameters:C259 + +If (Asserted:C1132($count_parameters>=1; "Missing parameter")) - //Required parameters - $Txt_subform:=$1 + //Required parameters - //Optional parameters - If ($Lon_parameters>=2) - - $Lon_leftOffset:=$2 + + //Optional parameters + If ($count_parameters>=2) - If ($Lon_parameters>=3) + If ($count_parameters>=3) - $Lon_rightOffset:=$3 End if + End if Else @@ -50,19 +41,22 @@ Else End if - // ---------------------------------------------------- -OBJECT GET COORDINATES:C663(*;$Txt_subform;$Lon_left;$Lon_top;$Lon_;$Lon_) +// ---------------------------------------------------- +OBJECT GET COORDINATES:C663(*; $name; $left; $top; $long; $long) + + +$param:={\ +left: $left+$left_offset; \ +top: $top+$right_offset\ +} -OB SET:C1220($Obj_param;\ -"left";$Lon_left+$Lon_leftOffset;\ -"top";$Lon_top+$Lon_rightOffset) - //Pass the values to the subform -EXECUTE METHOD IN SUBFORM:C1085($Txt_subform;"subform_SET_DYNAMIC_VARIABLES";*;$Obj_param) -CLEAR VARIABLE:C89($Obj_param) +//Pass the values to the subform +EXECUTE METHOD IN SUBFORM:C1085($name; "subform_SET_DYNAMIC_VARIABLES"; *; $param) +CLEAR VARIABLE:C89($param) - // ---------------------------------------------------- - // Return - // - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// Return +// +// ---------------------------------------------------- +// End \ No newline at end of file