16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm45.advgridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if arow<=0 then exit;
if gdSelected in State then
begin
advGrid.Canvas.Brush.Color := clYellow ;
end;
advGrid.Canvas.FillRect(Rect);
advgrid.Canvas.TextOut(Rect.Left+2,Rect.Top+2, advgrid.Cells[ACol,ARow]);
end;
i:=self.advGrid.ColCount;
for j:=0 to i-1 do
begin
rect1:=self.advGrid.CellRect(j,ARow);
self.advGrid.Canvas.Brush.Color:=self.ColorBox1.Colors[j];
self.advGrid.Canvas.FillRect(rect1);
var
i,j:Integer;
le,topp,botm,rig:integer;
rect1:TRect;
begin
i:=self.advGrid.ColCount;
for j:=0 to i-1 do
begin
rect1:=self.advGrid.CellRect(j,ARow);
self.advGrid.Canvas.Brush.Color:=self.ColorBox1.Colors[j];
self.advGrid.Canvas.FillRect(rect1);
end;
procedure TForm45.advgridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var i:integer;
begin
if arow<=0 then exit;
for i:=0 to tmpList.Count-1 do
begin
if inttostr(arow)=tmplist[i] then
begin
advGrid.Canvas.Brush.Color := clYellow;
end;
end;
advGrid.Canvas.FillRect(Rect);
advgrid.Canvas.TextOut(Rect.Left+2,Rect.Top+2, advgrid.Cells[ACol,ARow]);
end;