IF 使用 TADvTstingGrid1 5*5 ( Row;Col 都有 // ---- 已知使用方式 ---- AdvStringGrid1.Cells[0,0]:='01'; // Fixed cell 存資料 AdvStringGrid1.Cells[2,2]:='ABCDEFG'; // data cell 存資料 // ---- 未知使用方式 ---- 哪種文字字體SIZE相同 ?? 例:0-9,A-Z,a-z 佔畫面相同面積.如此上下行文字才會對齊 TADvTstingGrid Cell ........文字顏色 / 背景顏色 如何設定 & 即時更新 ?? TADvTstingGrid Row / Col 文字顏色 / 背景顏色 如何設定 & 即時更新 ?? 例:設定紅底黃字.並且立刻顯示變化 . 但原 Cell 文字內容不變 TADvTstingGrid Fixed 如何 單獨指定 文字顏色 & 背景顏色如何設定 例:第1,3,4,5格 黃底/綠色 . 但第2個要改成 黃底/紅色 如何取得 Cell 4個角的位置.並且畫紅線粗線 ( Fixed Cell 有此功能嗎 ??? ) 例:要在 Cell(0,0) , cell(3,3) 畫一個 'X'( 左上-右下 . 左下-右上 畫線 ) 並指定 'X' 顏色為紅線 線條格式為粗線 ( 另請教 Cell 中央畫圓方式) 如何設定 表框線條不顯示 ; Row 3-4 的分隔線為 '||' ?? 如何判定 游標點選的是哪一個 Cell ?? 如何判斷此 Cell 為 Display / Write / ... Function 例:修改資料時.按 Tab 會自動跳到下一個 Write Cell 等待輸入 按游標 無反映 ( 點選Write Cell , Focus 游標才會改變 ) 修改 Cell 時 . 如何指定 TAB & Enter 順序 (按 TAB or Enter 同功能 )?? 例:CELL(1,1)-> CELL(1,2)-> CELL(2,1)-> CELL(2,2)-> .... 如何設定 可修改 cell 文字為綠色/黑底 ; 不可修改 cell 文字為紅色/黑底 ?? .............修改中 cell 文字為綠色/黃底 ; 等待修改 cell 文字為綠色/籃底 ?? ---- 以上問題.整理完後.連同畫面.舉例發表. 我是 DELPHI 菜鳥 . TADvTstingGrid1 滿符合我的需求 可是不會用.參考先進發表的文章.不是很看的懂 所以把我要的需求整理出來.各位前輩多多指點 下次會在請教 TADvTstingGrid1 套上使用其他 VCL 的設定&方法 ----- water.lin

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

http://www.tmssoftware.com/advgrid2.htm#devguide 其 Sample 在: http://www.tmssoftware.com/DASGDEMOS.ZIP    --- 歡迎光臨 KTop 研究院--<-<-<@

我買1套 TMS Component Pack = USA $145    因為我沒基礎.第一次學 Windows 程式設計.( VB VC ... 都沒玩過 ) 實在不懂範例為何要如此做. 等我裝好後.單步追蹤有問題再向你請教 ----water      一切無為法.如虛亦如空 如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

請問要處理我上述功能.是不是要從 Canvas 下手 ?? 可否有介紹 Canvas 使用文章     ---- water    一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

http://www.delphi-dolphin.com/tutorials.php?id=507    --- 歡迎光臨 KTop 研究院--<-<-<@

請教 Canvas-> 和 Canvas.  的差異 ?? 我是問 -> 和 . 的差別 ??     Canvas->Brush->Color=clSkyBlue;    // 設定背景顏色 Canvas.Brush.Color := clBlack;     // 設定背景顏色    兩者都可以嗎 ??    一切無為法.如虛亦如空.如如心不動.萬法在其中 發表人 - water 於 2003/08/19 16:13:30

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

-> 這個是用 BCB . 這個是用在 Delphi    --- 歡迎光臨 KTop 研究院--<-<-<@

delphi 正在用 so i know  BCB := ??  <>一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

Canvas->Brush->Color := clSkyBlue; // BCB, 也就是 Borland C++ Builder 的語法 Canvas.Brush.Color := clBlack; // Delphi 的語法    --- 歡迎光臨 KTop 研究院--<-<-<@

我找到Canvas 的使用 & 設定 . 最後3項 有何功能 ??? 可否方便給我簡單範例 . THK    PS:如何設定文字檔貼上 此文章發表視窗 不排縮 ?? ( 即空白保留.上下行對齊 ) ---- 已知 ---- Canvas.Font.Name :='細明體'; // 設定字體格式 Canvas.Font.size :=12; // 設定字體SIZE Canvas.Font.Color := clRed; // 設定字體顏色 Canvas.Textout(X,Y,'HELLO'); // 輸出文字 HELLO ( 細明體/SIZE=12/紅色 ) Canvas.Brush.Color := clBlack; // 設定背景顏色 Canvas.Pen.Style:=psDot; // 設定畫線線體格式 Canvas.Pen.Color:=clRed; // 設定畫線線體顏色 Canvas.Pixels[100,100]:=clRED; // 在 座標(100,100) 上 畫一紅點 Canvas.MoveTo(1 , 1); // 開始點 // 移至作用點 (當滑鼠移至1,1位置) Canvas.LineTo(10,10); // 結束點 // 畫線 (1,1) to (10,10) Canvas.Rectangle(6,6,60,60); // 畫矩形 (6,6) to (20,20) Canvas.Ellipse(7,7,70,70); // 畫圓形 (7,7) to (30,30) Canvas.Arc(8,8,80,80); // 畫弧形 (8,8) to (80,80) 形狀='C' Canvas.Chord(9,9,90,90); // 畫旋形 (9,9) to (90,90) 形狀='D' // 畫折線 (1,1)-(2,2)-(3,3)...(N,N) : IF N=1 THEN 圖形:=多邊型 ; Canvas.Polygon([point(1,1),point(2,2),point(3,3),....point(N,N)]); ---- 未知 ---- Canvas.FillRect(Rect); // 不祥 Canvas.Handle Canvas.DrawFocusRect(Rect); 一切無為法.如虛亦如空.如如心不動.萬法在其中 發表人 - water 於 2003/08/19 17:29:10

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

1.Canvas.FillRect(Rect); 2.Canvas.Handle  這兩個在 delphi 的 help 裏都有範例    --- 歡迎光臨 KTop 研究院--<-<-<@

據我所知~TAdvStringGrid已是改良版..StringGrid 文字顏色 & 背景顏色只須在onGetCellColor指定ARow或ACol直接設定顏色 ABrush.Color:=clRed; //底色 AFont.Color:=clYellow; //文字 最後不用再畫出來~~即不用Canvas.FillRect() 比起StringGrid好用的多 參考hagar兄的網址...範例講的很多..

謝謝你的回覆. 我剛剛把 TMS Component Pack Pro Registration 裝好   剛剛把 AdvStringGrid1 手冊印出來 (79張)      明天可能才有時間研究    PS:安裝手冊寫的不好.害我裝了好久.最後 D5 重裝才搞定    ps:網址=?    ---- water    一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中