請問 Grid 欄位顏色問題 |
|
尚未結案
|
|
abyz
一般會員   發表：9 回覆：6 積分：3 註冊：2005-06-20 發送簡訊給我 |
我是使用下面的方式去呼叫object再將內容列出在grid with wwClientDataSet1 do begin
Close;
SQL.Clear;
SQL.Text := strs.Text;
Open;
end; 可是借問那裡才可以設定當 客服處理人 如是A時是紅色 B時是綠色 C是藍色
整個欄位都是該顏色.且可否用色碼來訂色 如#ffffff
object wwDBGrid1: TwwDBGrid
Left = 0
Top = 121
Width = 479
Height = 306
IniAttributes.Delimiter = ';;'
TitleColor = clBtnFace
FixedCols = 0
ShowHorzScrollBar = True
Align = alClient
Color = clInfoBk
DataSource = DataSource1
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
ParentShowHint = False
ShowHint = True
TabOrder = 0
TitleAlignment = taLeftJustify
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
TitleLines = 1
TitleButtons = True
end object wwClientDataSet1: TwwQuery
DatabaseName = 'ODB'
ValidateWithMask = True
Left = 220
Top = 107
object wwClientDataSet1orderid: TStringField
DisplayLabel = '訂單編號'
FieldName = 'orderid'
FixedChar = True
end
object wwClientDataSet1salesm: TStringField
DisplayLabel = '客服處理人'
FieldName = 'salesm'
FixedChar = True
Size = 12
end
object wwClientDataSet1showStr: TStringField
DisplayLabel = '派單類別'
FieldName = 'showStr'
FixedChar = True
Size = 10
end
end
|
|
weiliching
初階會員  發表：53 回覆：78 積分：31 註冊：2003-12-27 發送簡訊給我 |
我都是在DBGrid1DrawColumnCell 這事件運作. 這範本是整個會整行會變淺綠. IF AdoQuery1.FieldByName('M_GetPrice').AsString = 'O' then begin dbgrid1.Canvas.Brush.Color := $00E1FFCC;//淺綠 DbGrid1.Canvas.Font.Color := clWindowText; end; dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); |
|
cxh17895
初階會員 發表：13 回覆：37 積分：25 註冊：2003-03-19 發送簡訊給我 |
發表時間：2005-07-04 11:22:39
IP:210.58.xxx.xxx 未訂閱
系統時間：2024-11-21 19:43:33
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |