FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Pasar pequeño codigo Delphi a Builder
Hola amigos, quería meter un TImage dentro de un ScrollBox y entonces pongo la TImage en Autosize y cuando la imagen es mayor que el ScrollBox pues salen las barras de desplazamiento y hasta ahi bien. Pues ahora lo que quiero es que pueda hacer clic en la imagen y sin soltar arrastre la imagen y se desplacen las barras del scrollbox y no tengo ni idea de como hacerlo pero encontre este codigo en Delphi: h**p://delphi.about.com/od/vclusing/l/aa050603a.htm
Creo que por lo que entiendo en el texto hace lo que quiero pero no se como pasarlo a C++Builder y he intentado con esto pero no compila siquiera: UNIT1.H Código:
//--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include <Classes.hpp> #include <Controls.hpp> #include <StdCtrls.hpp> #include <Forms.hpp> #include <ExtCtrls.hpp> #include <Graphics.hpp> //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TScrollBox *ScrollBox1; TImage *Image1; void __fastcall Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y); void __fastcall FormCreate(TObject *Sender); private: // User declarations void __fastcall MyDragDrop(TObject *Sender, TObject *Source, int X, int Y); void __fastcall MyDragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept); public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; TPoint *TheSpot; //--------------------------------------------------------------------------- #endif Código:
//----------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //----------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //----------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //----------------------------------------------------------------------------- void __fastcall MyDragDrop(TObject *Sender, TObject *Source, int X, int Y) { //dropping an Image? if(Source == TImage) { //on itself? if(Sender == TImage) { TImage(Source)->Left = TImage(Source)->Left + X - TheSpot->x; TImage(Source)->Top = TImage(Source)->Top + Y - TheSpot->y; } else { //or, somewhere inside ScrollBox! TImage(Source)->Left = X - TheSpot->x; TImage(Source)->Top = Y - TheSpot->y; } } } //----------------------------------------------------------------------------- void __fastcall MyDragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool Accept) { if(Source == TImage) Accept = true; Accept = (Source is TImage); } //----------------------------------------------------------------------------- void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { TheSpot->x = X; TheSpot->y = Y; Image1->BeginDrag(true); } //----------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Image1->OnDragOver = MyDragOver; Image1->OnDragDrop = MyDragDrop; } //----------------------------------------------------------------------------- |
#2
|
||||
|
||||
Lo siento por el enlace, no tengo nada que ver con esa web, es simplemente para que podais ver de donde saqué el código original y podais ayudarme.
Se me olvidó decir los errores que me muestra con lo que hice: Build [C++ Error] Unit1.cpp(21): E2108 Improper use of typedef 'TImage' [C++ Error] Unit1.cpp(24): E2108 Improper use of typedef 'TImage' [C++ Error] Unit1.cpp(26): E2285 Could not find a match for 'TImage::TImage(TObject *)' [C++ Error] Unit1.cpp(26): E2459 VCL style classes must be constructed using operator new [C++ Error] Unit1.cpp(26): E2285 Could not find a match for 'TImage::TImage(TObject *)' [C++ Error] Unit1.cpp(26): E2459 VCL style classes must be constructed using operator new [C++ Error] Unit1.cpp(27): E2285 Could not find a match for 'TImage::TImage(TObject *)' [C++ Error] Unit1.cpp(27): E2459 VCL style classes must be constructed using operator new [C++ Error] Unit1.cpp(27): E2285 Could not find a match for 'TImage::TImage(TObject *)' [C++ Error] Unit1.cpp(27): E2459 VCL style classes must be constructed using operator new [C++ Error] Unit1.cpp(32): E2285 Could not find a match for 'TImage::TImage(TObject *)' [C++ Error] Unit1.cpp(32): E2459 VCL style classes must be constructed using operator new [C++ Error] Unit1.cpp(33): E2285 Could not find a match for 'TImage::TImage(TObject *)' [C++ Error] Unit1.cpp(33): E2459 VCL style classes must be constructed using operator new [C++ Error] Unit1.cpp(41): E2108 Improper use of typedef 'TImage' [C++ Error] Unit1.cpp(43): E2293 ) expected |
#3
|
||||
|
||||
Hola aguml.
Según creo entender de tu mensaje, el movimiento de la imágen debe producirse dentro de los límites del TScrollBox. Entonces, si interpreté bién, podes hacer: Código:
TPoint PIni; void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if (Shift.Contains(ssCtrl)) { /* ¿ Tecla Ctrl presionada ? */ PIni.x = X; PIni.y = Y; Image1->BeginDrag(true); } } void __fastcall TForm1::ScrollBox1DragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept) { Accept = Source->ClassNameIs("TImage"); } void __fastcall TForm1::ScrollBox1DragDrop(TObject *Sender, TObject *Source, int X, int Y) { Image1->Left = X - PIni.x; Image1->Top = Y - PIni.y; }
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#4
|
||||
|
||||
Eso que pones no me funciona. Si pulso Ctrol y hago clic sobre la imagen me aparece el cursor de prohibido y no deja arrastrar la imagen. En el texto que yo puse creo que explicaba algo para evitar eso porque creo que lo que hay que hacer es mover la imagen pero lo que pasa es que al hacer clic se hace clic sobre el scrollbox y no sobre el TImage. Creo que decia algo asi. Lo ideal seria convertir el codigo que puse que está en una especie de tutorial o algo asi y se supone que funcionará sin problemas.
|
#5
|
||||
|
||||
Hola.
Ese código si funciona, te lo aseguro. El ícono de prohibido lo vas a ver siempre que el cursor del mouse esté sobre la imágen ya que este componente no tiene por qué permitir ningún drop dentro de él. Seguí desplazándote hasta posicionarte en el área del ScrollBox y me contas. De todos modos, estaba pensando que si tenes mas de una imágen dentro del ScrollBox, seguramente te sea mas útil de este modo: Código:
TPoint PIni; void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if (Shift.Contains(ssCtrl)) { /* ¿ Tecla Ctrl presionada ? */ PIni.x = X; PIni.y = Y; ((TImage*)Sender)->BeginDrag(true); } } void __fastcall TForm1::ScrollBox1DragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept) { Accept = Source->ClassNameIs("TImage"); } void __fastcall TForm1::ScrollBox1DragDrop(TObject *Sender, TObject *Source, int X, int Y) { ((TImage*)Source)->Left = X - PIni.x; ((TImage*)Source)->Top = Y - PIni.y; }
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 03-06-2013 a las 01:32:09. |
#6
|
||||
|
||||
Hola.
Se me ocurre otra forma de mover las imágenes dentro del ScrollBox. Pero no utilizando los eventos OnDragOver y OnDragDrop como en el código de tu primer mensaje. Por medio de aquellos, veo difícil solucionar el efecto del ícono de prohibición. Tal vez esta propuesta se ajuste mas a lo que estas buscando: Código:
bool Moving; void __fastcall TForm1::ControlMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Moving = Shift.Contains(ssCtrl); } void __fastcall TForm1::ControlMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { TControl *Ctrl = static_cast<TControl*>(Sender); if (Moving) { Ctrl->Left = X + Ctrl->Left; Ctrl->Top = Y + Ctrl->Top; } } void __fastcall TForm1::ControlMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Moving = false; } Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 03-06-2013 a las 05:27:25. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Pasar estructura Type de delphi a Builder.. | Novatin | C++ Builder | 4 | 31-05-2013 19:00:35 |
pasar codigo de delphi a c++ Builder | rxaxx9 | C++ Builder | 2 | 13-05-2012 06:27:17 |
codigo en delphi a c++ builder | zidfrid | C++ Builder | 4 | 09-07-2008 14:34:29 |
Convertir codigo Delphi a Builder | _Willa | C++ Builder | 3 | 15-02-2008 11:37:10 |
Cambiando el codigo de delphi a builder... | paco_galo | C++ Builder | 5 | 03-12-2007 22:14:54 |
|