請問在StringGrid中 如何能做到Multi-Select的功能 並能測知那些cell被選擇到 謝謝 發表人 - taishyang 於 2003/12/09 15:44:39

lin11112您好: 請注意您跨版發言! http://delphi.ktop.com.tw/topic.php?TOPIC_ID=41677 而且您多次在Delphi板上問BCB的問題,這樣會造成管理上的不便 麻煩請您配合 下面的 class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { for (int i=0;iColCount-1 ;i++) { for (int j=0;jRowCount-1 ;j++) { if (i>=StringGrid1->Selection.Left&& i<=StringGrid1->Selection.Right && j>=StringGrid1->Selection.Top&& j<=StringGrid1->Selection.Bottom) StringGrid1->Cells[i][j]="O"; else StringGrid1->Cells[i][j]="X"; } } } 效果如下圖所示 順心 發表人 -

Sorry taishyang大大 下次會注意的

引言: 請問在StringGrid中 如何能做到Multi-Select的功能 並能測知那些cell被選擇到 謝謝

我記得StringGrid沒有Multi-Select的屬性, 但是你可以紀錄user選過哪些cell。 利用StringGrid的row與col可以知道哪個cell被選到了。 數學系是內功很強(邏輯/分析) 資工系是招式很多(程式技巧) 就像令狐沖

lin11112您好:     int i,j, end_x, end_y;//全域變數 void __fastcall TForm1::Button1Click(TObject *Sender) { ShowMessage("star_x=" IntToStr(i) " star_y=" IntToStr(j) " end_x=" IntToStr(end_x) " end_y=" IntToStr( end_y)); } void __fastcall TForm1::sgrSelectCell(TObject *Sender, int ACol, int ARow, bool &CanSelect) { i=ACol; j=ARow; } void __fastcall TForm1::sgrMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { int rowheight=sgr->DefaultRowHeight; int colwidth=sgr->DefaultColWidth; end_x=X/colwidth; end_y=Y/rowheight; } 範圍選擇設定 Properties/Option/goRangeSelect==true 應有更好的方式,也請先進指教.

lo大大 請問sgrSelectCell 此函式是在何時呼叫或要放在那一個event中呢??

lin11112您好:    

lin11112您好: 這方式有缺點就是欄位大小要一致,規則性欄位可以靠程式達成. 剛剛仔細研究taishyang大的程式似乎比較好,可讀性較好. 請試試看 StringGrid1->Selection.Left StringGrid1->Selection.Right StringGrid1->Selection.Top StringGrid1->Selection.Bottom 都是pixels值 除以 sgr->DefaultRowHeight ＆ sgr->DefaultColWidth 應可得到相同答案

sgr->Row sgr->Col 這是選擇範圍的起點座標

請問StringGridDrawCell 是否會影響select 因小弟不論如何試都無法顯示成藍色

引言:請問StringGridDrawCell 是否會影響select 因小弟不論如何試都無法顯示成藍色

藍色是預設的 請檢查看DefaultDrawing==true ps:結案時,請將得分指給taishyang我在此也跟他學到了 老菜鳥

小弟的code如下(DefaultDrawing=true) 但仍無法select void __fastcall TFormDockStatusPage::StringGridDrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State) { StringGrid->Canvas->Pen->Color = clBlack; if( ARow == 0) StringGrid->Canvas->Brush->Color = clBtnFace; else { switch( ACol % 3) { case 0: StringGrid->Canvas->Brush->Color = clInfoBk; StringGrid->Canvas->FillRect( Rect); if( State.Contains( gdFocused)) StringGrid->Canvas->DrawFocusRect(Rect); StringGrid->Canvas->TextOut( Rect.Left 2, Rect.Top 2, StringGrid->Cells[ACol][ARow]); break; case 1: StringGrid->Canvas->Brush->Color = TColor( 0x00B9D9F0); break; case 2: StringGrid->Canvas->Brush->Color = TColor( 0x00B9D9F0); break; } } StringGrid->Canvas->FillRect( Rect); if( State.Contains( gdFocused)) StringGrid->Canvas->DrawFocusRect(Rect); StringGrid->Canvas->TextOut( Rect.Left 2, Rect.Top 2, StringGrid->Cells[ACol][ARow]); }

lin11112您好:

引言:小弟的code如下(DefaultDrawing=true) 但仍無法select

您PO的code與您原問題[如何能做到Multi-Select的功能][並能測知那些cell被選擇到],沒有什麼關聯性耶 發表人 -

lin11112您好: 我加入紅色部分就可以了 [void __fastcall TForm1::sgrMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { int rowheight=sgr->DefaultRowHeight; int colwidth=sgr->DefaultColWidth; end_x=X/colwidth; end_y=Y/rowheight; sgr->Repaint(); } void __fastcall TForm1::sgrDrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State) { if( State.Contains( gdFocused)) sgr->Canvas->DrawFocusRect(Rect); sgr->Canvas->Pen->Color = clBlack; if( ARow == 0) sgr->Canvas->Brush->Color = clBtnFace; else { switch( ACol % 3) { case 0: sgr->Canvas->Brush->Color = clInfoBk; sgr->Canvas->FillRect( Rect); if( State.Contains( gdFocused)) sgr->Canvas->DrawFocusRect(Rect); sgr->Canvas->TextOut( Rect.Left 2, Rect.Top 2, sgr->Cells[ACol][ARow]); break; case 1: sgr->Canvas->Brush->Color = TColor( 0x00B9D9F0); break; case 2: sgr->Canvas->Brush->Color = TColor( 0x00B9D9F0); break; } } if (ACol>=i&ACol<=end_x&ARow>=j&ARow<=end_y) sgr->Canvas->Brush->Color =clBlue; sgr->Canvas->FillRect( Rect); sgr->Canvas->TextOut( Rect.Left 2, Rect.Top 2, sgr->Cells[ACol][ARow]);

感謝lo大大 小弟已試成功 可否再請問 能否利用顏色來偵測有那些Cell有被選到

我想應該可以吧 加入紅色code後可show出數值,對顏色沒研究,我還不會轉換.請你研究一下. 或請知道的先進們指導一下.    void __fastcall TForm1::sgrSelectCell(TObject *Sender, int ACol, int ARow,       bool &CanSelect) {    i=ACol;    j=ARow; String colorshow= sgr->Canvas->Brush->Color; ShowMessage( "colorshow=" colorshow); }

感謝 lo與taishyang的指導