mygroup.ogs

来自「图像处理的压缩算法」· OGS 代码 · 共 25 行

/*------------------------------------------------------------------------------*
 * File Name: MyGroup.OGS														*
 * Creation: GJL 7/03/2003														*
 * Purpose: Scripts to be called from the MyGroup toolbar						*
 * Copyright (c) OriginLab Corp.	2003-2007									*
 * All Rights Reserved															*
 *------------------------------------------------------------------------------*/

[ExecuteOCFunction]
// Compile and link Origin C ProgressBox.c
%A="Samples\Programming\";
%B="User Interface Development\ProgressBox.C";
if( run.LoadOC(%Y%A%B) != 0 )	
{
	type -b "ProgressBox.C failed to load.";
	return 1;
}
// Execute Origin C Progress function
Progress(0,20);
return 0;

[ExecuteLabTalkSection]
// Execute script
type -b "Execute a section of LabTalk script"; 
return 0;