真正的速达源码(CB5可编译).zip

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "formulaMain.h" #include "FormulaDM.h" #include "fpageSetup.h" #include "FformulaFunc.H" #include "Formulatemplet.h" #include "COMMUNAL.H" #include "FBuild.h" #include "FormulaClear.h" #include "FormulaGuide.h" #include "SDMain.h" #include "FAlignment.h" #include "FCellWH.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "TTF160_OCX" #pragma link "TB97" #pragma link "cgauges" #pragma link "PopupMemuEx" #pragma link "CGAUGES" #pragma link "NewF1Book" #pragma link "ReportToF1Book" #pragma resource "*.dfm" TFMain *FMain; int G_Current_Row,G_Current_Col; int DesSheet,SrcSheet; int BackColorIndex,FontColorIndex; int ReportMonth; int Fisrt_in; TOLEBOOL* pBold; TOLEBOOL* pItalic; TOLEBOOL* pUnderline; TOLEBOOL* pStrikeout; TOLEBOOL* pOutline; TOLEBOOL* pShadow; BSTR pName[80]; short pSize ; long pcrColor; AnsiString ResultString; TColor U_C[16]={clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal, clGray, clSilver, clRed, clLime, clYellow, clBlue, clFuchsia, clAqua, clWhite}; AnsiString CString[16]={"黑色","深红色","绿色","橄榄色","藏青色","紫色","深青色","灰色","银色","红色","浅绿色","黄色","蓝色","紫红色","浅青色","白色"}; TColor BorderColor=clBlack; F1FileTypeConstants U_FileType; //F1CellFormat *CellFormat; //IF1CellFormatPtr CellFormat; const double fCMToTwips=566.92; //--------------------------------------------------------------------------- __fastcall TFMain::TFMain(TComponent* Owner) : TForm(Owner) { // SysModID=FillStartLog(FormulaModID); } //--------------------------------------------------------------------------- __fastcall TFMain::~TFMain(void) { delete pBold; delete pItalic; delete pUnderline; delete pStrikeout; delete pOutline; delete pShadow; } //--------------------------------------------------------------------------- void GetSelFont(TF1BookProxy *F1Book, TFont *Font) { //F1CharSetConstants pCharSet[80]; //VARIANT_BOOL **Edit By QLP //TOLEBOOL pBold , pItalic,pUnderline,pStrikeout; //TOLEBOOL pOutline, pShadow; F1Book->GetFont(pName, &pSize,pBold,pItalic, pUnderline, pStrikeout, &pcrColor, pOutline, pShadow); Font->Name=F1Book->FontName; // Font->Charset=pCharSet; Font->Color=(TColor)pcrColor; Font->Size=pSize; if (bool(pBold)) Font->Style=Font->Style<<fsBold; else Font->Style=Font->Style>>fsBold; if (bool(pItalic)) Font->Style=Font->Style<<fsItalic; else Font->Style=Font->Style>>fsItalic; if (bool(pUnderline)) Font->Style=Font->Style<<fsUnderline; else Font->Style=Font->Style>>fsUnderline; if (bool(pStrikeout)) Font->Style=Font->Style<<fsStrikeOut; else Font->Style=Font->Style>>fsStrikeOut; } //--------------------------------------------------------------------------- void SetSelFont(TF1BookProxy *F1Book, TFont *Font) { wchar_t pName[160]; // F1CharSetConstants pCharSet[80]; short pSize ; TOLEBOOL pBold, pItalic,pUnderline,pStrikeOut; long pcrColor; TOLEBOOL pOutline, pShadow; *pName=*(Font->Name.WideChar(pName,160)); pcrColor=(long)(Font->Color); pSize=(short)(Font->Size/20); pOutline=false; pShadow=false; pBold=false; pItalic=false;pUnderline=false;pStrikeOut=false; if (Font->Style.Contains(fsBold))pBold=true; if (Font->Style.Contains(fsItalic))pItalic=true; if (Font->Style.Contains(fsUnderline))pUnderline=true; if (Font->Style.Contains(fsStrikeOut))pStrikeOut=true; F1Book->SetFont(pName,pSize, pBold, pItalic, pUnderline, pStrikeOut, pcrColor, pOutline, pShadow); } //--------------------------------------------------------------------------- void __fastcall TFMain::btnFormulaGuideClick(TObject *Sender) { int iFormulaSheet=GetSheetIndexEx(-2); if(iFormulaSheet==0) { ShowMessage("公式页面不存在。"); return; } if(F1Book1->Sheet!=1) { ShowMsgBox("只有在公式页面中才能使用公式向导填充公式。"); return ; } AnsiString asUnit; FormulaGuideForm=new TFormulaGuideForm(Application); asUnit=WideCharToString(F1Book1->Get_EntryRC(F1Book1->Row,F1Book1->Col)); FormulaGuideForm->SetFormula(asUnit); if(FormulaGuideForm->ShowModal()==mrOk) { asUnit=FormulaGuideForm->GetFormula(); } delete FormulaGuideForm; F1Book1->Set_EntrySRC(iFormulaSheet, F1Book1->Row, F1Book1->Col, WideString(asUnit)); /* if (FBalance==NULL) Application->CreateForm(__classid(TFBalance), &FBalance); else FBalance->Show(); */ } //--------------------------------------------------------------------------- void __fastcall TFMain::F1BookProxy1DragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept) { Accept=True; } //--------------------------------------------------------------------------- void __fastcall TFMain::N12Click(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TFMain::F1BookInit() { SetCaption(); F1Book1->AllowAutoFill=true; F1Book1->AllowInCellEditing=true; F1Book1->ShowEditBar=true; F1Book1->AllowDesigner=false; // F1Book1->HdrWidth=700; F1Book1->ShowFormulas=false; F1Book1->AllowFormulas=true; F1Book1->ShowSelections=F1On; F1Book1->EnableProtection=false; F1Book1->AllowArrows=true; GetSelFont(F1Book1,FontDialog1->Font); CellFormat=F1Book1->GetCellFormat(); //CellFormat=dynamic_cast<F1CellFormat>(F1Book1->GetCellFormat()); UpdateFont(); UpdateAlignment(); Graphics::TBitmap *Bmp; Bmp=new Graphics::TBitmap; Bmp->Assign(ToolbarButton9731->Glyph); Bmp->Height=20; Bmp->Width=20; Bmp->Canvas->Pen->Color=clBlack; Bmp->Canvas->Brush->Color=clWhite; Bmp->Canvas->Rectangle(7,7,18,18); ToolbarButton9731->Glyph=Bmp; delete Bmp; Bmp=new Graphics::TBitmap; Bmp->Assign(ToolbarButton9736->Glyph); Bmp->Height=20; Bmp->Width=20; Bmp->Canvas->Pen->Color=clBlack; Bmp->Canvas->Brush->Color=clBlack; Bmp->Canvas->Rectangle(7,7,18,18); ToolbarButton9736->Glyph=Bmp; delete Bmp; BackColorIndex=15; FontColorIndex=0; F1Book1->Modified=false; //F1Book1->IF1Book_Modified=false; } //--------------------------------------------------------------------------- void __fastcall TFMain::N3Click(TObject *Sender) //Open { int a; OpenDialog1->InitialDir=asDataDirectory; if(OpenDialog1->Execute()) { TempletFileName=OpenDialog1->FileName; U_FileType=F1Book1->ReadEx(WideString(TempletFileName)); F1BookInit(); a=GetSheetIndexEx(-2); if(a==0) { F1Book1->SheetName[1]=WideString("公式"); } F1Book1->Sheet=1; } } //--------------------------------------------------------------------------- void __fastcall TFMain::FormCreate(TObject *Sender) { Left=0; Top=0; Width=634; Height=408; Fisrt_in=0; pBold = new TOLEBOOL(true); pItalic = new TOLEBOOL(true); pUnderline = new TOLEBOOL(true); pStrikeout = new TOLEBOOL(true); pOutline = new TOLEBOOL(true); pShadow = new TOLEBOOL(true); F1Book1->HeapMin(); U_FileType=F1FileFormulaOne3; ComboBox1->Items=Screen->Fonts; ComboBox1->ItemIndex=0; F1BookInit(); F1Book1->SheetName[1]=WideString("公式"); FuncIni(); Year=AccSetData.iCurrYear; FormActivate(NULL); F1Book1->Sheet=1; } //--------------------------------------------------------------------------- void __fastcall TFMain::UpdateFont() { int i; for(i=0;i<Screen->Fonts->Count;i++) { if (Screen->Fonts->Strings[i]==F1Book1->FontName) { ComboBox1->ItemIndex=i; ComboBox2->Text=IntToStr(F1Book1->FontSize/20)