Podria ser que el error estuviera en este prodedimiento?
He intentado ejecutar con f7 y cada vez que entra en el begin, si no se cumple nunguno de los dos id salta al end final y allí se queda el cursor, hago click en el formulario y vuelve al begin, end y así sin parar.
Código Delphi
[-]
procedure TF_Camions.JvDBGrid2DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If F_ModulDades.Camions_AuxACTUAL.Value = 'N' then
begin
JVDBGrid2.Canvas.Brush.Color := clMoneyGreen;
JVDBGrid2.DefaultDrawColumnCell(rect,DataCol,Column,State);
end;
if DataCol = 4 then
begin
if Pos('X', F_ModulDades.Camions_AuxCODI_CAMIO.Text ) > 0 then
begin
TDrawGrid(sender).Canvas.Font.Color:= clRed;
TDrawGrid(Sender).Canvas.Brush.Color:=clYellow;
TdbGrid(sender).DefaultDrawColumnCell(Rect, Datacol, Column, State);
end;
end;
end;