EJunGrid使用总结

1 1。0版没有实现垂直方向上的对齐，

procedure TOBGUI_ReportDesign.gridDrawCellText(ACanvas: TCanvas; const ARect:
TRect; const ACoord: TPoint; AGrid: TZJGrid; const Text: String; var
ADefaultDraw: Boolean);
begin
if agrid.Cells[acoord.X,acoord.Y].TextAlign = gaTopCenter then
begin
adefaultdraw := false;
acanvas.TextRect(arect,(arect.Right-arect.Left-acanvas.TextWidth(text)) div 2+arect.Left,
arect.Top,text);
end
else
if grid.Cells[acoord.X,acoord.Y].TextAlign = gaBottomCenter then
begin
adefaultdraw := false;
acanvas.TextRect(arect,(arect.Right-arect.Left-acanvas.TextWidth(text)) div 2+arect.Left,
arect.Bottom-acanvas.TextHeight(text),text);
end
else
if grid.Cells[acoord.X,acoord.Y].TextAlign = gaTopLeft then
begin
adefaultdraw := false;
acanvas.TextRect(arect,arect.Left,arect.Top,text);
end
else
if grid.Cells[acoord.X,acoord.Y].TextAlign =gaTopRight then
begin
adefaultdraw := false;
acanvas.TextRect(arect,arect.Right-acanvas.TextWidth(text),arect.Top,text);
end
else
if grid.Cells[acoord.X,acoord.Y].TextAlign =gaBottomLeft then
begin
adefaultdraw:= false;
acanvas.TextRect(arect,arect.Left,arect.Bottom-acanvas.TextHeight(text),text);
end
else
if grid.Cells[acoord.X,acoord.Y].TextAlign =gabottomright then
begin
adefaultdraw := false;
acanvas.TextRect(arect,arect.Right-acanvas.TextWidth(text),arect.Bottom-acanvas.TextHeight(text),text);
end;

end;

2 晕，2。5版更厉害，所有的对齐都不管用，还有如果按照上面的方式修改之后，

当使用了非gaCenterCenter对齐之后，在cell上面设置颜色的话，无法刷出颜色来。但是cell的背景色的值确实被设定。

所以如下，主要利用canvas：

procedure TOBGUI_ReportDesign.gridDrawCellText(ACanvas: TCanvas;
const ARect: TRect; const ACoord: TPoint; AGrid: TEjunGrid;
const Text: String; var ADefaultDraw: Boolean);
begin
if agrid.Cells[acoord.X,acoord.Y].TextAlign = gaTopCenter then
begin
adefaultdraw := false;
ACanvas.Brush.Color := AGrid.Cells[ACoord.X,ACoord.Y].Color;
ACanvas.Rectangle(ARect);
acanvas.TextRect(arect,(arect.Right-arect.Left-acanvas.TextWidth(text)) div 2+arect.Left,
arect.Top,text);
end
else
if grid.Cells[acoord.X,acoord.Y].TextAlign = gaBottomCenter then
begin
adefaultdraw := false;
ACanvas.Brush.Color := AGrid.Cells[ACoord.X,ACoord.Y].Color;
ACanvas.Rectangle(ARect);
acanvas.TextRect(arect,(arect.Right-arect.Left-acanvas.TextWidth(text)) div 2+arect.Left,
arect.Bottom-acanvas.TextHeight(text),text);
end
else
if grid.Cells[acoord.X,acoord.Y].TextAlign = gaTopLeft then
begin
adefaultdraw := false;
ACanvas.Brush.Color := AGrid.Cells[ACoord.X,ACoord.Y].Color;
ACanvas.Rectangle(ARect);
acanvas.TextRect(arect,arect.Left,arect.Top,text);
end
else
if grid.Cells[acoord.X,acoord.Y].TextAlign =gaTopRight then
begin
adefaultdraw := false;
ACanvas.Brush.Color := AGrid.Cells[ACoord.X,ACoord.Y].Color;
ACanvas.Rectangle(ARect);
acanvas.TextRect(arect,arect.Right-acanvas.TextWidth(text),arect.Top,text);
end
else
if grid.Cells[acoord.X,acoord.Y].TextAlign =gaBottomLeft then
begin
adefaultdraw:= false;
ACanvas.Brush.Color := AGrid.Cells[ACoord.X,ACoord.Y].Color;
ACanvas.Rectangle(ARect);
acanvas.TextRect(arect,arect.Left,arect.Bottom-acanvas.TextHeight(text),text);
end
else
if grid.Cells[acoord.X,acoord.Y].TextAlign =gabottomright then
begin
adefaultdraw := false;
ACanvas.Brush.Color := AGrid.Cells[ACoord.X,ACoord.Y].Color;
ACanvas.Rectangle(ARect);
acanvas.TextRect(arect,arect.Right-acanvas.TextWidth(text),
arect.Bottom-acanvas.TextHeight(text),text);
end
else
if grid.Cells[ACoord.X,ACoord.Y].TextAlign= gacenterleft then
begin
adefaultdraw := false;
ACanvas.Brush.Color := AGrid.Cells[ACoord.X,ACoord.Y].Color;
ACanvas.Rectangle(ARect);
acanvas.TextRect(arect,arect.Left,
(arect.Bottom-ARect.Top-ACanvas.TextHeight(text))div 2+ARect.Top,text);
end
else
if grid.Cells[ACoord.X,ACoord.Y].TextAlign= gacenterright then
begin
adefaultdraw := false;
ACanvas.Brush.Color := AGrid.Cells[ACoord.X,ACoord.Y].Color;
ACanvas.Rectangle(ARect);
acanvas.TextRect(arect,arect.Right-acanvas.TextWidth(text),
(arect.Bottom-ARect.Top-ACanvas.TextHeight(text))div 2+ARect.Top,text);
end;

end;