Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view

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