全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1426
推到 Plurk!
推到 Facebook!

about StringGrid1使用

尚未結案
kkccgg
初階會員


發表:50
回覆:54
積分:30
註冊:2002-07-28

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-10-18 00:06:19 IP:203.204.xxx.xxx 未訂閱
StringGrid1 (1)可否變換底色及字體顏色 (2)當有Y ScrollBars時如何用程式語法讓他自動捲動 Thanks
ccchen
版主


發表:61
回覆:940
積分:1394
註冊:2002-04-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-10-18 08:07:14 IP:61.219.xxx.xxx 未訂閱
(1)可否變換底色及字體顏色 只是要變換底色及字體顏色?? 設定StringGrid之color及font.color就好了,不是嗎 若是每一row或每一column要有不一樣顏色, 可於onDrawCell做, 參考下例
procedure TForm3.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   with Sender as TStringGrid do  begin
     if (ARow mod 2 =0) then begin     //偶數row
       Canvas.Brush.Color := clYellow; //底色
       Canvas.font.Color:=clRed;       //字體顏色  
     end
     else begin
       Canvas.Brush.Color := clWindow;
       Canvas.font.Color := clblue;
     end;
     Canvas.FillRect(Rect);  //繪底色
     canvas.textout(rect.Left,rect.Top,cells[Acol,ARow]); //output text
   end;
end;
(2)當有Y ScrollBars時如何用程式語法讓他自動捲動 只要改變TopRow就好了. 例如 StringGrid1.TopRow:=StringGrid1.TopRow 1; 會使向下捲動, 當然你要check一下,不要捲過頭了
kkccgg
初階會員


發表:50
回覆:54
積分:30
註冊:2002-07-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-10-18 23:12:02 IP:203.204.xxx.xxx 未訂閱
感謝板主的回答,ScrollBars已可正常動作, 不過變換底色及字體顏色對偶的用途有一點麻煩,因為偶 要做資料讀取後判斷才能確認他的底色或字體顏色,且是 跑一列判斷一次若不用onDrawCell事件是否還有其他方 法可用(最好是貼字並直接作變換)             謝謝    
ccchen
版主


發表:61
回覆:940
積分:1394
註冊:2002-04-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-10-19 10:22:08 IP:203.217.xxx.xxx 未訂閱
若不用onDrawCell事件是否還有其他方法可用 那是不可能的啦 因為偶要做資料讀取後判斷才能確認他的底色或字體顏色 那有什麼問題 在onDrawCell中,由cells[Acol,Arow],取得資料內容, 進行判斷, 決定顏色即可,只要Cell內容一改變, Refresh grid就會自動重繪出正確顏色.
系統時間:2024-05-05 1:37:30
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!