main.cpp

Jesse Livermore 方法,和三线翻转方法

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Main.h"
#include "About.h"
#include "unit2.h"
#include "jesse.h"
#include "XXX.h"
#include "bar.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------

__fastcall TMainForm::TMainForm(TComponent *Owner): TForm(Owner)
        {
        }
//---------------------------------------------------------------------------

void __fastcall TMainForm::CreateMDIChild(String Name)
        {
	TForm1 *Child;
        TForm4 *form4;
	//--- create a new MDI child window ----
	Child = new TForm1(Application);
	form4 = new TForm4(Application);
	Child->Caption = Name;
        form4->Caption = Name;
	//if (FileExists (Name))		Child->Memo1->Lines->LoadFromFile(Name);
        }
//---------------------------------------------------------------------------

void __fastcall TMainForm::FileNew1Execute(TObject *Sender)
        {
	//CreateMDIChild("NONAME" + IntToStr(MDIChildCount + 1));
	TForm3 *Child;

	//--- create a new MDI child window ----
	Child = new TForm3(Application);
	Child->Caption = OpenDialog->FileName;

        }
//---------------------------------------------------------------------------

void __fastcall TMainForm::FileOpen1Execute(TObject *Sender)
        {
	if (OpenDialog->Execute())CreateMDIChild(OpenDialog->FileName);
        }
//---------------------------------------------------------------------------

void __fastcall TMainForm::HelpAbout1Execute(TObject *Sender)
        {
	AboutBox->ShowModal();
        }
//---------------------------------------------------------------------------

void __fastcall TMainForm::FileExit1Execute(TObject *Sender)
        {
	Close();
        }
//---------------------------------------------------------------------------



void __fastcall TMainForm::N10Click(TObject *Sender)
        {
        int cols;
        Form1->Memo1->Clear();
        cols = Form1->nill / 40;
        if((cols*40)>Form1->nill)cols=cols+1;
        for(int i=0; i<cols; i++)
        {
        for(int n=0; n<40; n++)
                {

                }
        }
        }
//---------------------------------------------------------------------------



void __fastcall TMainForm::N6Click(TObject *Sender)
{
Form4->Chart1->SaveToMetafileEnh("121212.wmf");
}
//---------------------------------------------------------------------------