Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-07-2008
fasthorse fasthorse is offline
Miembro
 
Registrado: ene 2007
Posts: 90
Poder: 18
fasthorse Va por buen camino
seleccionar imagen

Hola, tengo el código para seleccionar una imagen, pero la selecciono con un fondo blanco perfilado en negro, y quiero hacer que la selección sea transparente para que se vea la imagen entera y no con algo blanco en el medio... y también además de poder copiar, pegar y cortar esa selección, quiero también darle opciones como que me cambie de color, pero no se cómo hacerlo tampoco...

Os pongo el código que uso en la selección, a ver si me podéis ayudar:

Código:
void __fastcall TForm1::Seleccionar(TObject *Sender) //seleccionar
//un trozo d imagen
{
  seleccion=true;

}
//------------------------------------------------------------------------

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  if(seleccion==true){
   pintando=true;
   Imagen->Canvas->MoveTo(X,Y);
   origen.x=X;
   origen.y=Y;
   }
 }
//------------------------------------------------------------------------
 

 void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
  int X, int Y)
  {
    if(seleccion==true){
      Imagen->Canvas->MoveTo(origen.x, origen.y);
      Imagen->Canvas->MoveTo(origen.x, origen.y);
      Imagen->Canvas->Rectangle(origen.x, origen.y, X,Y);
      destino=Rect(0,0,300,300);
      Imagen->Canvas->CopyRect(destino, Imagen->Canvas, destino);
      dest=destino;
      ini=X;
     fin=Y;
   
   }
}
//------------------------------------------------------------------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
   TShiftState Shift, int X, int Y)
{
     if(seleccion==true){
   Imagen->Canvas->MoveTo(X,Y);
   pintando=false;
  }
}

Última edición por dec fecha: 09-07-2008 a las 07:46:08.
Responder Con Cita
 



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
Como seleccionar campos de una tabla sin saber cuantos van a seleccionar david duarte SQL 7 05-04-2010 21:15:43
Seleccionar Subzonas de una Imagen jhonalone Gráficos 4 28-04-2008 11:00:54
Seleccionar parte de una imagen fasthorse C++ Builder 8 06-03-2008 10:21:35
seleccionar imagen y recortarla kapullok_2006 Varios 1 30-04-2007 12:39:28
Seleccionar area de la imagen rex Gráficos 1 23-11-2004 17:50:13


La franja horaria es GMT +2. Ahora son las 20:11:15.


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