GWL_STYLE

[delphinia]

Hallo

mittels:

lvHan := GetDesktopListView;
L := GetWindowLong(lvHan, GWL_STYLE);
if (L and LVS_AUTOARRANGE = 0) then

Kann ich den Status von AutoArrange abfragen - funktioniert!

Aber wie kann ich den Status von SNAPTOGRID da gibt es kein LVS_SNAPTOGRID - abfragen?

[delphinia]

keiner ein Ideechen für mich?

[Robert Marquardt]

Gib doch mal den Wert von L in Hex aus und schau nach welches Bit es sein koennte. Mit der Information kannst du dir LVS_SNAPTOGRID selbst deklarieren.
Es besteht allerdings die Moeglichkeit das das Bit nicht in GWL_STYLE abgelegt ist.

[sirius]

Und was ist mit "LVA_SNAPTOGRID"?

[delphinia]

@Robert Marquardt
stop ;-( das war mir nun zu hoch!
Sorry magst mir das genauer erklären? Ich danke dir

[Robert Marquardt]

@sirius, LVA_SNAPTOGRID wird mit der Message LVM_ARRANGE an die Control gesendet. Es hat nichts mit dem GWL_STYLE zu tun.

@delphinia, Was du mit deinem Code "if (L and LVS_AUTOARRANGE = 0) then" machst ist Bits in einem Integer abfragen.
Du versuchst herauszubekommen ob ein anderes Bit die Bedeutung von SNAPTOGRID hat.
Was sirius erwaehnt bringt mich allerdings zu der Vermutung das es kein solches Bit gibt. SNAPTOGRID ist ein Kommando an den Listview.
Es macht keinen Sinn das im Style aufzuheben. Im Style stehen permanente Zustaende.

[delphinia]

also wenn ich auf dem Desktop rechtsklicke dann auf "symbole anordnen" gibt es da "Automatisch anordnen" und "Am Raster ausrichten" dieses am Raster ausrichten möchte ich gerne wissen ob es aktiviert oder deaktiviert ist. mit dem "Automatisch anordnen" geht es ja...

[DGL-luke]

Ja, zu 9x-Zeiten war das noch ein Kommando, jetzt ist es ein Zustand...

Also das sollte sich in der MSDN bzw. im PSDK doch was finden lassen?!

[Luckie]

Sollte eigentlich auch irgendwo in der Registry stehen. Einfach mal den RegMon von SysInternals benutzen und gucken, wo was in die Registry geschrieben wird, beim Ändern der Eigenschaft.

[delphinia]

tat ich schon aber nichts gefunden.. ;-(

[sirius]

@robert
Das weiss ich.
Man kann es ja mit LVM_ARRANGE setzen, vielleicht kann man es auch mit irgendetwas abfragen.

Edit:

Zitat:

Zitat von msdn

Extended List-View Styles
Use the LVM_SETEXTENDEDLISTVIEWSTYLE message or one of the ListView_SetExtendedListViewStyle or ListView_SetExtendedListViewStyleEx macros to employ these extended list-view control styles.

Constants
...
LVS_EX_SNAPTOGRID
Windows Vista. In icon view, icons automatically snap into a grid.
...

Wieso vista? Das gibts doch schon bei XP?
Einfach mal probieren ob sich eine der beiden Zahlen Style oder ExStyle ändert, wenn du snaptoGrid ausschaltest(einschaltest).

[Robert Marquardt]

Na dann mach mal ShowMessageFmt('%.8x', [L]); mit und ohne diese Option aktiviert. Ist der ausgegebene Wert unterschiedlich, dann steht dieses Flag im Style.
Poste dann diese Werte hier und wir schnitzen dir die benoetigte Konstante zum Test des Bits.

[delphinia]

Zitat:

Zitat von Robert Marquardt

Na dann mach mal ShowMessageFmt('%.8x', [L]); mit und ohne diese Option aktiviert. Ist der ausgegebene Wert unterschiedlich, dann steht dieses Flag im Style.
Poste dann diese Werte hier und wir schnitzen dir die benoetigte Konstante zum Test des Bits.

Der wert ist 56002A40 aber dieser ist immer gleich!

[Robert Marquardt]

Nun, dann heulst du den falschen Baum an. Die Information ist nicht an dieser Stelle gespeichert.
Probier mal auf gleiche Weise GWL_USERDATA aus.

[delphinia]

Zitat:

Zitat von Robert Marquardt

Nun, dann heulst du den falschen Baum an. Die Information ist nicht an dieser Stelle gespeichert.
Probier mal auf gleiche Weise GWL_USERDATA aus.

Heulen tu ich NOCH nicht ;-)...

Versuchsaufbau;

Delphi-Quellcode:

  lvHan := GetDesktopListView;
  L := GetWindowLong(lvHan, GWL_USERDATA);

  ShowMessageFmt('%.8x', [L]);

Brint nur Nullen

[sirius]

GWL_EXSTYLE

[delphinia]

Zitat:

Zitat von sirius

GWL_EXSTYLE

Delphi-Quellcode:

  lvHan := GetDesktopListView;
  L := GetWindowLong(lvHan, GWL_EXSTYLE );

  ShowMessageFmt('%.8x', [L]);

Auch nur Nullen

[delphinia]

Ok ich hab es nach viel MSDN lesen

Delphi-Quellcode:

const

  LVS_EX_SNAPTOGRID = $80000;
var
  lvHan: HWnd;
  L, lvStyles: DWord;
  m: integer;
begin
  lvHan := GetDesktopListView;
 // L := GetWindowLong(lvHan, GWL_EXSTYLE);



  lvStyles := SendMessage(lvHan, LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0);
  if (lvStyles and LVS_EX_SNAPTOGRID) > 0 then
ShowMessage('1');

[turboPASCAL]

Hi,
verwende doch bitte die Delphi-Tags (Button-Delphicode).