如何把文字加在橫線上

wanwh

在圖中, 已有 indicator 畫出橫線, 現想把文字 ( 即 24950 )加在橫線上, 但如何找 text 所在的 date ,  time,

因圖是動的, 是否要 INDICATOR 不斷修正位置?

hohooh

試試.,,不知道和你想要的有沒有一樣

1. 
   
2. inputs:
   
3.    ShowPriceLine( True ),
   
4.    LineColor( DarkGray ),
   
5.    LineStyle( Tool_Dashed3 ),        
   
6.    ShowText( True ),         
   
7.    TextColor( RGB(255,104,32) ),  
   
8.    TextSize( 14 ),   
   
9.    TextShiftUp( 2 ) ;              
   
10. 
    
11. variables:
    
12.    TL_ID( 0 ),
    
13.    int NumDecimals( 0 ),
    
14.    Date_And_Time(0),
    
15.    TheHigh(0),
    
16.    Text_ID( 0 ) ;
    
17. {
    
18.    if Category = 12 then
    
19.      NumDecimals = Log( PriceScale ) / Log( 10 ) - 1
    
20.    else
    
21.       NumDecimals = Log( PriceScale ) / Log( 10 ) ;
    
22. }   
    
23. if Date=1170509 and time=1315 and ShowPriceLine then begin
    
24.    TheHigh=        H;
    
25.    TL_ID = TL_New( D, T, H, D, T, H ) ;  
    
26.    TL_SetColor( TL_ID, LineColor ) ;  
    
27.    TL_SetStyle( TL_ID, LineStyle ) ;  
    
28.    TL_SetSize( TL_ID, 0 ) ;  
    
29.    TL_SetExtRight( TL_ID, True ) ;  
    
30.    TL_SetExtLeft( TL_ID, false ) ;
    
31.    TL_SetColor( TL_ID, LineColor ) ;
    
32.    Date_And_Time = getappinfo(aiRightDispDateTime);       
    
33.    Text_ID = Text_New( D, T, H, NumToStr( H, NumDecimals ) ) ;
    
34.    if ShowText then begin
    
35.       Text_SetLocation( Text_ID, D, T, H+ TextShiftUp ) ;
    
36.       Text_SetColor( Text_ID, TextColor ) ;
    
37.       Text_SetSize( Text_ID, TextSize ) ;
    
38.       Text_SetString( Text_ID, Spaces( 0 ) + NumToStr( C, NumDecimals ) ) ;
    
39.       Text_SetStyle( Text_ID, 0, 1 ) ;
    
40.       
    
41.    end ;           
    
42. end ;
    
43. Date_And_Time = getappinfo(aiRightDispDateTime);
    
44. text_setLocation(Text_ID,JulianToDate(IntPortion(Date_And_Time)),datetime2eltime(Date_And_Time)-60,TheHigh);
    
45.   
    
46. 
    
47.    
    
48. 
    
49.    
    

複製代碼

wanwh

和我想做的一樣, 謝謝你

wys1688

謝謝指導，正在學習multichart