Componente para Thumbnails

[[Lepe]]

Ya veo que hemos contestado al mismo tiempo .

el código te quedaría así:

Código Delphi [-]
unit celda;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TFrCelda = class(TFrame)
    pnl1: TPanel;
    pnl2: TPanel;
    CheckBox1: TCheckBox;
   //aqui tendrás más cosas.

  private
    procedure SetSelected(const Value: Boolean);
    function GetSelected: Boolean;
    { Private declarations }
  public
    { Public declarations }
    property Selected:Boolean read GetSelected write SetSelected;
  end;

implementation

{$R *.dfm}

{ TFrCelda }

function TFrCelda.GetSelected: Boolean;
begin
  Result := checkbox1.Checked;
end;


procedure TFrCelda.SetSelected(const Value: Boolean);
begin
  Checkbox1.Checked := Value;
end;

Ahora solo tienes que preguntar por Selected, en lugar de por el Checkbox.Checked, así que tu código sería más o menos:

Código Delphi [-]
// var thumb:TFrameThumb; no hace falta esta linea 
begin
 for i:=componentcount downto 1 do  //sin tomar el cero, porque no tengo component.name como cero
  begin
    if component[i] is TFrameThumb
      then begin
         if TFrameThumb(component[i]).Selected = true
           then CargoEnMiTString;
      end;
  end; 
end;

Si por código necesitas activar el checkbox, puedes usar esto:

Código Delphi [-]
// var thumb:TFrameThumb; no hace falta esta linea 
begin
 for i:=componentcount downto 1 do  //sin tomar el cero, porque no tengo component.name como cero
  begin
    if component[i] is TFrameThumb
      then begin
        TFrameThumb(component[i]).Selected := true
      end;
  end; 
end;

Saludos

[MaMu]

Empezado por Lepe

Ya veo que hemos contestado al mismo tiempo .

JajJAjajAJ amigo Lepe, me estas mandando lo mismo que estaba haciendo, me die cuenta cuando revisando tu ejemplo, en el FrCelda estaba la funcion para setear la fecha. Toda la telepatia!!!

Ahora eso que me decis de la impresion de windows, es exactamente lo que quiero hacer, pero veo que la unica forma es como lo estamos haciendo... o hay otra pero ya es con el uso de un componente de pago???

Saludos

[MaMu]

Tengo un problema, yo creo los frames (TThumb) en run-time, y los libero cuando ya no los necesito, como para poder volver a cargarlos cuando yo quiera. Es que, hice dos formas de vista, una por filas en un ListView y el otro este Thumbnails. El procedimiento que uso es el siguiente:

Código Delphi [-]
procedure TMain.PageControl2Change(Sender: TObject);
var g,TheTop,Cant,h,j:integer;
    Thumb:TThumb;
begin
  if PageControl2.TabIndex=0
    then begin
     for j := Main.componentcount - 1 downto 0 do
        begin
       //solo la puse para ver si la clase TThumb aparecia, pero no aparece nunca    
       //   showmessage(Main.components[j].ClassName);      
         if Main.components[j] is TThumb
          then begin
          Main.components[j].Free;
          end;
        end;
    end;
  if PageControl2.TabIndex=1
    then begin
      TheTop:=0;
      h:=0; //horizontal
      Cant:=Lista.Count;
   try
      for g:=0 to Cant-1 do
        begin
          Thumb:=TThumb.Create(Main.JvThumbView1);
          Thumb.Name:='Thumb'+IntToStr(g);
          Thumb.Panel1.Caption:='# '+IntToStr(g+1);
          Thumb.dxCheckbox1.Checked:=False;
          Thumb.JvThumbnail1.FileName:=Lista.Strings[g];
          Thumb.JvThumbnail1.Title:=Resolucion(Lista.Strings[g]);
          Thumb.Left:=((h+1)-1) * Thumb.Width;
          if Thumb.Left=720
            then begin
                  TheTop:=TheTop+Thumb.Height;
                  Thumb.Left:=0;
                  h:=0;
                 end;
          Thumb.Top:=TheTop;
          Thumb.Parent:=Main.JvThumbView1;
          h:=h+1;
        end;
    finally
      Thumb.Free;
      Thumb:=nil;
      end;
    end;
