void __fastcall TForm1::ListBox1MouseUp(TObject *Sender,
  TMouseButton Button, TShiftState Shift, int X, int Y)
{
   if (Button == mbRight){
      ListBox1->ItemIndex = ListBox1->ItemAtPos(Point(X,Y), true);
   }
}
文章標籤

yao67 發表在 痞客邦 留言(0) 人氣()

無感網路賺錢方法推薦 MyBrowserCash 瀏覽網頁就可以賺美金 免費加入

<------點擊此圖免費加入會員

向來我們到他人網站瀏覽觀看廣告是不是都只利於他人賺取廣告費呢!?
而現在要跟大家介紹的
Mybrowsercash 是一個不需要改變自己的使用環境,同樣地只要瀏覽網頁,就可以逐漸幫自己賺點小錢喔!

隨著利潤共享模式的理念趨勢與網路世界中打廣告賺錢的不可或缺性,我認 MyBrowserCash具有很大的發展潛力!
基本上Mybrowsercash分成免費會員,銀卡會員與金卡會員。當然不需付費升級,免費加入就可以賺取瀏覽廣告的獎金囉,但是想當然爾,是以付費會員慧賺取比較多且比較快喔。

文章標籤

yao67 發表在 痞客邦 留言(0) 人氣()

[遊記]2011 新社花海 

 

像是來到美國西部牛仔的感覺~~天氣真好~!

P1060257.JPG 

茶花近拍

P1060246.JPG P1060255.JPGP1060258.JPG P1060259.JPG 

 

P1060240.JPGP1060260.JPG P1060262.JPG P1060264.JPG P1060265.JPG P1060267.JPG P1060268.JPG P1060270.JPG P1060271.JPG P1060274.JPG P1060275.JPG P1060277.JPG P1060280.JPG P1060281.JPG P1060282.JPG P1060284.JPG 

珍珠奶茶

P1060285.JPG 

文章標籤

yao67 發表在 痞客邦 留言(0) 人氣()

[旅遊]2011 通宵神社


今天參加了老婆公司的旅遊,早上去飛牛牧場烤肉後, 下午去通霄神社晃晃

到的時候, 有一組新人在這邊拍婚紗照, 個人覺得在那攝影師應該很厲害,

我們在這邊拍了好多, 要取景人就變很小一隻, 人要拍大一點, 就看不出有什

麼特色, 只能說攝影師應該很厲害~!

P1060124.JPG P1060125.JPG P1060126.JPG 

鳥居~!

P1060129.JPG P1060130.JPG  

文章標籤

yao67 發表在 痞客邦 留言(0) 人氣()

[旅遊]2011 銅鑼杭菊


到那邊這一區域已經被採收過一次囉,看起來是不是稀稀疏疏的!

P1060138.JPG P1060139.JPG P1060140.JPG 

 

讓人有一種很大一片的感覺 ^.^~!

P1060141.JPG  P1060143.JPG P1060145.JPG

近拍!@@

P1060142.JPG

文章標籤

yao67 發表在 痞客邦 留言(0) 人氣()

BCB-設定Excel欄位為通用格式

Worksheet.OlePropertyGet("Cells", row, 10).OlePropertySet("NumberFormatLocal","@");


文章標籤

yao67 發表在 痞客邦 留言(0) 人氣()

BCB-兩個StringGrid 同步滾動

void __fastcall TForm1::StringGrid1TopLeftChanged(TObject *Sender)

{

  StringGrid2->TopRow = StringGrid1->TopRow;

  StringGrid2->LeftCol = StringGrid1->LeftCol;

}


文章標籤

yao67 發表在 痞客邦 留言(0) 人氣()

BCB-替代字元應用函數

oneData->CommaText=StringReplace(csvFile->Strings[i]," ","^",TReplaceFlags()<<rfReplaceAll);

將某一字串內容的空白字變成 "^"字元

如 I Love You --> I^Love^You



文章標籤

yao67 發表在 痞客邦 留言(0) 人氣()

BCB 透過winrar 進行壓縮

ShellExecute(NULL,"open","C:\\Program Files\\WinRAR\\WinRAR.exe","a -r -y -o+ -m5 C:\\temp1\\123.rar","C:\\bak\\1215",SW_HIDE);


ShellExecute(NULL,"open",WinRAR.exe路徑,WinRAR解壓縮參數與壓縮檔名路徑,要壓縮的路徑位置,執行時隱藏);


文章標籤

yao67 發表在 痞客邦 留言(0) 人氣()

BCBStringGrid中文字居中

BCBDelphi中,StringGrid中的文字無法置中,一般只能自己寫代碼来,下面的代碼可以完成這個功能,同時還支持列寬自動置中。

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,

      int ARow, TRect &Rect, TGridDrawState State)

{

AnsiString Str=" ";

 ((TStringGrid*)Sender)->Canvas->Font=((TStringGrid*)Sender)->Font;

 for(int i=0;i<((TStringGrid*)Sender)->RowCount;i++){

     if(((TStringGrid*)Sender)->Cells[ACol][i].Length()>Str.Length())

         Str=((TStringGrid*)Sender)->Cells[ACol][i];

文章標籤

yao67 發表在 痞客邦 留言(0) 人氣()