amas2
Lt
Registrado: 01 Jun 2004Mensajes: 91
|
 Publicado: Vie 29 Jul, 2005 11:44 am Asunto: Tamaño imagen crear Timage dinamicamente |
 |
|
Tengo el siguiente codigo que lo que hace es poner en un TPANEL un
scrollbox con una imagen dentro.
| Código: |
TScrollBoxEx* ScrollBoxEx2_ = new TScrollBoxEx(this);
Imag1->Parent = ScrollBoxEx2_;
ScrollBoxEx2_->SetBounds(10, 10,Imag1->Picture->Width,Imag1->Picture->Height);
Imag1->Align = alClient;
Imag1->Enabled = false;
Imag1->Stretch = true;
Imag1->AutoSize = false;
Imag1->Transparent = false;
ScrollBoxEx2_->Name = "ENTI"+AnsiString(MainForm->index_components);
ScrollBoxEx2_->Parent = pare;
ScrollBoxEx2_->AutoScroll=false;
ScrollBoxEx2_->Brush->Style = bsClear;
ScrollBoxEx2_->Nimatge = dlgAbrir->FileName;
//ScrollBoxEx2_->SetBounds(10, 10,Imag1->Picture->Width,Imag1->Picture->Height);
//ScrollBoxEx2_->SetBounds(10, 10,Imag1->Width,Imag1->Height);
ScrollBoxEx2_->BorderStyle = bsNone;
ScrollBoxEx2_->HorzScrollBar->Visible=false;
ScrollBoxEx2_->VertScrollBar->Visible=false;
ScrollBoxEx2_->OnMouseDown = ScrollBoxExsMouseDown;
ScrollBoxEx2_->GripSize = 5;
ScrollBoxEx2_->Tag = 5;
|
Pues bien el problema es que la imagen me sale mucho mayor que lo que su tamaño en pixels supondria. Alguien tiene idea de porque? y como la puedo escalar?
Gracias. |
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
