8 respuestas en este tema

[ramiro_md]

Buenas, comento un poco mi proyecto, ya que hace días vengo interviniendo en el foro y jamás lo expliqué en detalle.
Para mi primer aplicación en Lazarus, estoy desarrollando una aplicación para gestionar mi videoteca.
Ya tengo el modelo entidad relación de mi DB, y ya esta creada. Mi consulta es la siguiente:

A priori tengo un DBGRid donde muestro los siguientes campos: id - titulo - duración - estado (optimo,dañado,extraviado,prestado).
Pero, me gustaría expander esta tabla con los siguientes aspectos:

1) Un Checkbox en cada fila, donde al seleccionar un o varios, y apretar el botón borrar se le pase a una Query los ids de los videos a borrar.

2) A su vez, mi DB soporta la información sobre audio y subtítulo de un video. Solamente Inglés y Español. Me gustaría agregarle a mi tabla 2 campos nuevos, subtitulo y audio. En las cuales muestro banderas de los lenguajes que contenga.

Sobre el inciso 1, he leído algo googleando pero no con mucho detalle, sobre el 2 estoy en la nada !.

Agradecería cualquier tipo de ayuda !.
Saludos.

[mightydragon_lord]

1- cada columna tiene una propiedad que se llama ButtonStyle, lo pones en cbsCheckboxColumn y ya tienes un checkbox en cada columna.
2-misma propiedad anterior, sólo que la cambias a cbsPickList, adicionalmente hay otra propiedad llamada PickList, allí llenas lo que quieres que salga.

Espero te sirva.

Saludos.

[cadetill]

Buenas,

El 2 en Delphi se haría algo así
http://delphi.about....y/aa032205a.htm

Nos leemos

[luisgutierrezb]

Para el checkbox de "borrar" puedes utilizar un campo calculado, con los tips que te dieron anteriormente para mostrar el checkbox, una vez que tienes el campo calculado, recorres el dataset para ver los id's y generar la consulta de borrado y refrescar el dataset

[ramiro_md]

Gracias por los tips, recién ahora me puedo sentar a verlos.
Ya sabrán mis resultados.

Saludos.

[ramiro_md]

Bueno, para obtener la columna de Checkboxs, aproveche un procedure que había definido para el evento DBGrid1DrawColumnCell.
Y coloqué este código:

delphi

if (Column.FieldName =  'chkBx') then begin
   Column.ButtonStyle:=  cbsCheckboxColumn;
end;

Les comento que tuve que agregar una columna a la consulta SQL, llamada "chkBx", que solo contiene el id del video.
El único problema a todo esto es que no me deja tildar/destildar los checks.
Algun comentario ?.

Saludos.

Edito: dejo un screen.

[mightydragon_lord]

Para que esto sea posible en la propiedad options del DBGrid, debes poner en true la propiedad Editable, además, puedes usar un TImageList para poner imágenes en el DBGrid, que no había entendido bien la pregunta 2, sólo debes asociar el TImageList al DBGrid y a la columna especificar que imagen mostrar.

Saludos.

[ramiro_md]

En el evento DrawColumnCell coloqué esto:

delphi

VideoGrid.EditorMode := true;

La propiedad ReadOnly la puse a true, no encontré la propiedad "Editable".

De todas formas me sigue sin dejar tildar/destildar los Checkboxes.

Saludos.

[ramiro_md]

Bueno, el inciso 1 no lo solucioné con los Checkboxes, sino "leyendo" las filas seleccionadas de la tabla de este modo:

Tengo un botón para eliminar campos y el evento onClick responde a lo siguiente:

delphi

var
    i: Integer;
    sum : Single;
    aux : String;
    arry : Array [0..255] of String;
begin
  { Si no hay filas seleccionadas tiro un alert }
  if VideoGrid.SelectedRows.Count = 0 then
     ShowMessage('Debes seleccionar uno o más videos.')
  else begin
    { Sino, las recorro y guardo el valor del campo ID en un array }
    sum := 0;
    with VideoGrid.DataSource.DataSet do
    begin
      for i := 0 to VideoGrid.SelectedRows.Count-1 do
      begin
 
        GotoBookmark(Tbookmark(VideoGrid.SelectedRows[i]));
        aux := VideoGrid.columns[1].Field.AsString;
        arry[i] := aux;
      end;
    end;
 
    { Mensaje de validación de baja }
    botones := [mbNoToAll,mbYesToAll];
    if MessageDlg('Confirmar borrado','¿Estas seguro que quiere eliminar los videos?',
    mtWarning, [mbYes, mbNo],0) = mrYes then
    begin
      ShowMessage('Eliminados');
    end;
  end;                         

Lo único que me faltaría es pasar el array de id a un procedure que haga la baja en la db y estaría cumplido ese requerimiento.
Todavía tengo que ver lo de las banderitas je.
Saludos.