$(H
------------------------------------------------------------------------
(c) Copyright 1992 to Current Year AVEVA Solutions Limited
Macro: FCTCOMP $Revision: 1.5 $
Author: MARTIN WARD
Last modified by $Author: pne $ on $Date: 2002/09/03 09:37:17 $
Macro Generic Type: Form Definitions
------------------------------------------------------------------------
$)
$(D
$)
KILL _CDCTCOMP
SETUP FORM _CDCTCOMP AT XR 0 YR 0.5
TITLE |Cable Tray Components|
INIT |CALLC ICTCOMP FCTCOMP|
PARA _S AT 0 0 TEXT |Specifications|
OPTION _CTSPEC AT XMIN_S YMAX |Cable Tray | WIDTH 15
VAR LIST _CTSPEC ADD |None Available|
EXIT
RADIO
TOGGLE _FORW AT XMIN_S YMAX |Forwards| CALL |$$_FORW
CALLG ISYSTEM| STATES |BACKW| |FORW|
TOGGLE _BACKW |Backwards| CALL |$$_BACKW
CALLG ISYSTEM| STATES |FORW| |BACKW|
EXIT
PATH DOWN
LIST _TYPE AT XMIN_S YMAX+0.1 WIDTH 14 LENGTH 5
TOGGLE _DEFAULT AT XMAX_TYPE+3 YMIN_TYPE |Default| CALL |VAR _CDCHOOSEO_DEFSEL '$$_DEFAULT'| STATES |OFF| |ON|
TOGGLE _ACONN AT XMAX_TYPE+3 YMIN_TYPE+1 |Auto Conn| CALL |VAR _CDCHOOSEO_AUTOCONN '$$_ACONN'
CHOOSE AUTOC $$_ACONN| STATES |OFF| |ON|
BUTTON _CHOOSE AT XMAX_TYPE+3 YMIN_TYPE+2.5 |Create| CALL |$$_TYPE NEW|
BUTTON _MODIFY AT XMIN_CHOOSE YMAX+0.1 |Re-select| CALL |$$_TYPE OLD|
$**** Inserido Mikael - início - 29/Jan/2010
button _CONNECT |Conn| at xmin_MODIFY ymax_MODIFY tooltip |(Connect to Previous) Conecta o elemento corrente ao elemento anterior| call |connect|
path right
button _FCONNECT |FCon| tooltip |(Fconnect to Previous) Força a conexão do elemento corrente ao elemento anterior mesmo que não consistente - CUIDADO! Permite conexões INCONSISTENTES | call |fconnect|
button _CONNECTNEXT |CoNx| at xmin_CONNECT ymax_CONNECT tooltip |(Connect to Previous - Next) Conecta o elemento corrente ao elemento anterior e se posiciona no próximo elemento| call |connect next|
button _THROUGHID |TrId| tooltip |(Through id $@) Move o elemento corrente até centro do elemento indicado pelo cursor| call |thr id $@|
$**** Inserido Mikael - final - 29/Jan/2010
OPTION _POSOPT AT XMIN_S YMAX_TYPE+0.5 CALL |CALLC MPOSCOMP $$_POSOPT| WIDTH 14
VAR LIST _POSOPT PAIRS |Thro Cursor| |THROC|
|Thro ID Cursor| |THROIDC|
|Thro Point| |THROIDP|
|Thro Next| |NEXT|
|Thro Tail| |TAIL|
|Thro Previous| |PREV|
|Thro Head| |HEAD|
|Connect| |CONN|
EXIT
option _ANGL at xmin_S ymax_POSOPT+0.2 call |CALLP MROTATE $$_ANGL| width 14
var list _ANGL pairs |Rotate 30| |30|
|Rotate 45| |45|
|Rotate 90| |90|
|Rotate 180| |180|
|Rotate 270| |270|
sel 1
exit
BUTTON _DISTANCE |Distance| AT XMIN_S YMAX+0.2 CALL |CALLC MPOSCOMP DIST|
PATH RIGHT
HDIST 1
TEXT _DIST WIDTH 14 ISOU
PATH DOWN
** Inserido FLIP - Flauretti - 26/09/2011
button _FLIP |Flip| at xmin_S ymax+0.2 tooltip |Inverte Ponto de Entrada com Ponto de Saida - Parrive x Pleave| call |CALLP MROTATE FLIP|
path right
$** Inserido FLIP - Flauretti - 26/09/2011
BUTTON _CANCEL AT XMIN_S YMAX+0.5 |Dismiss| CANCEL
EXIT
$.
$(H
------------------------------------------------------------------------
(c) Copyright 1992 to Current Year AVEVA Solutions Limited
Macro: FCTCOMP $Revision: 1.5 $
Author: MARTIN WARD
Last modified by $Author: pne $ on $Date: 2002/09/03 09:37:17 $
Macro Generic Type: Form Definitions
------------------------------------------------------------------------
$)
$(D
$)
KILL _CDCTCOMP
SETUP FORM _CDCTCOMP AT XR 0 YR 0.5
TITLE |Cable Tray Components|
INIT |CALLC ICTCOMP FCTCOMP|
PARA _S AT 0 0 TEXT |Specifications|
OPTION _CTSPEC AT XMIN_S YMAX |Cable Tray | WIDTH 15
VAR LIST _CTSPEC ADD |None Available|
EXIT
RADIO
TOGGLE _FORW AT XMIN_S YMAX |Forwards| CALL |$$_FORW
CALLG ISYSTEM| STATES |BACKW| |FORW|
TOGGLE _BACKW |Backwards| CALL |$$_BACKW
CALLG ISYSTEM| STATES |FORW| |BACKW|
EXIT
PATH DOWN
LIST _TYPE AT XMIN_S YMAX+0.1 WIDTH 14 LENGTH 5
TOGGLE _DEFAULT AT XMAX_TYPE+3 YMIN_TYPE |Default| CALL |VAR _CDCHOOSEO_DEFSEL '$$_DEFAULT'| STATES |OFF| |ON|
TOGGLE _ACONN AT XMAX_TYPE+3 YMIN_TYPE+1 |Auto Conn| CALL |VAR _CDCHOOSEO_AUTOCONN '$$_ACONN'
CHOOSE AUTOC $$_ACONN| STATES |OFF| |ON|
BUTTON _CHOOSE AT XMAX_TYPE+3 YMIN_TYPE+2.5 |Create| CALL |$$_TYPE NEW|
BUTTON _MODIFY AT XMIN_CHOOSE YMAX+0.1 |Re-select| CALL |$$_TYPE OLD|
$**** Inserido Mikael - início - 29/Jan/2010
button _CONNECT |Conn| at xmin_MODIFY ymax_MODIFY tooltip |(Connect to Previous) Conecta o elemento corrente ao elemento anterior| call |connect|
path right
button _FCONNECT |FCon| tooltip |(Fconnect to Previous) Força a conexão do elemento corrente ao elemento anterior mesmo que não consistente - CUIDADO! Permite conexões INCONSISTENTES | call |fconnect|
button _CONNECTNEXT |CoNx| at xmin_CONNECT ymax_CONNECT tooltip |(Connect to Previous - Next) Conecta o elemento corrente ao elemento anterior e se posiciona no próximo elemento| call |connect next|
button _THROUGHID |TrId| tooltip |(Through id $@) Move o elemento corrente até centro do elemento indicado pelo cursor| call |thr id $@|
$**** Inserido Mikael - final - 29/Jan/2010
OPTION _POSOPT AT XMIN_S YMAX_TYPE+0.5 CALL |CALLC MPOSCOMP $$_POSOPT| WIDTH 14
VAR LIST _POSOPT PAIRS |Thro Cursor| |THROC|
|Thro ID Cursor| |THROIDC|
|Thro Point| |THROIDP|
|Thro Next| |NEXT|
|Thro Tail| |TAIL|
|Thro Previous| |PREV|
|Thro Head| |HEAD|
|Connect| |CONN|
EXIT
option _ANGL at xmin_S ymax_POSOPT+0.2 call |CALLP MROTATE $$_ANGL| width 14
var list _ANGL pairs |Rotate 30| |30|
|Rotate 45| |45|
|Rotate 90| |90|
|Rotate 180| |180|
|Rotate 270| |270|
sel 1
exit
BUTTON _DISTANCE |Distance| AT XMIN_S YMAX+0.2 CALL |CALLC MPOSCOMP DIST|
PATH RIGHT
HDIST 1
TEXT _DIST WIDTH 14 ISOU
PATH DOWN
** Inserido FLIP - Flauretti - 26/09/2011
button _FLIP |Flip| at xmin_S ymax+0.2 tooltip |Inverte Ponto de Entrada com Ponto de Saida - Parrive x Pleave| call |CALLP MROTATE FLIP|
path right
$** Inserido FLIP - Flauretti - 26/09/2011
BUTTON _CANCEL AT XMIN_S YMAX+0.5 |Dismiss| CANCEL
EXIT
$.
