Formatei um dbgrid para zebrado e ele perdeu todos os alinhamentos das colunas.
tem varios campos como cod, desc, qnt, valor vista, a prazo etc
todos exceto a desc devem ficar alinhados, (e estao quando vou nas colunas do grid) mas na execução ficam justificadas a direita. não sei se é por causa da formatação zebrado...
Vou postar o codigo usado e gostaria de saber como alinho as colunas
procedure TfrmCaixa.grdItemDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if odd(qrItemVenda.RecNo) then
grdItem.Canvas.Brush.Color := $00EFEFEF
else
grdItem.Canvas.Brush.Color := $00E6E6E6;
TDbGrid(Sender).Canvas.Font.Color:= $00400000;
if gdSelected in State then
with (Sender as TDBGrid).Canvas do
begin
Brush.Color := clMenuHighlight;
FillRect(Rect);
Font.Style := [fsbold];
Font.Color := clWhite;
end;
TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns[datacol].field, State);
Question
DiabloX3 0
Formatei um dbgrid para zebrado e ele perdeu todos os alinhamentos das colunas.
tem varios campos como cod, desc, qnt, valor vista, a prazo etc
todos exceto a desc devem ficar alinhados, (e estao quando vou nas colunas do grid) mas na execução ficam justificadas a direita. não sei se é por causa da formatação zebrado...
Vou postar o codigo usado e gostaria de saber como alinho as colunas
Edited by DiabloX3Link to post
Share on other sites
11 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.