Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-02-2017
Reasen Reasen is offline
Miembro
NULL
 
Registrado: dic 2015
Ubicación: Barcelona
Posts: 140
Poder: 9
Reasen Va por buen camino
Problema con TTaskDialog

Buenas! Estaba finalizando una aplicación y a la hora de usarlo en otro ordenador se me muestra incorrectamente el TTaskDialog Aquí dejo una captura de como se ve


Este es el sistema con el problema: Windows 10 Home x64 Build 14393

He probado con otro Windows 10 y no ocurre ese problema.


Alguna manera de redimensionar manualmente un TTaskdialog?
Alguna otra librería similar para TTaskDialog?

Cualquier consejo es bienvenido, saludos.
Responder Con Cita
  #2  
Antiguo 16-02-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Que version de Delphi? Estas usando Vcl Styles?

Edito:

En este hilo se trato el tema

Taskdialog no se ve completo

Confirmado, el problema solo se reproduce si usas algun Vcl Style

Codigo:

Código Delphi [-]
uses
  Vcl.Themes;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TaskDialog1.CommonButtons := [];
  TaskDialog1.Buttons.Clear;
  TaskDialog1.MainIcon := tdiInformation;
  TaskDialog1.Title := 'Test TaskDialog';
  TaskDialog1.Text := 'Test TaskDialog.';
  TaskDialog1.ModalResult := mrCancel;
  TaskDialog1.Buttons.Add();
  TaskDialog1.Buttons.Add();
  TaskDialog1.Buttons[0].Caption := 'Salir';
  TaskDialog1.Buttons[0].ModalResult := mrOk;
  TaskDialog1.Buttons[0].Default := True;
  TaskDialog1.Buttons[1].Caption := 'Cancelar';
  TaskDialog1.Buttons[1].ModalResult := mrCancel;
  TaskDialog1.Execute;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    TStyleManager.SetStyle('Sterling') // o cualquier vcl style
  else
    TStyleManager.SetStyle('Windows');
end;

Última edición por AgustinOrtu fecha: 16-02-2017 a las 07:30:38.
Responder Con Cita
  #3  
Antiguo 16-02-2017
Reasen Reasen is offline
Miembro
NULL
 
Registrado: dic 2015
Ubicación: Barcelona
Posts: 140
Poder: 9
Reasen Va por buen camino
Cita:
Empezado por AgustinOrtu Ver Mensaje
Que version de Delphi? Estas usando Vcl Styles?
XE 10.1
Sí, una aplicación normal de VCL para Windows.
Responder Con Cita
  #4  
Antiguo 16-02-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Habria que probar si usando los arreglos de Vcl Styles Utils se soluciona

https://theroadtodelphi.com/2014/10/...log-component/

https://github.com/RRUZ/vcl-styles-u...LStylesUxTheme

Synopse tiene su implementacion propia del task dialog:

http://blog.synopse.info/post/2011/0...XP,Vista,Seven
Responder Con Cita
  #5  
Antiguo 16-02-2017
Reasen Reasen is offline
Miembro
NULL
 
Registrado: dic 2015
Ubicación: Barcelona
Posts: 140
Poder: 9
Reasen Va por buen camino
Mañana seguiré haciendo pruebas con el sistema que me da ese problema...
Ahora mismo no lo tengo a mano.

Estoy usando https://github.com/rruz/vcl-styles-utils
para mejorar visualmente la skin de la aplicación tambien.

No estaba usando los hooks de Vcl.styles.UxTheme
Quizás eso arregle el problema.

Edito: Vcl.Styles.Hooks me añade los hooks de Vcl.styles.UxTheme automáticamente por lo que los estaba usando.

Última edición por Reasen fecha: 16-02-2017 a las 07:59:23.
Responder Con Cita
  #6  
Antiguo 16-02-2017
Reasen Reasen is offline
Miembro
NULL
 
Registrado: dic 2015
Ubicación: Barcelona
Posts: 140
Poder: 9
Reasen Va por buen camino
Este problema está hablado aquí también:
https://www.clubdelphi.com/foros/showthread.php?t=90906

pero sin solución... Parece que tocará reemplazarlo por un form normal? :/
Responder Con Cita
  #7  
Antiguo 16-02-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Lo que me extraña es que en el blog de Vcl Style Utils muestra imagenes del Task Dialog con los estilos aplicados

Segun esto el proyecto debe tener estas unidades:

Código Delphi [-]
program Aplicacion;

uses
  ...
  Vcl.Styles.Utils.Forms
  Vcl.Styles.Utils.SysStyleHook
  Vcl.Styles.Utils.SysControls
  Vcl.Styles.Hooks,
 ...
;
Responder Con Cita
  #8  
Antiguo 16-02-2017
Reasen Reasen is offline
Miembro
NULL
 
Registrado: dic 2015
Ubicación: Barcelona
Posts: 140
Poder: 9
Reasen Va por buen camino
Cita:
Empezado por AgustinOrtu Ver Mensaje
Lo que me extraña es que en el blog de Vcl Style Utils muestra imagenes del Task Dialog con los estilos aplicados
El problema es que falla en ciertos Windows 10.

Tengo una máquina virtual con Windows 10 y no me da problema pero en otro Windows 10 sí.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
TTaskDialog de Builder XE3 Angel.Matilla C++ Builder 9 27-03-2015 19:52:54


La franja horaria es GMT +2. Ahora son las 16:39:41.


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