HW1

第一次學習BCB，先從開檔案，存檔，還有畫線等學起，不過我光是回家安裝ＢＣＢ的程式，就費了好大一番功夫.......ＢＣＢ介面用起來很新奇，比我們平常學的資料結構的使用程式，看起來感覺更接近使用者。
以下是我們第一次做的作業所要用到的程式碼：
Open語法：OpenPictureDialog1 -> Execute();Image1 -> Picture -> LoadFromFile( OpenPictureDialog1 -> FileName );

Save語法：AnsiString as;as = ChangeFileExt(SavePictureDialog1->FileName,".BMP");if(SavePictureDialog1 -> Execute()){Image1 -> Picture -> SaveToFile( SavePictureDialog1 -> FileName );ShowMessage(OpenPictureDialog1->FileName + " Saved to " + as);}

Color語法：ColorDialog1 -> Execute();Image1 -> Canvas -> Pen -> Color = ColorDialog1 -> Color;

畫線：
if(Button == mbRight)Image1->Canvas->MoveTo(X,Y);if(Button == mbLeft)Image1->Canvas->LineTo(X,Y);

點滑鼠中鍵可得目前鼠標所在位置顏色：
if(Button == mbMiddle)Panel1->Color=RGB(GetRValue(Image1->Canvas->Pixels[X][Y]),GetGValue(Image1->Canvas->Pixels[X[Y]),GetBValue(Image1->Canvas->Pixels[X][Y]));

其實在打這些程式碼的時候，我發現有個共同的特點，就是什麼東西指向下一個東西，然後再去設定一些初值還有變數，就可以做出畫線，改變鼠標所在位置顏色等等，只是我常常把程式碼放錯地方，甚至是少了一個按鍵之類的.....不過就我第一次做ＢＣＢ作業的感覺來說，感覺還蠻容易上手的，也比我們學的資料結構有趣多了，學起來比較輕鬆，上課討論還可以加分。