文本編輯器Delphi課程設(shè)計

常州大學(xué)Delphi課程設(shè)計第頁共13頁目錄TOC\o"1-3"\h\u7445課程設(shè)計任務(wù)書 2235041、實驗題目： 3323772、項目概述 3188503、系統(tǒng)的功能需求 3189213.1總體設(shè)計 3292483.2系統(tǒng)功能 3210933.3系統(tǒng)工作流程 4267354、文本編輯器的詳細(xì)設(shè)計 4320214.1文本編輯器的界面設(shè)置 431374.1.1新建工程 4171694.1.2修改窗口： 4201224.2文本編輯器的詳細(xì)代碼分析 7177325.心得體會： 10230126.參考文獻(xiàn) 1194387.致謝 1144358.附錄 12課程設(shè)計任務(wù)書班級姓名一、設(shè)計題目：文本編輯器設(shè)計二、設(shè)計內(nèi)容：本設(shè)計是建立一個文本編輯器，MicrosoftWord雖然文字處理功能強(qiáng)大，但是啟動速度慢，文件龐大許多時候我們只用到部分功能。三、基本要求：對源程序編寫的要求：（1）能夠?qū)崿F(xiàn)任務(wù)書中的功能；（2）盡可能使界面友好、直觀、易操作；（3）源程序要有適當(dāng)?shù)淖⑨專钩绦蛉菀组喿x。撰寫“課程設(shè)計報告”，撰寫要求見附件實習(xí)報告撰寫排版要求。課程設(shè)計驗收要求：（1）運行所設(shè)計的系統(tǒng)；（2）回答有關(guān)問題；（3）提交課程設(shè)計報告和任務(wù)書；（4）提交源程序系統(tǒng)功能要求該文本編輯器具有完整的菜單，大部分菜單都在窗體對應(yīng)有一個快捷圖標(biāo)。包括新建、打開、保存、剪切、復(fù)制、粘貼、做對齊、右對齊、居中、文字加粗、文字傾斜、文字下劃線和文字大小等命令，在菜單中還包括字體顏色、窗體背景顏色。利用這些命令，可以很方便地處理很多文本文檔。該程序界面有好，當(dāng)把鼠標(biāo)放在快捷工具欄上時，程序會給出快捷菜單提示，同時，在窗體下方的中間，也有該快捷命令的說明文字。四、進(jìn)度安排：1、系統(tǒng)分析、設(shè)計準(zhǔn)備階段：4學(xué)時2、編程調(diào)試階段：44學(xué)時3、總結(jié)和書寫報告階段：10學(xué)時4、考核階段：2學(xué)時指導(dǎo)教師：年月日（3）依次選中各個菜單，在“屬性”面板上設(shè)置其Name屬性如下：文件（filen1）、新建（filenew）、打開（fileopen）、保存（filesave）、退出（fileexit）、編輯（Editn2）、剪切（Editcut）、復(fù)制（Editcopy）、粘貼（Editpaste）、自動換行（auto1）、全選（selectall1）、格式（Formatn3）、對齊（align）、左對齊（leftalign）、居中（centeralign）、右對齊（rightalign）、字體（Font1）、加粗（bold1）、傾斜（italic）、下劃線（underline1）、顏色（color1）、背景（background）、幫助（helpn4）、關(guān)于（aboutnotebook）。（4）選擇Win32頁上的ToolBar選項，在窗體中添加ToolBar控件，調(diào)整其合適的大小和位置。在“屬性”面板上設(shè)置其Color屬性為“clBtnFace”、設(shè)置其Align屬性為“alTop”，使其居于窗體的最上方。（5）選擇“附加”頁上的SpeedButton選項，在窗體中的ToolBar上添加12個SpeedButton控件。（6）點擊SpeedButton控件，在“屬性”面板上設(shè)置Glyph屬性，選擇BMP格式的圖片添加形象的圖標(biāo)。（7）分別選中各個SpeedButton控件，在“屬性”面板上設(shè)置其ShowHint屬性均為“True”。然后依次設(shè)置各個SpeedButton控件的Hint屬性為“新建”、“打開”、“保存”、“剪切”、“復(fù)制”、“粘貼”、“左對齊”、“居中”、“右對齊”、“加粗”、“傾斜”和“下劃線”。（8）選擇Win32頁上的StatusBar選項，在窗體中添加StatusBar控件，在“屬性”面板上設(shè)置其Align屬性為“alBottom”，使其居于窗體的底部。用鼠標(biāo)點擊其Panel屬性右邊的文本框(或者雙擊)，打開StatusBar.Panels編輯框，在其中點擊新建圖標(biāo)，新建提示文字“0-文本編輯器”，這將為窗體底部的任務(wù)欄添加提示文字。（9）選擇“對話框”頁上的ColorDialog選項，在窗體中添加ColorDialog控件，在“屬性”面板上設(shè)置其Name屬性為“ColorDialog1”。（10）選擇“對話框”頁上的FontDialog選項，在窗體中添加FontDialog控件，在“屬性”面板上設(shè)置其Name屬性為“FontDialog1”，Options屬性為“fdEffects”。（11）選擇“對話框”頁上的OpenDialog選項，在窗體中添加OpenDialog控件，在“屬性”面板上設(shè)置其Name屬性為“OpenDialog1”，設(shè)置其Filter屬性為“文本文件(*.txt)|*.txt”，設(shè)置其Options屬性為“[ofHideReadOnly,ofEnableSizing]”。（12）選擇“對話框”頁上的SaveDialog選項，在窗體中添加SaveDialog控件，在“屬性”面板上設(shè)置其Name屬性為“SaveDialog1”，設(shè)置其Filter屬性為“文本文件(*.txt)|*.txt”，設(shè)置其Options屬性為“[ofHideReadOnly,ofEnableSizing]”。（13）選擇“標(biāo)準(zhǔn)”頁上的Memo選項，在窗體中添加Memo控件，在“屬性”面板上設(shè)置其Name屬性為“Memo1”，Color屬性為“clWindow”，對齊方式Align屬性為“alClient”，使其占據(jù)窗體剩下空間。4.2文本編輯器的詳細(xì)代碼分析（1）選擇文件菜單下的新建命令，則新建一個文本文件，并將所有相關(guān)屬性初始化。代碼如下：procedureTForm1.filenewClick(Sender:TObject);beginMemo1.Clear;Memo1.SetFocus;Memo1.Color:=clMenu;Memo1.Font.Color:=clBlue;Memo1.Font.Size:=10;end;（2）打開文件和保存文件的代碼如下：procedureTForm1.fileopenClick(Sender:TObject);//打開beginifopendialog1.ExecutethenMemo1.Lines.LoadFromFile(opendialog1.FileName);end;procedureTForm1.filesaveClick(Sender:TObject);//保存beginifsavedialog1.ExecutethenMemo1.Lines.SaveToFile(savedialog1.FileName);end;（3）退出文本編輯器的代碼如下：procedureTForm1.fileexitClick(Sender:TObject);//退出beginclose;end;（4）因為利用了ColorDialog和FontDialog控件，相關(guān)的字體編輯部分的代碼很簡單，具體代碼如下：procedureTForm1.editcutClick(Sender:TObject);//剪切beginMemo1.CutToClipboard;end;procedureTForm1.editcopyClick(Sender:TObject);//復(fù)制beginMemo1.CopyToClipboard;end;procedureTForm1.editpasteClick(Sender:TObject);//粘貼beginMemo1.PasteFromClipboard;end;procedureTForm1.selectall1Click(Sender:TObject);//全選beginMemo1.SelectAll;end;procedureTForm1.auto1Click(Sender:TObject);//自動換行beginauto1.Checked:=notauto1.Checked;ifauto1.Checkedthenmemo1.WordWrap:=trueelsememo1.WordWrap:=false;end;procedureTForm1.leftalignClick(Sender:TObject);//左對齊beginleftalign.Checked:=notleftalign.Checked;ifleftalign.CheckedthenMemo1.Alignment:=taLeftJustify;end;procedureTForm1.centeralignClick(Sender:TObject);//居中begincenteralign.Checked:=notcenteralign.Checked;ifcenteralign.CheckedthenMemo1.Alignment:=taCenter;end;procedureTForm1.rightalignClick(Sender:TObject);//右對齊beginrightalign.Checked:=notrightalign.Checked;ifrightalign.Checkedthenmemo1.Alignment:=taRightJustify;end;procedureTForm1.bold1Click(Sender:TObject);//字體加粗beginbold1.Checked:=notbold1.Checked;ifbold1.Checkedthenmemo1.Font.Style:=memo1.Font.Style+[fsBold]elsememo1.Font.Style:=memo1.Font.Style-[fsBold]end;procedureTForm1.italicClick(Sender:TObject);//字體傾斜beginitalic.Checked:=notitalic.Checked;ifitalic.Checkedthenmemo1.Font.Style:=memo1.Font.Style+[fsItalic]elsememo1.Font.Style:=memo1.Font.Style-[fsItalic]end;procedureTForm1.underline1Click(Sender:TObject);//字體加下劃線beginunderline1.Checked:=notunderline1.Checked;ifunderline1.Checkedthenmemo1.Font.style:=memo1.Font.Style+[fsunderline]elsememo1.Font.Style:=memo1.Font.Style-[fsunderline]end;procedureTForm1.color1Click(Sender:TObject);//字體顏色beginifcolordialog1.Executethenmemo1.Font.Color:=colordialog1.Color;end;procedureTForm1.backgroundClick(Sender:TObject);//窗體背景顏色beginifcolordialog1.Executethenmemo1.Color:=colordialog1.Color;end;procedureTForm1.Memo1Change(Sender:TObject);Beginend;End.5.心得體會：生活中我們經(jīng)常需要用電腦編寫一些文檔來保存文件，本課程設(shè)計是運用了delphi軟件開發(fā)工具開發(fā)的應(yīng)用軟件。Delphi是上學(xué)期學(xué)的，記得的東西不大多了，開始看到這個題目的時候不知道應(yīng)該怎么做，只能翻翻書看看，網(wǎng)上資料找找，圖書館書找找。有些地方是有說明的，比如運用什么樣的控件，屬性的功能之類的。打開了Delphi7，一次次的嘗試需要達(dá)到的效果，菜單啊，快捷鍵形象的圖標(biāo)啊之類的。特別是在快捷鍵的圖標(biāo)這塊，我想了很多，思考了很多。開始嘗試的時候是運用了ImageList控件，但是在選擇圖標(biāo)加載完全后沒有辦法在speedbutton控件中體現(xiàn)出來，問了同學(xué)說可以用pagecontrol控件，添加pagecontrol控件，右擊選擇newpage，然后在屬性面板的images選擇ImageList1，可以添加圖標(biāo)但后面有字，也不知道怎么把它消除掉。最后的嘗試也是在寫日志的時候發(fā)現(xiàn)的，寫“SpeedButton控件添加圖片”去百度，一下就找到了我要的答案，通過右下方的Glyph來選擇電腦中的圖片，而且所截的圖片是需要bmp格式的圖片，之前的那些截圖都是png格式的。這就是這次課程設(shè)計中比較讓我頭疼的一個。還有這次的課程設(shè)計所需的代碼，因為有好幾個功能是相似的，所以寫起來也沒那么麻煩了。這次的課程設(shè)計鞏固深化了我的的理論知識，提高編程水平，并在此過程中培養(yǎng)嚴(yán)謹(jǐn)?shù)目茖W(xué)態(tài)度和良好的工作作風(fēng)；提高綜合運用所學(xué)的理論知識和方法獨立分析和解決問題的能力。6.參考文獻(xiàn)[1]李目海，

