Ordenar OpenDialog

[roman]

Germán, ¿dónde está declarada la constante WM_DIALOG_STYLE? No la encuentro en ninguna parte. ¡Ni en Google!

// Saludos

[[movorack]]

La vista de reporte no me srive de mucho pq en algunos casos se toman varias fotos, en este caso me ha servido mucho la vista de miniaturas... aqui mismo en el club encontré un codigo que me ayudo a desplegar la vista de miniaturas :

Código Delphi [-]
procedure TFrmPhotoCapture.OpenDialogFolderChange(Sender: TObject);
const
  FCIDM_SHVIEW_LARGEICON = $7029;
  FCIDM_SHVIEW_SMALLICON = $702A;
  FCIDM_SHVIEW_LIST = $702B;
  FCIDM_SHVIEW_REPORT = $702C;
  FCIDM_SHVIEW_THUMBNAIL = $702D;
  FCIDM_SHVIEW_TILE = $702E;
var
  newStyle: dWord;
begin
  newStyle := FCIDM_SHVIEW_THUMBNAIL;
  SendMessage(FindWindowEx(GetParent(OpenDialog.Handle), 0, 'SHELLDLL_DefView', nil), WM_COMMAND, newStyle, 0);
end;

Pero me aparecen en orden de creación ASC y yo lo quiero al contrario...

[Neftali [Germán.Estévez]]

Empezado por roman

Germán, ¿dónde está declarada la constante WM_DIALOG_STYLE? No la encuentro en ninguna parte. ¡Ni en Google!

¡Perdón! Se me olvidó colocarla.

Código Delphi [-]
  // Mensaje para ventanas de dialogo
  WM_DIALOG_STYLE = WM_USER + 510;

[roman]

Hola Germán,

No sé si estoy lento de entendimiento o es que falta algo. Al principio pensé que WM_DIALOG_STYLE era una constante predefinida pero ahora veo que tú mismo la defines, por lo que supongo que tienes un manejador para ese mensaje y que es ahí donde cambias el estilo, pero lo más que he podido hacer de esa manera es encontrar el ListView contenido dentro del diálogo y cambiarle el estilo a LVS_REPORT. Pero así sólo "desaparecen" los ítems.

¿Podrías poner cómo lo haces?

// Saludos

[Neftali [Germán.Estévez]]

Efectívamente con las prisas me descuidé la "mitad" de las cosas por el camino...
No eres tú el que está lento de entendimiento, Román, soy yo...

Efectívamente falta el "manejador" que capture ese mensaje y que haga lo que tiene que hacer. En mi caso está en el form principal para "centralizar" ese comportamiento.

Os pongo el ejemplo completo donde está todo lo necesario. Lo "sencillo" es que a partir de ahora cualquier diálogo al que se llame basta con programarle en el OnShow la llamada a:

Código Delphi [-]
  // Abrir la vista de detalles.
  OpenDialogStyle(Sender as TCommonDialog, aStyle);

Siendo sStyle, uno de los estilos definidos por:

Código Delphi [-]
  // Definido en ComCtrls
  TViewStyle = (vsIcon, vsSmallIcon, vsList, vsReport);

Un saludo y perdonad por el despiste.

[roman]

Gracias por la respuesta Germán, pruebo al rato. Por lo que veo, mi error estaba en que intentaba lidiar, no con la ventana SHELLDLL_DefView, si no con la hija SysListView32.

// Saludos

[xio]

Ummmm! Necesito abrir un cuadro de dialogo y que me lo muestre con la vista de windows en miniaturas, pero no tengo forma de hacerlo. He estado viendo este post y he visto que hay forma de hacerlo pero no lo consigo.

Podriais echarme una mano??

Código Delphi [-]
  if OpenDialog.Execute then begin
    OpenDialog.InitialDir := ExtractFilePath(OpenDialog.FileName);
  end;

Asi es como abro yo el dialogo, podria adaptar esa forma que exponeis??

[Neftali [Germán.Estévez]]

Empezado por xio

Asi es como abro yo el dialogo, podria adaptar esa forma que exponeis??

¿Has mirado el ejemplo que hay un poco más arriba?