0
Views
0
Downloads
0
Favorites
TradePanel
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | _ _ _ _ _ _ _ _ _ _ |
/ / | / _ _ \ _ _ _ _ _ _ _ _ | | _ _ _ / _ \ _ _ _ _ _ _ _ _ _ | | |
/ / | / / \ / ' _ _ / _ ` | / _ ` | / _ \ / / _ ) / _ ` | ' _ \ / _ \ | |
/ / | / / | | | ( _ | | ( _ | | _ _ / _ _ _ / ( _ | | | | | _ _ / | |
/ / | \ / | _ | \ _ _ , _ | \ _ _ , _ | \ _ _ _ \ / \ _ _ , _ | _ | | _ | \ _ _ _ | _ | |
/ / | |
/ / | O p e n - s o u r c e s o f t w a r e ( O S S ) T r a d e P a n e l . m q 4 |
/ / | P r o v i d e d f r e e o f c h a r g e C o p y r i g h t © 2 0 1 8 , M h F x 7 |
/ / | B y M h F x 7 h t t p s : / / w w w . m q l 5 . c o m / e n / u s e r s / m h f x 7 |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# d e f i n e C o p y r i g h t " C o p y r i g h t © 2 0 1 8 , M h F x 7 "
# p r o p e r t y c o p y r i g h t C o p y r i g h t
# p r o p e r t y l i n k " h t t p s : / / w w w . m q l 5 . c o m / e n / u s e r s / m h f x 7 "
# d e f i n e E x p e r t N a m e " T r a d e P a n e l "
# d e f i n e V e r s i o n " 1 . 1 0 "
# p r o p e r t y v e r s i o n V e r s i o n
# p r o p e r t y s t r i c t
/ / - -
# d e f i n e K E Y _ L E F T 3 7
# d e f i n e K E Y _ R I G H T 3 9
# d e f i n e K E Y _ U P 3 8
# d e f i n e K E Y _ D O W N 4 0
/ / - -
# d e f i n e I N D E N T _ T O P 1 5
# d e f i n e I N D E N T _ B O T T O M 3 0
/ / - -
# d e f i n e C L I E N T _ B G _ X 5
# d e f i n e C L I E N T _ B G _ Y 2 0
/ / - -
# d e f i n e C L I E N T _ B G _ W I D T H 2 4 5
# d e f i n e C L I E N T _ B G _ H E I G H T 1 5 0
/ / - -
# d e f i n e B U T T O N _ W I D T H 7 5
# d e f i n e B U T T O N _ H E I G H T 2 0
/ / - -
# d e f i n e B U T T O N _ G A P _ X 5
# d e f i n e B U T T O N _ G A P _ Y 5
/ / - -
# d e f i n e E D I T _ W I D T H 7 5
# d e f i n e E D I T _ H E I G H T 1 8
/ / - -
# d e f i n e E D I T _ G A P _ X 1 5
# d e f i n e E D I T _ G A P _ Y 1 5
/ / - -
# d e f i n e S P E E D T E X T _ G A P _ X 2 4 0
# d e f i n e S P E E D T E X T _ G A P _ Y 2 8
/ / - -
# d e f i n e S P E E D B A R _ G A P _ X 2 1 0
# d e f i n e S P E E D B A R _ G A P _ Y 2 8
/ / - -
# d e f i n e L I G H T 0
# d e f i n e D A R K 1
/ / - -
# d e f i n e C L O S E A L L 0
# d e f i n e C L O S E L A S T 1
# d e f i n e C L O S E P R O F I T 2
# d e f i n e C L O S E L O S S 3
# d e f i n e C L O S E P A R T I A L 4
/ / - -
# d e f i n e O P E N P R I C E 0
# d e f i n e C L O S E P R I C E 1
/ / - -
# d e f i n e O P _ A L L - 1
/ / - -
# d e f i n e O B J P R E F I X " T P - "
/ / - -
b o o l T i m e r I s E n a b l e d = f a l s e ;
i n t T i m e r I n t e r v a l = 2 5 0 ;
/ / - -
i n t M a g i c N u m b e r = 0 ;
i n t S l i p p a g e = 3 ;
d o u b l e L o t S i z e = 0 ;
d o u b l e L o t S t e p = 0 ;
d o u b l e M i n L o t = 0 ;
d o u b l e M a x L o t = 0 ;
d o u b l e M i n S t o p = 0 ;
d o u b l e S t o p L o s s = 0 ;
d o u b l e T a k e P r o f i t = 0 ;
/ / - -
d o u b l e L o t S i z e I n p = 0 ;
d o u b l e S t o p L o s s I n p = 0 ;
d o u b l e T a k e P r o f i t I n p = 0 ;
s t r i n g S y m b o l I n p = " " ;
/ / - -
i n t S e l e c t e d T h e m e = 0 ;
i n t C l o s e M o d e = 0 ;
b o o l I s P a i n t i n g = f a l s e ;
b o o l S o u n d I s E n a b l e d = f a l s e ;
b o o l P l a y T i c k s = f a l s e ;
/ / - -
i n t m o u s e _ x = 0 ;
i n t m o u s e _ y = 0 ;
i n t m o u s e _ w = 0 ;
d a t e t i m e m o u s e _ d t = 0 ;
d o u b l e m o u s e _ p r = 0 ;
/ / - -
i n t d r a w = 0 ;
i n t B r u s h C l r I n d e x = 0 ;
i n t B r u s h I n d e x = 0 ;
/ / - -
i n t M a x S p e e d B a r s = 1 0 ;
d o u b l e A v g P r i c e = 0 ;
d o u b l e U p T i c k s = 0 ;
d o u b l e D w n T i c k s = 0 ;
i n t L a s t R e a s o n = 0 ;
/ / - -
c o l o r C O L O R _ B G = c l r N O N E ;
c o l o r C O L O R _ F O N T = c l r N O N E ;
c o l o r C O L O R _ F O N T 2 = c l r N O N E ;
c o l o r C O L O R _ M O V E = c l r N O N E ;
c o l o r C O L O R _ G R E E N = c l r N O N E ;
c o l o r C O L O R _ R E D = c l r N O N E ;
c o l o r C O L O R _ H E D G E = c l r N O N E ;
c o l o r C O L O R _ B I D _ R E C = c l r N O N E ;
c o l o r C O L O R _ A S K _ R E C = c l r N O N E ;
c o l o r C O L O R _ A R R O W = c l r N O N E ;
/ / - -
c o l o r C O L O R _ S E L L = C ' 2 2 5 , 6 8 , 2 9 ' ;
c o l o r C O L O R _ B U Y = C ' 3 , 9 5 , 1 7 2 ' ;
c o l o r C O L O R _ C L O S E = c l r G o l d e n r o d ;
/ / - -
i n t E r r o r I n t e r v a l = 2 5 0 ;
s t r i n g E r r o r S o u n d = " e r r o r . w a v " ;
/ / - -
s t r i n g M B _ C A P T I O N = E x p e r t N a m e + " v " + V e r s i o n + " | " + C o p y r i g h t ;
/ / - -
s t r i n g C l o s e A r r [ ] = { " C L O S E A L L " , " C L O S E L A S T " , " C L O S E P R O F I T " , " C L O S E L O S S " , " C L O S E P A R T I A L " } ;
/ / - -
s t r i n g B r u s h A r r [ ] = { " l " , " « " , " ¨ " , " t " , " " , " Ë " , " ° " } ;
c o l o r B r u s h C l r A r r [ ] = { c l r R e d , c l r G o l d , c l r M a g e n t a , c l r B r o w n , c l r D o d g e r B l u e , c l r G r e e n , c l r O r a n g e , c l r W h i t e , c l r B l a c k } ;
/ / - -
i n t x 1 = 0 , x 2 = C L I E N T _ B G _ W I D T H ;
i n t y 1 = 0 , y 2 = C L I E N T _ B G _ H E I G H T ;
/ / - -
i n t b u t t o n _ y = 0 ;
i n t i n p u t s _ y = 0 ;
i n t l a b e l _ y = 0 ;
/ / - -
i n t f r _ x = 0 ;
/ / - -
i n p u t b o o l S h o w O r d H i s t o r y = t r u e ; / / S h o w O r d e r H i s t o r y
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t i n i t i a l i z a t i o n f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t O n I n i t ( )
{
/ / - - - C r e a t e T i m e r
i f ( ! I s T e s t i n g ( ) )
T i m e r I s E n a b l e d = E v e n t S e t M i l l i s e c o n d T i m e r ( T i m e r I n t e r v a l ) ;
/ / - - E n a b l e E v e n t M o u s e M o v e
i f ( ! I s T e s t i n g ( ) )
i f ( ! C h a r t G e t I n t e g e r ( 0 , C H A R T _ E V E N T _ M O U S E _ M O V E ) )
C h a r t E v e n t M o u s e M o v e S e t ( t r u e ) ;
/ / - - C h e c k C o n n e c t i o n
i f ( ! T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ C O N N E C T E D ) )
{
M e s s a g e B o x ( " W a r n i n g : N o I n t e r n e t c o n n e c t i o n f o u n d ! \ n P l e a s e c h e c k y o u r n e t w o r k c o n n e c t i o n . " ,
M B _ C A P T I O N + " | " + " # " + I n t e g e r T o S t r i n g ( E R R _ N O _ C O N N E C T I O N ) , M B _ O K | M B _ I C O N W A R N I N G ) ;
}
/ / - - C h e c k T r a d i n g I s A l l o w e d
i f ( ! T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ T R A D E _ A L L O W E D ) ) / / T e r m i n a l
{
M e s s a g e B o x ( " W a r n i n g : C h e c k i f a u t o m a t e d t r a d i n g i s a l l o w e d i n t h e t e r m i n a l s e t t i n g s ! " ,
M B _ C A P T I O N + " | " + " # " + I n t e g e r T o S t r i n g ( E R R _ T R A D E _ N O T _ A L L O W E D ) , M B _ O K | M B _ I C O N W A R N I N G ) ;
}
e l s e
{
i f ( ! M Q L I n f o I n t e g e r ( M Q L _ T R A D E _ A L L O W E D ) ) / / C h e c k B o x
{
M e s s a g e B o x ( " W a r n i n g : A u t o m a t e d t r a d i n g i s f o r b i d d e n i n t h e p r o g r a m s e t t i n g s f o r " + _ _ F I L E _ _ ,
M B _ C A P T I O N + " | " + " # " + I n t e g e r T o S t r i n g ( E R R _ T R A D E _ N O T _ A L L O W E D ) , M B _ O K | M B _ I C O N W A R N I N G ) ;
}
}
/ / - -
i f ( ! A c c o u n t I n f o I n t e g e r ( A C C O U N T _ T R A D E _ E X P E R T ) ) / / S e r v e r
{
M e s s a g e B o x ( " W a r n i n g : A u t o m a t e d t r a d i n g i s f o r b i d d e n f o r t h e a c c o u n t " + I n t e g e r T o S t r i n g ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) ) + " a t t h e t r a d e s e r v e r s i d e . " ,
M B _ C A P T I O N + " | " + " # " + I n t e g e r T o S t r i n g ( E R R _ T R A D E _ E X P E R T _ D I S A B L E D _ B Y _ S E R V E R ) , M B _ O K | M B _ I C O N W A R N I N G ) ;
}
/ / - -
i f ( ! A c c o u n t I n f o I n t e g e r ( A C C O U N T _ T R A D E _ A L L O W E D ) ) / / I n v e s t o r
{
M e s s a g e B o x ( " W a r n i n g : T r a d i n g i s f o r b i d d e n f o r t h e a c c o u n t " + I n t e g e r T o S t r i n g ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) ) + " . " +
" \ n \ n P e r h a p s a n i n v e s t o r p a s s w o r d h a s b e e n u s e d t o c o n n e c t t o t h e t r a d i n g a c c o u n t . " +
" \ n \ n C h e c k t h e t e r m i n a l j o u r n a l f o r t h e f o l l o w i n g e n t r y : " +
" \ n \ ' " + I n t e g e r T o S t r i n g ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) ) + " \ ' : t r a d i n g h a s b e e n d i s a b l e d - i n v e s t o r m o d e . " ,
M B _ C A P T I O N + " | " + " # " + I n t e g e r T o S t r i n g ( E R R _ T R A D E _ D I S A B L E D ) , M B _ O K | M B _ I C O N W A R N I N G ) ;
}
/ / - -
i f ( ! S y m b o l I n f o I n t e g e r ( _ S y m b o l , S Y M B O L _ T R A D E _ M O D E ) ) / / S y m b o l
{
M e s s a g e B o x ( " W a r n i n g : T r a d i n g i s d i s a b l e d f o r t h e s y m b o l " + _ S y m b o l + " a t t h e t r a d e s e r v e r s i d e . " ,
M B _ C A P T I O N + " | " + " # " + I n t e g e r T o S t r i n g ( E R R _ T R A D E _ D I S A B L E D ) , M B _ O K | M B _ I C O N W A R N I N G ) ;
}
/ / - - S t r a t e g y T e s t e r
i f ( M Q L I n f o I n t e g e r ( M Q L _ T E S T E R ) )
P r i n t ( " S o m e f u n c t i o n s a r e n o t a v a i l a b l e i n t h e s t r a t e g y t e s t e r . " ) ;
/ / - - C h e c k S o u n d I s E n a b l e d
i f ( ! G l o b a l V a r i a b l e C h e c k ( E x p e r t N a m e + " - S o u n d " ) )
S o u n d I s E n a b l e d = t r u e ;
e l s e
S o u n d I s E n a b l e d = G l o b a l V a r i a b l e G e t ( E x p e r t N a m e + " - S o u n d " ) ;
/ / - - C h e c k C o l o r s
S e l e c t e d T h e m e = ( i n t ) G l o b a l V a r i a b l e G e t ( E x p e r t N a m e + " - T h e m e " ) ;
i f ( S e l e c t e d T h e m e = = L I G H T )
S e t C o l o r s ( L I G H T ) ;
e l s e
S e t C o l o r s ( D A R K ) ;
/ / - - G e t S t o r e d I n p u t s
L o t S i z e I n p = G l o b a l V a r i a b l e G e t ( E x p e r t N a m e + " - L o t S i z e " ) ;
S t o p L o s s I n p = G l o b a l V a r i a b l e G e t ( E x p e r t N a m e + " - S t o p L o s s " ) ;
T a k e P r o f i t I n p = G l o b a l V a r i a b l e G e t ( E x p e r t N a m e + " - T a k e P r o f i t " ) ;
/ / - - G e t C l o s i n g M o d e
i f ( ! I s T e s t i n g ( ) )
C l o s e M o d e = ( i n t ) G l o b a l V a r i a b l e G e t ( E x p e r t N a m e + " - C l o s e " ) ;
/ / - - G e t A v g P r i c e
i f ( I s C o n n e c t e d ( ) )
A v g P r i c e = ( M a r k e t I n f o ( _ S y m b o l , M O D E _ A S K ) + M a r k e t I n f o ( _ S y m b o l , M O D E _ B I D ) ) / 2 ;
/ / - - S e t X Y A x i s
G e t S e t C o o r d i n a t e s ( ) ;
/ / - - C r e a t e O b j e c t s
O b j e c t s C r e a t e A l l ( ) ;
/ / - - C h a r t C h a n g e d
i f ( L a s t R e a s o n = = R E A S O N _ C H A R T C H A N G E )
_ P l a y S o u n d ( " s w i t c h . w a v " ) ;
/ / - - - S u c c e e d e d
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t d e i n i t i a l i z a t i o n f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n D e i n i t ( c o n s t i n t r e a s o n )
{
/ / - - - D e s t r o y T i m e r
E v e n t K i l l T i m e r ( ) ;
T i m e r I s E n a b l e d = f a l s e ;
/ / - - D i s a b l e E v e n t M o u s e M o v e
i f ( ! I s T e s t i n g ( ) )
i f ( C h a r t G e t I n t e g e r ( 0 , C H A R T _ E V E N T _ M O U S E _ M O V E ) )
C h a r t E v e n t M o u s e M o v e S e t ( f a l s e ) ;
/ / - - S a v e S t o r e d V a l u e s
i f ( r e a s o n ! = R E A S O N _ I N I T F A I L E D )
{
/ / - - S a v e X Y A x i s
G l o b a l V a r i a b l e S e t ( E x p e r t N a m e + " - X " , x 1 ) ;
G l o b a l V a r i a b l e S e t ( E x p e r t N a m e + " - Y " , y 1 ) ;
/ / - - S a v e U s e r I n p u t s
G l o b a l V a r i a b l e S e t ( E x p e r t N a m e + " - L o t S i z e " , L o t S i z e ) ;
G l o b a l V a r i a b l e S e t ( E x p e r t N a m e + " - S t o p L o s s " , S t o p L o s s ) ;
G l o b a l V a r i a b l e S e t ( E x p e r t N a m e + " - T a k e P r o f i t " , T a k e P r o f i t ) ;
/ / - - S t r a t e g y T e s t e r
i f ( ! I s T e s t i n g ( ) )
{
G l o b a l V a r i a b l e S e t ( E x p e r t N a m e + " - T h e m e " , S e l e c t e d T h e m e ) ;
G l o b a l V a r i a b l e S e t ( E x p e r t N a m e + " - S o u n d " , S o u n d I s E n a b l e d ) ;
G l o b a l V a r i a b l e S e t ( E x p e r t N a m e + " - C l o s e " , C l o s e M o d e ) ;
}
/ / - -
G l o b a l V a r i a b l e s F l u s h ( ) ;
}
/ / - - R e s e t S t o r e d T i c k s
i f ( r e a s o n = = R E A S O N _ C H A R T C H A N G E )
{
U p T i c k s = 0 ;
D w n T i c k s = 0 ;
}
/ / - - D e l e t e O b j e c t s
i f ( r e a s o n < = R E A S O N _ R E M O V E | | r e a s o n = = R E A S O N _ I N I T F A I L E D )
{
f o r ( i n t i = 0 ; i < O b j e c t s T o t a l ( ) ; i + + )
{
/ / - - G e t O b j e c t N a m e
s t r i n g o b j _ n a m e = O b j e c t N a m e ( i ) ;
/ / - - P r e f i x O b j e c t F o u n d
i f ( S t r i n g S u b s t r ( o b j _ n a m e , 0 , S t r i n g L e n ( O B J P R E F I X ) ) = = O B J P R E F I X )
{
/ / - - D e l e t e O b j e c t s
i f ( O b j e c t s D e l e t e A l l ( 0 , O B J P R E F I X , - 1 , - 1 ) > 0 )
b r e a k ;
}
}
}
/ / - - S t o r e D e i n i t R e a s o n
L a s t R e a s o n = r e a s o n ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t t i c k f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i c k ( )
{
/ / - - - C r e a t e T i m e r
i f ( ! T i m e r I s E n a b l e d & & ! I s T e s t i n g ( ) )
T i m e r I s E n a b l e d = E v e n t S e t M i l l i s e c o n d T i m e r ( T i m e r I n t e r v a l ) ;
/ / - - D i s p l a y S p e e d I n f o
S p e e d o m e t e r ( ) ;
/ / - - S t r a t e g y T e s t e r
i f ( I s T e s t i n g ( ) )
_ O n T e s t e r ( ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | T i m e r f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i m e r ( )
{
/ / - - - C h e c k O b j e c t s
O b j e c t s C h e c k A l l ( ) ;
/ / - - G e t S e t U s e r I n p u t s
G e t S e t I n p u t s ( ) ;
/ / - - D i s p l a y S y m b o l I n f o
S y m b o l I n f o ( ) ;
/ / - - D i s p l a y A c c o u n t & T r a d e I n f o
A c c A n d T r a d e I n f o ( ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h a r t E v e n t f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n C h a r t E v e n t ( c o n s t i n t i d ,
c o n s t l o n g & l p a r a m ,
c o n s t d o u b l e & d p a r a m ,
c o n s t s t r i n g & s p a r a m )
{
/ / - - -
i f ( i d = = C H A R T E V E N T _ O B J E C T _ C L I C K )
{
/ / - - D i s p l a y L a s t K n o w n P i n g
i f ( s p a r a m = = O B J P R E F I X + " C O N N E C T I O N " )
{
/ / - - S e t T r a n s p a r e n t C o l o r
i n t s R e d = 8 8 , s G r e e n = 8 8 , s B l u e = 8 8 , s R G B = 0 ;
s R G B = ( s B l u e < < 1 6 ) ; s R G B | = ( s G r e e n < < 8 ) ; s R G B | = s R e d ;
/ / - -
d o u b l e P i n g = T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ P I N G _ L A S T ) ; / / S e t P i n g T o M s
s t r i n g t e x t = T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ C O N N E C T E D ) ? D o u b l e T o S t r i n g ( P i n g / 1 0 0 0 , 2 ) + " m s " : " N C " ; / * S e t T e x t * /
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " P I N G " , 0 , C h a r t M i d d l e X ( ) , C h a r t M i d d l e Y ( ) , C O R N E R _ L E F T _ U P P E R , t e x t , " T a h o m a " , 2 0 0 , s R G B , 0 , A N C H O R _ C E N T E R , t r u e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
S l e e p ( 1 0 0 0 ) ;
O b j e c t D e l e t e ( 0 , O B J P R E F I X + " P I N G " ) ; / / D e l e t e O b j e c t
}
/ / - - S w i t c h T h e m e
i f ( s p a r a m = = O B J P R E F I X + " T H E M E " )
{
i f ( S e l e c t e d T h e m e = = L I G H T )
S e t T h e m e ( D A R K ) ;
e l s e
S e t T h e m e ( L I G H T ) ;
}
/ / - - S t a r t P a i n t i n g
i f ( s p a r a m = = O B J P R E F I X + " P A I N T " )
{
i f ( ! I s P a i n t i n g )
{
/ / - - E n a b l e P a i n t i n g
I s P a i n t i n g = t r u e ;
/ / - - B l o c k M o u s e S c r o l l
C h a r t M o u s e S c r o l l S e t ( f a l s e ) ;
/ / - - D i s p l a y I n f o
L a b e l C r e a t e ( 0 , O B J P R E F I X + " E R A S E " , 0 , 5 , 1 5 , C O R N E R _ L E F T _ L O W E R , " P r e s s d o w n t o e r a s e " , " A r i a l " , 9 , C O L O R _ R E D , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " B R U S H C O L O R " , 0 , C h a r t M i d d l e X ( ) , 1 5 , C O R N E R _ L E F T _ L O W E R , " P r e s s u p t o c h a n g e c o l o r / P r e s s l e f t t o c h a n g e b r u s h " , " A r i a l " , 9 , B r u s h C l r A r r [ B r u s h C l r I n d e x ] , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " B R U S H T Y P E " , 0 , C h a r t M i d d l e X ( ) + 1 5 5 , 1 5 , C O R N E R _ L E F T _ L O W E R , B r u s h A r r [ B r u s h I n d e x ] , " W i n g d i n g s " , 9 , B r u s h C l r A r r [ B r u s h C l r I n d e x ] , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S T O P P A I N T " , 0 , 5 , 1 5 , C O R N E R _ R I G H T _ L O W E R , " P r e s s r i g h t t o s t o p d r a w i n g " , " A r i a l " , 9 , C O L O R _ G R E E N , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
}
}
/ / - - S o u n d M a n a g e m e n t
i f ( s p a r a m = = O B J P R E F I X + " S O U N D " | | s p a r a m = = O B J P R E F I X + " S O U N D I O " )
{
/ / - - E n a b l e S o u n d
i f ( ! S o u n d I s E n a b l e d )
{
S o u n d I s E n a b l e d = t r u e ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S O U N D I O " , O B J P R O P _ C O L O R , C ' 5 9 , 4 1 , 4 0 ' ) ; / / S e t O b j e c t
P l a y S o u n d ( " s o u n d . w a v " ) ;
}
/ / - - D i s a b l e S o u n d
e l s e
{
S o u n d I s E n a b l e d = f a l s e ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S O U N D I O " , O B J P R O P _ C O L O R , c l r N O N E ) ; / / S e t O b j e c t
}
}
/ / - - T i c k S o u n d s M a n a g e m e n t
i f ( s p a r a m = = O B J P R E F I X + " P L A Y " )
{
/ / - - E n a b l e T i c k S o u n d s
i f ( ! P l a y T i c k s )
{
P l a y T i c k s = t r u e ;
/ / - - S e t O b j e c t s
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P L A Y " , O B J P R O P _ T E X T , " ; " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P L A Y " , O B J P R O P _ F O N T S I Z E , 1 4 ) ;
}
/ / - - D i s a b l e T i c k S o u n d s
e l s e
{
P l a y T i c k s = f a l s e ;
/ / - - S e t O b j e c t s
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P L A Y " , O B J P R O P _ T E X T , " 4 " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P L A Y " , O B J P R O P _ F O N T S I Z E , 1 5 ) ;
}
}
/ / - - S e t B u l l / B e a r C o l o r s
i f ( s p a r a m = = O B J P R E F I X + " C A N D L E S ¦ " )
{
c o l o r c l r B u l l i s h = R a n d o m C o l o r ( ) ;
c o l o r c l r B e a r i s h = R a n d o m C o l o r ( ) ;
/ / - - S e t C h a r t
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C A N D L E _ B U L L , c l r B u l l i s h ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ U P , c l r B u l l i s h ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C A N D L E _ B E A R , c l r B e a r i s h ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ D O W N , c l r B e a r i s h ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ L I N E , R a n d o m C o l o r ( ) ) ;
}
/ / - - R e m o v e E x p e r t
i f ( s p a r a m = = O B J P R E F I X + " E X I T " )
{
i f ( M e s s a g e B o x ( " D o y o u r e a l l y w a n t t o r e m o v e t h e E A ? " , M B _ C A P T I O N , M B _ I C O N Q U E S T I O N | M B _ Y E S N O ) = = I D Y E S )
E x p e r t R e m o v e ( ) ; / / E x i t
}
/ / - - S e t C l o s i n g M o d e
i f ( s p a r a m = = O B J P R E F I X + " C L O S E ¹ ² ³ " )
{
C l o s e M o d e + + ;
i f ( C l o s e M o d e > = A r r a y S i z e ( C l o s e A r r ) ) / / R e s e t
C l o s e M o d e = 0 ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " C L O S E ¹ ² ³ " , O B J P R O P _ T E X T , 0 , C l o s e A r r [ C l o s e M o d e ] ) ; / / S e t O b j e c t
_ P l a y S o u n d ( " s w i t c h . w a v " ) ;
}
/ / - - D e c L o t S i z e
i f ( s p a r a m = = O B J P R E F I X + " L O T S I Z E < " )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t S i z e - = L o t S t e p , 2 ) ) ; / / S e t O b j e c t
/ / - - I n c L o t S i z e
i f ( s p a r a m = = O B J P R E F I X + " L O T S I Z E > " )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t S i z e + = L o t S t e p , 2 ) ) ; / / S e t O b j e c t
/ / - - S e l l C l i c k
i f ( s p a r a m = = O B J P R E F I X + " S E L L " )
{
/ / - - S e n d S e l l O r d e r
O r d e r S e n d ( O P _ S E L L ) ;
/ / - - R e s e t B u t t o n
S l e e p ( 1 0 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S E L L " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
/ / - - C l o s e C l i c k
i f ( s p a r a m = = O B J P R E F I X + " C L O S E " )
{
/ / - - C l o s e O r d e r ( s )
O r d e r C l o s e ( ) ;
/ / - - R e s e t B u t t o n
S l e e p ( 1 0 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " C L O S E " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
/ / - - B u y C l i c k
i f ( s p a r a m = = O B J P R E F I X + " B U Y " )
{
/ / - - S e n d B u y O r d e r
O r d e r S e n d ( O P _ B U Y ) ;
/ / - - R e s e t B u t t o n
S l e e p ( 1 0 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B U Y " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
/ / - - R e s e t C o o r d i n a t e s
i f ( s p a r a m = = O B J P R E F I X + " R E S E T " )
{
L a b e l M o v e ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , C L I E N T _ B G _ X , C L I E N T _ B G _ Y ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R E S E T " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " M O V E " , O B J P R O P _ S T A T E ) )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " M O V E " , O B J P R O P _ S T A T E , f a l s e ) ; / * S e t O b j e c t * /
/ / - - M o v e O b j e c t s
G e t S e t C o o r d i n a t e s ( ) ;
O b j e c t s M o v e A l l ( ) ;
}
/ / - -
}
/ / - -
i f ( i d = = C H A R T E V E N T _ K E Y D O W N )
{
/ / - - B r u s h T y p e
i f ( l p a r a m = = K E Y _ L E F T )
{
i f ( I s P a i n t i n g )
{
B r u s h I n d e x + + ;
i f ( B r u s h I n d e x > = A r r a y S i z e ( B r u s h A r r ) ) / / R e s e t
B r u s h I n d e x = 0 ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " B R U S H T Y P E " , O B J P R O P _ T E X T , 0 , B r u s h A r r [ B r u s h I n d e x ] ) ; / / S e t O b j e c t
}
}
/ / - - S t o p P a i n t i n g
i f ( l p a r a m = = K E Y _ R I G H T )
{
i f ( I s P a i n t i n g )
{
/ / - - D i s a b l e P a i n t i n g
I s P a i n t i n g = f a l s e ;
/ / - - D e l e t e O b j e c t s
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " E R A S E " ) = = 0 )
O b j e c t D e l e t e ( 0 , O B J P R E F I X + " E R A S E " ) ;
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " B R U S H C O L O R " ) = = 0 )
O b j e c t D e l e t e ( 0 , O B J P R E F I X + " B R U S H C O L O R " ) ;
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " B R U S H T Y P E " ) = = 0 )
O b j e c t D e l e t e ( 0 , O B J P R E F I X + " B R U S H T Y P E " ) ;
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " S T O P P A I N T " ) = = 0 )
O b j e c t D e l e t e ( 0 , O B J P R E F I X + " S T O P P A I N T " ) ;
/ / - - U n b l o c k M o u s e S c r o l l
C h a r t M o u s e S c r o l l S e t ( t r u e ) ;
}
}
/ / - - B r u s h C o l o r
i f ( l p a r a m = = K E Y _ U P )
{
i f ( I s P a i n t i n g )
{
B r u s h C l r I n d e x + + ;
i f ( B r u s h C l r I n d e x > = A r r a y S i z e ( B r u s h C l r A r r ) ) / / R e s e t
B r u s h C l r I n d e x = 0 ;
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B R U S H C O L O R " , O B J P R O P _ C O L O R , 0 , B r u s h C l r A r r [ B r u s h C l r I n d e x ] ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B R U S H T Y P E " , O B J P R O P _ C O L O R , 0 , B r u s h C l r A r r [ B r u s h C l r I n d e x ] ) ;
}
}
/ / - - D e l e t e D r a w s
i f ( l p a r a m = = K E Y _ D O W N )
{
i f ( I s P a i n t i n g )
{
i f ( O b j e c t s D e l e t e A l l ( 0 , " d r a w " , 0 , O B J _ T E X T ) > 0 )
d r a w = 0 ;
}
}
/ / - -
}
/ / - - -
i f ( i d = = C H A R T E V E N T _ M O U S E _ M O V E )
{
/ / - - U s e r I s H o l d i n g ( L e f t - C l i c k )
i f ( s p a r a m = = " 1 " )
{
/ / - - M o v e C l i e n t
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ S E L E C T E D ) | | O b j e c t F i n d ( 0 , O B J P R E F I X + " B C K G R N D [ ] " ) ! = 0 )
{
/ / - - M o v e O b j e c t s
G e t S e t C o o r d i n a t e s ( ) ;
O b j e c t s M o v e A l l ( ) ;
}
/ / - - P a i n t
i f ( I s P a i n t i n g )
{
/ / - - G e t M o u s e P o s i t i o n
m o u s e _ x = ( i n t ) l p a r a m ;
m o u s e _ y = ( i n t ) d p a r a m ;
/ / - - C o n v e r t X Y T o D a t e P r i c e
C h a r t X Y T o T i m e P r i c e ( 0 , m o u s e _ x , m o u s e _ y , m o u s e _ w , m o u s e _ d t , m o u s e _ p r ) ;
/ / - - C r e a t e O b j e c t s
T e x t C r e a t e ( 0 , " d r a w " + I n t e g e r T o S t r i n g ( d r a w ) , 0 , m o u s e _ d t , m o u s e _ p r , B r u s h A r r [ B r u s h I n d e x ] , " W i n g d i n g s " , 1 0 , B r u s h C l r A r r [ B r u s h C l r I n d e x ] , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
d r a w + + ;
}
/ / - -
}
/ / - -
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | O n T e s t e r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d _ O n T e s t e r ( )
{
/ / - - - C h e c k O b j e c t s
O b j e c t s C h e c k A l l ( ) ;
/ / - - G e t S e t U s e r I n p u t s
G e t S e t I n p u t s ( ) ;
/ / - - D i s p l a y S y m b o l I n f o
S y m b o l I n f o ( ) ;
/ / - - D i s p l a y A c c o u n t & T r a d e I n f o
A c c A n d T r a d e I n f o ( ) ;
/ / - - S e l l C l i c k
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " S E L L " ) = = 0 ) / / O b j e c t I s P r e s e n t
{
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " S E L L " , O B J P R O P _ S T A T E ) )
{
/ / - - S e n d S e l l O r d e r
O r d e r S e n d ( O P _ S E L L ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S E L L " , O B J P R O P _ S T A T E , f a l s e ) ; / / R e s e t B u t t o n
}
}
/ / - - C l o s e C l i c k
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " C L O S E " ) = = 0 ) / / O b j e c t I s P r e s e n t
{
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " C L O S E " , O B J P R O P _ S T A T E ) )
{
/ / - - C l o s e O r d e r ( s )
O r d e r C l o s e ( ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " C L O S E " , O B J P R O P _ S T A T E , f a l s e ) ; / / R e s e t B u t t o n
}
}
/ / - - B u y C l i c k
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " B U Y " ) = = 0 ) / / O b j e c t I s P r e s e n t
{
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " B U Y " , O B J P R O P _ S T A T E ) )
{
/ / - - S e n d B u y O r d e r
O r d e r S e n d ( O P _ B U Y ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B U Y " , O B J P R O P _ S T A T E , f a l s e ) ; / / R e s e t B u t t o n
}
}
/ / - - M o v e C l i e n t
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " B C K G R N D [ ] " ) = = 0 ) / / O b j e c t I s P r e s e n t
{
/ / - - G e t C u r r e n t P o s
i n t b g _ x = ( i n t ) O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ X D I S T A N C E ) ;
i n t b g _ y = ( i n t ) O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ Y D I S T A N C E ) ;
/ / - - M o v e O b j e c t s
i f ( b g _ x ! = x 1 | | b g _ y ! = y 1 )
{
G e t S e t C o o r d i n a t e s ( ) ;
O b j e c t s M o v e A l l ( ) ;
}
}
/ / - - R e s e t P o s i t i o n
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " R E S E T " ) = = 0 ) / / O b j e c t I s P r e s e n t
{
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " R E S E T " , O B J P R O P _ S T A T E ) )
{
/ / - - M o v e O b j e c t
L a b e l M o v e ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , C L I E N T _ B G _ X , C L I E N T _ B G _ Y ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R E S E T " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " M O V E " , O B J P R O P _ S T A T E ) )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " M O V E " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | O r d e r S e n d |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O r d e r S e n d ( c o n s t i n t T y p e )
{
/ / - -
i n t o p _ t k t = 0 ;
u i n t t i c k = 0 ;
u i n t e x _ t i m e = 0 ;
/ / - -
d o u b l e r q _ p r i c e = 0 ;
d o u b l e s l i p p a g e = 0 ;
/ / - - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - - C h e c k O r d S e n d R e q u i r e m e n t s
i f ( I s T r a d e A l l o w e d ( ) & & ! I s T r a d e C o n t e x t B u s y ( ) & & I s C o n n e c t e d ( ) )
{
/ / - - S e l l O r d e r s
i f ( T y p e = = O P _ S E L L )
{
/ / - - E n o u g h M a r g i n
i f ( A c c o u n t F r e e M a r g i n C h e c k ( _ S y m b o l , O P _ S E L L , L o t S i z e ) > = 0 )
{
/ / - - C o r r e c t L o t S i z e ( R o u n d e d b y G e t S e t I n p u t s )
i f ( L o t S i z e > = M i n L o t & & L o t S i z e < = M a x L o t )
{
t i c k = G e t T i c k C o u n t ( ) ; / / G e t T i m e
r q _ p r i c e = M a r k e t I n f o ( _ S y m b o l , M O D E _ B I D ) ; / / G e t P r i c e
o p _ t k t = O r d e r S e n d ( _ S y m b o l , O P _ S E L L , L o t S i z e , r q _ p r i c e , S l i p p a g e , 0 , 0 , E x p e r t N a m e , 0 , 0 , C O L O R _ S E L L ) ; / / S e n d O r d e r
}
e l s e
{
/ / - - E r r o r
P r i n t ( " O r d e r S e n d f a i l e d w i t h e r r o r # 1 3 1 [ I n v a l i d t r a d e v o l u m e ] " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
/ / - -
S l e e p ( E r r o r I n t e r v a l ) ;
r e t u r n ;
}
/ / - -
i f ( o p _ t k t < 0 )
{
/ / - - E r r o r
P r i n t ( " O r d e r S e n d f a i l e d w i t h e r r o r # " , _ L a s t E r r o r ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
/ / - -
S l e e p ( E r r o r I n t e r v a l ) ;
r e t u r n ;
}
e l s e
{
/ / - - S u c c e e d e d
e x _ t i m e = G e t T i c k C o u n t ( ) - t i c k ; / / C a l c E x e T i m e
s l i p p a g e = ( P r i c e B y T k t ( O P E N P R I C E , o p _ t k t ) - r q _ p r i c e ) / _ P o i n t ; / / C a l c S l i p p a g e
P r i n t ( " O r d e r S e n d p l a c e d s u c c e s s f u l l y ( O p e n S e l l ) " + " # " + I n t e g e r T o S t r i n g ( o p _ t k t ) + " | E x e c u c t i o n T i m e : " + I n t e g e r T o S t r i n g ( e x _ t i m e ) + " m s " + " | S l i p p a g e : " + D o u b l e T o S t r i n g ( s l i p p a g e , 0 ) + " p " ) ;
_ P l a y S o u n d ( " s e l l . w a v " ) ;
/ / - - S L
i f ( S t o p L o s s > 0 & & S t o p L o s s > = M i n S t o p )
{
i f ( O r d e r S e l e c t ( o p _ t k t , S E L E C T _ B Y _ T I C K E T , M O D E _ T R A D E S ) )
{
i f ( ! O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , O r d e r O p e n P r i c e ( ) + S t o p L o s s * _ P o i n t , O r d e r T a k e P r o f i t ( ) , 0 , C O L O R _ S E L L ) )
{
/ / - - E r r o r
P r i n t ( " E r r o r i n O r d e r M o d i f y . E r r o r c o d e = " , _ L a s t E r r o r ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( E r r o r I n t e r v a l ) ;
}
e l s e
{
/ / - - S u c c e e d e d
/ / P r i n t ( " O r d e r m o d i f i e d s u c c e s s f u l l y " ) ;
}
}
}
/ / - - T P
i f ( T a k e P r o f i t > 0 & & T a k e P r o f i t > = M i n S t o p )
{
i f ( O r d e r S e l e c t ( o p _ t k t , S E L E C T _ B Y _ T I C K E T , M O D E _ T R A D E S ) )
{
i f ( ! O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , O r d e r S t o p L o s s ( ) , O r d e r O p e n P r i c e ( ) - T a k e P r o f i t * _ P o i n t , 0 , C O L O R _ B U Y ) )
{
/ / - - E r r o r
P r i n t ( " E r r o r i n O r d e r M o d i f y . E r r o r c o d e = " , _ L a s t E r r o r ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( E r r o r I n t e r v a l ) ;
}
e l s e
{
/ / - - S u c c e e d e d
/ / P r i n t ( " O r d e r m o d i f i e d s u c c e s s f u l l y " ) ; * /
}
}
}
}
/ / - -
}
e l s e
{
/ / - - N o t E n o u g h M o n e y
P r i n t ( " ' " , A c c o u n t N u m b e r ( ) , " ' : " , " o r d e r # 0 s e l l " , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) , " " , _ S y m b o l , " [ N o t e n o u g h m o n e y ] " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
}
/ / - -
}
/ / - - B u y O r d e r s
i f ( T y p e = = O P _ B U Y )
{
/ / - - E n o u g h M a r g i n
i f ( A c c o u n t F r e e M a r g i n C h e c k ( _ S y m b o l , O P _ B U Y , L o t S i z e ) > = 0 )
{
/ / - - C o r r e c t L o t S i z e ( R o u n d e d b y G e t S e t I n p u t s )
i f ( L o t S i z e > = M i n L o t & & L o t S i z e < = M a x L o t )
{
t i c k = G e t T i c k C o u n t ( ) ; / / G e t T i m e
r q _ p r i c e = M a r k e t I n f o ( _ S y m b o l , M O D E _ A S K ) ; / / G e t P r i c e
o p _ t k t = O r d e r S e n d ( _ S y m b o l , O P _ B U Y , L o t S i z e , r q _ p r i c e , S l i p p a g e , 0 , 0 , E x p e r t N a m e , 0 , 0 , C O L O R _ B U Y ) ; / / S e n d O r d e r
}
e l s e
{
/ / - - E r r o r
P r i n t ( " O r d e r S e n d f a i l e d w i t h e r r o r # 1 3 1 [ I n v a l i d t r a d e v o l u m e ] " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
/ / - -
S l e e p ( E r r o r I n t e r v a l ) ;
r e t u r n ;
}
/ / - -
i f ( o p _ t k t < 0 )
{
/ / - - E r r o r
P r i n t ( " O r d e r S e n d f a i l e d w i t h e r r o r # " , _ L a s t E r r o r ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
/ / - -
S l e e p ( E r r o r I n t e r v a l ) ;
r e t u r n ;
}
e l s e
{
/ / - - S u c c e e d e d
e x _ t i m e = G e t T i c k C o u n t ( ) - t i c k ; / / C a l c E x e T i m e
s l i p p a g e = ( r q _ p r i c e - P r i c e B y T k t ( O P E N P R I C E , o p _ t k t ) ) / _ P o i n t ; / / C a l c S l i p p a g e
P r i n t ( " O r d e r S e n d p l a c e d s u c c e s s f u l l y ( O p e n B u y ) " + " # " + I n t e g e r T o S t r i n g ( o p _ t k t ) + " | E x e c u c t i o n T i m e : " + I n t e g e r T o S t r i n g ( e x _ t i m e ) + " m s " + " | S l i p p a g e : " + D o u b l e T o S t r i n g ( s l i p p a g e , 0 ) + " p " ) ;
_ P l a y S o u n d ( " b u y . w a v " ) ;
/ / - - S L
i f ( S t o p L o s s > 0 & & S t o p L o s s > = M i n S t o p )
{
i f ( O r d e r S e l e c t ( o p _ t k t , S E L E C T _ B Y _ T I C K E T , M O D E _ T R A D E S ) )
{
i f ( ! O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , O r d e r O p e n P r i c e ( ) - S t o p L o s s * _ P o i n t , O r d e r T a k e P r o f i t ( ) , 0 , C O L O R _ S E L L ) )
{
/ / - - E r r o r
P r i n t ( " E r r o r i n O r d e r M o d i f y . E r r o r c o d e = " , _ L a s t E r r o r ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( E r r o r I n t e r v a l ) ;
}
e l s e
{
/ / - - S u c c e e d e d
/ / P r i n t ( " O r d e r m o d i f i e d s u c c e s s f u l l y " ) ;
}
}
}
/ / - - T P
i f ( T a k e P r o f i t > 0 & & T a k e P r o f i t > = M i n S t o p )
{
i f ( O r d e r S e l e c t ( o p _ t k t , S E L E C T _ B Y _ T I C K E T , M O D E _ T R A D E S ) )
{
i f ( ! O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , O r d e r S t o p L o s s ( ) , O r d e r O p e n P r i c e ( ) + T a k e P r o f i t * _ P o i n t , 0 , C O L O R _ B U Y ) )
{
/ / - - E r r o r
P r i n t ( " E r r o r i n O r d e r M o d i f y . E r r o r c o d e = " , _ L a s t E r r o r ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( E r r o r I n t e r v a l ) ;
}
e l s e
{
/ / - - S u c c e e d e d
/ / P r i n t ( " O r d e r m o d i f i e d s u c c e s s f u l l y " ) ;
}
}
}
}
/ / - -
}
e l s e
{
/ / - - N o t E n o u g h M o n e y
P r i n t ( " ' " , A c c o u n t N u m b e r ( ) , " ' : " , " o r d e r # 0 b u y " , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) , " " , _ S y m b o l , " [ N o t e n o u g h m o n e y ] " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
}
/ / - -
}
}
e l s e
{
/ / - - R e q u i r e m e n t s N o t F u l f i l l e d
i f ( ! I s C o n n e c t e d ( ) )
P r i n t ( " N o I n t e r n e t c o n n e c t i o n f o u n d ! P l e a s e c h e c k y o u r n e t w o r k c o n n e c t i o n a n d t r y a g a i n . " ) ;
i f ( I s T r a d e C o n t e x t B u s y ( ) )
P r i n t ( " T r a d e c o n t e x t i s b u s y , P l e a s e w a i t . . . " ) ;
i f ( ! I s T r a d e A l l o w e d ( ) )
P r i n t ( " C h e c k i f a u t o m a t e d t r a d i n g i s a l l o w e d i n t h e t e r m i n a l / p r o g r a m s e t t i n g s a n d t r y a g a i n . " ) ;
/ / - -
_ P l a y S o u n d ( E r r o r S o u n d ) ;
/ / - -
S l e e p ( E r r o r I n t e r v a l ) ;
r e t u r n ;
/ / - -
}
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | O r d e r C l o s e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O r d e r C l o s e ( )
{
/ / - -
d o u b l e o r d p r o f i t = 0 ;
d o u b l e o r d l o t s = 0 ;
/ / - -
i n t c _ t k t = 0 ;
i n t o r d t y p e = 0 ;
u i n t t i c k = 0 ;
u i n t e x _ t i m e = 0 ;
/ / - -
d o u b l e r q _ p r i c e = 0 ;
d o u b l e s l i p p a g e = 0 ;
/ / - -
s t r i n g o r d t y p e s t r = " " ;
/ / - - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - - C h e c k O r d C l o s e R e q u i r e m e n t s
i f ( I s T r a d e A l l o w e d ( ) & & ! I s T r a d e C o n t e x t B u s y ( ) & & I s C o n n e c t e d ( ) )
{
/ / - - S e l e c t O r d e r
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) )
{
i f ( O r d e r S y m b o l ( ) = = _ S y m b o l & & O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
i f ( O r d e r T y p e ( ) < = O P _ S E L L ) / / M a r k e t O r d e r s O n l y
{
/ / - -
o r d p r o f i t = O r d e r P r o f i t ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r S w a p ( ) ; / / G e t P t o f i t
o r d l o t s = ( C l o s e M o d e = = C L O S E P A R T I A L ) ? o r d l o t s = L o t S i z e I n p : O r d e r L o t s ( ) ; / / S e t L o t s
i f ( o r d l o t s > O r d e r L o t s ( ) )
o r d l o t s = O r d e r L o t s ( ) ;
/ / - -
i f ( ( C l o s e M o d e = = C L O S E A L L ) | | ( C l o s e M o d e = = C L O S E L A S T ) | | ( C l o s e M o d e = = C L O S E P R O F I T & & o r d p r o f i t > 0 ) | | ( C l o s e M o d e = = C L O S E L O S S & & o r d p r o f i t < 0 ) | | ( C l o s e M o d e = = C L O S E P A R T I A L ) )
{
t i c k = G e t T i c k C o u n t ( ) ;
r q _ p r i c e = O r d e r C l o s e P r i c e ( ) ;
c _ t k t = O r d e r T i c k e t ( ) ;
o r d t y p e = O r d e r T y p e ( ) ;
o r d t y p e s t r = ( O r d e r T y p e ( ) = = O P _ S E L L ) ? o r d t y p e s t r = " S e l l " : o r d t y p e s t r = " B u y " ;
/ / - -
i f ( ! O r d e r C l o s e ( O r d e r T i c k e t ( ) , o r d l o t s , r q _ p r i c e , 0 , C O L O R _ C L O S E ) )
{
/ / - - E r r o r
P r i n t ( " O r d e r C l o s e f a i l e d w i t h e r r o r # " , _ L a s t E r r o r ) ;
S l e e p ( E r r o r I n t e r v a l ) ;
r e t u r n ;
}
e l s e
{
/ / - - S u c c e e d e d
e x _ t i m e = G e t T i c k C o u n t ( ) - t i c k ; / / C a l c E x e T i m e
s l i p p a g e = ( o r d t y p e = = O P _ S E L L ) ? ( P r i c e B y T k t ( C L O S E P R I C E , c _ t k t ) - r q _ p r i c e ) / _ P o i n t : ( r q _ p r i c e - P r i c e B y T k t ( C L O S E P R I C E , c _ t k t ) ) / _ P o i n t ; / / C a l c S l i p p a g e
P r i n t ( " O r d e r c l o s e d s u c c e s s f u l l y " + " ( C l o s e " + o r d t y p e s t r + " ) " + " # " + I n t e g e r T o S t r i n g ( c _ t k t ) + " | E x e c u c t i o n T i m e : " + I n t e g e r T o S t r i n g ( e x _ t i m e ) + " m s " + " | " + " S l i p p a g e : " + D o u b l e T o S t r i n g ( s l i p p a g e , 0 ) + " p " ) ;
_ P l a y S o u n d ( " c l o s e . w a v " ) ;
/ / - -
i f ( C l o s e M o d e = = C L O S E L A S T | | C l o s e M o d e = = C L O S E P A R T I A L )
b r e a k ;
}
}
/ / - -
}
}
}
}
/ / - -
}
e l s e
{
/ / - - R e q u i r e m e n t s N o t F u l f i l l e d
i f ( ! I s C o n n e c t e d ( ) )
P r i n t ( " N o I n t e r n e t c o n n e c t i o n f o u n d ! P l e a s e c h e c k y o u r n e t w o r k c o n n e c t i o n a n d t r y a g a i n . " ) ;
i f ( I s T r a d e C o n t e x t B u s y ( ) )
P r i n t ( " T r a d e c o n t e x t i s b u s y , P l e a s e w a i t . . . " ) ;
i f ( ! I s T r a d e A l l o w e d ( ) )
P r i n t ( " C h e c k i f a u t o m a t e d t r a d i n g i s a l l o w e d i n t h e t e r m i n a l / p r o g r a m s e t t i n g s a n d t r y a g a i n . " ) ;
/ / - -
_ P l a y S o u n d ( E r r o r S o u n d ) ;
/ / - -
S l e e p ( E r r o r I n t e r v a l ) ;
r e t u r n ;
}
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | O p e n P o s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t O p e n P o s ( c o n s t i n t T y p e )
{
/ / - -
i n t c o u n t = 0 ;
/ / - -
f o r ( i n t i = 0 ; i < O r d e r s T o t a l ( ) ; i + + )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) )
{
i f ( O r d e r S y m b o l ( ) = = _ S y m b o l & & O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
i f ( O r d e r T y p e ( ) = = O P _ S E L L & & T y p e = = O P _ S E L L )
c o u n t + + ;
i f ( O r d e r T y p e ( ) = = O P _ B U Y & & T y p e = = O P _ B U Y )
c o u n t + + ;
i f ( O r d e r T y p e ( ) < = O P _ S E L L & & T y p e = = O P _ A L L )
c o u n t + + ;
}
}
}
r e t u r n ( c o u n t ) ;
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | Ø O p e n P r i c e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e Ø O p e n P r i c e ( )
{
/ / - -
d o u b l e o r d l o t s = 0 ;
d o u b l e p r i c e = 0 ;
d o u b l e a v g p r i c e = 0 ;
/ / - -
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) )
{
i f ( O r d e r S y m b o l ( ) = = _ S y m b o l & & O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
i f ( O r d e r T y p e ( ) < = O P _ S E L L ) / / M a r k e t O r d e r s O n l y
{
o r d l o t s + = O r d e r L o t s ( ) ;
p r i c e + = O r d e r L o t s ( ) * O r d e r O p e n P r i c e ( ) ;
}
}
}
}
/ / - - C a l c A v g P r i c e
a v g p r i c e = p r i c e / o r d l o t s ;
/ / - -
r e t u r n ( a v g p r i c e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | F l o a t i n g P r o f i t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e F l o a t i n g P r o f i t s ( )
{
/ / - -
d o u b l e p r o f i t = 0 ;
/ / - -
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) )
{
i f ( O r d e r S y m b o l ( ) = = _ S y m b o l & & O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
i f ( O r d e r T y p e ( ) < = O P _ S E L L ) / / M a r k e t O r d e r s O n l y
{
p r o f i t + = O r d e r P r o f i t ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r S w a p ( ) ;
}
}
}
}
r e t u r n ( p r o f i t ) ;
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | F l o a t i n g P o i n t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e F l o a t i n g P o i n t s ( )
{
/ / - -
d o u b l e s e l l p t s = 0 ;
d o u b l e b u y p t s = 0 ;
/ / - -
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) )
{
i f ( O r d e r S y m b o l ( ) = = _ S y m b o l & & O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
i f ( O r d e r T y p e ( ) = = O P _ S E L L )
s e l l p t s + = ( O r d e r O p e n P r i c e ( ) - O r d e r C l o s e P r i c e ( ) ) / _ P o i n t ;
i f ( O r d e r T y p e ( ) = = O P _ B U Y )
b u y p t s + = ( O r d e r C l o s e P r i c e ( ) - O r d e r O p e n P r i c e ( ) ) / _ P o i n t ;
}
}
}
r e t u r n ( s e l l p t s + b u y p t s ) ;
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | D a i l y P r o f i t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e D a i l y P r o f i t s ( )
{
/ / - -
d o u b l e p r o f i t = 0 ;
/ / - -
f o r ( i n t i = O r d e r s H i s t o r y T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ H I S T O R Y ) )
{
i f ( O r d e r S y m b o l ( ) = = _ S y m b o l & & O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
i f ( O r d e r T y p e ( ) < = O P _ S E L L ) / / M a r k e t O r d e r s O n l y
{
i f ( T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) = = T i m e T o S t r i n g ( O r d e r C l o s e T i m e ( ) , T I M E _ D A T E ) )
p r o f i t + = O r d e r P r o f i t ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r S w a p ( ) ;
}
}
}
}
r e t u r n ( p r o f i t ) ;
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | D a i l y P o i n t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e D a i l y P o i n t s ( )
{
/ / - -
d o u b l e s e l l p t s = 0 ;
d o u b l e b u y p t s = 0 ;
/ / - -
f o r ( i n t i = O r d e r s H i s t o r y T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ H I S T O R Y ) )
{
i f ( O r d e r S y m b o l ( ) = = _ S y m b o l & & O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
i f ( O r d e r T y p e ( ) < = O P _ S E L L ) / / M a r k e t O r d e r s O n l y
{
i f ( T i m e T o S t r ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) = = T i m e T o S t r i n g ( O r d e r C l o s e T i m e ( ) , T I M E _ D A T E ) )
{
i f ( O r d e r T y p e ( ) = = O P _ S E L L )
s e l l p t s + = ( O r d e r O p e n P r i c e ( ) - O r d e r C l o s e P r i c e ( ) ) / _ P o i n t ;
i f ( O r d e r T y p e ( ) = = O P _ B U Y )
b u y p t s + = ( O r d e r C l o s e P r i c e ( ) - O r d e r O p e n P r i c e ( ) ) / _ P o i n t ;
}
}
}
}
}
r e t u r n ( s e l l p t s + b u y p t s ) ;
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | D a i l y R e t u r n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e D a i l y R e t u r n ( )
{
/ / - -
d o u b l e p e r c e n t = 0 ;
d o u b l e s t a r t b a l = 0 ;
/ / - - G e t S t a r t B a l a n c e
s t a r t b a l = ( D a i l y P r o f i t s ( ) > 0 ) ? A c c o u n t B a l a n c e ( ) - D a i l y P r o f i t s ( ) : A c c o u n t B a l a n c e ( ) + M a t h A b s ( D a i l y P r o f i t s ( ) ) ;
/ / - - C a l c R e t u r n ( R O I )
i f ( s t a r t b a l ! = 0 ) / / A v o i d Z e r o D i v i d e
p e r c e n t = D a i l y P r o f i t s ( ) * 1 0 0 / s t a r t b a l ;
/ / - -
r e t u r n ( p e r c e n t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | P r i c e B y T k t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e P r i c e B y T k t ( c o n s t i n t T y p e , c o n s t i n t T i c k e t )
{
/ / - -
d o u b l e p r i c e = 0 ;
/ / - -
i f ( O r d e r S e l e c t ( T i c k e t , S E L E C T _ B Y _ T I C K E T , M O D E _ T R A D E S ) )
{
i f ( T y p e = = O P E N P R I C E )
p r i c e = O r d e r O p e n P r i c e ( ) ;
i f ( T y p e = = C L O S E P R I C E )
p r i c e = O r d e r C l o s e P r i c e ( ) ;
}
/ / - -
r e t u r n ( p r i c e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | G e t S e t I n p u t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d G e t S e t I n p u t s ( )
{
/ / - - G e t M a r k e t I n f o
L o t S t e p = M a r k e t I n f o ( _ S y m b o l , M O D E _ L O T S T E P ) ;
M i n L o t = M a r k e t I n f o ( _ S y m b o l , M O D E _ M I N L O T ) ;
M a x L o t = M a r k e t I n f o ( _ S y m b o l , M O D E _ M A X L O T ) ;
M i n S t o p = M a r k e t I n f o ( _ S y m b o l , M O D E _ S T O P L E V E L ) ;
/ / - - G e t L o t S i z e I n p u t
L o t S i z e I n p = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T ) ) ; / * S e t O b j e c t * /
/ / - - R o u n d L o t S i z e
L o t S i z e = L o t S i z e I n p ;
L o t S i z e = M a t h R o u n d ( L o t S i z e / L o t S t e p ) * L o t S t e p ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) ) ; / * S e t O b j e c t * /
/ / - - W r o n g L o t S i z e
i f ( L o t S i z e < = M i n L o t )
{
L o t S i z e = M i n L o t ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) ) ; / * S e t O b j e c t * /
}
/ / - -
i f ( L o t S i z e > = M a x L o t )
{
L o t S i z e = M a x L o t ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) ) ; / * S e t O b j e c t * /
}
/ / - - G e t S L I n p u t
S t o p L o s s I n p = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " S L < > " , O B J P R O P _ T E X T ) ) ; / * G e t O b j e c t * /
/ / - - W r o n g S L
i f ( S t o p L o s s I n p < 0 | | S t o p L o s s I n p < M i n S t o p )
{
S t o p L o s s = 0 ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S L < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( S t o p L o s s , 0 ) ) ; / * S e t O b j e c t * /
}
e l s e
{
S t o p L o s s = S t o p L o s s I n p ;
}
/ / - - G e t T P I n p u t
T a k e P r o f i t I n p = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " T P < > " , O B J P R O P _ T E X T ) ) ; / * G e t O b j e c t * /
/ / - - W r o n g T P
i f ( T a k e P r o f i t I n p < 0 | | T a k e P r o f i t I n p < M i n S t o p )
{
T a k e P r o f i t = 0 ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " T P < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( T a k e P r o f i t , 0 ) ) ; / * S e t O b j e c t * /
}
e l s e
{
T a k e P r o f i t = T a k e P r o f i t I n p ;
}
/ / - - S y m b o l C h a n g e r
S y m b o l I n p = O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L ¤ " , O B J P R O P _ T E X T ) ; / / G e t S y m b o l I n p u t
i f ( S y m b o l I n p ! = " " & & _ S y m b o l ! = S y m b o l I n p )
{
i f ( S y m b o l F i n d ( S y m b o l I n p ) )
{
C h a r t S e t S y m b o l P e r i o d ( 0 , S y m b o l I n p , P E R I O D _ C U R R E N T ) ; / / S e t C h a r t
}
e l s e
{
/ / - - W r o n g S y m b o l I n p u t
M e s s a g e B o x ( " W a r n i n g : S y m b o l " + S y m b o l I n p + " c o u l d n ' t b e f o u n d ! \ n \ n M a k e s u r e i t i s a v a i l a b l e i n t h e s y m b o l l i s t . \ n ( V i e w - > S y m b o l s / C t r l + U ) " ,
M B _ C A P T I O N , M B _ O K | M B _ I C O N W A R N I N G ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L ¤ " , O B J P R O P _ T E X T , _ S y m b o l ) ; / / R e s e t
}
}
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S y m b o l I n f o |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d S y m b o l I n f o ( )
{
/ / - - S e t O b j e c t s
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " A S K " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( M a r k e t I n f o ( _ S y m b o l , M O D E _ A S K ) , _ D i g i t s ) ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " B I D " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( M a r k e t I n f o ( _ S y m b o l , M O D E _ B I D ) , _ D i g i t s ) ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " U P T I C K S " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( U p T i c k s , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " D W N T I C K S " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( D w n T i c k s , 0 ) ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " T I M E R " , O B J P R O P _ T E X T , " - - > " + T i m e T o S t r i n g ( T i m e [ 0 ] + P e r i o d ( ) * 6 0 - T i m e C u r r e n t ( ) , T I M E _ M I N U T E S | T I M E _ S E C O N D S ) ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S P R E A D " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( M a r k e t I n f o ( _ S y m b o l , M O D E _ S P R E A D ) , 0 ) + " p " ) ;
/ / - - G e t O p e n & C l o s e
d o u b l e d a y o p e n = i O p e n ( N U L L , P E R I O D _ D 1 , 0 ) ;
d o u b l e d a y c l o s e = i C l o s e ( N U L L , P E R I O D _ D 1 , 0 ) ;
/ / - - A v o i d Z e r o D i v i d e
i f ( d a y c l o s e ! = 0 )
{
/ / - - C a l c P e r c e n t a g e
d o u b l e s y m b o l _ p = N o r m a l i z e D o u b l e ( ( d a y c l o s e - d a y o p e n ) / d a y c l o s e * 1 0 0 , 2 ) ;
/ / - - P o s i t i v e V a l u e
i f ( s y m b o l _ p > 0 )
{
/ / - - S e t O b j e c t s
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L § " , O B J P R O P _ T E X T , 0 , " é " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L § " , O B J P R O P _ C O L O R , ± C l r ( s y m b o l _ p ) ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L % " , O B J P R O P _ T E X T , 0 , ± S t r ( s y m b o l _ p , 2 ) + " % " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L % " , O B J P R O P _ C O L O R , ± C l r ( s y m b o l _ p ) ) ;
}
/ / - - N e g a t i v e V a l u e
i f ( s y m b o l _ p < 0 )
{
/ / - - S e t O b j e c t s
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L § " , O B J P R O P _ T E X T , 0 , " ê " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L § " , O B J P R O P _ C O L O R , ± C l r ( s y m b o l _ p ) ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L % " , O B J P R O P _ T E X T , 0 , ± S t r ( s y m b o l _ p , 2 ) + " % " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L % " , O B J P R O P _ C O L O R , ± C l r ( s y m b o l _ p ) ) ;
}
/ / - - N e u t r a l V a l u e
i f ( s y m b o l _ p = = 0 )
{
/ / - - S e t O b j e c t s
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L § " , O B J P R O P _ T E X T , 0 , " è " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L % " , O B J P R O P _ C O L O R , ± C l r ( s y m b o l _ p ) ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L % " , O B J P R O P _ T E X T , 0 , ± S t r ( s y m b o l _ p , 2 ) + " % " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L § " , O B J P R O P _ C O L O R , ± C l r ( s y m b o l _ p ) ) ;
}
}
/ / - - R e s e t C u m u l a t e d T i c k s
R e s e t T i c k s ( ) ;
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S p e e d o m e t e r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d S p e e d o m e t e r ( )
{
/ / - - C a l c S p e e d
d o u b l e L a s t P r i c e = A v g P r i c e / _ P o i n t ;
d o u b l e C u r r e n t P r i c e = ( ( M a r k e t I n f o ( _ S y m b o l , M O D E _ A S K ) + M a r k e t I n f o ( _ S y m b o l , M O D E _ B I D ) ) / 2 ) / _ P o i n t ;
d o u b l e S p e e d = N o r m a l i z e D o u b l e ( ( C u r r e n t P r i c e - L a s t P r i c e ) , 0 ) ;
A v g P r i c e = ( M a r k e t I n f o ( _ S y m b o l , M O D E _ A S K ) + M a r k e t I n f o ( _ S y m b o l , M O D E _ B I D ) ) / 2 ;
/ / - - S e t M a x S p e e d
i f ( S p e e d > 9 9 )
S p e e d = 9 9 ;
/ / - - R e s e t C o l o r s
f o r ( i n t i = 0 ; i < ( M a x S p e e d B a r s ) ; i + + )
{
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D # " + I n t e g e r T o S t r i n g ( i , 0 , 0 ) , O B J P R O P _ C O L O R , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D ª " , O B J P R O P _ C O L O R , c l r N O N E ) ;
}
/ / - - S e t C o l o r & T e x t
f o r ( i n t i = 0 ; i < M a t h A b s ( S p e e d ) ; i + + )
{
/ / - - P o s i t i v e V a l u e
i f ( S p e e d > 0 )
{
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D # " + I n t e g e r T o S t r i n g ( i , 0 , 0 ) , O B J P R O P _ C O L O R , C O L O R _ B U Y ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D ª " , O B J P R O P _ C O L O R , C O L O R _ B U Y ) ;
/ / - -
U p T i c k s + = S p e e d ; / / C u m u l a t e d
}
/ / - - N e g a t i v e V a l u e
i f ( S p e e d < 0 )
{
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D # " + I n t e g e r T o S t r i n g ( i , 0 , 0 ) , O B J P R O P _ C O L O R , C O L O R _ S E L L ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D ª " , O B J P R O P _ C O L O R , C O L O R _ S E L L ) ;
/ / - -
D w n T i c k s + = M a t h A b s ( S p e e d ) ; / / C u m u l a t e d
}
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S P E E D ª " , O B J P R O P _ T E X T , 0 , ± S t r ( S p e e d , 0 ) ) ; / / S e t O b j e c t
}
/ / - - I s P l a y T i c k S o u n d
i f ( P l a y T i c k s )
{
/ / - - S e t W a v F i l e
s t r i n g S p e e d T o S t r = " " ;
/ / - - P o s i t i v e V a l u e
i f ( S p e e d > 0 )
{
S p e e d T o S t r = " + " + D o u b l e T o S t r i n g ( M a t h M i n ( S p e e d , 1 0 ) , 0 ) ;
}
/ / - - N e g a t i v e V a l u e
e l s e
{
S p e e d T o S t r = " " + D o u b l e T o S t r i n g ( M a t h M a x ( S p e e d , - 1 0 ) , 0 ) ;
}
/ / - -
_ P l a y S o u n d ( " T i c k " + S p e e d T o S t r + " . w a v " ) ;
}
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | A c c A n d T r a d e I n f o |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d A c c A n d T r a d e I n f o ( )
{
/ / - - Z e r o O r d e r s
i f ( O p e n P o s ( O P _ A L L ) = = 0 )
{
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R O I ª " , O B J P R O P _ C O L O R , ± C l r ( D a i l y P r o f i t s ( ) ) ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R O I § " , O B J P R O P _ C O L O R , ± C l r ( D a i l y P r o f i t s ( ) ) ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " R O I % " , O B J P R O P _ T E X T , ± S t r ( D a i l y R e t u r n ( ) , 2 ) + " % " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R O I % " , O B J P R O P _ C O L O R , ± C l r ( D a i l y R e t u r n ( ) ) ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R O F I T S " , O B J P R O P _ T E X T , ± S t r ( D a i l y P r o f i t s ( ) , 2 ) + _ A c c o u n t C u r r e n c y ( ) ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R O F I T S " , O B J P R O P _ C O L O R , ± C l r ( D a i l y P r o f i t s ( ) ) ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P O I N T S " , O B J P R O P _ T E X T , ± S t r ( D a i l y P o i n t s ( ) , 0 ) + " p " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P O I N T S " , O B J P R O P _ C O L O R , ± C l r ( D a i l y P o i n t s ( ) ) ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " F L O A T ª " , O B J P R O P _ T E X T , " " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " F L O A T ª " , O B J P R O P _ C O L O R , c l r N O N E ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " F L O A T § " , O B J P R O P _ T E X T , " " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " F L O A T § " , O B J P R O P _ C O L O R , c l r N O N E ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " F L O A T $ " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( 0 , _ D i g i t s ) ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " F L O A T $ " , O B J P R O P _ C O L O R , c l r N O N E ) ;
}
/ / - - B u y O r d e r s
i f ( O p e n P o s ( O P _ B U Y ) > 0 & & O p e n P o s ( O P _ S E L L ) = = 0 )
{
/ / - - S e t O b j e c t s
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " F L O A T ª " , O B J P R O P _ T E X T , " ö " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " F L O A T ª " , O B J P R O P _ C O L O R , c l r D o d g e r B l u e ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " F L O A T § " , O B J P R O P _ T E X T , " B u y " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " F L O A T § " , O B J P R O P _ C O L O R , c l r D o d g e r B l u e ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " F L O A T $ " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( Ø O p e n P r i c e ( ) , _ D i g i t s ) ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " F L O A T $ " , O B J P R O P _ C O L O R , c l r D o d g e r B l u e ) ;
}
/ / - - S e l l O r d e r s
i f ( O p e n P o s ( O P _ S E L L ) > 0 & & O p e n P o s ( O P _ B U Y ) = = 0 )
{
/ / - - S e t O b j e c t s
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " F L O A T ª " , O B J P R O P _ T E X T , " ø " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " F L O A T ª " , O B J P R O P _ C O L O R , c l r O r a n g e R e d ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " F L O A T § " , O B J P R O P _ T E X T , " S e l l " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " F L O A T § " , O B J P R O P _ C O L O R , c l r O r a n g e R e d ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " F L O A T $ " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( Ø O p e n P r i c e ( ) , _ D i g i t s ) ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " F L O A T $ " , O B J P R O P _ C O L O R , c l r O r a n g e R e d ) ;
}
/ / - - B u y & S e l l O r d e r s ( H e d g e )
i f ( O p e n P o s ( O P _ B U Y ) > 0 & & O p e n P o s ( O P _ S E L L ) > 0 )
{
/ / - - S e t O b j e c t s
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " F L O A T ª " , O B J P R O P _ T E X T , " ô " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " F L O A T ª " , O B J P R O P _ C O L O R , C O L O R _ H E D G E ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " F L O A T § " , O B J P R O P _ T E X T , " H e d g e " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " F L O A T § " , O B J P R O P _ C O L O R , C O L O R _ H E D G E ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " F L O A T $ " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( Ø O p e n P r i c e ( ) , _ D i g i t s ) ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " F L O A T $ " , O B J P R O P _ C O L O R , C O L O R _ H E D G E ) ;
}
/ / - - A t L e a s t O n e O r d e r
i f ( O p e n P o s ( O P _ A L L ) > 0 )
{
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R O I ª " , O B J P R O P _ C O L O R , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R O I § " , O B J P R O P _ C O L O R , c l r N O N E ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R O I % " , O B J P R O P _ C O L O R , c l r N O N E ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R O F I T S " , O B J P R O P _ T E X T , ± S t r ( F l o a t i n g P r o f i t s ( ) , 2 ) + _ A c c o u n t C u r r e n c y ( ) ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R O F I T S " , O B J P R O P _ C O L O R , ± C l r ( F l o a t i n g P r o f i t s ( ) ) ) ;
/ / - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P O I N T S " , O B J P R O P _ T E X T , ± S t r ( F l o a t i n g P o i n t s ( ) , 0 ) + " p " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P O I N T S " , O B J P R O P _ C O L O R , ± C l r ( F l o a t i n g P o i n t s ( ) ) ) ;
}
/ / - - D i s p l a y O r d e r H i s t o r y
i f ( S h o w O r d H i s t o r y )
D r a w O r d H i s t o r y ( ) ;
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | G e t S e t C o o r d i n a t e s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d G e t S e t C o o r d i n a t e s ( )
{
/ / - -
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " B C K G R N D [ ] " ) ! = 0 ) / / O b j e c t N o t F o u n d
{
/ / - - D e l e t e O b j e c t s ( B a c k g r o u n d m u s t b e a t t h e b a c k )
f o r ( i n t i = 0 ; i < O b j e c t s T o t a l ( ) ; i + + )
{
/ / - - G e t O b j e c t N a m e
s t r i n g o b j _ n a m e = O b j e c t N a m e ( i ) ;
/ / - - P r e f i x O b j e c t F o u n d
i f ( S t r i n g S u b s t r ( o b j _ n a m e , 0 , S t r i n g L e n ( O B J P R E F I X ) ) = = O B J P R E F I X )
{
/ / - - D e l e t e O b j e c t s
i f ( O b j e c t s D e l e t e A l l ( 0 , O B J P R E F I X , - 1 , - 1 ) > 0 )
b r e a k ;
}
}
/ / - - G e t X Y V a l u e s ( S a v e d )
i f ( G l o b a l V a r i a b l e G e t ( E x p e r t N a m e + " - X " ) ! = 0 & & G l o b a l V a r i a b l e G e t ( E x p e r t N a m e + " - Y " ) ! = 0 )
{
x 1 = ( i n t ) G l o b a l V a r i a b l e G e t ( E x p e r t N a m e + " - X " ) ;
y 1 = ( i n t ) G l o b a l V a r i a b l e G e t ( E x p e r t N a m e + " - Y " ) ;
}
/ / - - S e t X Y V a l u e s ( D e f a u l t )
e l s e
{
x 1 = C L I E N T _ B G _ X ;
y 1 = C L I E N T _ B G _ Y ;
}
/ / - - C r e a t e O b j e c t ( B a c k g r o u n d )
R e c t L a b e l C r e a t e ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , 0 , x 1 , y 1 , x 2 , y 2 , C O L O R _ B G , B O R D E R _ F L A T , C O R N E R _ L E F T _ U P P E R , c l r O r a n g e , S T Y L E _ S O L I D , 1 , f a l s e , t r u e , t r u e , 0 , " \ n " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ S E L E C T E D , f a l s e ) ; / / U n s e l e c t O b j e c t
}
/ / - - G e t C o o r d i n a t e s
x 1 = ( i n t ) O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ X D I S T A N C E ) ;
y 1 = ( i n t ) O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ Y D I S T A N C E ) ;
/ / - - S e t C o m m o n A x i s
b u t t o n _ y = y 1 + y 2 - ( B U T T O N _ H E I G H T + B U T T O N _ G A P _ Y ) ;
i n p u t s _ y = b u t t o n _ y - B U T T O N _ H E I G H T - B U T T O N _ G A P _ Y ;
l a b e l _ y = i n p u t s _ y + E D I T _ H E I G H T / 2 ;
/ / - -
f r _ x = x 1 + S P E E D B A R _ G A P _ X ;
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e O b j e c t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O b j e c t s C r e a t e A l l ( )
{
/ / - -
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " R E S E T " , 0 , C L I E N T _ B G _ X , C L I E N T _ B G _ Y , 1 5 , 1 5 , C O R N E R _ L E F T _ U P P E R , " ° " , " W i n g d i n g s " , 1 0 , C O L O R _ F O N T , C O L O R _ M O V E , c l r O r a n g e , f a l s e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
R e c t L a b e l C r e a t e ( 0 , O B J P R E F I X + " B O R D E R [ ] " , 0 , x 1 , y 1 , x 2 , I N D E N T _ T O P , c l r O r a n g e , B O R D E R _ F L A T , C O R N E R _ L E F T _ U P P E R , c l r O r a n g e , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " C A P T I O N " , 0 , x 1 + ( x 2 / 2 ) , y 1 , C O R N E R _ L E F T _ U P P E R , " T r a d e P a n e l " , " C a l i b r i " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " E X I T " , 0 , ( x 1 + ( x 2 / 2 ) ) + 1 1 5 , y 1 - 2 , C O R N E R _ L E F T _ U P P E R , " r " , " W e b d i n g s " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - -
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " M O V E " , 0 , x 1 , y 1 , 1 5 , 1 5 , C O R N E R _ L E F T _ U P P E R , " ó " , " W i n g d i n g s " , 1 0 , C O L O R _ F O N T , C O L O R _ M O V E , c l r D a r k O r a n g e , f a l s e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " C O N N E C T I O N " , 0 , ( x 1 + ( x 2 / 2 ) ) - 9 7 , y 1 - 2 , C O R N E R _ L E F T _ U P P E R , " ü " , " W e b d i n g s " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 0 , " " , f a l s e ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T H E M E " , 0 , ( x 1 + ( x 2 / 2 ) ) - 7 2 , y 1 - 4 , C O R N E R _ L E F T _ U P P E R , " N " , " W e b d i n g s " , 1 5 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " P A I N T " , 0 , ( x 1 + ( x 2 / 2 ) ) - 4 8 , y 1 , C O R N E R _ L E F T _ U P P E R , " $ " , " W i n g d i n g s 2 " , 1 3 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " P L A Y " , 0 , ( x 1 + ( x 2 / 2 ) ) + 7 5 , y 1 - 5 , C O R N E R _ L E F T _ U P P E R , " 4 " , " W e b d i n g s " , 1 5 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " C A N D L E S ¦ " , 0 , ( x 1 + ( x 2 / 2 ) ) + 9 7 , y 1 - 6 , C O R N E R _ L E F T _ U P P E R , " ß " , " W e b d i n g s " , 1 5 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S O U N D " , 0 , ( x 1 + ( x 2 / 2 ) ) + 5 0 , y 1 - 2 , C O R N E R _ L E F T _ U P P E R , " X " , " W e b d i n g s " , 1 2 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S O U N D I O " , 0 , ( x 1 + ( x 2 / 2 ) ) + 6 0 , y 1 - 1 , C O R N E R _ L E F T _ U P P E R , " ð " , " W e b d i n g s " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - -
E d i t C r e a t e ( 0 , O B J P R E F I X + " S Y M B O L ¤ " , 0 , x 1 + B U T T O N _ G A P _ X , y 1 + I N D E N T _ T O P + B U T T O N _ G A P _ X , E D I T _ W I D T H , E D I T _ H E I G H T , _ S y m b o l , " T r e b u c h e t M S " , 1 0 , A L I G N _ C E N T E R , f a l s e , C O R N E R _ L E F T _ U P P E R , C O L O R _ F O N T , C O L O R _ B G , c l r D i m G r a y , f a l s e , f a l s e , t r u e , 0 ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S Y M B O L § " , 0 , x 1 + 1 0 0 , y 1 + 2 7 , C O R N E R _ L E F T _ U P P E R , " " , " W i n g d i n g s " , 1 2 , c l r L i m e G r e e n , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S Y M B O L % " , 0 , x 1 + 1 4 5 , y 1 + 2 7 , C O R N E R _ L E F T _ U P P E R , " " , " A r i a l B l a c k " , 8 , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S P E E D ª " , 0 , x 1 + S P E E D T E X T _ G A P _ X , y 1 + S P E E D T E X T _ G A P _ Y , C O R N E R _ L E F T _ U P P E R , " " , " T a h o m a " , 1 2 , c l r N O N E , 0 . 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " C L O S E ¹ ² ³ " , 0 , ( x 1 + B U T T O N _ G A P _ X ) + 3 7 , ( y 1 + I N D E N T _ T O P + B U T T O N _ G A P _ X ) + 2 7 , C O R N E R _ L E F T _ U P P E R , C l o s e A r r [ C l o s e M o d e ] , " A r i a l " , 6 , C O L O R _ F O N T , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S P R E A D " , 0 , x 1 + 9 0 , y 1 + 5 5 , C O R N E R _ L E F T _ U P P E R , " " , " A r i a l " , 8 , C O L O R _ F O N T , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S P R E A D § " , 0 , x 1 + 1 1 0 , y 1 + 5 5 , C O R N E R _ L E F T _ U P P E R , " h " , " W i n g d i n g s " , 1 2 , C O L O R _ F O N T , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
R e c t L a b e l C r e a t e ( 0 , O B J P R E F I X + " A S K [ ] " , 0 , x 1 + 1 5 5 , y 1 + 4 1 , 8 5 , 1 5 , C O L O R _ A S K _ R E C , B O R D E R _ F L A T , C O R N E R _ L E F T _ U P P E R , C O L O R _ A S K _ R E C , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " A S K " , 0 , x 1 + 1 8 0 , y 1 + 4 9 , C O R N E R _ L E F T _ U P P E R , " " , " A r i a l " , 8 , C O L O R _ F O N T 2 , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
R e c t L a b e l C r e a t e ( 0 , O B J P R E F I X + " B I D [ ] " , 0 , x 1 + 1 2 5 , y 1 + 5 6 , 8 5 , 1 5 , C O L O R _ B I D _ R E C , B O R D E R _ F L A T , C O R N E R _ L E F T _ U P P E R , C O L O R _ B I D _ R E C , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " B I D " , 0 , x 1 + 1 8 0 , y 1 + 6 3 , C O R N E R _ L E F T _ U P P E R , " " , " A r i a l " , 8 , C O L O R _ F O N T 2 , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " U P T I C K S " , 0 , x 1 + 2 2 5 , y 1 + 4 9 , C O R N E R _ L E F T _ U P P E R , " " , " A r i a l " , 8 , C O L O R _ F O N T 2 , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " D W N T I C K S " , 0 , x 1 + 1 4 0 , y 1 + 6 3 , C O R N E R _ L E F T _ U P P E R , " " , " A r i a l " , 8 , C O L O R _ F O N T 2 , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " U P » " , 0 , x 1 + 1 4 1 , y 1 + 4 7 , C O R N E R _ L E F T _ U P P E R , " 6 " , " W e b d i n g s " , 1 2 , C O L O R _ S E L L , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " D N » " , 0 , x 1 + 2 2 5 , y 1 + 6 3 , C O R N E R _ L E F T _ U P P E R , " 5 " , " W e b d i n g s " , 1 2 , C O L O R _ B U Y , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T I M E R " , 0 , x 1 + 1 0 , y 1 + 6 5 , C O R N E R _ L E F T _ U P P E R , " " , " T a h o m a " , 7 , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " F L O A T ª " , 0 , x 1 + B U T T O N _ G A P _ X + 5 , i n p u t s _ y - 1 5 , C O R N E R _ L E F T _ U P P E R , " " , " W i n g d i n g s " , 1 5 , c l r N O N E , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " F L O A T § " , 0 , x 1 + B U T T O N _ G A P _ X + 4 5 , i n p u t s _ y - 1 5 , C O R N E R _ L E F T _ U P P E R , " " , " A r i a l " , 9 , c l r N O N E , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " F L O A T $ " , 0 , x 1 + B U T T O N _ G A P _ X + 1 2 0 , i n p u t s _ y - 1 5 , C O R N E R _ L E F T _ U P P E R , " " , " A r i a l " , 9 , c l r N O N E , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " P R O F I T S " , 0 , x 1 + B U T T O N _ G A P _ X + 1 9 0 , i n p u t s _ y - 1 5 , C O R N E R _ L E F T _ U P P E R , " " , " A r i a l " , 9 , c l r N O N E , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " P O I N T S " , 0 , x 1 + B U T T O N _ G A P _ X + 2 3 5 , i n p u t s _ y - 1 5 , C O R N E R _ L E F T _ U P P E R , " " , " A r i a l " , 9 , c l r N O N E , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " R O I ª " , 0 , x 1 + B U T T O N _ G A P _ X + 5 , i n p u t s _ y - 1 5 , C O R N E R _ L E F T _ U P P E R , " T o d a y " , " A r i a l " , 9 , c l r N O N E , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " R O I § " , 0 , x 1 + B U T T O N _ G A P _ X + 4 5 , i n p u t s _ y - 1 5 , C O R N E R _ L E F T _ U P P E R , " P " , " W i n g d i n g s " , 1 5 , c l r N O N E , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " R O I % " , 0 , x 1 + B U T T O N _ G A P _ X + 1 2 0 , i n p u t s _ y - 1 5 , C O R N E R _ L E F T _ U P P E R , " " , " A r i a l " , 9 , c l r N O N E , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
E d i t C r e a t e ( 0 , O B J P R E F I X + " S L < > " , 0 , x 1 + B U T T O N _ G A P _ X , i n p u t s _ y , E D I T _ W I D T H , E D I T _ H E I G H T , D o u b l e T o S t r i n g ( S t o p L o s s I n p , 0 ) , " T a h o m a " , 1 0 , A L I G N _ R I G H T , f a l s e , C O R N E R _ L E F T _ U P P E R , C ' 5 9 , 4 1 , 4 0 ' , c l r W h i t e , c l r W h i t e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S L ª " , 0 , x 1 + B U T T O N _ G A P _ X + E D I T _ G A P _ Y , l a b e l _ y , C O R N E R _ L E F T _ U P P E R , " s l " , " A r i a l " , 1 0 , c l r D a r k G r a y , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
E d i t C r e a t e ( 0 , O B J P R E F I X + " L O T S I Z E < > " , 0 , x 1 + B U T T O N _ G A P _ X + B U T T O N _ W I D T H + B U T T O N _ G A P _ X , i n p u t s _ y , E D I T _ W I D T H , E D I T _ H E I G H T , D o u b l e T o S t r i n g ( L o t S i z e I n p , 2 ) , " T a h o m a " , 1 0 , A L I G N _ C E N T E R , f a l s e , C O R N E R _ L E F T _ U P P E R , C ' 5 9 , 4 1 , 4 0 ' , c l r W h i t e , c l r W h i t e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " L O T S I Z E < " , 0 , ( x 1 + B U T T O N _ G A P _ X + E D I T _ G A P _ Y ) + 7 5 , l a b e l _ y , C O R N E R _ L E F T _ U P P E R , " 6 " , " W e b d i n g s " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " L O T S I Z E > " , 0 , ( x 1 + B U T T O N _ G A P _ X + E D I T _ G A P _ Y ) + 1 3 0 , l a b e l _ y , C O R N E R _ L E F T _ U P P E R , " 5 " , " W e b d i n g s " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - -
E d i t C r e a t e ( 0 , O B J P R E F I X + " T P < > " , 0 , x 1 + ( B U T T O N _ W I D T H * 2 ) + ( B U T T O N _ G A P _ X * 3 ) , i n p u t s _ y , E D I T _ W I D T H , E D I T _ H E I G H T , D o u b l e T o S t r i n g ( T a k e P r o f i t I n p , 0 ) , " T a h o m a " , 1 0 , A L I G N _ R I G H T , f a l s e , C O R N E R _ L E F T _ U P P E R , C ' 5 9 , 4 1 , 4 0 ' , c l r W h i t e , c l r W h i t e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T P ª " , 0 , x 1 + ( B U T T O N _ W I D T H * 2 ) + ( B U T T O N _ G A P _ X * 3 ) + E D I T _ G A P _ Y , l a b e l _ y , C O R N E R _ L E F T _ U P P E R , " t p " , " A r i a l " , 1 0 , c l r D a r k G r a y , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - -
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " S E L L " , 0 , x 1 + B U T T O N _ G A P _ X , b u t t o n _ y , B U T T O N _ W I D T H , B U T T O N _ H E I G H T , C O R N E R _ L E F T _ U P P E R , " S e l l " , " T r e b u c h e t M S " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 1 2 8 , 1 2 8 ' , C ' 2 3 9 , 1 1 2 , 1 1 2 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - -
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " C L O S E " , 0 , x 1 + B U T T O N _ W I D T H + ( B U T T O N _ G A P _ X * 2 ) , b u t t o n _ y , B U T T O N _ W I D T H , B U T T O N _ H E I G H T , C O R N E R _ L E F T _ U P P E R , " C l o s e " , " T r e b u c h e t M S " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 2 5 5 , 1 6 0 ' , C ' 2 3 9 , 2 3 9 , 1 4 4 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - -
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " B U Y " , 0 , x 1 + ( B U T T O N _ W I D T H * 2 ) + ( B U T T O N _ G A P _ X * 3 ) , b u t t o n _ y , B U T T O N _ W I D T H , B U T T O N _ H E I G H T , C O R N E R _ L E F T _ U P P E R , " B u y " , " T r e b u c h e t M S " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , C ' 1 6 0 , 1 9 2 , 2 5 5 ' , C ' 1 4 4 , 1 7 6 , 2 3 9 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - - C r e a t e S p e e d B a r s
f o r ( i n t i = 0 ; i < M a x S p e e d B a r s ; i + + )
{
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S P E E D # " + I n t e g e r T o S t r i n g ( i ) , 0 , f r _ x , y 1 + S P E E D B A R _ G A P _ Y , C O R N E R _ L E F T _ U P P E R , " l " , " A r i a l B l a c k " , 1 5 , c l r N O N E , 0 . 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 ) ;
f r _ x - = 5 ;
}
/ / - - S t r a t e g y T e s t e r ( C a n n o t c h a n g e s y m b o l )
i f ( I s T e s t i n g ( ) )
{
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " S Y M B O L ¤ " ) = = 0 ) / / O b j e c t I s P r e s e n t
{
i f ( ! O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L ¤ " , O B J P R O P _ R E A D O N L Y ) ) / / G e t O b j e c t
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L ¤ " , O B J P R O P _ R E A D O N L Y , t r u e ) ; / / S e t O b j e c t
}
}
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | M o v e O b j e c t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O b j e c t s M o v e A l l ( )
{
/ / - -
R e c t L a b e l M o v e ( 0 , O B J P R E F I X + " B O R D E R [ ] " , x 1 , y 1 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " C A P T I O N " , ( x 1 + ( x 2 / 2 ) ) , y 1 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " E X I T " , ( x 1 + ( x 2 / 2 ) ) + 1 1 5 , y 1 - 2 ) ;
/ / - -
B u t t o n M o v e ( 0 , O B J P R E F I X + " M O V E " , x 1 , y 1 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " C O N N E C T I O N " , ( x 1 + ( x 2 / 2 ) ) - 9 7 , y 1 - 2 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " T H E M E " , ( x 1 + ( x 2 / 2 ) ) - 7 2 , y 1 - 4 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " P A I N T " , ( x 1 + ( x 2 / 2 ) ) - 4 8 , y 1 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " P L A Y " , ( x 1 + ( x 2 / 2 ) ) + 7 5 , y 1 - 5 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " C A N D L E S ¦ " , ( x 1 + ( x 2 / 2 ) ) + 9 7 , y 1 - 6 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " S O U N D " , ( x 1 + ( x 2 / 2 ) ) + 5 0 , y 1 - 2 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " S O U N D I O " , ( x 1 + ( x 2 / 2 ) ) + 6 0 , y 1 - 1 ) ;
/ / - -
E d i t M o v e ( 0 , O B J P R E F I X + " S Y M B O L ¤ " , x 1 + B U T T O N _ G A P _ X , y 1 + I N D E N T _ T O P + B U T T O N _ G A P _ X ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " S Y M B O L § " , x 1 + 1 0 0 , y 1 + 2 7 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " S Y M B O L % " , x 1 + 1 4 5 , y 1 + 2 7 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " S P E E D ª " , x 1 + S P E E D T E X T _ G A P _ X , y 1 + S P E E D T E X T _ G A P _ Y ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " C L O S E ¹ ² ³ " , ( x 1 + B U T T O N _ G A P _ X ) + 3 7 , ( y 1 + I N D E N T _ T O P + B U T T O N _ G A P _ X ) + 2 7 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " S P R E A D " , x 1 + 9 0 , y 1 + 5 5 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " S P R E A D § " , x 1 + 1 1 0 , y 1 + 5 5 ) ;
/ / - -
R e c t L a b e l M o v e ( 0 , O B J P R E F I X + " A S K [ ] " , x 1 + 1 5 5 , y 1 + 4 1 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " A S K " , x 1 + 1 8 0 , y 1 + 4 9 ) ;
/ / - -
R e c t L a b e l M o v e ( 0 , O B J P R E F I X + " B I D [ ] " , x 1 + 1 2 5 , y 1 + 5 6 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " B I D " , x 1 + 1 8 0 , y 1 + 6 3 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " U P T I C K S " , x 1 + 2 2 5 , y 1 + 4 9 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " D W N T I C K S " , x 1 + 1 4 0 , y 1 + 6 3 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " U P » " , x 1 + 1 4 1 , y 1 + 4 7 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " D N » " , x 1 + 2 2 5 , y 1 + 6 3 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " T I M E R " , x 1 + 1 0 , y 1 + 6 5 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " F L O A T ª " , x 1 + B U T T O N _ G A P _ X + 5 , i n p u t s _ y - 1 5 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " F L O A T § " , x 1 + B U T T O N _ G A P _ X + 4 5 , i n p u t s _ y - 1 5 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " F L O A T $ " , x 1 + B U T T O N _ G A P _ X + 1 2 0 , i n p u t s _ y - 1 5 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " P R O F I T S " , x 1 + B U T T O N _ G A P _ X + 1 9 0 , i n p u t s _ y - 1 5 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " P O I N T S " , x 1 + B U T T O N _ G A P _ X + 2 3 5 , i n p u t s _ y - 1 5 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " R O I ª " , x 1 + B U T T O N _ G A P _ X + 5 , i n p u t s _ y - 1 5 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " R O I § " , x 1 + B U T T O N _ G A P _ X + 4 5 , i n p u t s _ y - 1 5 ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " R O I % " , x 1 + B U T T O N _ G A P _ X + 1 2 0 , i n p u t s _ y - 1 5 ) ;
/ / - -
E d i t M o v e ( 0 , O B J P R E F I X + " S L < > " , x 1 + B U T T O N _ G A P _ X , i n p u t s _ y ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " S L ª " , x 1 + B U T T O N _ G A P _ X + E D I T _ G A P _ Y , l a b e l _ y ) ;
/ / - -
E d i t M o v e ( 0 , O B J P R E F I X + " L O T S I Z E < > " , x 1 + B U T T O N _ W I D T H + ( B U T T O N _ G A P _ X * 2 ) , i n p u t s _ y ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " L O T S I Z E < " , ( x 1 + B U T T O N _ G A P _ X + E D I T _ G A P _ Y ) + 7 5 , l a b e l _ y ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " L O T S I Z E > " , ( x 1 + B U T T O N _ G A P _ X + E D I T _ G A P _ Y ) + 1 3 0 , l a b e l _ y ) ;
/ / - -
E d i t M o v e ( 0 , O B J P R E F I X + " T P < > " , x 1 + ( B U T T O N _ W I D T H * 2 ) + ( B U T T O N _ G A P _ X * 3 ) , i n p u t s _ y ) ;
/ / - -
L a b e l M o v e ( 0 , O B J P R E F I X + " T P ª " , x 1 + ( B U T T O N _ W I D T H * 2 ) + ( B U T T O N _ G A P _ X * 3 ) + E D I T _ G A P _ Y , l a b e l _ y ) ;
/ / - -
B u t t o n M o v e ( 0 , O B J P R E F I X + " S E L L " , x 1 + B U T T O N _ G A P _ X , b u t t o n _ y ) ;
/ / - -
B u t t o n M o v e ( 0 , O B J P R E F I X + " C L O S E " , x 1 + B U T T O N _ W I D T H + ( B U T T O N _ G A P _ X * 2 ) , b u t t o n _ y ) ;
/ / - -
B u t t o n M o v e ( 0 , O B J P R E F I X + " B U Y " , x 1 + ( B U T T O N _ W I D T H * 2 ) + ( B U T T O N _ G A P _ X * 3 ) , b u t t o n _ y ) ;
/ / - - M o v e S p e e d B a r s
f o r ( i n t i = 0 ; i < M a x S p e e d B a r s ; i + + )
{
L a b e l M o v e ( 0 , O B J P R E F I X + " S P E E D # " + I n t e g e r T o S t r i n g ( i ) , f r _ x , y 1 + S P E E D B A R _ G A P _ Y ) ;
f r _ x - = 5 ;
}
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h e c k O b j e c t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O b j e c t s C h e c k A l l ( )
{
/ / - - C r e a t e O b j e c t s
O b j e c t s C r e a t e A l l ( ) ; / * U s e r m a y h a v e d e l e t e d o n e * /
/ / + - - - - - - - T r a c k S o m e O b j e c t s - - - - - - - +
/ / - - I s S e l e c t a b l e
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " M O V E " ) = = 0 & & O b j e c t F i n d ( 0 , O B J P R E F I X + " B C K G R N D [ ] " ) = = 0 ) / / O b j e c t I s P r e s e n t
{
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " M O V E " , O B J P R O P _ S T A T E ) ) / / G e t O b j e c t
{
i f ( ! O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ S E L E C T E D ) ) / / G e t O b j e c t
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ S E L E C T E D , t r u e ) ; / / S e t O b j e c t
}
/ / - - I s N o t S e l e c t a b l e
e l s e
{
i f ( ! O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " M O V E " , O B J P R O P _ S T A T E ) ) / / G e t O b j e c t
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ S E L E C T E D , f a l s e ) ; / / S e t O b j e c t
}
}
/ / - - I s C o n n e c t e d
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " C O N N E C T I O N " ) = = 0 ) / / O b j e c t I s P r e s e n t
{
i f ( T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ C O N N E C T E D ) )
{
i f ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T E X T ) ! = " ü " ) / / G e t O b j e c t
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T E X T , " ü " ) ; / / S e t O b j e c t
i f ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T O O L T I P ) ! = " C o n n e c t e d " ) / / G e t O b j e c t
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T O O L T I P , " C o n n e c t e d " ) ; / / S e t O b j e c t
}
/ / - - I s D i s c o n n e c t e d
e l s e
{
i f ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T E X T ) ! = " ñ " ) / / G e t O b j e c t
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T E X T , " ñ " ) ; / / S e t O b j e c t
i f ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T O O L T I P ) ! = " N o c o n n e c t i o n ! " ) / / G e t O b j e c t
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T O O L T I P , " N o c o n n e c t i o n ! " ) ; / / S e t O b j e c t
}
}
/ / - - S o u n d I s E n a b l e d
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " S O U N D I O " ) = = 0 ) / / O b j e c t I s P r e s e n t
{
i f ( S o u n d I s E n a b l e d )
{
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " S O U N D I O " , O B J P R O P _ C O L O R ) ! = C ' 5 9 , 4 1 , 4 0 ' ) / / G e t O b j e c t
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S O U N D I O " , O B J P R O P _ C O L O R , C ' 5 9 , 4 1 , 4 0 ' ) ; / / S e t O b j e c t
}
/ / - - S o u n d I s D i s a b l e d
e l s e
{
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " S O U N D I O " , O B J P R O P _ C O L O R ) ! = c l r N O N E ) / / G e t O b j e c t
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S O U N D I O " , O B J P R O P _ C O L O R , c l r N O N E ) ; / / S e t O b j e c t
}
}
/ / - - T i c k S o u n d s A r e E n a b l e d
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " P L A Y " ) = = 0 ) / / O b j e c t I s P r e s e n t
{
i f ( P l a y T i c k s )
{
i f ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " P L A Y " , O B J P R O P _ T E X T ) ! = " ; " ) / / G e t O b j e c t
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P L A Y " , O B J P R O P _ T E X T , " ; " ) ; / / S e t O b j e c t
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " P L A Y " , O B J P R O P _ F O N T S I Z E ) ! = 1 4 ) / / G e t O b j e c t
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P L A Y " , O B J P R O P _ F O N T S I Z E , 1 4 ) ; / / S e t O b j e c t
}
/ / - - T i c k S o u n d s A r e D i s a b l e d
e l s e
{
i f ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " P L A Y " , O B J P R O P _ T E X T ) ! = " 4 " ) / / G e t O b j e c t
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P L A Y " , O B J P R O P _ T E X T , " 4 " ) ; / / S e t O b j e c t
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " P L A Y " , O B J P R O P _ F O N T S I Z E ) ! = 1 5 ) / / G e t O b j e c t
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P L A Y " , O B J P R O P _ F O N T S I Z E , 1 5 ) ; / / S e t O b j e c t
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S e t C o l o r s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d S e t C o l o r s ( c o n s t i n t T y p e )
{
/ / - -
i f ( T y p e = = L I G H T )
{
/ / - - L i g h t
C O L O R _ B G = C ' 2 4 0 , 2 4 0 , 2 4 0 ' ;
C O L O R _ F O N T = C ' 4 0 , 4 1 , 5 9 ' ;
C O L O R _ F O N T 2 = C O L O R _ F O N T ;
C O L O R _ M O V E = c l r D a r k G r a y ;
C O L O R _ G R E E N = c l r F o r e s t G r e e n ;
C O L O R _ R E D = c l r I n d i a n R e d ;
C O L O R _ H E D G E = c l r D a r k O r a n g e ;
C O L O R _ A S K _ R E C = C ' 2 5 5 , 2 2 8 , 2 5 5 ' ;
C O L O R _ B I D _ R E C = C ' 2 1 5 , 2 2 8 , 2 5 5 ' ;
}
e l s e
{
/ / - - D a r k
C O L O R _ B G = C ' 2 8 , 2 8 , 2 8 ' ;
C O L O R _ F O N T = c l r D a r k G r a y ;
C O L O R _ F O N T 2 = C O L O R _ B G ;
C O L O R _ M O V E = c l r D i m G r a y ;
C O L O R _ G R E E N = c l r L i m e G r e e n ;
C O L O R _ R E D = c l r R e d ;
C O L O R _ H E D G E = c l r G o l d ;
C O L O R _ A S K _ R E C = C O L O R _ S E L L ;
C O L O R _ B I D _ R E C = C O L O R _ B U Y ;
}
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S e t T h e m e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d S e t T h e m e ( c o n s t i n t T y p e )
{
/ / - -
i f ( T y p e = = L I G H T )
{
/ / - - L i g h t
C O L O R _ B G = C ' 2 4 0 , 2 4 0 , 2 4 0 ' ;
C O L O R _ F O N T = C ' 4 0 , 4 1 , 5 9 ' ;
C O L O R _ M O V E = c l r D a r k G r a y ;
C O L O R _ G R E E N = c l r F o r e s t G r e e n ;
C O L O R _ R E D = c l r I n d i a n R e d ;
C O L O R _ H E D G E = c l r D a r k O r a n g e ;
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R E S E T " , O B J P R O P _ B G C O L O R , C O L O R _ M O V E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R E S E T " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ B G C O L O R , C O L O R _ B G ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " M O V E " , O B J P R O P _ B G C O L O R , C O L O R _ M O V E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " M O V E " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " C L O S E ¹ ² ³ " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L ¤ " , O B J P R O P _ B G C O L O R , C O L O R _ B G ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L ¤ " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A S K [ ] " , O B J P R O P _ B G C O L O R , C ' 2 5 5 , 2 2 8 , 2 5 5 ' ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A S K [ ] " , O B J P R O P _ C O L O R , C ' 2 5 5 , 2 2 8 , 2 5 5 ' ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A S K " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " U P T I C K S " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B I D [ ] " , O B J P R O P _ B G C O L O R , C ' 2 1 5 , 2 2 8 , 2 5 5 ' ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B I D [ ] " , O B J P R O P _ C O L O R , C ' 2 1 5 , 2 2 8 , 2 5 5 ' ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B I D " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " D W N T I C K S " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P R E A D § " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P R E A D " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " T I M E R " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - - S t o r e S e l e c t e d T h e m e
S e l e c t e d T h e m e = L I G H T ;
}
e l s e
{
/ / - - D a r k
C O L O R _ B G = C ' 2 8 , 2 8 , 2 8 ' ;
C O L O R _ F O N T = c l r D a r k G r a y ;
C O L O R _ M O V E = c l r D i m G r a y ;
C O L O R _ G R E E N = c l r L i m e G r e e n ;
C O L O R _ R E D = c l r R e d ;
C O L O R _ H E D G E = c l r G o l d ;
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R E S E T " , O B J P R O P _ B G C O L O R , C O L O R _ M O V E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R E S E T " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ B G C O L O R , C O L O R _ B G ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " M O V E " , O B J P R O P _ B G C O L O R , C O L O R _ M O V E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " M O V E " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " C L O S E ¹ ² ³ " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L ¤ " , O B J P R O P _ B G C O L O R , C O L O R _ B G ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L ¤ " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A S K [ ] " , O B J P R O P _ B G C O L O R , C O L O R _ S E L L ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A S K [ ] " , O B J P R O P _ C O L O R , C O L O R _ S E L L ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A S K " , O B J P R O P _ C O L O R , C O L O R _ B G ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " U P T I C K S " , O B J P R O P _ C O L O R , C O L O R _ B G ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B I D [ ] " , O B J P R O P _ B G C O L O R , C O L O R _ B U Y ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B I D [ ] " , O B J P R O P _ C O L O R , C O L O R _ B U Y ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B I D " , O B J P R O P _ C O L O R , C O L O R _ B G ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " D W N T I C K S " , O B J P R O P _ C O L O R , C O L O R _ B G ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P R E A D § " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P R E A D " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " T I M E R " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - - S t o r e S e l e c t e d T h e m e
S e l e c t e d T h e m e = D A R K ;
}
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | R e s e t T i c k s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l R e s e t T i c k s ( )
{
/ / - -
s t a t i c d a t e t i m e l a s t b a r = 0 ;
/ / - -
i f ( l a s t b a r ! = T i m e [ 0 ] )
{
/ / - - R e s e t T i c k s
U p T i c k s = 0 ;
D w n T i c k s = 0 ;
/ / - - S t o r e B a r T i m e
l a s t b a r = T i m e [ 0 ] ;
r e t u r n ( t r u e ) ;
}
e l s e
{
r e t u r n ( f a l s e ) ;
}
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | ± S t r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g ± S t r ( d o u b l e I n p , i n t P r e c i s i o n )
{
/ / - - P o s i t i v e V a l u e
i f ( I n p > 0 )
{
r e t u r n ( " + " + D o u b l e T o S t r i n g ( I n p , P r e c i s i o n ) ) ;
}
/ / - - N e g a t i v e V a l u e
e l s e
{
r e t u r n ( D o u b l e T o S t r i n g ( I n p , P r e c i s i o n ) ) ;
}
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | ± C l r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
c o l o r ± C l r ( d o u b l e I n p )
{
/ / - -
c o l o r c l r = c l r N O N E ;
/ / - - P o s i t i v e V a l u e
i f ( I n p > 0 )
{
c l r = C O L O R _ G R E E N ;
}
/ / - - N e g a t i v e V a l u e
i f ( I n p < 0 )
{
c l r = C O L O R _ R E D ;
}
/ / - - N e u t r a l V a l u e
i f ( I n p = = 0 )
{
c l r = C O L O R _ F O N T ;
}
/ / - -
r e t u r n ( c l r ) ;
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S y m b o l F i n d |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l S y m b o l F i n d ( c o n s t s t r i n g _ S y m b )
{
/ / - -
b o o l r e s u l t = f a l s e ;
/ / - -
f o r ( i n t i = 0 ; i < S y m b o l s T o t a l ( f a l s e ) ; i + + )
{
i f ( _ S y m b = = S y m b o l N a m e ( i , f a l s e ) )
{
r e s u l t = t r u e ; / / S y m b o l F o u n d
b r e a k ;
}
}
r e t u r n ( r e s u l t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | D r a w O r d H i s t o r y |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d D r a w O r d H i s t o r y ( )
{
/ / - -
s t r i n g o b j _ n a m e = " " , o r d t y p e = " " , t i c k e t = " " , o p e n p r i c e = " " , c l o s e p r i c e = " " , o r d l o t s = " " , s t o p l o s s = " " , t a k e p r o f i t = " " ;
/ / - -
f o r ( i n t i = O r d e r s H i s t o r y T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ H I S T O R Y ) )
{
i f ( O r d e r S y m b o l ( ) = = _ S y m b o l & & O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
i f ( O r d e r T y p e ( ) < = O P _ S E L L ) / / M a r k e t O r d e r s O n l y
{
/ / - - S e t C o l o r & O r d T y p e
i f ( O r d e r T y p e ( ) = = O P _ S E L L ) { C O L O R _ A R R O W = C O L O R _ S E L L ; o r d t y p e = " s e l l " ; } / / S e l l O r d e r s
e l s e { C O L O R _ A R R O W = C O L O R _ B U Y ; o r d t y p e = " b u y " ; } / * B u y O r d e r s * /
/ / - - C o n v e r t T o S t r i n g
t i c k e t = I n t e g e r T o S t r i n g ( O r d e r T i c k e t ( ) ) ; / / G e t T i c k e t
o p e n p r i c e = D o u b l e T o S t r i n g ( O r d e r O p e n P r i c e ( ) , _ D i g i t s ) ; / / G e t O p e n P r i c e
c l o s e p r i c e = D o u b l e T o S t r i n g ( O r d e r C l o s e P r i c e ( ) , _ D i g i t s ) ; / / G e t C l o s e P r i c e
o r d l o t s = D o u b l e T o S t r i n g ( O r d e r L o t s ( ) , 2 ) ; / * G e t O r d e r L o t s * /
/ / - - O r d e r L i n e
o b j _ n a m e = " # " + t i c k e t + " " + o p e n p r i c e + " - > " + c l o s e p r i c e ; / / S e t N a m e
T r e n d C r e a t e ( 0 , o b j _ n a m e , 0 , O r d e r O p e n T i m e ( ) , O r d e r O p e n P r i c e ( ) , O r d e r C l o s e T i m e ( ) , O r d e r C l o s e P r i c e ( ) , C O L O R _ A R R O W , S T Y L E _ D O T , 1 , f a l s e , f a l s e , f a l s e , 0 ) ;
/ / - - O p e n A r r o w
o b j _ n a m e = " # " + t i c k e t + " " + o r d t y p e + " " + o r d l o t s + " " + _ S y m b o l + " a t " + o p e n p r i c e ; / / S e t N a m e
A r r o w C r e a t e ( 0 , o b j _ n a m e , 0 , O r d e r O p e n T i m e ( ) , O r d e r O p e n P r i c e ( ) , 1 , A N C H O R _ B O T T O M , C O L O R _ A R R O W , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , f a l s e , 0 ) ;
/ / - - C l o s e A r r o w
o b j _ n a m e + = " c l o s e a t " + c l o s e p r i c e ; / / S e t N a m e
A r r o w C r e a t e ( 0 , o b j _ n a m e , 0 , O r d e r C l o s e T i m e ( ) , O r d e r C l o s e P r i c e ( ) , 3 , A N C H O R _ B O T T O M , C O L O R _ C L O S E , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , f a l s e , 0 ) ;
/ / - - S t o p L o s s A r r o w
i f ( O r d e r S t o p L o s s ( ) > 0 )
{
s t o p l o s s = D o u b l e T o S t r i n g ( O r d e r S t o p L o s s ( ) , _ D i g i t s ) ; / / G e t S t o p L o s s
o b j _ n a m e = " # " + t i c k e t + " " + o r d t y p e + " " + o r d l o t s + " " + _ S y m b o l + " a t " + o p e n p r i c e + " s l a t " + s t o p l o s s ; / / S e t N a m e
A r r o w C r e a t e ( 0 , o b j _ n a m e , 0 , O r d e r O p e n T i m e ( ) , O r d e r S t o p L o s s ( ) , 4 , A N C H O R _ B O T T O M , C O L O R _ S E L L , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , f a l s e , 0 ) ;
}
/ / - - T a k e P r o f i t A r r o w
i f ( O r d e r T a k e P r o f i t ( ) > 0 )
{
t a k e p r o f i t = D o u b l e T o S t r i n g ( O r d e r T a k e P r o f i t ( ) , _ D i g i t s ) ; / / G e t T a k e P r o f i t
o b j _ n a m e = " # " + t i c k e t + " " + o r d t y p e + " " + o r d l o t s + " " + _ S y m b o l + " a t " + o p e n p r i c e + " t p a t " + t a k e p r o f i t ; / / S e t N a m e
A r r o w C r e a t e ( 0 , o b j _ n a m e , 0 , O r d e r O p e n T i m e ( ) , O r d e r T a k e P r o f i t ( ) , 4 , A N C H O R _ B O T T O M , C O L O R _ B U Y , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , f a l s e , 0 ) ;
}
/ / - -
}
}
}
}
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e r e c t a n g l e l a b e l |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l R e c t L a b e l C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " R e c t L a b e l " , / / l a b e l n a m e
c o n s t i n t s u b _ w i n d o w = 0 , / / s u b w i n d o w i n d e x
c o n s t i n t x = 0 , / / X c o o r d i n a t e
c o n s t i n t y = 0 , / / Y c o o r d i n a t e
c o n s t i n t w i d t h = 5 0 , / / w i d t h
c o n s t i n t h e i g h t = 1 8 , / / h e i g h t
c o n s t c o l o r b a c k _ c l r = C ' 2 3 6 , 2 3 3 , 2 1 6 ' , / / b a c k g r o u n d c o l o r
c o n s t E N U M _ B O R D E R _ T Y P E b o r d e r = B O R D E R _ S U N K E N , / / b o r d e r t y p e
c o n s t E N U M _ B A S E _ C O R N E R c o r n e r = C O R N E R _ L E F T _ U P P E R , / / c h a r t c o r n e r f o r a n c h o r i n g
c o n s t c o l o r c l r = c l r R e d , / / f l a t b o r d e r c o l o r ( F l a t )
c o n s t E N U M _ L I N E _ S T Y L E s t y l e = S T Y L E _ S O L I D , / / f l a t b o r d e r s t y l e
c o n s t i n t l i n e _ w i d t h = 1 , / / f l a t b o r d e r w i d t h
c o n s t b o o l b a c k = f a l s e , / / i n t h e b a c k g r o u n d
c o n s t b o o l s e l e c t i o n = f a l s e , / / h i g h l i g h t t o m o v e
c o n s t b o o l h i d d e n = t r u e , / / h i d d e n i n t h e o b j e c t l i s t
c o n s t l o n g z _ o r d e r = 0 , / / p r i o r i t y f o r m o u s e c l i c k
c o n s t s t r i n g t o o l t i p = " \ n " ) / / t o o l t i p f o r m o u s e h o v e r
{
/ / - - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - -
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) ! = 0 )
{
i f ( ! O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ R E C T A N G L E _ L A B E L , s u b _ w i n d o w , 0 , 0 ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o c r e a t e a r e c t a n g l e l a b e l ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X S I Z E , w i d t h ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y S I Z E , h e i g h t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B G C O L O R , b a c k _ c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B O R D E R _ T Y P E , b o r d e r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O R N E R , c o r n e r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S T Y L E , s t y l e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ W I D T H , l i n e _ w i d t h ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T O O L T I P , t o o l t i p ) ;
}
/ / - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | M o v e r e c t a n g l e l a b e l |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l R e c t L a b e l M o v e ( c o n s t l o n g c h a r t _ I D = 0 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " R e c t L a b e l " , / / l a b e l n a m e
c o n s t i n t x = 0 , / / X c o o r d i n a t e
c o n s t i n t y = 0 ) / / Y c o o r d i n a t e
{
/ / - - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - -
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) = = 0 )
{
i f ( ! O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o m o v e X c o o r d i n a t e o f t h e l a b e l ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
i f ( ! O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o m o v e Y c o o r d i n a t e o f t h e l a b e l ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
}
/ / - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e t h e b u t t o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l B u t t o n C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " B u t t o n " , / / b u t t o n n a m e
c o n s t i n t s u b _ w i n d o w = 0 , / / s u b w i n d o w i n d e x
c o n s t i n t x = 0 , / / X c o o r d i n a t e
c o n s t i n t y = 0 , / / Y c o o r d i n a t e
c o n s t i n t w i d t h = 5 0 , / / b u t t o n w i d t h
c o n s t i n t h e i g h t = 1 8 , / / b u t t o n h e i g h t
c o n s t E N U M _ B A S E _ C O R N E R c o r n e r = C O R N E R _ L E F T _ U P P E R , / / c h a r t c o r n e r f o r a n c h o r i n g
c o n s t s t r i n g t e x t = " B u t t o n " , / / t e x t
c o n s t s t r i n g f o n t = " A r i a l " , / / f o n t
c o n s t i n t f o n t _ s i z e = 1 0 , / / f o n t s i z e
c o n s t c o l o r c l r = c l r B l a c k , / / t e x t c o l o r
c o n s t c o l o r b a c k _ c l r = C ' 2 3 6 , 2 3 3 , 2 1 6 ' , / / b a c k g r o u n d c o l o r
c o n s t c o l o r b o r d e r _ c l r = c l r N O N E , / / b o r d e r c o l o r
c o n s t b o o l s t a t e = f a l s e , / / p r e s s e d / r e l e a s e d
c o n s t b o o l b a c k = f a l s e , / / i n t h e b a c k g r o u n d
c o n s t b o o l s e l e c t i o n = f a l s e , / / h i g h l i g h t t o m o v e
c o n s t b o o l h i d d e n = t r u e , / / h i d d e n i n t h e o b j e c t l i s t
c o n s t l o n g z _ o r d e r = 0 , / / p r i o r i t y f o r m o u s e c l i c k
c o n s t s t r i n g t o o l t i p = " \ n " ) / / t o o l t i p f o r m o u s e h o v e r
{
/ / - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - -
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) ! = 0 )
{
i f ( ! O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ B U T T O N , s u b _ w i n d o w , 0 , 0 ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o c r e a t e t h e b u t t o n ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X S I Z E , w i d t h ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y S I Z E , h e i g h t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O R N E R , c o r n e r ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T E X T , t e x t ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T , f o n t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T S I Z E , f o n t _ s i z e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B G C O L O R , b a c k _ c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B O R D E R _ C O L O R , b o r d e r _ c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S T A T E , s t a t e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T O O L T I P , t o o l t i p ) ;
}
/ / - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | M o v e t h e b u t t o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l B u t t o n M o v e ( c o n s t l o n g c h a r t _ I D = 0 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " B u t t o n " , / / b u t t o n n a m e
c o n s t i n t x = 0 , / / X c o o r d i n a t e
c o n s t i n t y = 0 ) / / Y c o o r d i n a t e
{
/ / - - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - -
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) = = 0 )
{
i f ( ! O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o m o v e X c o o r d i n a t e o f t h e b u t t o n ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
i f ( ! O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o m o v e Y c o o r d i n a t e o f t h e b u t t o n ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
}
/ / - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e a t e x t l a b e l |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l L a b e l C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " L a b e l " , / / l a b e l n a m e
c o n s t i n t s u b _ w i n d o w = 0 , / / s u b w i n d o w i n d e x
c o n s t i n t x = 0 , / / X c o o r d i n a t e
c o n s t i n t y = 0 , / / Y c o o r d i n a t e
c o n s t E N U M _ B A S E _ C O R N E R c o r n e r = C O R N E R _ L E F T _ U P P E R , / / c h a r t c o r n e r f o r a n c h o r i n g
c o n s t s t r i n g t e x t = " L a b e l " , / / t e x t
c o n s t s t r i n g f o n t = " A r i a l " , / / f o n t
c o n s t i n t f o n t _ s i z e = 1 0 , / / f o n t s i z e
c o n s t c o l o r c l r = c l r R e d , / / c o l o r
c o n s t d o u b l e a n g l e = 0 . 0 , / / t e x t s l o p e
c o n s t E N U M _ A N C H O R _ P O I N T a n c h o r = A N C H O R _ L E F T _ U P P E R , / / a n c h o r t y p e
c o n s t b o o l b a c k = f a l s e , / / i n t h e b a c k g r o u n d
c o n s t b o o l s e l e c t i o n = f a l s e , / / h i g h l i g h t t o m o v e
c o n s t b o o l h i d d e n = t r u e , / / h i d d e n i n t h e o b j e c t l i s t
c o n s t l o n g z _ o r d e r = 0 , / / p r i o r i t y f o r m o u s e c l i c k
c o n s t s t r i n g t o o l t i p = " \ n " , / / t o o l t i p f o r m o u s e h o v e r
c o n s t b o o l t e s t e r = t r u e ) / / c r e a t e o b j e c t i n t h e s t r a t e g y t e s t e r
{
/ / - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - - C h e c k T e s t e r
i f ( ! t e s t e r & & I s T e s t i n g ( ) )
r e t u r n ( f a l s e ) ;
/ / - -
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) ! = 0 )
{
i f ( ! O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ L A B E L , s u b _ w i n d o w , 0 , 0 ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o c r e a t e t e x t l a b e l ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O R N E R , c o r n e r ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T E X T , t e x t ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T , f o n t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T S I Z E , f o n t _ s i z e ) ;
O b j e c t S e t D o u b l e ( c h a r t _ I D , n a m e , O B J P R O P _ A N G L E , a n g l e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ A N C H O R , a n c h o r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T O O L T I P , t o o l t i p ) ;
}
/ / - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | M o v e t h e t e x t l a b e l |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l L a b e l M o v e ( c o n s t l o n g c h a r t _ I D = 0 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " L a b e l " , / / l a b e l n a m e
c o n s t i n t x = 0 , / / X c o o r d i n a t e
c o n s t i n t y = 0 ) / / Y c o o r d i n a t e
{
/ / - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - -
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) = = 0 )
{
i f ( ! O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o m o v e X c o o r d i n a t e o f t h e l a b e l ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
i f ( ! O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o m o v e Y c o o r d i n a t e o f t h e l a b e l ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
}
/ / - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e E d i t o b j e c t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l E d i t C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " E d i t " , / / o b j e c t n a m e
c o n s t i n t s u b _ w i n d o w = 0 , / / s u b w i n d o w i n d e x
c o n s t i n t x = 0 , / / X c o o r d i n a t e
c o n s t i n t y = 0 , / / Y c o o r d i n a t e
c o n s t i n t w i d t h = 5 0 , / / w i d t h
c o n s t i n t h e i g h t = 1 8 , / / h e i g h t
c o n s t s t r i n g t e x t = " T e x t " , / / t e x t
c o n s t s t r i n g f o n t = " A r i a l " , / / f o n t
c o n s t i n t f o n t _ s i z e = 1 0 , / / f o n t s i z e
c o n s t E N U M _ A L I G N _ M O D E a l i g n = A L I G N _ C E N T E R , / / a l i g n m e n t t y p e
c o n s t b o o l r e a d _ o n l y = f a l s e , / / a b i l i t y t o e d i t
c o n s t E N U M _ B A S E _ C O R N E R c o r n e r = C O R N E R _ L E F T _ U P P E R , / / c h a r t c o r n e r f o r a n c h o r i n g
c o n s t c o l o r c l r = c l r B l a c k , / / t e x t c o l o r
c o n s t c o l o r b a c k _ c l r = c l r W h i t e , / / b a c k g r o u n d c o l o r
c o n s t c o l o r b o r d e r _ c l r = c l r N O N E , / / b o r d e r c o l o r
c o n s t b o o l b a c k = f a l s e , / / i n t h e b a c k g r o u n d
c o n s t b o o l s e l e c t i o n = f a l s e , / / h i g h l i g h t t o m o v e
c o n s t b o o l h i d d e n = t r u e , / / h i d d e n i n t h e o b j e c t l i s t
c o n s t l o n g z _ o r d e r = 0 , / / p r i o r i t y f o r m o u s e c l i c k
c o n s t s t r i n g t o o l t i p = " \ n " ) / / t o o l t i p f o r m o u s e h o v e r
{
/ / - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - -
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) ! = 0 )
{
i f ( ! O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ E D I T , s u b _ w i n d o w , 0 , 0 ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o c r e a t e \ " E d i t \ " o b j e c t ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X S I Z E , w i d t h ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y S I Z E , h e i g h t ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T E X T , t e x t ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T , f o n t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T S I Z E , f o n t _ s i z e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ A L I G N , a l i g n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ R E A D O N L Y , r e a d _ o n l y ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O R N E R , c o r n e r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B G C O L O R , b a c k _ c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B O R D E R _ C O L O R , b o r d e r _ c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T O O L T I P , t o o l t i p ) ;
}
/ / - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | M o v e E d i t o b j e c t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l E d i t M o v e ( c o n s t l o n g c h a r t _ I D = 0 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " E d i t " , / / o b j e c t n a m e
c o n s t i n t x = 0 , / / X c o o r d i n a t e
c o n s t i n t y = 0 ) / / Y c o o r d i n a t e
{
/ / - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - -
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) = = 0 )
{
i f ( ! O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o m o v e X c o o r d i n a t e o f t h e o b j e c t ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
i f ( ! O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o m o v e Y c o o r d i n a t e o f t h e o b j e c t ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
}
/ / - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t i n g T e x t o b j e c t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l T e x t C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " T e x t " , / / o b j e c t n a m e
c o n s t i n t s u b _ w i n d o w = 0 , / / s u b w i n d o w i n d e x
d a t e t i m e t i m e = 0 , / / a n c h o r p o i n t t i m e
d o u b l e p r i c e = 0 , / / a n c h o r p o i n t p r i c e
c o n s t s t r i n g t e x t = " T e x t " , / / t h e t e x t i t s e l f
c o n s t s t r i n g f o n t = " A r i a l " , / / f o n t
c o n s t i n t f o n t _ s i z e = 1 0 , / / f o n t s i z e
c o n s t c o l o r c l r = c l r R e d , / / c o l o r
c o n s t d o u b l e a n g l e = 0 . 0 , / / t e x t s l o p e
c o n s t E N U M _ A N C H O R _ P O I N T a n c h o r = A N C H O R _ L E F T _ U P P E R , / / a n c h o r t y p e
c o n s t b o o l b a c k = f a l s e , / / i n t h e b a c k g r o u n d
c o n s t b o o l s e l e c t i o n = f a l s e , / / h i g h l i g h t t o m o v e
c o n s t b o o l h i d d e n = t r u e , / / h i d d e n i n t h e o b j e c t l i s t
c o n s t l o n g z _ o r d e r = 0 , / / p r i o r i t y f o r m o u s e c l i c k
c o n s t s t r i n g t o o l t i p = " \ n " ) / / t o o l t i p f o r m o u s e h o v e r
{
/ / - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - -
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) ! = 0 )
{
i f ( ! O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ T E X T , s u b _ w i n d o w , t i m e , p r i c e ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o c r e a t e \ " T e x t \ " o b j e c t ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - S e t O b j e c t s
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T E X T , t e x t ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T , f o n t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T S I Z E , f o n t _ s i z e ) ;
O b j e c t S e t D o u b l e ( c h a r t _ I D , n a m e , O B J P R O P _ A N G L E , a n g l e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ A N C H O R , a n c h o r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T O O L T I P , t o o l t i p ) ;
}
/ / - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e t h e a r r o w |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l A r r o w C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " A r r o w " , / / a r r o w n a m e
c o n s t i n t s u b _ w i n d o w = 0 , / / s u b w i n d o w i n d e x
d a t e t i m e t i m e = 0 , / / a n c h o r p o i n t t i m e
d o u b l e p r i c e = 0 , / / a n c h o r p o i n t p r i c e
c o n s t u c h a r a r r o w _ c o d e = 2 5 2 , / / a r r o w c o d e
c o n s t E N U M _ A R R O W _ A N C H O R a n c h o r = A N C H O R _ B O T T O M , / / a n c h o r p o i n t p o s i t i o n
c o n s t c o l o r c l r = c l r R e d , / / a r r o w c o l o r
c o n s t E N U M _ L I N E _ S T Y L E s t y l e = S T Y L E _ S O L I D , / / b o r d e r l i n e s t y l e
c o n s t i n t w i d t h = 3 , / / a r r o w s i z e
c o n s t b o o l b a c k = f a l s e , / / i n t h e b a c k g r o u n d
c o n s t b o o l s e l e c t i o n = t r u e , / / h i g h l i g h t t o m o v e
c o n s t b o o l h i d d e n = t r u e , / / h i d d e n i n t h e o b j e c t l i s t
c o n s t l o n g z _ o r d e r = 0 ) / / p r i o r i t y f o r m o u s e c l i c k
{
/ / - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - -
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) ! = 0 )
{
i f ( ! O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ A R R O W , s u b _ w i n d o w , t i m e , p r i c e ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o c r e a t e a n a r r o w ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ A R R O W C O D E , a r r o w _ c o d e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ A N C H O R , a n c h o r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S T Y L E , s t y l e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ W I D T H , w i d t h ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
}
/ / - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e a t r e n d l i n e b y t h e g i v e n c o o r d i n a t e s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l T r e n d C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " T r e n d L i n e " , / / l i n e n a m e
c o n s t i n t s u b _ w i n d o w = 0 , / / s u b w i n d o w i n d e x
d a t e t i m e t i m e 1 = 0 , / / f i r s t p o i n t t i m e
d o u b l e p r i c e 1 = 0 , / / f i r s t p o i n t p r i c e
d a t e t i m e t i m e 2 = 0 , / / s e c o n d p o i n t t i m e
d o u b l e p r i c e 2 = 0 , / / s e c o n d p o i n t p r i c e
c o n s t c o l o r c l r = c l r R e d , / / l i n e c o l o r
c o n s t E N U M _ L I N E _ S T Y L E s t y l e = S T Y L E _ S O L I D , / / l i n e s t y l e
c o n s t i n t w i d t h = 1 , / / l i n e w i d t h
c o n s t b o o l b a c k = f a l s e , / / i n t h e b a c k g r o u n d
c o n s t b o o l s e l e c t i o n = t r u e , / / h i g h l i g h t t o m o v e
c o n s t b o o l r a y _ r i g h t = f a l s e , / / l i n e ' s c o n t i n u a t i o n t o t h e r i g h t
c o n s t b o o l h i d d e n = t r u e , / / h i d d e n i n t h e o b j e c t l i s t
c o n s t l o n g z _ o r d e r = 0 ) / / p r i o r i t y f o r m o u s e c l i c k
{
/ / - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - -
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) ! = 0 )
{
i f ( ! O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ T R E N D , s u b _ w i n d o w , t i m e 1 , p r i c e 1 , t i m e 2 , p r i c e 2 ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o c r e a t e a t r e n d l i n e ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S T Y L E , s t y l e ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ W I D T H , w i d t h ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ R A Y _ R I G H T , r a y _ r i g h t ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
}
/ / - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h a r t E v e n t M o u s e M o v e S e t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l C h a r t E v e n t M o u s e M o v e S e t ( c o n s t b o o l v a l u e )
{
/ / - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - -
i f ( ! C h a r t S e t I n t e g e r ( 0 , C H A R T _ E V E N T _ M O U S E _ M O V E , 0 , v a l u e ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" , E r r o r C o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h a r t M o u s e S c r o l l S e t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l C h a r t M o u s e S c r o l l S e t ( c o n s t b o o l v a l u e )
{
/ / - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - -
i f ( ! C h a r t S e t I n t e g e r ( 0 , C H A R T _ M O U S E _ S C R O L L , 0 , v a l u e ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" , E r r o r C o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h a r t M i d d l e X |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t C h a r t M i d d l e X ( )
{
r e t u r n ( ( i n t ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ W I D T H _ I N _ P I X E L S ) / 2 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h a r t M i d d l e Y |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t C h a r t M i d d l e Y ( )
{
r e t u r n ( ( i n t ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ H E I G H T _ I N _ P I X E L S ) / 2 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | R a n d o m C o l o r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
c o l o r R a n d o m C o l o r ( )
{
/ / - -
i n t p 1 = 0 + 2 5 5 * M a t h R a n d ( ) / 3 2 7 6 8 ;
i n t p 2 = 0 + 2 5 5 * M a t h R a n d ( ) / 3 2 7 6 8 ;
i n t p 3 = 0 + 2 5 5 * M a t h R a n d ( ) / 3 2 7 6 8 ;
/ / - -
r e t u r n ( S t r i n g T o C o l o r ( I n t e g e r T o S t r i n g ( p 1 ) + " , " + I n t e g e r T o S t r i n g ( p 2 ) + " , " + I n t e g e r T o S t r i n g ( p 3 ) ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | P l a y S o u n d |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d _ P l a y S o u n d ( c o n s t s t r i n g F i l e N a m e )
{
i f ( S o u n d I s E n a b l e d )
P l a y S o u n d ( F i l e N a m e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | A c c o u n t C u r r e n c y |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g _ A c c o u n t C u r r e n c y ( )
{
/ / - -
s t r i n g t x t = " " ;
i f ( A c c o u n t C u r r e n c y ( ) = = " A U D " ) t x t = " $ " ;
i f ( A c c o u n t C u r r e n c y ( ) = = " C A D " ) t x t = " $ " ;
i f ( A c c o u n t C u r r e n c y ( ) = = " C H F " ) t x t = " F r . " ;
i f ( A c c o u n t C u r r e n c y ( ) = = " E U R " ) t x t = " ¬ " ;
i f ( A c c o u n t C u r r e n c y ( ) = = " G B P " ) t x t = " £ " ;
i f ( A c c o u n t C u r r e n c y ( ) = = " J P Y " ) t x t = " ¥ " ;
i f ( A c c o u n t C u r r e n c y ( ) = = " N Z D " ) t x t = " $ " ;
i f ( A c c o u n t C u r r e n c y ( ) = = " U S D " ) t x t = " $ " ;
i f ( t x t = = " " ) t x t = " $ " ;
r e t u r n ( t x t ) ;
/ / - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E n d o f t h e c o d e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
Comments