-
Notifications
You must be signed in to change notification settings - Fork 5
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
82d07c7
commit a55f392
Showing
10 changed files
with
580 additions
and
1,076 deletions.
There are no files selected for viewing
82 changes: 1 addition & 81 deletions
82
Project/Sources/Forms/BALLOON_COMMON/ObjectMethods/font.alternate.back.color.4dm
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 | ||
| nqr_SET_BACK_COLOR(qr alternate background color:K14904:9) |
83 changes: 1 addition & 82 deletions
83
Project/Sources/Forms/BALLOON_COMMON/ObjectMethods/font.back.color.4dm
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 | ||
| nqr_SET_BACK_COLOR(qr background color:K14904:8) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Empty file.
Oops, something went wrong.