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: