Example: Using LOCATE statement to write an image from a BYTE type variable

LYCIA


4GL:

MAIN
DEFINE img BYTE
LOCATE img IN FILE "hola.jpg"
OPEN WINDOW w WITH FORM "byte_img" ATTRIBUTE(BORDER)
DISPLAY img TO label_id
CALL fgl_getkey()
END MAIN


Form:

<?xml version="1.0" encoding="UTF-8"?>
<form xmlns="http://namespaces.querix.com/2015/fglForms" title="New Form 1">
	<form.rootContainer>
		<GridPanel identifier="rootContainer" visible="true" preferredSize="350,350">
			<GridPanel.gridColumnDefinitions>
				<GridColumnDefinition>
					<GridColumnDefinition.gridLength>
						<GridLength gridLengthType="Auto" gridLengthValue="0.0"/>
					</GridColumnDefinition.gridLength>
				</GridColumnDefinition>
			</GridPanel.gridColumnDefinitions>
			<GridPanel.gridRowDefinitions>
				<GridRowDefinition>
					<GridRowDefinition.gridLength>
						<GridLength gridLengthType="Auto" gridLengthValue="0.0"/>
					</GridRowDefinition.gridLength>
				</GridRowDefinition>
			</GridPanel.gridRowDefinitions>
			<Label  isDynamic="true" visible="true" identifier="label_id" gridItemLocation="0,0,1,1" horizontalAlignment="Stretch" verticalAlignment="Stretch">
				<Label.image>
					<Image imageScaling="Both"/>
				</Label.image>
			</Label>
		</GridPanel>
	</form.rootContainer>
	<form.screenRecords>
		<ScreenRecord identifier="FormOnly"/>
	</form.screenRecords>
</form>

Sample image file: