LC记事本1.00源程序

// LC记事本1.00 // 作者：林华锋 // 修改：1999年11月 // 版权所有：LC工作室 //--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "note.h" #include "about.h" #include <IniFiles.hpp> //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; String fn;bool lcok; TIniFile *lcini=new TIniFile("lcnote.ini"); //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton1Click(TObject *Sender) { if(OpenDialog1->Execute()) { fn=OpenDialog1->FileName; RichEdit1->Lines->LoadFromFile(fn); } } //--------------------------------------------------------------------------- void __fastcall TForm1::O1Click(TObject *Sender) { SpeedButton1Click(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm1::N2Click(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton2Click(TObject *Sender) { if(SpeedButton2->Enabled) { RichEdit1->Lines->SaveToFile(fn); S1->Enabled=false; SpeedButton2->Enabled=false; } else { S1->Enabled=true; SpeedButton2->Enabled=true; } } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton4Click(TObject *Sender) { if(SaveDialog1->Execute()) RichEdit1->Lines->SaveToFile(SaveDialog1->FileName); } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton3Click(TObject *Sender) { RichEdit1->Lines->Clear(); fn="无名LC文档.txt"; } //--------------------------------------------------------------------------- void __fastcall TForm1::N3Click(TObject *Sender) { SpeedButton3Click(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm1::S1Click(TObject *Sender) { SpeedButton2Click(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm1::N4Click(TObject *Sender) { SpeedButton4Click(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton5Click(TObject *Sender) { if(FontDialog1->Execute()) RichEdit1->Font=FontDialog1->Font; } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton6Click(TObject *Sender) { if(ColorDialog1->Execute()) RichEdit1->Color=ColorDialog1->Color; } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton7Click(TObject *Sender) { RichEdit1->CutToClipboard(); } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton8Click(TObject *Sender) { RichEdit1->PasteFromClipboard(); } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton9Click(TObject *Sender) { RichEdit1->CopyToClipboard(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N5Click(TObject *Sender) { SpeedButton7Click(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm1::N7Click(TObject *Sender) { SpeedButton9Click(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm1::N6Click(TObject *Sender) { SpeedButton8Click(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton10Click(TObject *Sender) { RichEdit1->ClearSelection(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N8Click(TObject *Sender) { SpeedButton10Click(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm1::N9Click(TObject *Sender) { AboutBox->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { fn="无名LC文档.lhf"; if(ParamCount()>0) { fn=ParamStr(1); this->Caption="LC记事本 - "+fn; RichEdit1->Lines->LoadFromFile(fn); } S1->Enabled=false; N13->Enabled=false; N21->Enabled=false; SpeedButton2->Enabled=false; RichEdit1->WordWrap=lcini->ReadBool("Config","Line",lcok); N20->Checked=lcini->ReadBool("Config","Line",lcok); } //--------------------------------------------------------------------------- void __fastcall TForm1::N11Click(TObject *Sender) { RichEdit1->SelectAll(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N13Click(TObject *Sender) { static int flag=1; if(flag==1) { RichEdit1->Undo(); N13->Caption="重做"; N21->Caption="重做"; } else { RichEdit1->Undo(); N13->Caption="撤消"; N21->Caption="撤消"; } flag=-flag; } //--------------------------------------------------------------------------- void __fastcall TForm1::N14Click(TObject *Sender) { SpeedButton6Click(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm1::N15Click(TObject *Sender) { SpeedButton5Click(Sender); } //--------------------------------------------------------------------------- void __fastcall TForm1::N17Click(TObject *Sender) { RichEdit1->SetSelTextBuf(DateTimeToStr(Now()).c_str()); } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton11Click(TObject *Sender) { AboutBox->ShowModal(); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose) { int lc; String lcstr; if(SpeedButton2->Enabled) { lcstr=fn+"内容已经被更改,\n你是否要保存？" ; lc=Application->MessageBox(lcstr.c_str(),"LC记事本", MB_YESNOCANCEL+MB_ICONINFORMATION); if(lc==IDYES) SpeedButton2Click(Sender); else if(lc==IDCANCEL) CanClose=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::RichEdit1Change(TObject *Sender) { if(RichEdit1->CanUndo) { S1->Enabled=true; N13->Enabled=true; N21->Enabled=true; SpeedButton2->Enabled=true; } } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton12Click(TObject *Sender) { FindDialog1->Execute(); } //--------------------------------------------------------------------------- void __fastcall TForm1::FindDialog1Find(TObject *Sender) { TSearchTypes ft; static int fpos,atpos=0; if(FindDialog1->Options.Contains(frMatchCase)) ft<<stMatchCase; if(FindDialog1->Options.Contains(frWholeWord)) ft<<stWholeWord; RichEdit1->SelStart=atpos; fpos=RichEdit1->FindText(FindDialog1->FindText,RichEdit1->SelStart, RichEdit1->Text.Length(),ft); if(fpos!=-1) { RichEdit1->SetFocus(); RichEdit1->SelStart=fpos; RichEdit1->SelLength=FindDialog1->FindText.Length(); } else { Application->MessageBox("搜寻完毕！","LC记事本",MB_OK+MB_ICONINFORMATION); RichEdit1->SelStart=0; } if(FindDialog1->Options.Contains(frDown)) atpos=RichEdit1->SelStart+FindDialog1->FindText.Length(); else atpos-=FindDialog1->FindText.Length(); } //--------------------------------------------------------------------------- void __fastcall TForm1::N19Click(TObject *Sender) { FindDialog1Find(Sender); } //---------------------