Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-05-2007
kapullok_2006 kapullok_2006 is offline
Miembro
 
Registrado: mar 2007
Posts: 90
Poder: 18
kapullok_2006 Va por buen camino
Unhappy no me muestra componente en la paleta de componentes

Hola, tengo un paquete llamado Package1,añadido a él los archivos:

ImgProcesado.as,ProeffectImage.pas,ImgZoom.pas.

ImgProcesado.pas tiene el sig código:

Código Delphi [-]
///------------------------------------------------------------------
unit ImgProcesado;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ImageZoom, ProEffectImage;
type
  TImgProcesado = class(TImage)
  private
    FZoom: TImageZoom;
    FProcesado:TProEffectImage;
    FValor_zoom: integer;
    FValor_contraste: integer;
    FValor_brillo: integer;
    FValor_oscuridad: integer;
    FValor_saturacion: integer;
    FValor_mosaico: integer;

  public
    { Public declarations }
{    destructor Destroy; override;
    constructor Create(AOwner: TComponent); override;
}
    procedure CargarFoto(foto: string);
    procedure SalvarFoto(foto: string);
    procedure CambiarZoom(n: integer);
    procedure CambiarInvertir;
    procedure CambiarAlias;
    procedure CambiarContraste(n:integer);
    procedure CambiarGrises;
    procedure CambiarBrillo(n:integer);
    procedure CambiarOscuridad(n:integer);
    procedure CambiarSaturacion(n: integer);
    procedure CambiarMosaico(n: integer);
  published
    { Published declarations }
    property Zoom: integer read FValor_zoom write CambiarZoom;
    //property Invertir: integer read FValor_invertir write CambiarInvertir;
    property Contraste: integer read FValor_contraste write CambiarContraste;
    property Brillo: integer  read FValor_brillo write CambiarBrillo;
    property Oscuridad: integer read FValor_oscuridad write CambiarOscuridad;
    property Saturacion: integer  read FValor_saturacion write CambiarSaturacion;
    property Mosaico: integer read FValor_mosaico write CambiarMosaico;

  end;
procedure Register;
implementation
procedure Register;
begin
  RegisterComponents('Samples', [TImgProcesado]);
end;
//---------------------------------------------------------------------------//
{constructor TImgProcesado.Create(AOwner: TComponent);
begin
     //inherited Create(AOwner);
     FZoom:= TImageZoom.Create(Self);
     FProcesado:= TProEffectImage.Create(Self);
end;
}
{destructor TImgProcesado.Destroy;
begin
     FProcesado.Free;
     FZoom.Free;
     //inherited Destroy;
end;
}
//---------------------------------------------------------------------------//
procedure TImgProcesado.CargarFoto(foto: string);
begin
     Self.Picture.LoadFromFile(foto);
end;
procedure TImgProcesado.SalvarFoto(foto: string);
begin
     Self.Picture.SaveToFile(foto);
end;
//---------------------------------------------------------------------------//
procedure TImgProcesado.CambiarZoom(n:integer);
begin
     FValor_zoom:= n;
     FZoom.Picture.Assign(Self.Picture);
     FZoom.Zoom:= FValor_zoom;
     Self.Picture.Assign(FZoom.Picture);
end;
procedure TImgProcesado.CambiarInvertir;
begin
    FProcesado.Picture.Assign(Self.Picture);
    FProcesado.Effect_Invert;
    Self.Picture.Assign(FProcesado.Picture);
end;
procedure TImgProcesado.CambiarAlias;
begin
    FProcesado.Picture.Assign(Self.Picture);
    FProcesado.Effect_AntiAlias;
    Self.Picture.Assign(FProcesado.Picture);
end;
procedure TImgProcesado.CambiarContraste(n:integer);
begin
    FValor_contraste:=n;
    FProcesado.Picture.Assign(Self.Picture);
    FProcesado.Effect_Contrast(FValor_contraste);
    Self.Picture.Assign(FProcesado.Picture);
end;
procedure TImgProcesado.CambiarGrises;
begin
    FProcesado.Picture.Assign(Self.Picture);
    FProcesado.Effect_GrayScale;
    Self.Picture.Assign(FProcesado.Picture);
