TDBListBox修改顏色及圖片之問題.... |
答題得分者是:GrandRURU
|
qq33252000
一般會員 發表:12 回覆:21 積分:6 註冊:2010-07-03 發送簡訊給我 |
我目前在自修delphi 6,剛好有一本課本很好用,但我實在看不懂下面這段成釋碼~可否請各位大大解釋一下
procedure TForm1.DBListBox1DrawItem(Contro1.TWinContro1; Index : Integer ; ; State : TOwnerDrawState); begin with DBListBox1.Brush.Color := clSkyBlue //設定顏色 else Font.Size :=0; FillRect(Rect); TextOut(Rect.Left 1, Rect.Top 1, DBListBox1.Items[Index]); end; end; 大大您好,因為本人是剛接觸delphi 知道這樣問,會比較不妥當 但紅色地方為看不懂的地方.... 可否告知一下這些地方的用法及他在這支程式裡面是做什麼用的??? 另外如果我今天想要加入的是一個笑臉圖而非顏色的話~~請問我該在哪修改??? |
GrandRURU
站務副站長 發表:240 回覆:1680 積分:1874 註冊:2005-06-21 發送簡訊給我 |
1.事件TCustomListBox::OnDrawItem
2.Canvas是TCanvas, 由DBListBox借來使用的 其它紅色都是Canvas的方法,詳見Help或Ktop Serach ===================引 用 qq33252000 文 章=================== 我目前在自修delphi 6,剛好有一本課本很好用,但我實在看不懂下面這段成釋碼~可否請各位大大解釋一下 procedure TForm1.DBListBox1DrawItem(Contro1.TWinContro1; Index : Integer ; ; State : TOwnerDrawState); begin with DBListBox1.Brush.Color := clSkyBlue? //設定顏色 ??? else? Font.Size :=0; ??? FillRect(Rect); ??? TextOut(Rect.Left 1, Rect.Top 1, DBListBox1.Items[Index]); end; end; 大大您好,因為本人是剛接觸delphi 知道這樣問,會比較不妥當 但紅色地方為看不懂的地方.... 可否告知一下這些地方的用法及他在這支程式裡面是做什麼用的??? 另外如果我今天想要加入的是一個笑臉圖而非顏色的話~~請問我該在哪修改??? |
qq33252000
一般會員 發表:12 回覆:21 積分:6 註冊:2010-07-03 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |