diff --git a/Project/Sources/Forms/BALLOON_COMMON/ObjectMethods/font.alternate.back.color.4dm b/Project/Sources/Forms/BALLOON_COMMON/ObjectMethods/font.alternate.back.color.4dm index bd3f556..99f05f7 100644 --- a/Project/Sources/Forms/BALLOON_COMMON/ObjectMethods/font.alternate.back.color.4dm +++ b/Project/Sources/Forms/BALLOON_COMMON/ObjectMethods/font.alternate.back.color.4dm @@ -1,81 +1 @@ -// ---------------------------------------------------- -// Object method : BALLOON_COMMON.font.alternate.back.color - (4D Report) -// ID[7AFEBB5AB5F5444AA83F728E4842B6A9] -// Created #27-10-2014 by Vincent de Lachaux -// ---------------------------------------------------- -// Declarations -C_BOOLEAN:C305($Boo_croosReport) -C_LONGINT:C283($Lon_area; $Lon_color; $Lon_column; $Lon_formEvent; $Lon_row) -C_POINTER:C301($Ptr_caller; $Ptr_me) -C_TEXT:C284($kTxt_key) -C_OBJECT:C1216($Obj_caller) - -// ---------------------------------------------------- -// Initialisations -$Lon_formEvent:=Form event code:C388 - -//$Txt_me:=OBJECT Get name(Object current) -$Ptr_me:=OBJECT Get pointer:C1124(Object current:K67:2) -$Ptr_caller:=OBJECT Get pointer:C1124(Object named:K67:5; "caller") - -$kTxt_key:="backColor" - -$Obj_caller:=JSON Parse:C1218($Ptr_caller->) - -If (OB Is defined:C1231($Obj_caller)) - - If (OB Is defined:C1231($Obj_caller; "area")) - - //#ACI0095813 - $Boo_croosReport:=(OB Get:C1224($Obj_caller; "reportType"; Is longint:K8:6)=qr cross report:K14902:2) - $Lon_area:=report_Get_target($Obj_caller; ->$Lon_column; ->$Lon_row; $Boo_croosReport) - - // ---------------------------------------------------- - Case of - - //______________________________________________________ - : ($Lon_formEvent=On Data Change:K2:15) - - $Lon_color:=$Ptr_me-> - - If ($Lon_color#-1) //disparate - - //#ACI0093540 - //$Lon_color:=Choose($Lon_color=0;Background color none;$Lon_color) - $Lon_color:=Choose:C955($Lon_color=0; 0x00FFFFFF; $Lon_color) - - If ($Lon_color#OB Get:C1224($Obj_caller; $kTxt_key; Is longint:K8:6)) - - //keep value - OB SET:C1220($Obj_caller; \ - $kTxt_key; $Lon_color) - - $Ptr_caller->:=JSON Stringify:C1217($Obj_caller) - - //update selection - QR_SET_TEXT_PROPERTY($Lon_area; qr alternate background color:K14904:9; String:C10($Lon_color); $Lon_column; $Lon_row) - - If ($Boo_croosReport) - - If ($Lon_column=2)\ - | ($Lon_column=3) //apply to line - - $Lon_column:=$Lon_column+(3-$Lon_column)+(2-$Lon_column) - QR_SET_TEXT_PROPERTY($Lon_area; qr alternate background color:K14904:9; String:C10($Lon_color); $Lon_column; $Lon_row) - - End if - End if - End if - End if - - ob_area.modified:=True:C214 - - //______________________________________________________ - Else - - ASSERT:C1129(False:C215; "Form event activated unnecessary ("+String:C10($Lon_formEvent)+")") - - //______________________________________________________ - End case - End if -End if \ No newline at end of file +nqr_SET_BACK_COLOR(qr alternate background color:K14904:9) \ No newline at end of file diff --git a/Project/Sources/Forms/BALLOON_COMMON/ObjectMethods/font.back.color.4dm b/Project/Sources/Forms/BALLOON_COMMON/ObjectMethods/font.back.color.4dm index aa4b569..929afa3 100644 --- a/Project/Sources/Forms/BALLOON_COMMON/ObjectMethods/font.back.color.4dm +++ b/Project/Sources/Forms/BALLOON_COMMON/ObjectMethods/font.back.color.4dm @@ -1,82 +1 @@ -// ---------------------------------------------------- -// Object method : BALLOON_COMMON.font.back.color - (4D Report) -// ID[7AFEBB5AB5F5444AA83F728E4842B6A9] -// Created #27-10-2014 by Vincent de Lachaux -// ---------------------------------------------------- -// Declarations -C_BOOLEAN:C305($Boo_croosReport) -C_LONGINT:C283($Lon_area; $Lon_color; $Lon_column; $Lon_formEvent; $Lon_row) -C_POINTER:C301($Ptr_caller; $Ptr_me) -C_TEXT:C284($kTxt_key) -C_OBJECT:C1216($Obj_caller) - -// ---------------------------------------------------- -// Initialisations -$Lon_formEvent:=Form event code:C388 - -//$Txt_me:=OBJECT Get name(Object current) -$Ptr_me:=OBJECT Get pointer:C1124(Object current:K67:2) -$Ptr_caller:=OBJECT Get pointer:C1124(Object named:K67:5; "caller") - -$kTxt_key:="backColor" - -$Obj_caller:=JSON Parse:C1218($Ptr_caller->) - -If (OB Is defined:C1231($Obj_caller)) - - If (OB Is defined:C1231($Obj_caller; "area")) - - //#ACI0095813 - //$Lon_area:=report_Get_target ($Obj_caller;->$Lon_column;->$Lon_row) - $Boo_croosReport:=(OB Get:C1224($Obj_caller; "reportType"; Is longint:K8:6)=qr cross report:K14902:2) - $Lon_area:=report_Get_target($Obj_caller; ->$Lon_column; ->$Lon_row; $Boo_croosReport) - - // ---------------------------------------------------- - Case of - - //______________________________________________________ - : ($Lon_formEvent=On Data Change:K2:15) - - $Lon_color:=$Ptr_me-> - - If ($Lon_color#-1) //disparate - - //#ACI0093540 - //$Lon_color:=Choose($Lon_color=0;Background color none;$Lon_color) - $Lon_color:=Choose:C955($Lon_color=0; 0x00FFFFFF; $Lon_color) - - If ($Lon_color#OB Get:C1224($Obj_caller; $kTxt_key; Is longint:K8:6)) - - //keep value - OB SET:C1220($Obj_caller; \ - $kTxt_key; $Lon_color) - - $Ptr_caller->:=JSON Stringify:C1217($Obj_caller) - - //update selection - QR_SET_TEXT_PROPERTY($Lon_area; qr background color:K14904:8; String:C10($Lon_color); $Lon_column; $Lon_row) - - If ($Boo_croosReport) - - If ($Lon_column=2)\ - | ($Lon_column=3) //apply to line - - $Lon_column:=$Lon_column+(3-$Lon_column)+(2-$Lon_column) - QR_SET_TEXT_PROPERTY($Lon_area; qr background color:K14904:8; String:C10($Lon_color); $Lon_column; $Lon_row) - - End if - End if - End if - End if - - ob_area.modified:=True:C214 - - //______________________________________________________ - Else - - ASSERT:C1129(False:C215; "Form event activated unnecessary ("+String:C10($Lon_formEvent)+")") - - //______________________________________________________ - End case - End if -End if \ No newline at end of file +nqr_SET_BACK_COLOR(qr background color:K14904:8) \ No newline at end of file diff --git a/Project/Sources/Forms/BALLOON_COMMON/form.4DForm b/Project/Sources/Forms/BALLOON_COMMON/form.4DForm index 3dd0bb2..2eeccab 100644 --- a/Project/Sources/Forms/BALLOON_COMMON/form.4DForm +++ b/Project/Sources/Forms/BALLOON_COMMON/form.4DForm @@ -367,8 +367,6 @@ "left": 17, "width": 120, "height": 22, - "fontFamily": ".Lucida Grande UI", - "fontSize": 11, "stroke": "automatic", "popupPlacement": "linked", "textPlacement": "left", @@ -384,8 +382,6 @@ "left": 142, "width": 44, "height": 22, - "fontFamily": ".Lucida Grande UI", - "fontSize": 11, "stroke": "automatic", "popupPlacement": "linked", "textPlacement": "left", @@ -443,11 +439,11 @@ "enterableInList": false, "deletableInList": false, "printFrame": "variable", - "method": "ObjectMethods/font.alternate.back.color.4dm", "events": [ "onDataChange" ], - "class": "" + "class": "", + "method": "ObjectMethods/font.alternate.back.color.4dm" }, "borders.controls": { "type": "subform", @@ -502,8 +498,6 @@ "left": 132, "width": 130, "height": 22, - "fontFamily": ".Lucida Grande UI", - "fontSize": 11, "stroke": "automatic", "popupPlacement": "linked", "textPlacement": "left", @@ -549,8 +543,6 @@ "width": 171, "height": 22, "sizingX": "grow", - "fontFamily": ".Lucida Grande UI", - "fontSize": 11, "stroke": "#AAAAAA", "popupPlacement": "linked", "textPlacement": "left", @@ -605,7 +597,6 @@ "version": "1", "kind": "form" }, - "method": "method.4dm", "geometryStamp": 96, "editor": { "activeView": "View 1", diff --git a/Project/Sources/Forms/BALLOON_COMMON/method.4dm b/Project/Sources/Forms/BALLOON_COMMON/method.4dm deleted file mode 100644 index e69de29..0000000 diff --git a/Project/Sources/Methods/COMPILER_QR.4dm b/Project/Sources/Methods/COMPILER_QR.4dm index 8e0c982..5807402 100644 --- a/Project/Sources/Methods/COMPILER_QR.4dm +++ b/Project/Sources/Methods/COMPILER_QR.4dm @@ -1,111 +1,111 @@ //%attributes = {"invisible":true} - // ---------------------------------------------------- - // Project method : COMPILER_QR - // ---------------------------------------------------- +// ---------------------------------------------------- +// Project method : COMPILER_QR +// ---------------------------------------------------- If (False:C215) - //QR_isValidField - C_BOOLEAN:C305(QR_isValidField ;$0) - C_LONGINT:C283(QR_isValidField ;$1) - C_LONGINT:C283(QR_isValidField ;$2) + //QR_isValidField + C_BOOLEAN:C305(QR_isValidField; $0) + C_LONGINT:C283(QR_isValidField; $1) + C_LONGINT:C283(QR_isValidField; $2) - //QR_CLEAR_CONTENTS - C_LONGINT:C283(QR_CLEAR_CONTENTS ;$1) - C_LONGINT:C283(QR_CLEAR_CONTENTS ;$2) - C_LONGINT:C283(QR_CLEAR_CONTENTS ;$3) + //QR_CLEAR_CONTENTS + C_LONGINT:C283(QR_CLEAR_CONTENTS; $1) + C_LONGINT:C283(QR_CLEAR_CONTENTS; $2) + C_LONGINT:C283(QR_CLEAR_CONTENTS; $3) - //QR_DUPLICATE_COLUMN - C_LONGINT:C283(QR_DUPLICATE_COLUMN ;$1) - C_LONGINT:C283(QR_DUPLICATE_COLUMN ;$2) - C_LONGINT:C283(QR_DUPLICATE_COLUMN ;$3) - C_LONGINT:C283(QR_DUPLICATE_COLUMN ;$4) + //QR_DUPLICATE_COLUMN + C_LONGINT:C283(QR_DUPLICATE_COLUMN; $1) + C_LONGINT:C283(QR_DUPLICATE_COLUMN; $2) + C_LONGINT:C283(QR_DUPLICATE_COLUMN; $3) + C_LONGINT:C283(QR_DUPLICATE_COLUMN; $4) - //QR_returnBorderFromCollection - C_OBJECT:C1216(QR_returnBorderFromCollection ;$0) - C_COLLECTION:C1488(QR_returnBorderFromCollection ;$1) - C_OBJECT:C1216(QR_returnBorderFromCollection ;$2) + //QR_returnBorderFromCollection + C_OBJECT:C1216(QR_returnBorderFromCollection; $0) + C_COLLECTION:C1488(QR_returnBorderFromCollection; $1) + C_OBJECT:C1216(QR_returnBorderFromCollection; $2) End if If (False:C215) //getter - //QR_Get_cell_object - C_OBJECT:C1216(QR_Get_cell_object ;$0) - C_LONGINT:C283(QR_Get_cell_object ;$1) - C_LONGINT:C283(QR_Get_cell_object ;$2) - C_LONGINT:C283(QR_Get_cell_object ;$3) - - //QR_Get_cell_text - C_TEXT:C284(QR_Get_cell_text ;$0) - C_LONGINT:C283(QR_Get_cell_text ;$1) - C_LONGINT:C283(QR_Get_cell_text ;$2) - C_LONGINT:C283(QR_Get_cell_text ;$3) - - //QR_Get_column_format - C_TEXT:C284(QR_Get_column_format ;$0) - C_LONGINT:C283(QR_Get_column_format ;$1) - C_LONGINT:C283(QR_Get_column_format ;$2) - C_LONGINT:C283(QR_Get_column_format ;$3) - - //QR_Get_column_Type - C_LONGINT:C283(QR_Get_column_type ;$0) - C_LONGINT:C283(QR_Get_column_type ;$1) - C_LONGINT:C283(QR_Get_column_type ;$2) - C_BOOLEAN:C305(QR_Get_column_type ;$3) - - //QR_Get_computation - C_LONGINT:C283(QR_Get_computation ;$0) - C_LONGINT:C283(QR_Get_computation ;$1) - C_LONGINT:C283(QR_Get_computation ;$2) - C_LONGINT:C283(QR_Get_computation ;$3) - - //QR_Get_font_color - C_LONGINT:C283(QR_Get_color ;$0) - C_LONGINT:C283(QR_Get_color ;$1) - C_LONGINT:C283(QR_Get_color ;$2) - C_LONGINT:C283(QR_Get_color ;$3) - C_LONGINT:C283(QR_Get_color ;$4) - - //QR_Get_font_name - C_TEXT:C284(QR_Get_font_name ;$0) - C_LONGINT:C283(QR_Get_font_name ;$1) - C_LONGINT:C283(QR_Get_font_name ;$2) - C_LONGINT:C283(QR_Get_font_name ;$3) - - //QR_Get_font_size - C_LONGINT:C283(QR_Get_font_size ;$0) - C_LONGINT:C283(QR_Get_font_size ;$1) - C_LONGINT:C283(QR_Get_font_size ;$2) - C_LONGINT:C283(QR_Get_font_size ;$3) - - //QR_Get_font_style - C_LONGINT:C283(QR_Get_font_style ;$0) - C_LONGINT:C283(QR_Get_font_style ;$1) - C_LONGINT:C283(QR_Get_font_style ;$2) - C_LONGINT:C283(QR_Get_font_style ;$3) - - //QR_Get_justification - C_LONGINT:C283(QR_Get_justification ;$0) - C_LONGINT:C283(QR_Get_justification ;$1) - C_LONGINT:C283(QR_Get_justification ;$2) - C_LONGINT:C283(QR_Get_justification ;$3) - - //QR_is_valid_area - C_BOOLEAN:C305(QR_is_valid_area ;$0) - C_LONGINT:C283(QR_is_valid_area ;$1) - - //QR_get_TotalsSpacing - C_LONGINT:C283(QR_get_TotalsSpacing ;$0) - C_LONGINT:C283(QR_get_TotalsSpacing ;$1) - C_LONGINT:C283(QR_get_TotalsSpacing ;$2) - C_LONGINT:C283(QR_get_TotalsSpacing ;$3) - - - //QR_Get_border_properties - C_OBJECT:C1216(QR_Get_border_properties ;$0) - C_LONGINT:C283(QR_Get_border_properties ;$1) - C_LONGINT:C283(QR_Get_border_properties ;$2) - C_LONGINT:C283(QR_Get_border_properties ;$3) + //QR_Get_cell_object + C_OBJECT:C1216(QR_Get_cell_object; $0) + C_LONGINT:C283(QR_Get_cell_object; $1) + C_LONGINT:C283(QR_Get_cell_object; $2) + C_LONGINT:C283(QR_Get_cell_object; $3) + + //QR_Get_cell_text + C_TEXT:C284(QR_Get_cell_text; $0) + C_LONGINT:C283(QR_Get_cell_text; $1) + C_LONGINT:C283(QR_Get_cell_text; $2) + C_LONGINT:C283(QR_Get_cell_text; $3) + + //QR_Get_column_format + C_TEXT:C284(QR_Get_column_format; $0) + C_LONGINT:C283(QR_Get_column_format; $1) + C_LONGINT:C283(QR_Get_column_format; $2) + C_LONGINT:C283(QR_Get_column_format; $3) + + //QR_Get_column_Type + C_LONGINT:C283(QR_Get_column_type; $0) + C_LONGINT:C283(QR_Get_column_type; $1) + C_LONGINT:C283(QR_Get_column_type; $2) + C_BOOLEAN:C305(QR_Get_column_type; $3) + + //QR_Get_computation + C_LONGINT:C283(QR_Get_computation; $0) + C_LONGINT:C283(QR_Get_computation; $1) + C_LONGINT:C283(QR_Get_computation; $2) + C_LONGINT:C283(QR_Get_computation; $3) + + //QR_Get_font_color + C_LONGINT:C283(QR_Get_color; $0) + C_LONGINT:C283(QR_Get_color; $1) + C_LONGINT:C283(QR_Get_color; $2) + C_LONGINT:C283(QR_Get_color; $3) + C_LONGINT:C283(QR_Get_color; $4) + + //QR_Get_font_name + C_TEXT:C284(QR_Get_font_name; $0) + C_LONGINT:C283(QR_Get_font_name; $1) + C_LONGINT:C283(QR_Get_font_name; $2) + C_LONGINT:C283(QR_Get_font_name; $3) + + //QR_Get_font_size + C_LONGINT:C283(QR_Get_font_size; $0) + C_LONGINT:C283(QR_Get_font_size; $1) + C_LONGINT:C283(QR_Get_font_size; $2) + C_LONGINT:C283(QR_Get_font_size; $3) + + //QR_Get_font_style + C_LONGINT:C283(QR_Get_font_style; $0) + C_LONGINT:C283(QR_Get_font_style; $1) + C_LONGINT:C283(QR_Get_font_style; $2) + C_LONGINT:C283(QR_Get_font_style; $3) + + //QR_Get_justification + C_LONGINT:C283(QR_Get_justification; $0) + C_LONGINT:C283(QR_Get_justification; $1) + C_LONGINT:C283(QR_Get_justification; $2) + C_LONGINT:C283(QR_Get_justification; $3) + + //QR_is_valid_area + C_BOOLEAN:C305(QR_is_valid_area; $0) + C_LONGINT:C283(QR_is_valid_area; $1) + + //QR_get_TotalsSpacing + C_LONGINT:C283(QR_get_TotalsSpacing; $0) + C_LONGINT:C283(QR_get_TotalsSpacing; $1) + C_LONGINT:C283(QR_get_TotalsSpacing; $2) + C_LONGINT:C283(QR_get_TotalsSpacing; $3) + + + //QR_Get_border_properties + C_OBJECT:C1216(QR_Get_border_properties; $0) + C_LONGINT:C283(QR_Get_border_properties; $1) + C_LONGINT:C283(QR_Get_border_properties; $2) + C_LONGINT:C283(QR_Get_border_properties; $3) @@ -113,68 +113,61 @@ End if If (False:C215) //setter - //QR_SET_CELL_DATA - C_LONGINT:C283(QR_SET_CELL_DATA ;$1) - C_LONGINT:C283(QR_SET_CELL_DATA ;$2) - C_LONGINT:C283(QR_SET_CELL_DATA ;$3) - C_LONGINT:C283(QR_SET_CELL_DATA ;$4) - - //QR_SET_CELL_DATA_from_widget - C_LONGINT:C283(QR_SET_CELL_DATA_from_widget ;$1) - C_LONGINT:C283(QR_SET_CELL_DATA_from_widget ;$2) - C_LONGINT:C283(QR_SET_CELL_DATA_from_widget ;$3) - C_LONGINT:C283(QR_SET_CELL_DATA_from_widget ;$4) - - //QR_SET_COLUMN_FORMAT - C_LONGINT:C283(QR_SET_COLUMN_FORMAT ;$1) - C_LONGINT:C283(QR_SET_COLUMN_FORMAT ;$2) - C_TEXT:C284(QR_SET_COLUMN_FORMAT ;$3) - C_LONGINT:C283(QR_SET_COLUMN_FORMAT ;$4) - - //QR_SET_CELL_OBJECT - C_LONGINT:C283(QR_SET_CELL_OBJECT ;$1) - C_OBJECT:C1216(QR_SET_CELL_OBJECT ;$2) - C_LONGINT:C283(QR_SET_CELL_OBJECT ;$3) - C_LONGINT:C283(QR_SET_CELL_OBJECT ;$4) - - //QR_SET_CELL_TEXT - C_LONGINT:C283(QR_SET_CELL_TEXT ;$1) - C_LONGINT:C283(QR_SET_CELL_TEXT ;$2) - C_LONGINT:C283(QR_SET_CELL_TEXT ;$3) - C_TEXT:C284(QR_SET_CELL_TEXT ;$4) - - //QR_SET_COLUMN_WIDTH - C_LONGINT:C283(QR_SET_COLUMN_WIDTH ;$1) - C_LONGINT:C283(QR_SET_COLUMN_WIDTH ;$2) - C_LONGINT:C283(QR_SET_COLUMN_WIDTH ;$3) - - //QR_SET_TEXT_PROPERTY - C_LONGINT:C283(QR_SET_TEXT_PROPERTY ;$1) - C_LONGINT:C283(QR_SET_TEXT_PROPERTY ;$2) - C_TEXT:C284(QR_SET_TEXT_PROPERTY ;$3) - C_LONGINT:C283(QR_SET_TEXT_PROPERTY ;$4) - C_LONGINT:C283(QR_SET_TEXT_PROPERTY ;$5) - - //QR_SET_TITLE - C_LONGINT:C283(QR_SET_TITLE ;$1) - C_LONGINT:C283(QR_SET_TITLE ;$2) - - //QR_SWAP_COLUMNS - C_LONGINT:C283(QR_SWAP_COLUMNS ;$1) - C_LONGINT:C283(QR_SWAP_COLUMNS ;$2) - C_LONGINT:C283(QR_SWAP_COLUMNS ;$3) - - //QR_SWAP_ROWS - C_LONGINT:C283(QR_SWAP_ROWS ;$1) - C_LONGINT:C283(QR_SWAP_ROWS ;$2) - C_LONGINT:C283(QR_SWAP_ROWS ;$3) - - // QR_SET_TEXT_PROPERTY - C_LONGINT:C283(QR_SET_BORDER_PROPERTIES ;$1) - C_OBJECT:C1216(QR_SET_BORDER_PROPERTIES ;$2) - C_LONGINT:C283(QR_SET_BORDER_PROPERTIES ;$3) - C_LONGINT:C283(QR_SET_BORDER_PROPERTIES ;$4) + //QR_SET_CELL_DATA + C_LONGINT:C283(QR_SET_CELL_DATA; $1) + C_LONGINT:C283(QR_SET_CELL_DATA; $2) + C_LONGINT:C283(QR_SET_CELL_DATA; $3) + C_LONGINT:C283(QR_SET_CELL_DATA; $4) + + //QR_SET_CELL_DATA_from_widget + C_LONGINT:C283(QR_SET_CELL_DATA_from_widget; $1) + C_LONGINT:C283(QR_SET_CELL_DATA_from_widget; $2) + C_LONGINT:C283(QR_SET_CELL_DATA_from_widget; $3) + C_LONGINT:C283(QR_SET_CELL_DATA_from_widget; $4) + + //QR_SET_COLUMN_FORMAT + C_LONGINT:C283(QR_SET_COLUMN_FORMAT; $1) + C_LONGINT:C283(QR_SET_COLUMN_FORMAT; $2) + C_TEXT:C284(QR_SET_COLUMN_FORMAT; $3) + C_LONGINT:C283(QR_SET_COLUMN_FORMAT; $4) + + //QR_SET_CELL_OBJECT + C_LONGINT:C283(QR_SET_CELL_OBJECT; $1) + C_OBJECT:C1216(QR_SET_CELL_OBJECT; $2) + C_LONGINT:C283(QR_SET_CELL_OBJECT; $3) + C_LONGINT:C283(QR_SET_CELL_OBJECT; $4) + + //QR_SET_CELL_TEXT + C_LONGINT:C283(QR_SET_CELL_TEXT; $1) + C_LONGINT:C283(QR_SET_CELL_TEXT; $2) + C_LONGINT:C283(QR_SET_CELL_TEXT; $3) + C_TEXT:C284(QR_SET_CELL_TEXT; $4) + + //QR_SET_COLUMN_WIDTH + C_LONGINT:C283(QR_SET_COLUMN_WIDTH; $1) + C_LONGINT:C283(QR_SET_COLUMN_WIDTH; $2) + C_LONGINT:C283(QR_SET_COLUMN_WIDTH; $3) + + //QR_SET_TITLE + C_LONGINT:C283(QR_SET_TITLE; $1) + C_LONGINT:C283(QR_SET_TITLE; $2) + + //QR_SWAP_COLUMNS + C_LONGINT:C283(QR_SWAP_COLUMNS; $1) + C_LONGINT:C283(QR_SWAP_COLUMNS; $2) + C_LONGINT:C283(QR_SWAP_COLUMNS; $3) + + //QR_SWAP_ROWS + C_LONGINT:C283(QR_SWAP_ROWS; $1) + C_LONGINT:C283(QR_SWAP_ROWS; $2) + C_LONGINT:C283(QR_SWAP_ROWS; $3) + + // QR_SET_TEXT_PROPERTY + C_LONGINT:C283(QR_SET_BORDER_PROPERTIES; $1) + C_OBJECT:C1216(QR_SET_BORDER_PROPERTIES; $2) + C_LONGINT:C283(QR_SET_BORDER_PROPERTIES; $3) + C_LONGINT:C283(QR_SET_BORDER_PROPERTIES; $4) End if - // ---------------------------------------------------- - // End \ No newline at end of file +// ---------------------------------------------------- +// End \ No newline at end of file diff --git a/Project/Sources/Methods/COMPILER_report.4dm b/Project/Sources/Methods/COMPILER_report.4dm index 08f60ca..d86209c 100644 --- a/Project/Sources/Methods/COMPILER_report.4dm +++ b/Project/Sources/Methods/COMPILER_report.4dm @@ -61,9 +61,6 @@ If (False:C215) C_TEXT:C284(report_ADD_COLUMN; $1) C_OBJECT:C1216(report_ADD_COLUMN; $2) - //---------------------------------- - C_OBJECT:C1216(report_BALLOON_HDL; $1) - //---------------------------------- C_TEXT:C284(report_catchErrors; $0) C_TEXT:C284(report_catchErrors; $1) diff --git a/Project/Sources/Methods/QR_SET_TEXT_PROPERTY.4dm b/Project/Sources/Methods/QR_SET_TEXT_PROPERTY.4dm index 5c544df..e048251 100644 --- a/Project/Sources/Methods/QR_SET_TEXT_PROPERTY.4dm +++ b/Project/Sources/Methods/QR_SET_TEXT_PROPERTY.4dm @@ -5,46 +5,14 @@ // ID[15A97CCE1E9544E6B66EB8A851D0050C] // Created #24-3-2014 by Vincent de Lachaux // ---------------------------------------------------- -// Description: -// -// ---------------------------------------------------- -// Declarations - - #DECLARE($area : Integer; $property : Integer; $value : Text; $column : Integer; $row : Integer) -//C_LONGINT($1) -//C_LONGINT($2) -//C_TEXT($3) -//C_LONGINT($4) -//C_LONGINT($5) - -var \ -$count_parameters; \ -$column_number; \ -$row_number : Integer - - - +var $count_parameters; $column_number; $row_number : Integer -If (False:C215) - C_LONGINT:C283(QR_SET_TEXT_PROPERTY; $1) - C_LONGINT:C283(QR_SET_TEXT_PROPERTY; $2) - C_TEXT:C284(QR_SET_TEXT_PROPERTY; $3) - C_LONGINT:C283(QR_SET_TEXT_PROPERTY; $4) - C_LONGINT:C283(QR_SET_TEXT_PROPERTY; $5) -End if - -// ---------------------------------------------------- -// Initialisations $count_parameters:=Count parameters:C259 If (Asserted:C1132($count_parameters>=3; "Missing parameter")) - //$area:=$1 - //$property:=$2 - //$value:=$3 - If ($count_parameters>=4) $column_number:=$column @@ -62,7 +30,6 @@ Else End if -// ---------------------------------------------------- Case of //________________________________________ @@ -72,7 +39,7 @@ Case of //______________________________________________________ : ($column_number=0)\ - & ($row_number=0) //applies to all cells + & ($row_number=0) // Applies to all cells For ($column_number; 1; QR Count columns:C764($area); 1) @@ -144,7 +111,7 @@ Case of End for //______________________________________________________ - : ($column_number=0) //applies to the line + : ($column_number=0) // Applies to the line For ($column_number; 1; QR Count columns:C764($area); 1) @@ -160,7 +127,7 @@ Case of End for //______________________________________________________ - : ($row_number=0) //applies to the column + : ($row_number=0) // Applies to the column If ($property=qr font name:K14904:10) @@ -210,7 +177,7 @@ Case of End if //______________________________________________________ - Else //applies to the cell + Else // Applies to the cell If ($property=qr font name:K14904:10) @@ -223,7 +190,4 @@ Case of End if //______________________________________________________ -End case - -// ---------------------------------------------------- -// End \ No newline at end of file +End case \ No newline at end of file diff --git a/Project/Sources/Methods/nqr_SET_BACK_COLOR.4dm b/Project/Sources/Methods/nqr_SET_BACK_COLOR.4dm new file mode 100644 index 0000000..f7b253d --- /dev/null +++ b/Project/Sources/Methods/nqr_SET_BACK_COLOR.4dm @@ -0,0 +1,53 @@ +//%attributes = {"invisible":true} +#DECLARE($target : Integer) + +var $PROPERTY : Text +$PROPERTY:=$target=qr background color:K14904:8 ? "backColor" : "altBackColor" + +var $isCrossReport : Boolean +var $area; $color; $column; $row : Integer +var $callerPtr : Pointer +var $caller : Object + +$callerPtr:=OBJECT Get pointer:C1124(Object named:K67:5; "caller") +$caller:=JSON Parse:C1218($callerPtr->) + +If ($caller=Null:C1517)\ + || ($caller.area=Null:C1517) + + return + +End if + +$isCrossReport:=Num:C11($caller.reportType)=qr cross report:K14902:2 +$area:=report_Get_target($caller; ->$column; ->$row; $isCrossReport) + +$color:=Self:C308-> + +If ($color#-1) // Disparate + + $color:=$color=0 ? 0x00FFFFFF : $color + + If ($color#Num:C11($caller[$PROPERTY])) + + // Keep value + $caller[$PROPERTY]:=$color + $callerPtr->:=JSON Stringify:C1217($caller) + + // Update selection + QR_SET_TEXT_PROPERTY($area; $target; String:C10($color); $column; $row) + + If ($isCrossReport) + + If ($column=2)\ + | ($column=3) // Apply to line + + $column:=$column+(3-$column)+(2-$column) + QR_SET_TEXT_PROPERTY($area; $target; String:C10($color); $column; $row) + + End if + End if + End if +End if + +ob_area.modified:=True:C214 diff --git a/Project/Sources/Methods/report_BALLOON_HDL.4dm b/Project/Sources/Methods/report_BALLOON_HDL.4dm index 176cda8..0db58a2 100644 --- a/Project/Sources/Methods/report_BALLOON_HDL.4dm +++ b/Project/Sources/Methods/report_BALLOON_HDL.4dm @@ -5,150 +5,42 @@ // ID[584A5065D22E433C98F7D94F79E000FE] // Created #25-9-2014 by Vincent de Lachaux // ---------------------------------------------------- -// Description: -// ---------------------------------------------------- -// Declarations - #DECLARE($parameter : Object) -/* - ---------------------------------------------------- - - CONSTANTS - - ---------------------------------------------------- -*/ - -var \ -$MARGIN : Integer - -var \ -$SUBFORM_NAME : Text - -//MARK: uppercase namming mean : it's a constant -$SUBFORM_NAME:="balloon.subform" -$MARGIN:=5 - - -/* - ---------------------------------------------------- - - VARIABLES - - ---------------------------------------------------- -*/ - -var \ -$buffer_integer; \ -$count_parameters; \ -$int; \ -$report_type; \ -$type : Integer - -var \ -$area_reference; \ -$mouse_x; \ -$mouse_y : Integer - -var \ -$left; \ -$top; \ -$right; \ -$bottom; \ -$width; \ -$height; \ -$offset; \ -$h_offset; \ -$v_offset : Integer - -//COLUMN -var \ -$column_data; \ -$column_number; \ -$column_type; \ -$repeated_values; \ -$sort_column_index : Integer - -//ROW -var \ -$row_data; \ -$row_number; \ -$subtotal_index : Integer - -//UI -var \ -$ui_label_pointer : Pointer - - -var \ -$text; \ -$action; \ -$digest; \ -$buffer_text; \ -$caller_name; \ -$form_name; \ -$unit_name : Text +/* CONSTANTS */ +var $MARGIN : Integer:=5 +var $SUBFORM_NAME : Text:="balloon.subform" +var $i; $reportKind; $type : Integer +var $area; $mouseX; $mouseY : Integer +var $left; $top; $right; $bottom; $width; $height; $offset : Integer -var \ -$caller_object; \ -$buffer_object : Object +///*COLUMN*/var $columnData; $columnNumber; $columnType; $repeatedValues; $index : Integer +var $columnData; $columnNumber; $columnType; $repeatedValues; $index : Integer +///*ROW*/var $rowData; $row_number; $subtotal_index : Integer +var $rowData; $rowNumber; $subtotal_index : Integer -var \ -$properties_selected : Boolean +///*UI*/var $ui_label_pointer : Pointer +var $ui_label_pointer : Pointer -var \ -$blob : Blob +var $t; $text; $action; $digest; $form; $unit_name : Text +var $caller; $o : Object +var $isSelected : Boolean +var $blob : Blob +/* ARRAYS */ +ARRAY LONGINT:C221($columns; 0) +ARRAY LONGINT:C221($orders; 0) -//ARRAYS - -ARRAY LONGINT:C221($_sorted_columns; 0) -ARRAY LONGINT:C221($_sort_order; 0) - - - -// ---------------------------------------------------- - -If (False:C215) - C_OBJECT:C1216(report_BALLOON_HDL; $1) -End if - -// ---------------------------------------------------- -// Initialisations -$count_parameters:=Count parameters:C259 - -If (Asserted:C1132($count_parameters>=1; "Missing parameter")) +If (Asserted:C1132($parameter#Null:C1517 && $parameter.action#Null:C1517)) - //Required parameters - //$parameter:=$1 - - //Optional parameters - If ($count_parameters>=2) - - //NONE - - End if - - If (Asserted:C1132(OB Is defined:C1231($parameter))) - - If (Asserted:C1132(OB Is defined:C1231($parameter; "action"))) - - $action:=OB Get:C1224($parameter; "action"; Is text:K8:3) - - End if - - End if - - -Else - - ABORT:C156 + $action:=String:C10($parameter.action) End if -// ---------------------------------------------------- +$form:=String:C10($parameter.form) + Case of //______________________________________________________ @@ -159,608 +51,415 @@ Case of //______________________________________________________ : ($action="update") - If (OB Is defined:C1231($parameter)) - - ASSERT:C1129(OB Is defined:C1231($parameter; "form")) - - $form_name:=OB Get:C1224($parameter; "form"; Is text:K8:3) - - $caller_object:=OB Copy:C1225(ob_area) - - //4DPop_JSON_LAB_VIEW($Obj_caller) - - //resize the background - OBJECT GET SUBFORM CONTAINER SIZE:C1148($height; $width) - OBJECT SET COORDINATES:C1248(*; "border"; 0; 0; $height; $width) - - Obj_CENTER("computations"; "separator"; Horizontally centered:K39:1) + // Resize the background + OBJECT GET SUBFORM CONTAINER SIZE:C1148($height; $width) + OBJECT SET COORDINATES:C1248(*; "border"; 0; 0; $height; $width) + + Obj_CENTER("computations"; "separator"; Horizontally centered:K39:1) + + $caller:=OB Copy:C1225(ob_area) + $area:=Num:C11($caller.area) + + If (Asserted:C1132(QR_is_valid_area($area))) - ASSERT:C1129(OB Is defined:C1231($caller_object; "area")) - $area_reference:=OB Get:C1224($caller_object; "area"; Is longint:K8:6) + $reportKind:=QR Get report kind:C755($area) + $area:=report_Get_target($caller; ->$columnNumber; ->$rowNumber) - If (Asserted:C1132(QR_is_valid_area($area_reference))) + If (Asserted:C1132($columnNumber>=0)) - $report_type:=QR Get report kind:C755($area_reference) + // Mark:[COMMON] - $area_reference:=report_Get_target($caller_object; ->$column_number; ->$row_number) + // Mark:Font name + $caller.fontName:=QR_Get_font_name($area; $columnNumber; $rowNumber) + $caller.fontName:=Choose:C955($caller.fontName="-"; Get localized string:C991("disparate"); \ + Choose:C955($caller.fontName=""; ""; Replace string:C233($caller.fontName; ".Lucida Grande UI"; "Lucida Grande"))) + (OBJECT Get pointer:C1124(Object named:K67:5; "font.family.label"))->:=$caller.fontName - If (Asserted:C1132($column_number>=0)) - - //------------------ COMMON ------------------// - - If (True:C214) //font name - - $buffer_text:=QR_Get_font_name($area_reference; $column_number; $row_number) - - //OB SET($caller_object; \ - "fontName"; $buffer_text) - - $caller_object.fontName:=$buffer_text - - $buffer_text:=Choose:C955($buffer_text="-"; \ - Get localized string:C991("disparate"); \ - Choose:C955($buffer_text=""; \ - ""; \ - Replace string:C233($buffer_text; ".Lucida Grande UI"; "Lucida Grande"))) - (OBJECT Get pointer:C1124(Object named:K67:5; "font.family.label"))->:=$buffer_text - - End if - - If (True:C214) //font style - - $buffer_integer:=QR_Get_font_style($area_reference; $column_number; $row_number) - - //OB SET($caller_object; \ - "fontStyle"; $buffer_integer) - - $caller_object.fontStyle:=$buffer_integer - - (OBJECT Get pointer:C1124(Object named:K67:5; "font.style"))->:=$buffer_integer - - End if + // Mark:Font style + $caller.fontStyle:=QR_Get_font_style($area; $columnNumber; $rowNumber) + (OBJECT Get pointer:C1124(Object named:K67:5; "font.style"))->:=$caller.fontStyle + + // Mark:Font size + $caller.fontSize:=QR_Get_font_size($area; $columnNumber; $rowNumber) + (OBJECT Get pointer:C1124(Object named:K67:5; "font.size.label"))->:=$caller.fontSize=-1 ? "-" : String:C10($caller.fontSize) + + // Mark:Justification + $caller.justification:=QR_Get_justification($area; $columnNumber; $rowNumber) + (OBJECT Get pointer:C1124(Object named:K67:5; "justification"))->:=$caller.justification + + // Mark:Font color + $caller.frontColor:=QR_Get_color($area; $columnNumber; $rowNumber; qr text color:K14904:6) + (OBJECT Get pointer:C1124(Object named:K67:5; "font.front.color"))->:=$caller.frontColor + + // Mark:Back color + $caller.backColor:=QR_Get_color($area; $columnNumber; $rowNumber; qr background color:K14904:8) + (OBJECT Get pointer:C1124(Object named:K67:5; "font.back.color"))->:=$caller.backColor + + // Mark:Border properties + $o:=QR_Get_border_properties($area; $columnNumber; $rowNumber) + + If ($o#Null:C1517) - If (True:C214) //font size - - $buffer_integer:=QR_Get_font_size($area_reference; $column_number; $row_number) - - //OB SET($caller_object; \ - "fontSize"; $buffer_integer) - - $caller_object.fontSize:=$buffer_integer - - $buffer_text:=Choose:C955($buffer_integer=-1; \ - "-"; \ - String:C10($buffer_integer)) - (OBJECT Get pointer:C1124(Object named:K67:5; "font.size.label"))->:=$buffer_text - - End if + // Border selected + (OBJECT Get pointer:C1124(Object named:K67:5; "borders.controls"))->:=$o - If (True:C214) //justification - - $buffer_integer:=QR_Get_justification($area_reference; $column_number; $row_number) - - //OB SET($caller_object; \ - "justification"; $buffer_integer) - - $caller_object.justification:=$buffer_integer - - - (OBJECT Get pointer:C1124(Object named:K67:5; "justification"))->:=$buffer_integer - - End if + // Color + (OBJECT Get pointer:C1124(Object named:K67:5; "border.color1"))->:=Choose:C955($o.sameColor; $o.colorToSet; 0) - If (True:C214) //font color - - $buffer_integer:=QR_Get_color($area_reference; $column_number; $row_number; qr text color:K14904:6) - - //OB SET($caller_object; \ - "frontColor"; $buffer_integer) - - $caller_object.frontColor:=$buffer_integer - - (OBJECT Get pointer:C1124(Object named:K67:5; "font.front.color"))->:=$buffer_integer - - End if + // Thickness + (OBJECT Get pointer:C1124(Object named:K67:5; "border.style"))->:=$o.thicknessToSet + (OBJECT Get pointer:C1124(Object named:K67:5; "border.style.label"))->:=Get localized string:C991($o.sameThickness ? "menu_thickness"+String:C10($o.thicknessToSet) : "menu_thicknessMultiple") - If (True:C214) //back color - - $buffer_integer:=QR_Get_color($area_reference; $column_number; $row_number; qr background color:K14904:8) - - OB SET:C1220($caller_object; \ - "backColor"; $buffer_integer) + End if + + // Mark:[SPECIFIC] + Case of - (OBJECT Get pointer:C1124(Object named:K67:5; "font.back.color"))->:=$buffer_integer + //………………………………………………………………………………………………………… + : (Position:C15("BALLOON_SUBTOTALLINE"; $form)=1) - End if - - If (True:C214) //border properties + // Format + OBJECT SET VISIBLE:C603(*; "format@"; False:C215) - $buffer_object:=QR_Get_border_properties($area_reference; $column_number; $row_number) + // Computations + OBJECT SET VISIBLE:C603(*; "computations"; True:C214) - If ($buffer_object#Null:C1517) + If ($reportKind=qr cross report:K14902:2) & ($columnNumber=3) - // border selected - (OBJECT Get pointer:C1124(Object named:K67:5; "borders.controls"))->:=$buffer_object + $caller.computations:=QR_Get_computation($area; 2; $rowNumber) + Else - // color - (OBJECT Get pointer:C1124(Object named:K67:5; "border.color1"))->:=Choose:C955($buffer_object.sameColor; $buffer_object.colorToSet; 0) - - - - // thickness - (OBJECT Get pointer:C1124(Object named:K67:5; "border.style"))->:=$buffer_object.thicknessToSet - $buffer_text:=Get localized string:C991(Choose:C955($buffer_object.sameThickness; "menu_thickness"+String:C10($buffer_object.thicknessToSet); "menu_thicknessMultiple")) - (OBJECT Get pointer:C1124(Object named:K67:5; "border.style.label"))->:=$buffer_text - + $caller.computations:=QR_Get_computation($area; $columnNumber; $rowNumber) End if - End if - - - //----------------- SPECIFIC -----------------// - Case of - - //………………………………………………………………………………………………………… - : (Position:C15("BALLOON_SUBTOTALLINE"; $form_name)=1) - - //format - OBJECT SET VISIBLE:C603(*; "format@"; False:C215) + (OBJECT Get pointer:C1124(Object named:K67:5; "computations"))->:=$caller.computations + + // Subtotal handling + If (ob_area.sortNumber>0) // We should be in a subtotal row ... but we never know - //computations { - OBJECT SET VISIBLE:C603(*; "computations"; True:C214) + $subtotal_index:=ob_area.qrRow + QR GET TOTALS SPACING:C762($area; $subtotal_index; $i) - If ($report_type=qr cross report:K14902:2) & ($column_number=3) + If ($i=32000) - // Cross - report - $buffer_integer:=QR_Get_computation($area_reference; 2; $row_number) + $isSelected:=False:C215 + $t:=Get localized string:C991("menu_subtotalSpacingBreak") Else - $buffer_integer:=QR_Get_computation($area_reference; $column_number; $row_number) + $isSelected:=True:C214 + $t:=Get localized string:C991("menu_subtotalSpacingValue") + If ($i<0) + + $unit_name:=Get localized string:C991("menu_subtotalSpacingPercent") + $i:=-$i + + Else + + $unit_name:=Get localized string:C991("menu_subtotalSpacingPoint") + + End if End if - //OB SET($caller_object; \ - "computations"; $buffer_integer) + (OBJECT Get pointer:C1124(Object named:K67:5; "subtotalProp.label"))->:=$t + (OBJECT Get pointer:C1124(Object named:K67:5; "totalSpacing.unit.label"))->:=$unit_name + (OBJECT Get pointer:C1124(Object named:K67:5; "totalSpacing.label"))->:=$i - $caller_object.computations:=$buffer_integer + OBJECT SET VISIBLE:C603(*; "totalSpacing@"; $isSelected) - (OBJECT Get pointer:C1124(Object named:K67:5; "computations"))->:=$buffer_integer - //} - - //subtotal handling - If (ob_area.sortNumber>0) // We should be in a subtotal row ... but we never know + If ($isSelected) - $subtotal_index:=ob_area.qrRow + OBJECT GET COORDINATES:C663(*; "subtotalProp"; $left; $top; $right; $bottom) + OBJECT SET COORDINATES:C1248(*; "subtotalProp"; $left; $top; 193; $bottom) - QR GET TOTALS SPACING:C762($area_reference; $subtotal_index; $buffer_integer) + OBJECT GET COORDINATES:C663(*; "subtotalProp.back"; $left; $top; $lon_rightNew; $bottom) + OBJECT SET COORDINATES:C1248(*; "subtotalProp.back"; $left; $top; 194; $bottom) - If ($buffer_integer=32000) - - $properties_selected:=False:C215 + OBJECT GET COORDINATES:C663(*; "subtotalProp.label"; $left; $top; $lon_rightNew; $bottom) + OBJECT SET COORDINATES:C1248(*; "subtotalProp.label"; $left; $top; 190; $bottom) + + + Else + + OBJECT GET COORDINATES:C663(*; "subtotalProp"; $left; $top; $right; $bottom) + OBJECT SET COORDINATES:C1248(*; "subtotalProp"; $left; $top; 262; $bottom) + + OBJECT GET COORDINATES:C663(*; "subtotalProp.back"; $left; $top; $lon_rightNew; $bottom) + OBJECT SET COORDINATES:C1248(*; "subtotalProp.back"; $left; $top; 263; $bottom) + + OBJECT GET COORDINATES:C663(*; "subtotalProp.label"; $left; $top; $lon_rightNew; $bottom) + OBJECT SET COORDINATES:C1248(*; "subtotalProp.label"; $left; $top; 260; $bottom) + + End if + End if + + //………………………………………………………………………………………………………… + : (Position:C15("BALLOON_FONT"; $form)=1) + + // + + //………………………………………………………………………………………………………… + : (Position:C15("BALLOON_LINE"; $form)=1) + + // Format (Detail) & computation (only for Subtotal rows and Grand total) + Case of + + //______________________________________________________ + : ($rowNumber=qr title:K14906:1) // Title + + OBJECT SET ENABLED:C1123(*; "format@"; False:C215) + (OBJECT Get pointer:C1124(Object named:K67:5; "format.label"))->:=Get localized string:C991("inapplicable") + + //______________________________________________________ + : ($rowNumber=qr detail:K14906:2) // Detail + + // Alternate background color + OBJECT SET VISIBLE:C603(*; "format@"; True:C214) + OBJECT SET VISIBLE:C603(*; "computations"; False:C215) + OBJECT SET VISIBLE:C603(*; "font.alternate.back.color"; True:C214) + + $caller.altBackColor:=QR_Get_color($area; $columnNumber; $rowNumber; qr alternate background color:K14904:9) + (OBJECT Get pointer:C1124(Object named:K67:5; "font.alternate.back.color"))->:=$caller.altBackColor + + If (QR_Get_column_type($area; $columnNumber)=-1) // Mismatch - $buffer_text:=Get localized string:C991("menu_subtotalSpacingBreak") + OBJECT SET ENABLED:C1123(*; "format"; False:C215) + OBJECT SET VISIBLE:C603(*; "format.back"; False:C215) + OBJECT SET VISIBLE:C603(*; "format.label"; True:C214) + (OBJECT Get pointer:C1124(Object named:K67:5; "format.label"))->:=Get localized string:C991("inapplicable") Else - $properties_selected:=True:C214 - - $buffer_text:=Get localized string:C991("menu_subtotalSpacingValue") + OBJECT SET ENABLED:C1123(*; "format"; True:C214) + OBJECT SET VISIBLE:C603(*; "format.back"; True:C214) + OBJECT SET VISIBLE:C603(*; "format.label"; True:C214) - If ($buffer_integer<0) - - $unit_name:=Get localized string:C991("menu_subtotalSpacingPercent") - - $buffer_integer:=-$buffer_integer - - Else - - $unit_name:=Get localized string:C991("menu_subtotalSpacingPoint") - - End if + $caller.columnFormat:=QR_Get_column_format($area; $columnNumber) + (OBJECT Get pointer:C1124(Object named:K67:5; "format.label"))->:=Choose:C955(Length:C16($caller.columnFormat)#0; $caller.columnFormat; Get localized string:C991("none")) End if - (OBJECT Get pointer:C1124(Object named:K67:5; "subtotalProp.label"))->:=$buffer_text - (OBJECT Get pointer:C1124(Object named:K67:5; "totalSpacing.unit.label"))->:=$unit_name - (OBJECT Get pointer:C1124(Object named:K67:5; "totalSpacing.label"))->:=$buffer_integer + //______________________________________________________ + : ($rowNumber=qr grand total:K14906:3) //Grand Total - OBJECT SET VISIBLE:C603(*; "totalSpacing@"; $properties_selected) + OBJECT SET VISIBLE:C603(*; "format@"; False:C215) + OBJECT SET VISIBLE:C603(*; "computations"; True:C214) - If ($properties_selected) - - OBJECT GET COORDINATES:C663(*; "subtotalProp"; $left; $top; $right; $bottom) - OBJECT SET COORDINATES:C1248(*; "subtotalProp"; $left; $top; 193; $bottom) - - OBJECT GET COORDINATES:C663(*; "subtotalProp.back"; $left; $top; $lon_rightNew; $bottom) - OBJECT SET COORDINATES:C1248(*; "subtotalProp.back"; $left; $top; 194; $bottom) - - OBJECT GET COORDINATES:C663(*; "subtotalProp.label"; $left; $top; $lon_rightNew; $bottom) - OBJECT SET COORDINATES:C1248(*; "subtotalProp.label"; $left; $top; 190; $bottom) + $caller.computations:=QR_Get_computation($area; $columnNumber; $rowNumber) + (OBJECT Get pointer:C1124(Object named:K67:5; "computations"))->:=$caller.computations + + //______________________________________________________ + : ($rowNumber>0) //break + + OBJECT SET VISIBLE:C603(*; "format@"; False:C215) + OBJECT SET VISIBLE:C603(*; "computations"; True:C214) + + // #ACI0098288< + If ($reportKind=qr cross report:K14902:2) & ($columnNumber=3) + $caller.computations:=QR_Get_computation($area; 2; $rowNumber) Else - OBJECT GET COORDINATES:C663(*; "subtotalProp"; $left; $top; $right; $bottom) - OBJECT SET COORDINATES:C1248(*; "subtotalProp"; $left; $top; 262; $bottom) - - OBJECT GET COORDINATES:C663(*; "subtotalProp.back"; $left; $top; $lon_rightNew; $bottom) - OBJECT SET COORDINATES:C1248(*; "subtotalProp.back"; $left; $top; 263; $bottom) - - OBJECT GET COORDINATES:C663(*; "subtotalProp.label"; $left; $top; $lon_rightNew; $bottom) - OBJECT SET COORDINATES:C1248(*; "subtotalProp.label"; $left; $top; 260; $bottom) + $caller.computations:=QR_Get_computation($area; $columnNumber; $rowNumber) End if + (OBJECT Get pointer:C1124(Object named:K67:5; "computations"))->:=$caller.computations + //______________________________________________________ + Else + TRACE:C157 - End if + //______________________________________________________ + End case + + //………………………………………………………………………………………………………… + : (Position:C15("BALLOON_COLUMN"; $form)=1) + + If ($reportKind=qr cross report:K14902:2) - //NOTHING MORE TO DO - : (Position:C15("BALLOON_FONT"; $form_name)=1) + $caller.altBackColor:=QR_Get_color($area; $columnNumber; $rowNumber; qr alternate background color:K14904:9) + (OBJECT Get pointer:C1124(Object named:K67:5; "font.alternate.back.color"))->:=$caller.altBackColor - //………………………………………………………………………………………………………… - : (Position:C15("BALLOON_LINE"; $form_name)=1) + // #ACI0095708 + $area:=report_Get_target($caller; ->$columnData; ->$rowData; True:C214) + $columnType:=QR_Get_column_type($area; $columnData) - //format (Detail) & computation (only for Subtotal rows and Grand total) - Case of - - //______________________________________________________ - : ($row_number=qr title:K14906:1) //Title - - //format - OBJECT SET ENABLED:C1123(*; "format@"; False:C215) - (OBJECT Get pointer:C1124(Object named:K67:5; "format.label"))->:=Get localized string:C991("inapplicable") - - //______________________________________________________ - : ($row_number=qr detail:K14906:2) //Detail - - //alternate background color - If (True:C214) - //format - OBJECT SET VISIBLE:C603(*; "format@"; True:C214) - - OBJECT SET VISIBLE:C603(*; "computations"; False:C215) - - OBJECT SET VISIBLE:C603(*; "font.alternate.back.color"; True:C214) - - $buffer_integer:=QR_Get_color($area_reference; $column_number; $row_number; qr alternate background color:K14904:9) - - //OB SET($caller_object; \ - "altBackColor"; $buffer_integer) - - $caller_object.altBackColor:=$buffer_integer - - - (OBJECT Get pointer:C1124(Object named:K67:5; "font.alternate.back.color"))->:=$buffer_integer - - End if - - //format - If (True:C214) - - $type:=QR_Get_column_type($area_reference; $column_number) - - If ($type=-1) //mismatch - - OBJECT SET ENABLED:C1123(*; "format"; False:C215) - OBJECT SET VISIBLE:C603(*; "format.back"; False:C215) - OBJECT SET VISIBLE:C603(*; "format.label"; True:C214) - (OBJECT Get pointer:C1124(Object named:K67:5; "format.label"))->:=Get localized string:C991("inapplicable") - - Else - - OBJECT SET ENABLED:C1123(*; "format"; True:C214) - OBJECT SET VISIBLE:C603(*; "format.back"; True:C214) - OBJECT SET VISIBLE:C603(*; "format.label"; True:C214) - - $buffer_text:=QR_Get_column_format($area_reference; $column_number) - - //OB SET($caller_object; \ - "columnFormat"; $buffer_text) - - $caller_object.columnFormat:=$buffer_text - - (OBJECT Get pointer:C1124(Object named:K67:5; "format.label"))->:=Choose:C955(Length:C16($buffer_text)#0; $buffer_text; Get localized string:C991("none")) - - End if - End if - - //______________________________________________________ - : ($row_number=qr grand total:K14906:3) //Grand Total - - //format - OBJECT SET VISIBLE:C603(*; "format@"; False:C215) - - //computations { - OBJECT SET VISIBLE:C603(*; "computations"; True:C214) - - - $buffer_integer:=QR_Get_computation($area_reference; $column_number; $row_number) - - //OB SET($caller_object; \ - "computations"; $buffer_integer) - - $caller_object.computations:=$buffer_integer - - (OBJECT Get pointer:C1124(Object named:K67:5; "computations"))->:=$buffer_integer - //} - - //______________________________________________________ - : ($row_number>0) //break - - //format - OBJECT SET VISIBLE:C603(*; "format@"; False:C215) - - //computations { - OBJECT SET VISIBLE:C603(*; "computations"; True:C214) - - //#ACI0098288 [ - //$Lon_buffer:=Choose(($Lon_reportType=qr cross report) & ($Lon_column=3);\ - \ - QR_Get_computation ($area_reference;$column_number;$row_number)) - If ($report_type=qr cross report:K14902:2) & ($column_number=3) - - // Cross - report - $buffer_integer:=QR_Get_computation($area_reference; 2; $row_number) - - Else - - $buffer_integer:=QR_Get_computation($area_reference; $column_number; $row_number) - - End if - //] - - //OB SET($caller_object; \ - "computations"; $buffer_integer) - - $caller_object.computations:=$buffer_integer - - (OBJECT Get pointer:C1124(Object named:K67:5; "computations"))->:=$buffer_integer - //} - - //______________________________________________________ - Else - - TRACE:C157 - - //______________________________________________________ - End case + Else - //………………………………………………………………………………………………………… - : (Position:C15("BALLOON_COLUMN"; $form_name)=1) + $columnType:=QR_Get_column_type($area; $columnNumber) - If ($report_type=qr cross report:K14902:2) - - $buffer_integer:=QR_Get_color($area_reference; $column_number; $row_number; qr alternate background color:K14904:9) - - //OB SET($caller_object; \ - "altBackColor"; $buffer_integer) - - $caller_object.altBackColor:=$buffer_integer - - (OBJECT Get pointer:C1124(Object named:K67:5; "font.alternate.back.color"))->:=$buffer_integer - - //#ACI0095708 - $area_reference:=report_Get_target($caller_object; ->$column_data; ->$row_data; True:C214) - $column_type:=QR_Get_column_type($area_reference; $column_data) - - Else - - //format - $column_type:=QR_Get_column_type($area_reference; $column_number) - - End if + End if + + If ($columnType=-1) // Undefined for a formula - If ($column_type=-1) //undefined for a formula - - //#TO_BE_DONE - change the user interface to allow string entry - - End if + // #TO_BE_DONE - change the user interface to allow string entry - If ($report_type=qr cross report:K14902:2) - - //#ACI0095708 - $buffer_text:=QR_Get_column_format($area_reference; $column_data; $column_type) - - Else - - $buffer_text:=QR_Get_column_format($area_reference; $column_number; $column_type) - - End if + End if + + If ($reportKind=qr cross report:K14902:2) - //OB SET($caller_object; \ - "columnFormat"; $buffer_text) + // #ACI0095708 + $caller.columnFormat:=QR_Get_column_format($area; $columnData; $columnType) - $caller_object.columnFormat:=$buffer_text + Else - (OBJECT Get pointer:C1124(Object named:K67:5; "format.label"))->:=Choose:C955(Length:C16($buffer_text)#0; $buffer_text; Get localized string:C991("none")) + $caller.columnFormat:=QR_Get_column_format($area; $columnNumber; $columnType) - OBJECT SET VISIBLE:C603(*; "format@"; True:C214) + End if + + (OBJECT Get pointer:C1124(Object named:K67:5; "format.label"))->:=Choose:C955(Length:C16($caller.columnFormat)#0; $caller.columnFormat; Get localized string:C991("none")) + OBJECT SET VISIBLE:C603(*; "format@"; True:C214) + + // Sort + If ($columnType=Is BLOB:K8:12)\ + | ($columnType=Is picture:K8:10)\ + | ($columnType=Is subtable:K8:11) - //sort - If ($column_type=Is BLOB:K8:12)\ - | ($column_type=Is picture:K8:10)\ - | ($column_type=Is subtable:K8:11) - - OBJECT SET ENABLED:C1123(*; "sort"; False:C215) - OBJECT SET VISIBLE:C603(*; "sort.back"; False:C215) - (OBJECT Get pointer:C1124(Object named:K67:5; "sort.label"))->:=Get localized string:C991("inapplicable") - - Else - - OBJECT SET ENABLED:C1123(*; "sort"; True:C214) - OBJECT SET VISIBLE:C603(*; "sort.back"; True:C214) - - QR GET SORTS:C753($area_reference; $_sorted_columns; $_sort_order) - $sort_column_index:=Find in array:C230($_sorted_columns; $column_number) - - $ui_label_pointer:=OBJECT Get pointer:C1124(Object named:K67:5; "sort.label") - - Case of - - //----------------------------- - : ($sort_column_index=-1) //not sorted - - $ui_label_pointer->:=Get localized string:C991("menu_sort_none") - - //----------------------------- - : ($_sort_order{$sort_column_index}=0) - - $ui_label_pointer->:=Get localized string:C991("menu_sort_none") - - //----------------------------- - : ($_sort_order{$sort_column_index}=1) - - $ui_label_pointer->:=Get localized string:C991(\ - Choose:C955($report_type=qr cross report:K14902:2; \ - Choose:C955($column_number=2; \ - "menu_sort_leftToRight"; \ - "menu_sort_topToBottom"); \ - "menu_sort_ascending")) - - //----------------------------- - : ($_sort_order{$sort_column_index}=-1) - - $ui_label_pointer->:=Get localized string:C991(\ - Choose:C955($report_type=qr cross report:K14902:2; \ - Choose:C955($column_number=2; \ - "menu_sort_rightToLeft"; \ - "menu_sort_bottomToTop"); \ - "menu_sort_descending")) - - //----------------------------- - End case - - REDRAW WINDOW:C456(Current form window:C827) - - End if + OBJECT SET ENABLED:C1123(*; "sort"; False:C215) + OBJECT SET VISIBLE:C603(*; "sort.back"; False:C215) + (OBJECT Get pointer:C1124(Object named:K67:5; "sort.label"))->:=Get localized string:C991("inapplicable") - //options - QR GET INFO COLUMN:C766($area_reference; $column_number; $text; $text; $int; $width; $repeated_values; $text; $text) + Else - (OBJECT Get pointer:C1124(Object named:K67:5; "automaticWidth"))->:=Num:C11($width=-1) + OBJECT SET ENABLED:C1123(*; "sort"; True:C214) + OBJECT SET VISIBLE:C603(*; "sort.back"; True:C214) - If ($report_type=qr cross report:K14902:2) - - If ($column_number=1) + QR GET SORTS:C753($area; $columns; $orders) + $index:=Find in array:C230($columns; $columnNumber) + + $ui_label_pointer:=OBJECT Get pointer:C1124(Object named:K67:5; "sort.label") + + Case of - OBJECT SET VISIBLE:C603(*; "font.alternate.back.color"; True:C214) + //----------------------------- + : ($index=-1) // Not sorted - Else + $ui_label_pointer->:=Get localized string:C991("menu_sort_none") - OBJECT GET SUBFORM CONTAINER SIZE:C1148($width; $int) - OBJECT GET COORDINATES:C663(*; "font.alternate.back.color"; $int; $int; $right; $int) - OBJECT SET VISIBLE:C603(*; "font.alternate.back.color"; $width>=$right) + //----------------------------- + : ($orders{$index}=0) - End if - - Else - - (OBJECT Get pointer:C1124(Object named:K67:5; "repeatedValues"))->:=$repeated_values - - End if - - //………………………………………………………………………………………………………… - : (Position:C15("BALLOON_CROSS_DATA"; $form_name)=1) + $ui_label_pointer->:=Get localized string:C991("menu_sort_none") + + //----------------------------- + : ($orders{$index}=1) + + $ui_label_pointer->:=Get localized string:C991(\ + Choose:C955($reportKind=qr cross report:K14902:2; \ + Choose:C955($columnNumber=2; \ + "menu_sort_leftToRight"; \ + "menu_sort_topToBottom"); \ + "menu_sort_ascending")) + + //----------------------------- + : ($orders{$index}=-1) + + $ui_label_pointer->:=Get localized string:C991(\ + Choose:C955($reportKind=qr cross report:K14902:2; \ + Choose:C955($columnNumber=2; \ + "menu_sort_rightToLeft"; \ + "menu_sort_bottomToTop"); \ + "menu_sort_descending")) + + //----------------------------- + End case - //format - OBJECT SET VISIBLE:C603(*; "format@"; True:C214) + REDRAW WINDOW:C456(Current form window:C827) - //#ACI0095708 - //$Lon_type:=QR_Get_column_type ($Lon_area;$Lon_column) - $area_reference:=report_Get_target($caller_object; ->$column_data; ->$row_data; True:C214) - $type:=QR_Get_column_type($area_reference; $column_data) + End if + + // Options + QR GET INFO COLUMN:C766($area; $columnNumber; $text; $text; $i; $width; $repeatedValues; $text; $text) + + (OBJECT Get pointer:C1124(Object named:K67:5; "automaticWidth"))->:=Num:C11($width=-1) + + If ($reportKind=qr cross report:K14902:2) - If ($type=-1) //mismatch + If ($columnNumber=1) - OBJECT SET ENABLED:C1123(*; "format"; False:C215) - OBJECT SET VISIBLE:C603(*; "format.back"; False:C215) - OBJECT SET VISIBLE:C603(*; "format.label"; True:C214) - (OBJECT Get pointer:C1124(Object named:K67:5; "format.label"))->:=Get localized string:C991("inapplicable") + OBJECT SET VISIBLE:C603(*; "font.alternate.back.color"; True:C214) Else - OBJECT SET ENABLED:C1123(*; "format"; True:C214) - OBJECT SET VISIBLE:C603(*; "format.back"; True:C214) - OBJECT SET VISIBLE:C603(*; "format.label"; True:C214) - - //ACI0100940{ACI0100938 -/* - If ($Lon_columnData=2)\ - | ($Lon_columnData=3) //apply to line - -$lon_columnTempo:=$Lon_columnData+(3-$Lon_columnData)+(2-$Lon_columnData) -Else -$lon_columnTempo:=$Lon_columnData -End if -//}*/ - - $buffer_text:=QR_Get_column_format($area_reference; $column_data; $column_type) - - //OB SET($caller_object; \ - "columnFormat"; $buffer_text) - - $caller_object.columnFormat:=$buffer_text - - (OBJECT Get pointer:C1124(Object named:K67:5; "format.label"))->:=Choose:C955(Length:C16($buffer_text)#0; $buffer_text; Get localized string:C991("none")) + OBJECT GET SUBFORM CONTAINER SIZE:C1148($width; $i) + OBJECT GET COORDINATES:C663(*; "font.alternate.back.color"; $i; $i; $right; $i) + OBJECT SET VISIBLE:C603(*; "font.alternate.back.color"; $width>=$right) End if - //alternate background color - If (True:C214) - - OBJECT SET VISIBLE:C603(*; "font.alternate.back.color"; True:C214) - - If ($column_data=2)\ - | ($column_data=3) //apply to line - - $column_data:=$column_data+(3-$column_data)+(2-$column_data) - - End if - - $buffer_integer:=QR_Get_color($area_reference; $column_data; $row_data; qr alternate background color:K14904:9) - - //OB SET($caller_object; \ - "altBackColor"; $buffer_integer) - - $caller_object.altBackColor:=$buffer_integer - - - (OBJECT Get pointer:C1124(Object named:K67:5; "font.alternate.back.color"))->:=$buffer_integer - - End if + Else + + (OBJECT Get pointer:C1124(Object named:K67:5; "repeatedValues"))->:=$repeatedValues - //computations { - OBJECT SET VISIBLE:C603(*; "computations"; True:C214) + End if + + //………………………………………………………………………………………………………… + : (Position:C15("BALLOON_CROSS_DATA"; $form)=1) + + // Format + OBJECT SET VISIBLE:C603(*; "format@"; True:C214) + + // #ACI0095708 + $area:=report_Get_target($caller; ->$columnData; ->$rowData; True:C214) + $type:=QR_Get_column_type($area; $columnData) + + If ($type=-1) // Mismatch - $buffer_integer:=QR_Get_computation($area_reference; $column_number; $row_number) + OBJECT SET ENABLED:C1123(*; "format"; False:C215) + OBJECT SET VISIBLE:C603(*; "format.back"; False:C215) + OBJECT SET VISIBLE:C603(*; "format.label"; True:C214) + (OBJECT Get pointer:C1124(Object named:K67:5; "format.label"))->:=Get localized string:C991("inapplicable") - //OB SET($caller_object; \ - "computations"; $buffer_integer) + Else - $caller_object.computations:=$buffer_integer + OBJECT SET ENABLED:C1123(*; "format"; True:C214) + OBJECT SET VISIBLE:C603(*; "format.back"; True:C214) + OBJECT SET VISIBLE:C603(*; "format.label"; True:C214) - (OBJECT Get pointer:C1124(Object named:K67:5; "computations"))->:=$buffer_integer - //} + // ACI0100940 + // ACI0100938 + $caller.columnFormat:=QR_Get_column_format($area; $columnData; $columnType) + (OBJECT Get pointer:C1124(Object named:K67:5; "format.label"))->:=Choose:C955(Length:C16($caller.columnFormat)#0; $caller.columnFormat; Get localized string:C991("none")) - //………………………………………………………………………………………………………… - Else + End if + + // Alternate background color + OBJECT SET VISIBLE:C603(*; "font.alternate.back.color"; True:C214) + + If ($columnData=2)\ + | ($columnData=3) // Apply to line - ASSERT:C1129(False:C215; "Unknown entry point: \""+$form_name+"\"") + $columnData:=$columnData+(3-$columnData)+(2-$columnData) - //………………………………………………………………………………………………………… - End case - End if + End if + + $caller.altBackColor:=QR_Get_color($area; $columnData; $rowData; qr alternate background color:K14904:9) + (OBJECT Get pointer:C1124(Object named:K67:5; "font.alternate.back.color"))->:=$caller.altBackColor + + // Computations + OBJECT SET VISIBLE:C603(*; "computations"; True:C214) + $caller.computations:=QR_Get_computation($area; $columnNumber; $rowNumber) + (OBJECT Get pointer:C1124(Object named:K67:5; "computations"))->:=$caller.computations + + //………………………………………………………………………………………………………… + Else + + ASSERT:C1129(False:C215; "Unknown entry point: \""+$form+"\"") + + //………………………………………………………………………………………………………… + End case End if - - (OBJECT Get pointer:C1124(Object named:K67:5; "caller"))->:=JSON Stringify:C1217($caller_object) - End if + (OBJECT Get pointer:C1124(Object named:K67:5; "caller"))->:=JSON Stringify:C1217($caller) + + //______________________________________________________ : ($action="switch") @@ -768,16 +467,10 @@ End if If (OBJECT Get visible:C1075(*; $SUBFORM_NAME)) - //OB SET($parameter; \ - "action"; "hide") - $parameter.action:="hide" Else - //OB SET($parameter; \ - "action"; "show") - $parameter.action:="show" End if @@ -787,95 +480,76 @@ End if //______________________________________________________ : ($action="show") - ASSERT:C1129(OB Is defined:C1231($parameter; "caller")) - ASSERT:C1129(OB Is defined:C1231($parameter; "form")) - - $caller_name:=OB Get:C1224($parameter; "caller"; Is text:K8:3) - $form_name:=OB Get:C1224($parameter; "form"; Is text:K8:3) - $h_offset:=OB Get:C1224($parameter; "hOffset"; Is longint:K8:6) - $v_offset:=OB Get:C1224($parameter; "vOffset"; Is longint:K8:6) - - //find coordinates and dimensions - FORM GET PROPERTIES:C674($form_name; $width; $height) - OBJECT GET COORDINATES:C663(*; $caller_name; $left; $int; $int; $bottom) + // Find coordinates and dimensions + FORM GET PROPERTIES:C674($form; $width; $height) + OBJECT GET COORDINATES:C663(*; String:C10($parameter.caller); $left; $i; $i; $bottom) $top:=$bottom - $right:=$left+$width+$h_offset - $bottom:=$top+$height+$v_offset + $right:=$left+$width+Num:C11($parameter.hOffset) + $bottom:=$top+$height+Num:C11($parameter.vOffset) - //move if necessary to remain in the container + // Move if necessary to remain in the container OBJECT GET SUBFORM CONTAINER SIZE:C1148($width; $height) - If ($right>$width) //shift left + If ($right>$width) // Shift left $offset:=$width-$right $left:=$left+$offset-$MARGIN - $right:=$right+$offset-$MARGIN + $right+=$offset-$MARGIN End if - If ($bottom>$height) //shift up + If ($bottom>$height) // Shift up $offset:=$height-$bottom $top:=$top+$offset-$MARGIN - $bottom:=$bottom+$offset-$MARGIN + $bottom+=$offset-$MARGIN End if + // Set the UI subform + OBJECT SET SUBFORM:C1138(*; $SUBFORM_NAME; $form) - //set the UI subform - OBJECT SET SUBFORM:C1138(*; $SUBFORM_NAME; $form_name) - - //positioning balloon + // Positioning balloon OBJECT SET COORDINATES:C1248(*; $SUBFORM_NAME; $left; $top; $right; $bottom) - //positioning mask + // Positioning mask OBJECT GET COORDINATES:C663(*; Form:C1466.areaObject; $left; $top; $right; $bottom) OBJECT SET COORDINATES:C1248(*; "balloon.mask"; $left; $top; $right; $bottom) - //making visible + // Making visible OBJECT SET VISIBLE:C603(*; "balloon.@"; True:C214) - //give the focus to the subform to generate an On activate event + // Give the focus to the subform to generate an On activate event GOTO OBJECT:C206(*; "balloon.subform") - //set the balloon's flag - //OB SET(ob_area; \ - "balloon"; True) - + // Set the balloon's flag ob_area.balloon:=True:C214 + //______________________________________________________ : ($action="hide") - //hide the UI + // Hide the UI OBJECT SET VISIBLE:C603(*; "balloon.@"; False:C215) - //#ACI0095689 + // #ACI0095689 OBJECT SET SUBFORM:C1138(*; $SUBFORM_NAME; "BALLOON_EMPTY") If (OB Is defined:C1231($parameter; "postClick")) If (OB Get:C1224($parameter; "postClick"; Is boolean:K8:9)) - GET MOUSE:C468($mouse_x; $mouse_y; $int; *) - POST CLICK:C466($mouse_x; $mouse_y; *) + GET MOUSE:C468($mouseX; $mouseY; $i; *) + POST CLICK:C466($mouseX; $mouseY; *) End if - End if - //release the balloon's flag - - //OB SET(ob_area; \ - "balloon"; False) - + // Release the balloon's flag ob_area.balloon:=False:C215 - If (QR_is_valid_area(ob_area.area)) - - QR REPORT TO BLOB:C770(ob_area.area; $blob) $digest:=Generate digest:C1147($blob; MD5 digest:K66:1) @@ -885,7 +559,6 @@ End if ob_area.modified:=True:C214 End if - End if //______________________________________________________ @@ -896,10 +569,4 @@ End if //______________________________________________________ End case -CLEAR VARIABLE:C89($parameter) - -// ---------------------------------------------------- -// Return -// -// ---------------------------------------------------- -// End \ No newline at end of file +CLEAR VARIABLE:C89($parameter) \ No newline at end of file diff --git a/Project/Sources/folders.json b/Project/Sources/folders.json index 21378df..15dc505 100644 --- a/Project/Sources/folders.json +++ b/Project/Sources/folders.json @@ -1,7 +1,6 @@ { "_": { "methods": [ - "____test", "_colorToStyled", "_hexToDec", "_max", @@ -260,6 +259,7 @@ "NQR_RELOAD", "NQR_Save", "NQR_SaveAs", + "nqr_SET_BACK_COLOR", "NQR_SET_DESTINATION", "NQR_SET_HEADER_AND_FOOTER", "NQR_SET_SELECTION",