C_PICTURE:C286($picture)
C_PICTURE:C286($thumbnail)

$thumwidth:=80
$thumheight:=80

$path:=Get 4D folder:C485(Current resources folder:K5:16)+"Observable_Universe_Japanese_Annotations.png"  //Resources フォルダー内の画像フォルダにあるピクチャーを探す
READ PICTURE FILE:C678($path; $picture)  //ピクチャーをピクチャー変数へと代入
CREATE THUMBNAIL:C679($picture; $thumbnail; $thumwidth; $thumheight)

Form:C1466.picture1:=$picture
Form:C1466.thumbnail1:=$thumbnail

OBJECT SET VISIBLE:C603(*; "Rectangle"; True:C214)
PICTURE PROPERTIES:C457($picture; $width; $height)

If ($width<600)
	$widthrate:=1
Else 
	$widthrate:=600/$width
End if 

If ($height<600)
	$heightrate:=1
Else 
	$heightrate:=600/$height
End if 

OBJECT GET COORDINATES:C663(*; "Rectangle"; $l; $t; $r; $b)
OBJECT SET COORDINATES:C1248(*; "Rectangle"; $l; $t; $l+($thumwidth*$widthrate); $t+($thumheight*$heightrate))
