范例展示色彩.pptVIP

Start BCB 範例：展示色彩 建立一個BCB的程式，分別輸入RGB三個色彩分量（紅、藍、綠）以決定一種顏色 在按鍵後秀出該顏色 開啟一個新專案 新增可編輯欄位(Edit)控制項 該「輸入欄位」的特性表 控制項的特性 Left: 靠左對齊的位子 Name: 該「物件」的名字 TabOrder: 按Tab時出現的先後 Text: 該輸入欄預先輸入的文字 Color: 顏色 Font: 字型、字體顏色相關設定 Size: 欄位大小 Visible: 可見或不可見 新增Label(標籤) 複製三個Edit，分別為Edit1, Edit2, Edit3 新增三個Label，分別為Label1, Label2, Label3 修改標籤的屬性 在「Caption」的欄位修改標籤的屬性 依次修改完三個標籤 對齊與鎖定 可針對所選取的圖形介面控制項進行鎖定與對齊 對齊（Align） 將label1 ,label2, label3對齊 將Edit1, Edit2, Edit3對齊 鎖定（Lock Controls） 禁止修改這部份介面的內容與功能 建立一個按鈕(Button) 從Standard控制項區域新增一個標示為OK的Button 在視窗介面畫出該Button的大小 修改該Button的Caption（在Button上面所要秀出的文字） 新增一個Panel（面版） 新增一個Panel Panel的功能在此用以展示顏色 新增一個Memo(文字展示區塊) 新增一個memo Memo的用途在於方便展示程式的輸出 亦可作為輸出程式的資訊以進行除錯 介面物件列表 一共新增了 3個Edit 3個Label 1個Button 1個Memo 1個Panel 背後程式設計 快速按兩下Button開始進行程式書寫 輸入：3個Edit視窗 輸出：Memo和Panel 程式碼 void __fastcall TForm1::Button1Click(TObject *Sender) { int colorR, colorG, colorB; //先建立三種顏色 if(Edit1-Text.ToInt()255 || Edit2-Text.ToInt()255 || Edit3-Text.ToInt()255) ShowMessage(請輸入0~255間的數字); //如果輸入的數值超過255，浮現警告視窗 colorR = Edit1-Text.ToInt(); //將Edit1所得到的文字值轉為整數 colorG = Edit2-Text.ToInt(); colorB = Edit3-Text.ToInt(); Panel1-Color = TColor(RGB(colorR, colorG, colorB)); //畫出該顏色 Memo1-Text = “#” + IntToHex(colorR, 2) + IntToHex(colorG, 2) + IntToHex(colorB, 2); //將各顏色轉為16進位，並在Memo1中秀出來 } 程式解釋1 ShowMessage(“Hi!!”) 可以顯示出在刮號中的字串，但其必須為一個字串，或者為一字串變數 colorR = Edit1-Text.ToInt(); 在Edit1該物件中，其所接受得值為一「文字」而非「數值」，所以必須用程式將其轉為數值，才能給colorR用 符號「-」代表一個使用物件的關係，意味著Edit中有一個物件叫做Text 符號「.」代表一個使用函式的關係，ToInt()為Text物件所擁有的函式，也就是Text物件所擁有的行為 Panel1-Color = TColor(RGB(colorR, colorG, colorB)); 在BCB中顏色可以用TColor這個物件， 可以用RGB這個物件來初始化TColor這個物件 RGB(紅, 藍, 綠)為RGB色彩的標準宣告模式 Panel物件中有一個Color物件，可以指定該Panel的顏色 程式說明3 Memo1-Text = “#” + IntToHex(colorR, 2) + IntToHex(colorG, 2) + IntToHex(colorB, 2); Memo1的輸出格式必為文字，也要引用Text這個物件 IntToHex(colorR, 2)為一個函式，可以將一個整數轉換為十六進位的數字，例如將colorR這個整數，轉換為兩位的十六進為 Integer to Hexadecimal (整數轉十六進位) 在BCB中可以用「+」這個符號來連接數個字串以輸出 色碼表 好用連結 /color_list.htm .tw/~s1378/wjs-1306.htm /home2