第一次發問,button顏色疑問!爬文困惑 |
答題得分者是:RootKit
|
heartgame0
一般會員 發表:2 回覆:29 積分:11 註冊:2008-07-28 發送簡訊給我 |
首先,附圖檔,這是對岸所找到的小程式!button1是原本它的,button2是我手按再加上個,
2個都有附圖跟改顏色的功能,就是bitmap及color的選項,如果不開它這個小程式就沒有這2個選項!why? 怕有人問原始源,所以附上!(另外,我用搜尋button 顏色,只找到用第三方控件的方法)所以困惑怎會沒有像小程式的方法呢? 另外如果須要小程式的全部,我再附上!!謝謝 [code delphi] unit Unit1; interface uses SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, QComCtrls; type TForm1 = class(TForm) ProgressBar1: TProgressBar; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.xfm} procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin ProgressBar1.Step:=1; ProgressBar1.Min:=0; ProgressBar1.Max:=100; ProgressBar1.Smooth:=True; for i:=0 to 100 do begin case i of 0..25: ProgressBar1.FillColor:=clred; 26..50: ProgressBar1.FillColor:=clblack; 51..75: ProgressBar1.FillColor:=clBlue; 76..100: ProgressBar1.FillColor:=clYellow; end; ProgressBar1.StepIt; sleep(100); end; end; end.[/code]
------
資訊業是永遠不能停止學習的行業! 但是進步都只是一點點一點點! ==可以不用理我!因為我的程度只有2成,或許不到!! ==我只會拉拉元件,打打迴圈,打打條件判斷,連連資料庫,rs232送送訊號,印表機簡單列印。 只有寫寫小小的點餐軟體(為何想寫,因為叫人家改的小東西,都ooxx,是會付錢的又不是沒錢,但是理由還是一堆) |
careychen
尊榮會員 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
其實…有點困擾說~~~ 標題是問 Button 的顏色,但程式碼是 PO ProgressBar 的程式碼?
是我不理解您的問題嗎? 如果是問 Button 的顏色如何改,有個 TColorButton 可用,你看看是不是你的需求......
------
價值的展現,來自於你用哪一個角度來看待它!! |
heartgame0
一般會員 發表:2 回覆:29 積分:11 註冊:2008-07-28 發送簡訊給我 |
不是我要的需求!謝謝
post出來的是它全部碼!為何button會可以變色!你給的是第三方控件,有原來的可用,為何還要去掛其它的呢?除非有其它好用的部份(我會用到的),才會掛上。
------
資訊業是永遠不能停止學習的行業! 但是進步都只是一點點一點點! ==可以不用理我!因為我的程度只有2成,或許不到!! ==我只會拉拉元件,打打迴圈,打打條件判斷,連連資料庫,rs232送送訊號,印表機簡單列印。 只有寫寫小小的點餐軟體(為何想寫,因為叫人家改的小東西,都ooxx,是會付錢的又不是沒錢,但是理由還是一堆)
編輯記錄
|
careychen
尊榮會員 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
===================引 用 heartgame0 文 章===================
不是我要的需求!謝謝 post出來的是它全部碼!為何button會可以變色! 因為有在 Canvas 上面畫顏色呀~~ 你給的是第三方控件,有原來的可用,為何還要去掛其它的呢? 當然是原本的不能用才掛第三方的,他這個 TColorButton 也是把 Button 沒有弄出來的顏色部份把他弄出來而已 除非有其它好用的部份(我會用到的),才會掛上。 他裡面有只有這個 pas 檔而已,也沒其他的了,但是聽起來你好像很討厭掛元件?? 不過,我還是不懂你指的小程式是指什麼??? 跟上面你 Po 出來的 程式碼有什麼關係????? 第三方元件出現的原因,就是在彌補原本元件的不足,強化與加速專案的開發,但你有看過第三方的元件 Source 嗎?? 哪一個不是從 Delphi 的元件發展上來的???
------
價值的展現,來自於你用哪一個角度來看待它!! |
heartgame0
一般會員 發表:2 回覆:29 積分:11 註冊:2008-07-28 發送簡訊給我 |
===================引 用 careychen 文 章=================== ===================引 用 heartgame0 文 章=================== 不是我要的需求!謝謝風 post出來的是它全部碼!為何button會可以變色! 因為有在 Canvas 上面畫顏色呀~~ 嗯!如果是你說的canvas,那就是我要的,但是我要去查它的用法(及是不是真的我要的),如果簡易教學讓我了解(調用成功),就非常感謝! 你給的是第三方控件,有原來的可用,為何還要去掛其它的呢? 當然是原本的不能用才掛第三方的,他這個 TColorButton 也是把 Button 沒有弄出來的顏色部份把他弄出來而已 是看到別人有可以用的,所以才困惑為何大家不像他直接用,都說第三方控件。 除非有其它好用的部份(我會用到的),才會掛上。 他裡面有只有這個 pas 檔而已,也沒其他的了,但是聽起來你好像很討厭掛元件?? 討厭是還不至於,我用com1送訊號,就要掛spcom(不是全名)。只是軟體上面一排這麼多東西可用,還要掛,還沒有寫多麼強大的軟體。(目前快完成點餐軟體,不知道看書、爬文用了一年有沒有,真正查資料寫的時間,絕對沒超一個月,指時數,2個禮拜也沒有吧,要工作加班帶小孩)(花較多時間在4、5個功能上)目前在美化軟體跟報表,所以問button顏色!!!!! 不過,我還是不懂你指的小程式是指什麼??? 我附圖有畫面,是寫一個進度條在跑的小程式。 跟上面你 Po 出來的 程式碼有什麼關係????? 怕有人問我那裡看到可變色的button,碼的內容有什麼! 第三方元件出現的原因,就是在彌補原本元件的不足,強化與加速專案的開發,但你有看過第三方的元件 Source 嗎?? 有,就是spcom這個source,應該不是從delphi元件發展上來的,不過並沒有全看完,所以不敢說,我說的對,只是感覺上不是。 哪一個不是從 Delphi 的元件發展上來的???
------
資訊業是永遠不能停止學習的行業! 但是進步都只是一點點一點點! ==可以不用理我!因為我的程度只有2成,或許不到!! ==我只會拉拉元件,打打迴圈,打打條件判斷,連連資料庫,rs232送送訊號,印表機簡單列印。 只有寫寫小小的點餐軟體(為何想寫,因為叫人家改的小東西,都ooxx,是會付錢的又不是沒錢,但是理由還是一堆)
編輯記錄
heartgame0 重新編輯於 2008-07-28 18:57:43, 註解 無‧
|
careychen
尊榮會員 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
|
RootKit
資深會員 發表:16 回覆:358 積分:419 註冊:2008-01-02 發送簡訊給我 |
|
heartgame0
一般會員 發表:2 回覆:29 積分:11 註冊:2008-07-28 發送簡訊給我 |
嗯!這就是真正的答案,
這樣看來, 並沒有很多人知道。還是沒看懂我給的東西。 謝啦!給分 我還要知道為何大家不是用CLX,或許看過help或書籍後就可能知道了吧! ===================引 用 RootKit 文 章=================== CLX Application 自己 New -> CLX Application 就知道。 詳細請查閱 HELP 或書籍
------
資訊業是永遠不能停止學習的行業! 但是進步都只是一點點一點點! ==可以不用理我!因為我的程度只有2成,或許不到!! ==我只會拉拉元件,打打迴圈,打打條件判斷,連連資料庫,rs232送送訊號,印表機簡單列印。 只有寫寫小小的點餐軟體(為何想寫,因為叫人家改的小東西,都ooxx,是會付錢的又不是沒錢,但是理由還是一堆)
編輯記錄
heartgame0 重新編輯於 2008-07-29 22:40:32, 註解 無‧
|
careychen
尊榮會員 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
原來如此,只是… 我知道是 clx 元件是 跨平台系統使用的,
但小弟是用 Delphi 2007 已經沒有 CLX Application 可以 new 了,連 Help 也沒了 Kylix 系統到了 3.0 就不再發展,小弟也沒有再繼續使用下去, 也許維護困難所以之後就沒有再發展了 只是小弟本來是想解決問題的,卻感覺被刮了一頓,不過我也學到了,謝謝你 ===================引 用 heartgame0 文 章=================== 嗯!這就是真正的答案, 這樣看來, 並沒有很多人知道。還是沒看懂我給的東西。 謝啦!給分 我還要知道為何大家不是用CLX,或許看過help或書籍後就可能知道了吧!
------
價值的展現,來自於你用哪一個角度來看待它!!
編輯記錄
careychen 重新編輯於 2008-07-29 23:30:08, 註解 無‧
|
heartgame0
一般會員 發表:2 回覆:29 積分:11 註冊:2008-07-28 發送簡訊給我 |
是喔!kylix不再發展了喔!本想這軟體寫完,要試linux,那就省原版作業系統了!
真是的,還是會想辦法看linux有無其它方法。 提早知道了,不然等我要寫linux時,才會知道吧! 我忘了打7版,不過,我有附圖檔,它有7版的畫面跟字。 ===================引 用 careychen 文 章=================== 原來如此,只是… 我知道是 clx 元件是 跨平台系統使用的, 但小弟是用 Delphi 2007 已經沒有 CLX Application 可以 new 了,連 Help 也沒了 Kylix 系統到了 3.0 就不再發展,小弟也沒有再繼續使用下去, 也許維護困難所以之後就沒有再發展了 只是小弟本來是想解決問題的,卻感覺被刮了一頓,不過我也學到了,謝謝你
------
資訊業是永遠不能停止學習的行業! 但是進步都只是一點點一點點! ==可以不用理我!因為我的程度只有2成,或許不到!! ==我只會拉拉元件,打打迴圈,打打條件判斷,連連資料庫,rs232送送訊號,印表機簡單列印。 只有寫寫小小的點餐軟體(為何想寫,因為叫人家改的小東西,都ooxx,是會付錢的又不是沒錢,但是理由還是一堆) |
careychen
尊榮會員 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |