var vRect: TRect;
begin
vRect:=Rect;
if Column.FieldName ='BAR' then
begin
vRect.Right :=Trunc(vRect.Left +(vRect.Right -vRect.Left )* (ADOQuery1.FieldByName('BAR').AsFloat));
dbgrid1.Canvas.Brush.Color :=clred;
dbgrid1.Canvas.FillRect(vrect);
end
else
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
to pyzfl:
[8D][8D]
To 楼主:
今天才发现,楼主竟在我的“http://www.delphibbs.com/delphibbs/dispq.asp?lid=1210032”
贴子里跟了这么一句:你好囂張!收歛一點吧,要不死得很慘,這世界上高手多的是
奶奶的,你要我跟你引見,好像你不得志一樣,聽你口氣我老覺得自已在拉屎一樣,好難聞啊!
我不是甚麼高手,但我見不你這种像屎一樣的人,到處講些沒有用的話!老子也在廣州,你過來咬我啊!