Guest User | Sign In

Knowledge Base

Triangle Example

 //
 // Sample script for Market Analyst tool scripting
 //
 
 // This section is where variable are defined that need to be used in both the Init and Process procedures
 var                        
     Line1 : TLine;
     Line2 : TLine;
     Line3 : TLine;
    
 
 // DefineTool is where the settings for the Tool are defined
 // This procedure is called once when the tool is loaded
 // Normally this procedure does not need to be changed
 procedure DefineTool(Tool : TTool);
 begin
     Tool.Name := 'Triangle';
     Tool.MouseClicks := 3;     
     Tool.Hint := '';
     Tool.ToolType := ttDrawing;
 end;
 
 // Init is called to initialise the tool
 // This procedure is called once when the tool is added to a chart
 procedure Init(Tool : TTool);
 begin
    Line1 := Tool.AddLine();
    Line1.Color := clRed;
    Line2 := Tool.AddLine();
    Line2.Color := clGreen;
    Line3 := Tool.AddLine();
    Line3.Color := clBlue;
 end;
 
 // Process is called to calculate and drawn the tool on screen
 // This procedure is called when new data is received or loaded and 
 // when a selection point is moved by the user 
 procedure Process(Tool : TTool; ProcessStart : Integer; ProcessEnd : Integer; DataIn : TDataList);
 begin
    Line1.P1.Date := Tool.MP[0].Date;
    Line1.P1.Price := Tool.MP[0].Price;
    Line1.P2.Date := Tool.MP[1].Date;
    Line1.P2.Price := Tool.MP[1].Price;
    
    Line2.P1.Date := Tool.MP[1].Date;
    Line2.P1.Price := Tool.MP[1].Price;
    Line2.P2.Date := Tool.MP[2].Date;
    Line2.P2.Price := Tool.MP[2].Price;
    
    Line3.P1.Date := Tool.MP[2].Date;
    Line3.P1.Price := Tool.MP[2].Price;
    Line3.P2.Date := Tool.MP[0].Date;
    Line3.P2.Price := Tool.MP[0].Price;
 end;

Please Wait!

Please wait... it will take a second!