REM ** EXAM_04.PRO ** REM 1P ResizeGate SetFileTypes ListModeFile, "FCLM", "TEXT", "SFWF" SelectFile ListModeFile, "LM file (4 parameters)" OpenLMFile "", "LM file (4 parameters)" NewHgr 3, "All[FL1]" of All NewGate "All[FL1]", "G1", Blue, (300,500 ) NewGate "All[FL1]", "G2", Magenta, (500,1000 ) Classify ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP print:print "_______________" print "Start: ";GateEventNum ("All[FL1]", "G1") PasteonPage "All[FL1]" ReSizeGate "All[FL1]", "G1", 120 print "ReSize 120%: ";GateEventNum ("All[FL1]", "G1") ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP PasteonPage "All[FL1]" ResizeGate "All[FL1]", "G2", 20 print "ReSize 20%: ";GateEventNum ("All[FL1]", "G2") ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP PasteOnPage "All[FL1]" print:print "_______________" Classify ShowHgr "All[FL1]", 0.7, 5.3, 32.6, 32.6, LP
Soft Flow home page | List of Examples | Library of FCAP BASIC Applications