end;
procedure TImgProcesado.CambiarBrillo(n:integer);
begin
    FValor_brillo:=n;
    FProcesado.Picture.Assign(Self.Picture);
    FProcesado.Effect_Lightness(FValor_brillo);
    Self.Picture.Assign(FProcesado.Picture);
end;
procedure TImgProcesado.CambiarOscuridad(n:integer);
begin
    FValor_oscuridad:=n;
    FProcesado.Picture.Assign(Self.Picture);
    FProcesado.Effect_Darkness(FValor_oscuridad);
    Self.Picture.Assign(FProcesado.Picture);
end;
procedure TImgProcesado.CambiarSaturacion(n: integer);
begin
     FValor_saturacion:=n;
     FProcesado.Picture.Assign(Self.Picture);
     FProcesado.Effect_Saturation(FValor_saturacion);
     Self.Picture.Assign(FProcesado.Picture);
end;
procedure TImgProcesado.CambiarMosaico(n:integer);
begin
     FValor_mosaico:=n;
     FProcesado.Picture.Assign(Self.Picture);
     FProcesado.Effect_Mosaic(FValor_mosaico);
     Self.Picture.Assign(FProcesado.Picture);
end;
end.
//-------------------------------------------------------------------

Este archivo .pas,debe usar propiedades de los otros .pas. ImageZoom y ProEffectImage ,aprecen en paleta 'Samples',pero no aparece ImgProcesado.

¿Sabéis cuál es el problema?.Estoy desesperado.

Es q quiero crear ese componente con propiedades y eventos de los otros dos. ImageZoom(pkgrim.zip,descargado de este foro o de alguna página recomendada de este foro) y ProEffectImage(descargado gracias a este foro).

Saludos a todos.


Última edición por dec fecha: 23-05-2007 a las 14:16:10.
Responder Con Cita
  #2  
Antiguo 23-05-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
Tienes que decirle a delphi que lo instale en la paleta de componentes, normalmente con Component -> install components -> buscar el pas y después compilar e instalar, aunque depende de la versión de delphi que uses.

PD: No sé por qué has comentado el constructor y destructor, todo ese código es necesario, deberías quitar los comentarios. Ya que esta línea (de otras muchas)
Código Delphi [-]
FProcesado.Picture.Assign(Self.Picture);
lanzará un error en tiempo de ejecución porque FProcesado no ha sido creado, y por ende, no puede acceder a su propiedad Picture.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #3  
Antiguo 24-05-2007
kapullok_2006 kapullok_2006 is offline
Miembro
 
Registrado: mar 2007
Posts: 90
Poder: 18
kapullok_2006 Va por buen camino
no me aparece el componente visual en Paleta Samples

sigue sin aparecer el componete TImgProcesado en paleta 'Samples',
¿alguna pista mejor?

Saludos.


Mi delphi es la versión 6.
Responder Con Cita
  #4  
Antiguo 24-05-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
¿qué versión de delphi tienes?
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #5  
Antiguo 25-05-2007
kapullok_2006 kapullok_2006 is offline
Miembro
 
Registrado: mar 2007
Posts: 90
Poder: 18
kapullok_2006 Va por buen camino
respondo

ya te lo he dicho, mi versión,de Delphi, es Delphi 6.


saludos.
Responder Con Cita
  #6  
Antiguo 25-05-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
Perdona, al estar debajo de "Saludos" directamente lo obvié, ya que solemos poner algún texto en la firma (en el perfil de usuario) .

¿Te da algún error cuando quieres compilar el paquete?
¿Cuando lo intentas instalar?

Porque esa es la forma de instalar cualquier componente en Delphi 6. Personalmente desconozco esos componentes, pero no debería haber problemas.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
componente igual al que muestra las propiedades de los componentes en delphi gulder Varios 3 02-08-2006 14:29:41
Se Perdieron Los Componentes De Una Paleta cmena Varios 1 04-08-2004 05:59:34
Paleta de componentes ckaki Varios 1 10-07-2004 00:02:07
No muestra mi componente Diegoval OOP 22 29-03-2004 07:56:48
Paleta de componentes lfidanza Varios 3 01-08-2003 17:54:38


La franja horaria es GMT +2. Ahora son las 01:01:38.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi