各位高手大家好： 我還是Delhpi的新手，所以想請教熱心的大家一問題， 我目前有寫到Brush.Style此語法… 但是，我買的書本，沒有很詳細的提其用途及用法， 實在不大明白，bsClear、bsSolid、bsBDiagonal…等色碼的函意， 因為我曾試著利用每一項色碼來改變表單字型的填滿模式， 但，總覺得似乎還是不大明白有任何改變…@@|| 我目前也只知道bsClear表示透明模式…^^||| 不知道，有沒有高手願意將自己所知的色碼模式… 分享出來… 因為學到了，就想透徹瞭解其中的用意… 感謝～

引言: 各位高手大家好： 我還是Delhpi的新手，所以想請教熱心的大家一問題， 我目前有寫到Brush.Style此語法… 但是，我買的書本，沒有很詳細的提其用途及用法， 實在不大明白，bsClear、bsSolid、bsBDiagonal…等色碼的函意， 因為我曾試著利用每一項色碼來改變表單字型的填滿模式， 但，總覺得似乎還是不大明白有任何改變…@@|| 我目前也只知道bsClear表示透明模式…^^||| 不知道，有沒有高手願意將自己所知的色碼模式… 分享出來… 因為學到了，就想透徹瞭解其中的用意… 感謝～

type TBrushStyle = (bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross); property Style:TBrushStyle; bs Solid : 實心 bsCross : 十字網狀 bsClear : 空白 bsDiagCross : 交插網狀 bsBDiagonal : 右斜線 bsHorizontal : 水平線 bsFDiagonal : 左斜線 bsVertical : 垂直線

謝謝上面高手的回應…^^ 我知道了， 但是，我在應用那些設定值的時候… 為什麼出現在表單上的字… 並無任何變化呢???? 如： procedure TForm1.Button1Click(Sender: TObject); begin   Canvas.Font.Size :=16;   Canvas.Brush.Style :=bsDiagCross ; Canvas.TextOut(12,12,'我'); end; 那個「我」沒有什麼有變化的感覺耶…^^|| 不好意思…想問詳細一點… 發表人 - uuujjj 於 2002/12/28 19:04:18

引言: 謝謝上面高手的回應…^^ 我知道了， 但是，我在應用那些設定值的時候… 為什麼出現在表單上的字… 並無任何變化呢???? 如： procedure TForm1.Button1Click(Sender: TObject); begin Canvas.Font.Size :=16; Canvas.Brush.Style :=bsDiagCross ; Canvas.TextOut(12,12,'我'); end; 那個「我」沒有什麼有變化的感覺耶…^^|| 不好意思…想問詳細一點… 發表人 - uuujjj 於 2002/12/28 19:04:18

procedure TForm1.Button1Click(Sender: TObject); begin Canvas.Font.Color := clRed; Canvas.Brush.Color := clBLUE; Canvas.Font.Size :=100; Canvas.Brush.Style :=bsDiagCross ; canvas.FillRect(ClientRECT); end; 發表人 - CMF 於 2002/12/28 19:51:27

謝謝您的指教，馬上用來一試… 字果然變色了…^___^ 但是…那Brush.Style這語法… 是有什麼作用呢?? 因為我還是沒看到交叉網狀的樣子ㄚ…@@ 嗚…還是…是我電腦的問題呢?

引言: 謝謝您的指教，馬上用來一試… 字果然變色了…^___^ 但是…那Brush.Style這語法… 是有什麼作用呢?? 因為我還是沒看到交叉網狀的樣子ㄚ…@@ 嗚…還是…是我電腦的問題呢?

試一試這個 Canvas.Brush.Style :=bsDiagCross ; canvas.FillRect(ClientRECT); Brush 就是刷子 Brush.Style 就是刷子樣式 當你作填滿的動作,就可以看到效果

哇～您真的好熱心…^________^ 謝謝～所有的疑惑都解決了… 感謝您的指導～

謝謝您的提醒…^^ 因為還不大習慣有給分制度這樣的討論區 現在已經知要給分， 謝謝您的叮嚀，我已經有指定給分了    ================================================ uuujjj: 請隨時注意是否已獲得滿意答覆, 若已獲得滿意答覆,請指定得分會員.    你共有4篇未結案    【問題】如何利用access表單設計程式寫出能減掉產品資料表的庫存     http://delphi.ktop.com.tw/topic.php?TOPIC_ID=24030 【問題】關於如何使登入網域的電腦完全無法上網瀏覽網站 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23050 【問題】【Delphi6】請問如何從table中有條件式的轉存為文字檔 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=21625 [/quote]