test-load-image-1.p
| 1 |
|
|---|---|
| 2 |
DEFINE IMAGE image-1 BGCOLOR 1 FGCOLOR 2 SIZE-PIXELS 300 by 200 STRETCH-TO-FIT RETAIN-SHAPE. |
| 3 |
|
| 4 |
DEFINE IMAGE image-2 BGCOLOR 1 FGCOLOR 2 SIZE-PIXELS 300 by 200 STRETCH-TO-FIT RETAIN-SHAPE. |
| 5 |
|
| 6 |
DEFINE IMAGE image-3 BGCOLOR 1 FGCOLOR 2 SIZE-PIXELS 300 by 200 STRETCH-TO-FIT RETAIN-SHAPE. |
| 7 |
|
| 8 |
DEFINE IMAGE image-4 BGCOLOR 1 FGCOLOR 2 SIZE-PIXELS 300 by 200 STRETCH-TO-FIT RETAIN-SHAPE. |
| 9 |
|
| 10 |
DEFINE BUTTON bt-1 IMAGE IMAGE-SIZE-PIXELS 50 by 50 FROM X 15 Y 10. |
| 11 |
|
| 12 |
DEFINE FRAME frame-1 image-1 bt-1 image-2 image-3 image-4 WITH TITLE "Test images given by URLs". |
| 13 |
|
| 14 |
/*DEFINE FRAME frame-1 image-2 image-3 WITH TITLE "Test world images".*/ |
| 15 |
|
| 16 |
ENABLE ALL WITH FRAME frame-1. |
| 17 |
|
| 18 |
/*image-1:LOAD-IMAGE("https://gdb.rferl.org/3E32EFD5-2F4E-41D9-82B5-91AD73E2BCE2_cx0_cy2_cw96_w1023_r1_s.jpg").*/
|
| 19 |
/*image-1:LOAD-IMAGE("http://icons.iconarchive.com/icons/hopstarter/sleek-xp-basic/32/User-Group-icon.png").*/
|
| 20 |
|
| 21 |
/*image-2:LOAD-IMAGE("https://www.kp.ru/afisha/wp-content/uploads/2019/12/%D0%9F%D0%BE%D0%BB%D1%83%D0%BD%D0%B8%D0%BD.jpg").*/
|
| 22 |
|
| 23 |
/*image-3:LOAD-IMAGE("https://1.bp.blogspot.com/-XJdb9c2orc0/WeOz9E-n2dI/AAAAAAAAAu4/sFWHIk98z8U447TlqvHNQ_p8ELyu59AfQCLcBGAs/s1600/charles-chaplin-the-great-dictator-globe.jpg").*/
|
| 24 |
|
| 25 |
bt-1:LOAD-IMAGE("http://icons.iconarchive.com/icons/hopstarter/sleek-xp-basic/32/User-Group-icon.png").
|
| 26 |
|
| 27 |
image-4:LOAD-IMAGE("https://iconarchive.com/download/i109720/inipagi/business-economic/calculator.svg").
|
| 28 |
DEFAULT-WINDOW:LOAD-SMALL-ICON("http://icons.iconarchive.com/icons/hopstarter/sleek-xp-basic/32/User-Group-icon.png").
|
| 29 |
|
| 30 |
VIEW FRAME frame-1. |
| 31 |
|
| 32 |
WAIT-FOR CLOSE OF DEFAULT-WINDOW. |