personalizar un opendialog

[ebeltete]

Donde esta "programa mirc (DCC send)..", esta en los demos de Delphi?, yo tengo Delphi 5

[Delfino]

Losiento no me explique bien; el mirc es un cliente de servidores escrito en C++ por un egipcio. Si lo descargas y instalas veras pinchando en esa opcion un opendialog pero con cosas añadidas. Ahora el codigo como se hizo es otra historia. Solo queria decir q el opendialog es "customized" mediante API windows..

[ebeltete]

A partir de openpicturedialog estoy creando un openaudiodialog, el tema es que no logro decifrar como modifica el tamaño del opendialog, está en estas lineas
function TOpenaudioDialog.Execute;
begin
if NewStyleControls and not (ofOldStyleDialog in Options) then
Template := 'DLGTEMPLATE'
else
Template := nil;
Result :=inherited Execute;
end;

Particularmente es Template := 'DLGTEMPLATE'
Con Template := nil el opendialog queda con el tamaño normal, y si es Template := 'DLGTEMPLATE' el opendialog aparece mas grande, el tema es que en definitiva no se que es TEMPLATE

[roman]

En lo poco que entiendo del tema te puedo comentar que en

Template := 'DLGTEMPLATE'

'DLGTEMPLATE' se refiere a un recurso que se compila junto con la aplicación en donde se define justamente la plantilla del cuadro de diálogo que vas a usar.

Aunque la VCL de Delphi generalmente nos evita meternos en estos detalles, tras bambalinas todos los cuadros de diálogo en Windows se definen mediante estas plantillas en las que uno especifica las dimensiones y los controles que contienen.

En el caso del OpenPictureDialog, el recurso se incluye en la línea:

{$R ExtDlgs.res}

que está justo antes del constructor de la clase, y hace referencia al archivo ExtDlgs.rc que se encuentra en la misma carpeta donde está ExtDlgs.pas y cuyo contenido es:

DLGTEMPLATE DIALOG 0, 0, 316, 76
STYLE 0x404L | WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL , SUBLANG_NEUTRAL
{
 LTEXT "", 1119, 0, 0, 204, 76, SS_LEFT | WS_CHILD | NOT WS_VISIBLE | WS_GROUP
}

PREVIEWGLYPH BITMAP
{
 '42 4D F6 00 00 00 00 00 00 00 76 00 00 00 28 00'
 '00 00 10 00 00 00 10 00 00 00 01 00 04 00 00 00'
 '00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80'
 '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80'
 '00 00 80 80 80 00 C0 C0 C0 00 00 00 FF 00 00 FF'
 '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF'
 '00 00 FF FF FF 00 33 33 33 33 33 33 33 33 00 00'
 '00 00 00 00 33 00 0F FF FF FF FF F0 30 00 0F FF'
 'FF FF 00 00 00 03 0F FF FF F0 78 87 00 33 0F FF'
 'FF 07 88 E7 F0 33 0F FF FF 08 88 87 80 33 0F FF'
 'FF 08 E8 87 80 33 0F FF FF 07 EE 87 F0 33 0F FF'
 'FF F0 78 87 03 33 0F FF FF FF 00 00 33 33 0F FF'
 'FF FF FF F0 33 33 0F FF FF FF 00 00 33 33 0F FF'
 'FF FF 08 03 33 33 0F FF FF FF 00 33 33 33 00 00'
 '00 00 03 33 33 33'
}

Me parece que la primera línea:

DLGTEMPLATE DIALOG 0, 0, 316, 76

es donde se indican las dimensiones del cuadro.

// Saludos

[ebeltete]

como manejo los archivos *.res y *.rc ?????
Los *.rc los abro con editor de texto o con el propio Delphi pero los .res no se como generarlo

[ebeltete]

El archivo .res se crea a partir del .rc ?
Si es así como lo hago

[dec]

Hola,

Mira que eché un vistazo al código fuente del TOpenPictureDialog..., pues nada... de lo primero que hize fue quitar la "llamada" al archivo ".res" que, como dice roman, existe en el mismo.

Tratando de cambiar el tamaño del formulario a partir de lo dicho por roman, he podido comprobar que cambiando el supuesto ancho y alto que aparecen en la primera línea del archivo "extdlgs.rc" no parece poderse hacer más grande el formulario usado por TOpenPictureDialog, bien como parecía.

La verdad es que no entiendo muy bien el para qué del archivo "extdlgs.rc", puesto que lo que se me ocurre es que sea el "Script" del archivo "extdlgs.res".

Este último archivo está creado con el programa Borland Resource Workshop, pero, tenía a mano el Resource Hacker de Angus Johnson y, después de abrir "extdlgs.res" con el mismo, puede verse que contiene un "Bitmap", que corresponde a la imagen del "TSpeedButton" de la vista previa del diálogo de tipo "TOpenPictureDialog", y un formulario, en cuyo interior hay un panel, u otro tipo de control "similar" (?).

Dicho "panel" se ve que contiene el grupo de controles que en el diálogo "TOpenPictureDialog" permite seleccionar, propiamente, uno o varios archivos de imagen. El panel está situado en el formulario de tal modo que ocupa la parte superior izquierda del mismo, y su tamaño se adaptará después al tamaño del formulario que lo contiene.

En definitiva, puede variarse tanto el tamaño del panel como el tamaño del propio formulario (desde Resource Hacker), y, tras guardar el archivo "extdlgs.res" que los contiene, a partir de ese momento, TOpenPictureDialog se muestra más grande o más pequeño, según qué hiciéramos antes.

Todo esto probado muy someramente: no sé hasta qué punto puede cambiarse el tamaño del formulario que encontramos en el archivo "extdlgs.res", o en cuánto y de qué manera afecta esto a la creación de controles en el mismo ya desde Delphi, derivando de TOpenPictureDialog.

Todo esto me da que pensar para qué usar dichos archivos de recursos, si es que son más sencillo de actualizar, si es que son más "ligeros", si es que se hace por motivos que no puedo llegar siquiera imaginar, porque, de plantearme un componente como TOpenPictureDialog, al menos hasta hoy, no se me hubiera ocurrido hacerlo como en Delphi, lo que no deja en muy buen lugar mis "ideas" (de bombero).

Por cierto, en PROMETHEUS pueden conseguirse lo que parece ser un manual de ayuda en español para el programa Borland Resource Workshop, entre otros documentos.