Silverfrost Logo About Us | Contact Us
 

PROGRESS_BAR@

Platform

Win32, x64

Purpose

To update a %br - Bar during a call to DISPLAY_DIB_BLOCK@.

Syntax

SUBROUTINE PROGRESS_BAR@(X)
REAL(2) X

Description

PROGRESS_BAR@ provides a link to a %br - Bar progress bar that is to be filled during the call to DISPLAY_DIB_BLOCK@.

For example:

C_EXTERNAL PROGRESS_BAR@ "__progress_bar"(REF) 
REAL(2) fill 
.... 
iw = WINIO@('%10br&',fill,255) 
.... 
CALL PROGRESS_BAR@(fill) 
CALL DISPLAY_DIB_BLOCK@(...

At the moment PROGRESS_BAR@ is only linked to DISPLAY_DIB_BLOCK@.

Notes

Added to FTN95 at version 8.10

 

 

Copyright © 1999-2018 Silverfrost Limited