第五章delphi圖形圖像編程一-免費閱讀
【正文】 下面的代碼可用鼠標繪制直線： procedure (Sender:TObject) begin Moveto(x,y)。 X,Y : Integer)。在 Delphi中， 對應(yīng)三個動作有三個不同的事件： OnMouseDown,OnMouseMove,OnMouseUp。 有時用戶按一個已經(jīng)按下的按鈕，希望該按鈕能夠彈起，這樣沒有任何按鈕被按下，使用 AllowAllup 屬性可實現(xiàn)上述功能。 glyph 通常需要四幅圖像，分別表示按下、不按、選擇、失效四種狀態(tài)。 Graphic 單元中還定義了一些常用的顏色常量，這些常量或直接映射成系統(tǒng)調(diào)色板中最相近的顏色，或映射成 Wondows 控制面板中顏色部分的系統(tǒng)視頻顏色。TBrush 擁有一個畫刷句柄 (HBrush)。 DrawFocuseRect 繪制的矩形不能滾動。 StretchDraw StretchDraw(Const Rect : TRcct : Graphic : TGraphic)。 MoveTo MoveTo(x,y : Integer)。 Dest 表示目標畫布上將接受復制 圖像的矩形區(qū)域。 Color : TColor)。 Arc 方法在橢圓上畫一段弧，橢圓由 (x1,y1),(x2,y2) 兩點所確定的橢圓所決 定。本章將結(jié)合此程序進行講述。另外，通過對鼠標事件的定義，可以方便的設(shè)計圖形繪制程序。 畫布的筆的位置定義在 PenPos 屬性中，可用 MoveTo 方法來移動筆。 Brushcopy Brushcopy(const Dest : TRect。 Source TRect)。如果矩形形成一個區(qū)域，將出現(xiàn)一個橢圓。 Polygon 方法在畫布上繪制一系 列的點，各點依次連成線，最后將首尾兩點相接形成一個區(qū)域，并用當前筆刷填充此區(qū)域。 RomlRect RomlRect((x1,y1,x2,y2,x3,y3, : Integer)?？山Y(jié)合當前的顏色、屏幕顏色或它們反轉(zhuǎn)值，對線段的顏色重新定義，但不改變 Color 屬性。 TColor 類型 TColor 類型用于定義一個對象的顏色。本節(jié)結(jié)合例程講述以下問題： ● 在工具條中添加加速按鈕 ● 響應(yīng)鼠標事件 ● 設(shè)置畫筆和畫刷 ● 實現(xiàn)繪圖的“橡皮擦”功能 ● 加入狀態(tài)條 在工具條中添加加速按鈕 加速按鈕是應(yīng)用程序常用的部件，它是替代菜單的快捷形式，通常把多個加速按鈕集中在一個工具條中以方便使用。當其它按鈕按下時，原來被按下的按鈕自動彈起，這些選擇排它的按鈕稱為一組加速按鈕。第二組與第三組加速按鈕處在兩個缺省不可見的面板中，它們分別代表不同風格的畫筆和畫刷，只有按下第一個面板中的畫筆 (或畫刷 )按鈕，第二 (或第三 ) 個面板才會顯示，這樣用戶就可以選擇畫筆、畫刷了。假如我們想在鼠標按下的地方出現(xiàn) Here。 用戶放松鼠標鍵
公司管理相關(guān)推薦
鄂ICP備17016276號-1