end;

Mi unico problema, es que no se como liberar los Thumbs creados, ya que me salta "component Thumb0 already exists".

[[Lepe]]

Usa un TObjectList, es lo más cómodo.
Declara en la ventana el TObjectList;

Código Delphi [-]
uses contnrs;

Form1 = class(TForm);
....

private
   Lista: TObjectList;

Cuando necesites destruir todos los Thumb:

Código Delphi [-]
  FreeAndNil(Lista); // no importa que lo llames varias veces
// no obtendrás Violaciones de acceso a memoria ni nada.

Cuando necesites crear un Thumb:

Código Delphi [-]
if not Assigned(Lista) then
  Lista := TObjectList.Create(True);
Lista.Add(Thumb) ; // este es el Thumbnail que acabas de crear
// lo añadimos a la lista.

Mira la ayuda de TObjectlist o busca por el foro.

Saludos

[MaMu]

Lo que pasa es que la Lista, ya viene cargada de otro lado, y no me da ningun problema, en la lista solo estan cargado PATHs de imagenes de un directorio.
El problema lo tengo a la hora de liberar el componente TThumb creado, cuando ya no lo necesito, ya que si, vuelvo a crearlo sin liberarlo me salta error de que ya esta creado.

Es esta parte:

Código Delphi [-]
 for j := Main.componentcount - 1 downto 0 do
        begin
        //lo puse para ver si aparecia TThumb, pero no aparece nunca
        // showmessage(Main.components[j].ClassName);
         if Main.components[j] is TThumb
          then begin
          Main.components[j].Free;
          end;

No se como liberarlo.

[MaMu]

Ya lo solucione, no me daba cuenta que contaba los componentes en otro lado, y debia hacerlo en el lugar donde los estaba creando:

Código Delphi [-]
Main.JvThumbView1.Componetscount

Saludos

[[Lepe]]

No has entendido por donde yo iba....

Hacer ese bucle puede ser costoso, de hecho, hará tantos ciclos como componentes tengas. Como usas "Main.Component".... significa que recorrerá todos los componentes de la ventana, todos los tabsheets, todos los botones, etc e irá preguntando si es un thumb o no.

Yo lo que hago es guardar solo los thumbs (los componentes que quiero) en una lista propia, cuando hago un "FreeAndNil(Lista)", realmente estoy liberando de memoria todos los thumbs de un solo golpe... y no tengo que recorrer todos los componentes del Form.

Es más eficiente e incluso un poco más claro el código. Eso si, debes mirar la ayuda de las cosas que uso para entenderlo .

Saludos

[mrnovice]

no tiene nada que ver pero tenias llena la bandeja de entrada de mensajes privados
-----
Saludos buen día, disculpe que lo meste, este me he fijado en el foro y parece que tiene experiencia en el manejo de este componente de JEDI DSL, has de cuenta estoy haciendo una aplicación pero el componente nosé si tenga una especia de bug, es decir cuando cargo dos imágenes de un directorio 'c:\x' no hay problema las imágenes son 2480 x 3507 formato jpg tamaño aproximado de 150 kb a 300 kb pero cuando pones muchas me aparece el error EOutOfResources 'Espacio de almacenamiento insuficiente para procesar este comando', no se si hays o escuchado de esta experiencia, alguna idea para solucionarlo, lo que pasa es que las imágenes que se procesan son de tamaño similar pero intente algo de las excepciones pero no me funcionó tal vez no lo implemente incluso con el except on EOutOfResources y pues no auxilio es de vital importancia para mi, o algún componente similar?