Skip to content

Commit

Permalink
ACI0104129
Browse files Browse the repository at this point in the history
  • Loading branch information
Roland-Lannuzel authored and client-bugbase committed Oct 30, 2023
1 parent 53c7b8f commit f9f6fe8
Show file tree
Hide file tree
Showing 6 changed files with 17 additions and 27 deletions.

This file was deleted.

This file was deleted.

This file was deleted.

4 changes: 1 addition & 3 deletions Project/Sources/Forms/WP_Palette_Tables/form.4DForm
Original file line number Diff line number Diff line change
Expand Up @@ -94,7 +94,6 @@
"icon": "/RESOURCES/Images/Sidebar/Arrow_Small_Top.png",
"iconFrames": 4,
"textPlacement": "right",
"method": "ObjectMethods/btnInsertAboveRow.4dm",
"events": [
"onClick"
]
Expand All @@ -113,7 +112,6 @@
"icon": "/RESOURCES/Images/Sidebar/Arrow_Small_Bottom.png",
"iconFrames": 4,
"textPlacement": "right",
"method": "ObjectMethods/btnInsertBelowRow.4dm",
"events": [
"onClick"
]
Expand Down Expand Up @@ -192,7 +190,6 @@
"icon": "/RESOURCES/Images/Sidebar/small_Trash.png",
"iconFrames": 4,
"textPlacement": "right",
"method": "ObjectMethods/btnDeleteRows.4dm",
"events": [
"onClick"
]
Expand Down Expand Up @@ -444,6 +441,7 @@
"View 7": {},
"View 8": {},
"View 9": {
"visible": false,
"objects": [
"Rect2",
"Text"
Expand Down
32 changes: 15 additions & 17 deletions Project/Sources/Methods/WP_GetBackgroundURL.4dm
Original file line number Diff line number Diff line change
Expand Up @@ -14,41 +14,39 @@ $range:=$1

If (Not:C34(OB Is empty:C1297($range)))

WP GET ATTRIBUTES:C1345($range;wk background image:K81:21;$url)
WP GET ATTRIBUTES:C1345($range; wk background image:K81:21; $url)

Case of
: ($url="data:image/@")
// data:image/x-png;base64,iVBORw0KGgoAAAANSUhEUgAAAK
$url:=Substring:C12($url;12)
// x-png;base64,iVBORw0KGgoAAAANSUhEUgAAAK
$p:=Position:C15(";base64,";$url)
// data:image/x-png;base64,iVBORw0KGgoAAAANSUhEUgAAAK
$url:=Substring:C12($url; 12)
// x-png;base64,iVBORw0KGgoAAAANSUhEUgAAAK
$p:=Position:C15(";base64,"; $url)
If ($p>0)

$codec:="."+Substring:C12($url;1;$p-1)
$codec:="."+Substring:C12($url; 1; $p-1)
If ($codec=".x-png")
$codec:=".png"
End if

$url:=Substring:C12($url;$p+8)

BASE64 DECODE:C896($url;$blob)

BLOB TO PICTURE:C682($blob;$picture;$codec)
$url:=Substring:C12($url; $p+8)
BASE64 DECODE:C896($url; $blob)
BLOB TO PICTURE:C682($blob; $picture; $codec)

End if

: ($url="data:@")
// data:;base64,R0lGODlhLAGQAff/APr6+g0NDRgY
$p:=Position:C15(";base64,";$url)
// data:;base64,R0lGODlhLAGQAff/APr6+g0NDRgY
$p:=Position:C15(";base64,"; $url)
If ($p>0)
$url:=Substring:C12($url;$p+8)
BASE64 DECODE:C896($url;$blob)
BLOB TO PICTURE:C682($blob;$picture)
$url:=Substring:C12($url; $p+8)
BASE64 DECODE:C896($url; $blob)
BLOB TO PICTURE:C682($blob; $picture)
End if

End case

$ptr:=OBJECT Get pointer:C1124(Object named:K67:5;"bgndPictPreview")
$ptr:=OBJECT Get pointer:C1124(Object named:K67:5; "bgndPictPreview")
$ptr->:=$picture

End if
Expand Down
2 changes: 1 addition & 1 deletion Project/Sources/catalog.4DCatalog
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,7 @@
<field name="title" uuid="19F64DF6BDDD4615A1EEC9F1978DBD56" type="10" limiting_length="255" never_null="true" id="3"/>
<field name="group" uuid="47208754D7924C1E8357A182DBB2A1CC" type="3" never_null="true" id="4"/>
<primary_key field_name="ID" field_uuid="25E1AC17AE3D4D5FBED8BEFDB6E6B6DC"/>
<table_extra input_form="InputSideBar" output_form="Output">
<table_extra input_form="InputToolBar" output_form="Output">
<editor_table_info displayable_fields_count="6">
<color red="255" green="255" blue="255" alpha="0"/>
<coordinates left="41.5" top="16.453125" width="120" height="167.33203125"/>
Expand Down

0 comments on commit f9f6fe8

Please sign in to comment.