各位大大好~~ 我是一個初學者,請教一下如何用BCB實現下面網頁的功能 http://www.chinagamedev.net/cgd2/article.php?id=414&PHPSESSID=67bcd6e49f6efe53ebe3ce8695e87fbb 發表人 - taishyang 於 2004/07/29 11:35:31

ksam123 您好：    我有上這個網頁，看了之後覺得很不錯。 但是建議您要稍微仔細再描述一下，您想學該網頁上的哪些功能？ 好讓站上有經驗的大大們，知道如何幫您喔。

ksam123: 該網頁.有資源包.將其下載. 解壓縮後.會有.cpp跟.h的檔案. 我大約看過一下.應該只要按照提供的function就可以ㄌ

感寫上面兩位大大回應 請教一個問題 在示範的程式中有網狀的方格在BCB裡如何完成的?

標題無意義!請儘速自行修改 新手發言請先閱讀本站相關規定 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19264        

ksam123 您好：    一個模仿上述部分功能的程式(BCB版本)，供您參考！ 說明如下： 1.因只是表達其涵意，以儘量接近為原則。 2.該程式有記錄填過點的位置，此簡單版本沒有，所以當有其他畫面遮住或form大小變更時，可能會導致某些方塊不見了(沒有在FormPaint(.)中重畫)。 希望能有個起頭，剩下的就請您自行研究與添加功能了！ < class="code"> //--------------------------------------------------------------------------- const int x0=10, y0=10, dh=10, dw=10, w=40, h=40; void __fastcall TForm1::FormPaint(TObject *Sender) { int row, col, len, gray=120; Form1->Canvas->Pen->Color = (TColor) RGB(gray, gray, gray); len = dw*w; for (row=0; row<=h; row ) { Form1->Canvas->MoveTo(x0, y0 row*dh); Form1->Canvas->LineTo(x0 len, y0 row*dh); } len = dh*h; for (col=0; col<=w; col ) { Form1->Canvas->MoveTo(x0 col*dw, y0 ); Form1->Canvas->LineTo(x0 col*dw, y0 len); } } //--------------------------------------------------------------------------- bool pressed=false; void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { pressed = true; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { int px, py, gray=120;; if ( ! pressed ) return; if ( X=(x0 dw*w) || Y=(y0 dh*h) ) return; px = (X-x0) / dw; py = (Y-y0) / dh; Form1->Canvas->Brush->Color = TColor RGB(gray, gray, gray); gray = 50; Form1->Canvas->Pen->Color = (TColor) RGB(gray, gray, gray); Form1->Canvas->Rectangle(x0 px*dw, y0 py*dh, x0 (px 1)*dw, y0 (py 1)*dh); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { pressed = false; } //--------------------------------------------------------------------------- RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####