de Application:
procedure TForm2.JvXPBar1Items2DblClick(Sender: TObject); // BOTON "BORRAR" var reply, boxstyle: integer; begin with Application do begin boxstyle:= MB_ICONQUESTION + MB_YESNO; reply:= MessageBox('¿Desea borrar...?','Atención',boxstyle); if (reply = IDYES) then begin Datamodule1.ZQuery5.Close; Datamodule1.ZQuery5.SQL.Text:='DELETE * FROM "personas" WHERE codigo = '+ QuotedStr(Datamodule1.ZQuery1.FieldByName('codigo').AsString); Datamodule1.ZQuery5.ExecSQL; end; end; end;
Pero en la misma unidad existe otro procedure, donde inserto un pequeño icono en un DBGrid, pero me da error en este procedimiento DrwaColumnCell cuando implementado el procedimiento anterior. Si elimino el procedimiento arriba indicado, deja de darme este error. De hecho dispongo de este mismo procedimiento de aviso reajustado para salir de la aplicación en otro unidad y no se me ha dado el caso de conflicto con el procedimiento DrawColumCell.
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var fixRect: TRect; bitmap: TBitmap; imgIndex, bmpwidth: Integer; begin if column.Field = Datamodule1.Zquery1.FieldByname('edad') then begin if Datamodule1.Zquery1.FieldByName('edad').AsInteger < 10 then imgIndex:= 0 else imgIndex:= 1; bitmap:= TBitmap.Create; //******************!! ERROR: IDENTIFIER IDENTS NO MEMBER "CREATE" try ImageList3.GetBitmap(imgIndex,bitmap); DBGrid1.Canvas.Draw(Rect.Left+5, Rect.Top+2, bitmap); finally bmpwidth:= Bitmap.Width; bitmap.Free; end; fixRect.left:= Rect.left + bmpwidth + 2; end;
Llevo varios días investigando y revisando y no se por donde dar con el problema.
Un saludo