delphi應(yīng)用程序設(shè)計棗莊學(xué)院計算機(jī)科學(xué)系[2]陳豫龍何旭洪，

delphi數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航（第二版）人民郵電出版社[3]劉子銳，delphi數(shù)據(jù)開發(fā)自學(xué)教程人民郵電出版社[4]田守瑞、李永清，Delphi

7.0實例入門中國青年出版社[5]劉毅，Delphi程序設(shè)計入門科學(xué)出版社[6]網(wǎng)冠科技，Delphi

7.0程序設(shè)計基礎(chǔ)百例機(jī)械工業(yè)出版社

[7]楊華民、梁水、李方超，Delphi函數(shù)參考大全

人民郵電出版社7.致謝作為計算機(jī)科學(xué)與技術(shù)的學(xué)生，我覺得能做類似的課程設(shè)計是十分有意義，而且是十分必要的。我們在課堂上掌握的僅僅是專業(yè)基礎(chǔ)課的理論面，做類似的大作業(yè)就為我們提供了良好的實踐平臺。為了讓自己的設(shè)計更加完善，更加符合軟件工程標(biāo)準(zhǔn)，一次次翻閱各種參考資料是十分必要的，同時也是必不可少的。作為一名專業(yè)學(xué)生掌握一門或幾門程序設(shè)計語言是必不可少的，由于本次課程設(shè)計要求用delphi進(jìn)行開發(fā)，在這過程中我對各種的開發(fā)環(huán)境進(jìn)行了探索，這使我對delphi的集成開發(fā)環(huán)境有了更深刻的理解雖然去從未獨立應(yīng)用過它們，但是由于水平有限，難免會有錯誤，還望老師批評指正。8.附錄2014/5/26剛拿到課題的時候完全不知道怎么辦，dephi是上學(xué)期學(xué)的，很多也忘的差不多了，看了看文本編輯器所需要的功能，大概的翻看了下dephi書中基礎(chǔ)的怎樣建立程序。2014/5/27這個課題要做的是一個介于記事本和word之間的文本編輯器，它功能比記事本多，與記事本一樣小巧便捷，功能雖然沒用word強(qiáng)大，但是比word更易打開更方便操作。設(shè)置菜單的屬性功能。2014/5/28去圖書館查閱相關(guān)資料，大概的設(shè)計了下需要用到的圖標(biāo)命令等的位置和所需內(nèi)容。2014/5/29上網(wǎng)查閱了些資料，設(shè)計了下流程圖。2014/6/2這周開始是準(zhǔn)備把上周分析的系統(tǒng)功能通過軟件實現(xiàn)，先把框架做好，劃分幾塊，分幾個功能。用memo控件畫一個框，點擊MainMenu控件放在框里面。把MainMenu1主菜單中的的文件、編輯、格式、幫助以及這些里面