萬年曆 + 記事本 |
|
流
中階會員 發表:36 回覆:142 積分:70 註冊:2003-07-24 發送簡訊給我 |
因著 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=39094 文章的討論
所以小弟才寫個功能與程式都簡單的萬年曆小程式
程式中有用到 ColorButton 這個元件
可以在 http://delphi.ktop.com.tw/topic.php?topic_id=41578 找到
感謝 taishyang 版主 備註:
ColorButton 的顏色為綠色,是代表當天的日期
若 ColorButton 的顏色為為黃色,則代表此日期下有文字檔 這是小弟第一次上傳作品,寫的不好或太簡單請多多包含 ^^"
附加檔案:41803_Calender.zip
|
流
中階會員 發表:36 回覆:142 積分:70 註冊:2003-07-24 發送簡訊給我 |
|
a8960905
一般會員 發表:30 回覆:47 積分:20 註冊:2003-09-19 發送簡訊給我 |
|
流
中階會員 發表:36 回覆:142 積分:70 註冊:2003-07-24 發送簡訊給我 |
引言: 抱歉..給個小建議.. 可否再Memo的ScrollBars屬性設一下..因為有時候事情比較多Memo會裝不下喔~ 您寫的程式真的很棒 我使用的很快樂^^ 感謝您.. 本來想說自己幫您把Memo加上ScrollBar的.. 但是您好像有用到一些自己安裝的元件..所以我無法編譯.. 最後當然還是感謝你寫出這麼方便的程式囉a8960905 您好: 之所以上傳這個程式及原始碼就是想讓版上會員能自行修改 您有什麼需求,當然就可以改,只要您高興就好 : ) 程式中所需安裝的元件小弟在第一篇文章中就有介紹到 您可以參考第一篇文章中的連結,安裝的話在本站也有相關參考文章 如果您像小弟一樣不太會安裝元件,又想增加 Memo 的 ScrollBar 可以留下您的 mail ,小弟會盡快修改好寄給您 也要謝謝您的回文,這還是第一篇來信指導小弟不足的地方 |
流
中階會員 發表:36 回覆:142 積分:70 註冊:2003-07-24 發送簡訊給我 |
為了方便,小弟也將原來 C 語言 DOS 下執行的版本也貼上 #pragma hdrstop #include |
ENIX007
高階會員 發表:28 回覆:274 積分:185 註冊:2003-11-27 發送簡訊給我 |
|
流
中階會員 發表:36 回覆:142 積分:70 註冊:2003-07-24 發送簡訊給我 |
|
ENIX007
高階會員 發表:28 回覆:274 積分:185 註冊:2003-11-27 發送簡訊給我 |
|
ENIX007
高階會員 發表:28 回覆:274 積分:185 註冊:2003-11-27 發送簡訊給我 |
流您好,在看完source code之後,對於此程式有個建議
如果有不對的地方,也請不吝指教
有關 >
另外發現一個小小的問題,在使用 class="code">
if (ComboBox1->Text == FormatDateTime("mm",Now()) &&
ComboBox2->Text == FormatDateTime("yyyy",Now()))
for (int i=1 ; i<43 ; i )
((TColorButton *)FindComponent("ColorButton" IntToStr(i)))->Color = clCream ;
應該就可以了...
不知是您遺漏還是別有用意< >
以上是小弟一點點的建議,這是個很棒的程式,我已經拿來用了< >
再次感謝您的分享 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~
------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~ |
流
中階會員 發表:36 回覆:142 積分:70 註冊:2003-07-24 發送簡訊給我 |
引言: 流您好,在看完source code之後,對於此程式有個建議 如果有不對的地方,也請不吝指教 有關 > 另外發現一個小小的問題,在使用 class="code"> if (ComboBox1->Text == FormatDateTime("mm",Now()) && ComboBox2->Text == FormatDateTime("yyyy",Now())) for (int i=1 ; i<43 ; i ) ((TColorButton *)FindComponent("ColorButton" IntToStr(i)))->Color = clCream ; 應該就可以了... 不知是您遺漏還是別有用意< > 以上是小弟一點點的建議,這是個很棒的程式,我已經拿來用了< > 再次感謝您的分享 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~ENIX007 您好: 您提到的那個問題,小弟有請教過 包子哥 大大一個問題 如 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=41643 中小弟的提問 小弟原以為包大哥講的應該就是小弟那樣的寫法呢 ( 太笨了^^" ) 經您小弟心中已有腹案,但不知道是不是您講的那樣 可以請您寫個簡單的 code 說明一下嗎?小弟是真的想了解 至於在 "22日" 這天,所有的年月之顯示只要是有 "22日" 那天 ColorButton 的顏色都會是 MoneyGreen 原因無它,小弟的寫法是參考螢幕右下角的時鐘與萬年曆 感謝您的提問,讓小弟又有學習的機會。謝謝 |
ENIX007
高階會員 發表:28 回覆:274 積分:185 註冊:2003-11-27 發送簡訊給我 |
引言: 您提到的那個問題,小弟有請教過 包子哥 大大一個問題 如 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=41643 中小弟的提問 小弟原以為包大哥講的應該就是小弟那樣的寫法呢 ( 太笨了^^" ) 經您小弟心中已有腹案,但不知道是不是您講的那樣 可以請您寫個簡單的 code 說明一下嗎?小弟是真的想了解正如包大哥所說的那樣,只是第2個step 引言: (2)然後再把 Button1~Button40 的 OnClick 指到這個 event procedure 就可 以了您可能會錯意了 以程式中 class="code"> void __fastcall TForm1::ColorButton1Click(TObject *Sender) { if(((TColorButton*)Sender)->Caption!="") { ComboBox3->Text = ((TColorButton*)Sender)->Caption; check() ; } } 到這裡您是知道的,接下來是個人習慣,我會把ColorButton1Click函式名稱改為ColorButtonClick, 因為這段碼是要給46個ColorButton用的(到這裡您了解了吧) 是的,接下來的>下拉> 就可以看到剛剛寫好的 > 表達的蠻囉唆的,請多多包含啦< > 另外還有個建議,有關元件命名,例如上面的 > 當然這只是個人的習慣問題... > 程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~
------
程式迷人之處,在於邏輯思考,然而卻也是惱人之處~~ |
流
中階會員 發表:36 回覆:142 積分:70 註冊:2003-07-24 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |