第二十八章160開發(fā)新的vcl元件(參考版)
2024-10-06 19:26本頁面
【正文】 ? 請讀者想一個元件，並寫成一個 VCL元件。 38 本章習題 ? 請到網(wǎng)路上找三個以上提供 Free的 VCL元件的網(wǎng)站。如果在這邊沒有按下 Compile這個按鈕，那就等於做白工了。在這個範例中，我們需要移除兩個檔案，分別是『 』 和 『 』 這兩個檔案。我們利用滑鼠在我們想要移除的元件上按一下右鍵，這時候會出現(xiàn)一個 popup menu出來，上面有許多選項可以讓我們選，我們在這邊選擇『 Remove From Project』 將我們選取的檔案從 Package中移除，這樣移除就等於將這個 VCL元件從我們的 VCL面板中移除掉了。 ? 首先我們先到 BCB目錄下 Lib的目錄內(nèi)選擇 『 』 這個檔案，並且將他開啟，開啟之後除了會出現(xiàn)一個程式編輯器外，比較重要的是Package的視窗，這個視窗可以告訴我們目前我們自己安裝了哪些 VCL元件。 ? 很簡單吧。最後很重要的一點要注意，就是這時候要記得儲存檔案一次，不然 Package的專案內(nèi)容可能會出現(xiàn)問題。 ? 接著就會跳出一個對話窗出來問你，是不是要繼續(xù) Package Build的動作，這個動作最主要就是要將我們所選的 VCL元件加入目前 BCB的 Package當中，所以在這邊我們當然是選擇 『 Yes』 繼續(xù)我們的安裝動作。在這邊如果你想要安裝在其他的 Package File中也可以，這個設定對話窗中有兩個頁面，另一個頁面就是可以新增一個我們所想要的新的 Package檔案。另外也要再次注意一下 Search path有沒有正確指到我們要加入的這個 VCL元件的目錄。 ? 首先，選取主選單下的 Component下的 Install Component，然後會出現(xiàn)對話視窗，主要是要我們選擇一個已經(jīng)存在的 VCL元件。 32 282. 安裝 VCL元件 ? VCL元件的圖示做完了，我們就必須把這個 VCL元件安裝起來，這樣才能顯示出 VCL元件的功能。例如我們在範例 283中，因為我們VCL的原始檔案叫做 『 』 ，所以在這邊我們的這個資源檔應該要叫做 『 』 。 – 在這個 Node上連續(xù)點兩下，就會出現(xiàn)編輯畫面，這時候大家就可以利用Image Editor所提供的一些工具和顏色來設計我們所要的 Logo。 ? 接著在 Contents上按滑鼠右鍵，並且選擇 New底下的 Bitmap這個選項，然後會出現(xiàn)一個設定對話窗，這個對話窗主要是設定我們需要多大的圖案，在這邊因為VCL Logo的大小是 24x24，所以我們在這邊就將大小設定成 24x24，另外，為了顯示的顏色數(shù)目夠多，我們也將 Color設定成 SuperVGA的模式。 Image Editor的位置在程式集中 BCB的選單內(nèi)可以找到。 – 但是在安裝之前還有一件重要的事情，那就是每個 VCL元件都有一個屬於自己的 logo，像 StaticText有他自己的圖示， Edit也有自己的圖示，當然我們自己寫的 WeekDate也要有自己的圖示才可以囉！在這邊若是沒有提供 logo， BCB會主動以 Ancestor type所設定的 Component的logo作為預設值。 //設定背景色 } 26 281. 製作 VCL元件 ? 範例 283：實作一個 VCL元件中的 Method – 執(zhí)行結果 27 281. 製作 VCL元件 ? 在這三個範例我們都是採用 StaticText作為輸出的格式，所以選擇的 Ancestor type這個屬性就是用 TstaticText，如果各位讀者有其他的需求，可以自行改變喔！ ? 如果是要顯示出 VCL元件，則記得要在元件的 header file中先宣告好，然後在元件的 cpp file中都要採用動態(tài)產(chǎn)生的方式來產(chǎn)生（使用 new這個語法）。 } } // void __fastcall TForm1::Button2Click(TObject *Sender) { WeekDateSetColor(ComboBox2ItemIndex, 1)。 case 2 : WeekDateType = 2。 case 1 : WeekDateType = 1。 } // void __fastcall TForm1::Button1Click(TObject *Sender) { switch (ComboBox1ItemIndex) { //根據(jù) ComboBox選的項目的不同而有不同的 Type case 0 : WeekDateType = 0。 WeekDateTop = 10。 //宣告一個 TWeekDate物件 // __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { WeekDate = new TWeekDate(this)。 break。 case 17 : if (Type) FontColor = clYellow。 else Color = clWhite。 break。 case 15 : if (Type) FontColor = clTeal。 else Color = clSilver。 break。 case 13 : if (Type) FontColor = clRed。 else Color = clPurple。 break。 case 11 : if (Type) FontColor = clOlive。 else Color = clNavy。 break。 case 9 : if (Type) FontColor = clMaroon。 else Color = clLtGray。 break。 case 7 : if (Type) FontColor = clLime。 else Color = clGreen。 break
化學相關推薦
鄂ICP備17016276號-1