【正文】 ect)。 procedure ToolButton20Click(Sender: TObject)。 procedure ToolButton21Click(Sender: TObject)。 procedure ToolButton30Click(Sender: TObject)。 procedure ToolButton28Click(Sender: TObject)。 procedure P2Click(Sender: TObject)。 procedure ToolButton23Click(Sender: TObject)。 procedure S1Click(Sender: TObject)。 procedure ToolButton22Click(Sender: TObject)。 procedure O1Click(Sender: TObject)。 procedure N3Click(Sender: TObject)。 procedure ToolButton27Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 procedure ToolButton18Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var Form10: TForm10。 ix:integer。 iy:integer。 sqx:integer。 //存入數(shù)據(jù)庫中坐標(biāo)數(shù)據(jù) sqy:integer。 szx:integer。 szy:integer。 hzxx:string。 //漢字信息 txmc:string。 //圖型名稱 hzxxys:integer。 //文本信息顏色 hzxxsz:integer。 //文本信息字體大小 電子科技大學(xué)畢業(yè)論文（設(shè)計） 微機數(shù)據(jù)采集系統(tǒng) 24 xzqx:integer。 //選中圖型坐標(biāo) xzqy:integer。 xzzx:integer。 xzzy:integer。 xzhzxx:string。 //選中文本信息 xzhzxxys:integer。 //選中文本信息顏色 xzhzxxsz:integer。 //選中文本信息字體大小 xztxlx:integer。 //選中圖型類型 xzys:integer。 //選中顏色 xzms:integer。 //選中模式 xzkd:integer。 //選中寬度 Font1:TFont。 //字體 sfdjzt:integer。 //是 否已經(jīng)選中字體 Drawing:bool。 //是否開始畫圖 Origin:TPoint。 MovePt:TPoint。 //光標(biāo)起點位置，當(dāng)前位置 xzdwy:TPoint。 //選中點位移量 wyqs1:TPoint。 wyzz1:TPoint。 wyqs2:TPoint。 wyzz2:TPoint。 DrawingTool:integer 。 //畫？圖型 CurrentFile:AnsiString。 function DrawShape(TopLeft:TPoint。BottomRight:TPoint。AMode:TPenMode):integer。 //定義畫圖函數(shù) function TDDrawShape(TopLeft:TPoint。BottomRight:TPoint。AMode:TPenMode):integer。 //定義拖動畫圖函數(shù) function Tdxsj(TopLeft:TPoint。BottomRight:TPoint。AMode:TPenMode):integer。 //寫實時數(shù) implementation uses sztpdx_form9, ryjbxx_datamodule1, wbsr_form8, dktx_form11, zdsc_form12 , txgl_form18, main_form1, sssj_datamodule3。 電子科技大學(xué)畢業(yè)論文（設(shè)計） 微機數(shù)據(jù)采集系統(tǒng) 25 function DrawShape(TopLeft:TPoint。BottomRight:TPoint。AMode:TPenMode):integer。 begin :=AMode。 case DrawingTool of 1: //直線 begin (,)。 (,)。 end。 2: //變壓器 begin (,+12,+24)。 (,+12,+12,+36)。 end。 3: //電桿 begin (,+3,+6)。 end。 4: //標(biāo)記 begin (,+6,+12)。 end。 5: //開關(guān) begin (,+6,+24)。 end。 6: //刀閘 begin (,)。 (,+6)。 (,+6)。 (+10,+6)。 (,+10)。 (,+16)。 (,+16)。 電子科技大學(xué)畢業(yè)論文（設(shè)計） 微機數(shù)據(jù)采集系統(tǒng) 26 (,+20)。 end。 7: //避雷器 begin (,+4,+6,+28)。 (,)。 (,+12)。 (,+28)。 (,+34)。 end。 8: //電抗器 begin (,)。 (,+10,+20,To+20,+10)。 (,)。 (,+10)。 (,+10)。 (,+10)。 (,+20)。 (,+25)。 end。 9: //電壓互感器 begin (,+8,+16)。 (,)。 (,+24)。 end。 10: //電流互感器 begin (,+8,+16)。 (,+8,+8,+24)。 end。 11: //電 容 begin (,)。 (,+6)。 電子科技大學(xué)畢業(yè)論文（設(shè)計） 微機數(shù)據(jù)采集系統(tǒng) 27 (,+6)。 (+6,+6)。 (,+10)。 (+6,+10)。 (,+10)。 (,+16)。 end。 12: //接地線 begin (,)。 (,+6)。 (,+6)。 (+8,+6)。 (,+10)。 (+5,+10)。 (,+14)。 (+2,+14)。 end。 13: //熔斷器 begin (,+4,+6,+28)。 (,)。 (,+34)。 end。 14: //電表 begin (,+4,+6,+28)。 (,+22)。 (+6,+22)。 end。 16: //漢字 begin if =clBlack then begin hzxxys:=0 //選中文本信息顏色 end。 電子科技大學(xué)畢業(yè)論文（設(shè)計） 微機數(shù)據(jù)采集系統(tǒng) 28 if =clRed then begin hzxxys:=1 //選 中文本信息顏色 end。 if =clBlue then begin hzxxys:=2 //選中文本信息顏色 end。 if =clGreen then begin hzxxys:=3 //選中文本信息顏色 end。 if =clWhite then begin hzxxys:=4 //選中文本信息顏色 end。 hzxxsz:=。 //選中文本信息字體大小 :=。 :=。 (,hzxx)。 end。 end。 end。 function TDDrawShape(TopLeft:TPoint。BottomRight:TPoint。AMode:TPenMode):integer。 begin :=AMode。 case xztxlx of //選中圖形類型 1: //直線 begin (,)。 (,)。 end。 2: //變壓器 begin (,)。 (,+12,+12)。 end。 3: //電桿 begin (,)。 end。 4: //標(biāo)記 電子科技大學(xué)畢業(yè)論文（設(shè)計） 微機數(shù)據(jù)采集系統(tǒng) 29 begin (,)。 end。 5: //開關(guān) begin (,)。 end。 6: //刀閘 begin (,)。