Message überschreiben

[venice2]

In CSharp kann man eine Message überschreiben
bsp.

Code:

 Marshal.WriteInt32(Msg.LParam + 4 * sizeof(int), RowHeight);

wie lässt sich das in Delphi umsetzen?

Ich habe es mal so gemacht.

Delphi-Quellcode:

  
const
  WM_REFLECT = $2000;

    // Overwrite itemHeight, which is the fifth integer in MEASUREITEMSTRUCT   
  WM_REFLECT + WM_MEASUREITEM: // wird nie aufgerufen obwohl wie im Beitrag steht (sollte einmal bei LVReport) "Detail view" sich aufrufen.
      begin
        x := (Lp + 4 * sizeof(LPARAM));
        CopyMemory(@lP, @x, 20);
        Result := 1;
        Exit;
      end;

keine Ahnung ob das dem gleich kommt.
Der Sinn der Sache ich möchte mein ListViewItem in der höhe verändern ohne dabei den Font zu verändern!

https://stackoverrun.com/de/q/1650434

[TomyN]

Wieso dieser Offset? Bekommst Du die WM_MEASURE Message?

[venice2]

Zitat:

Wieso dieser Offset?

Da muss man den Coder fragen.

Zitat:

Zitat von TomyN (Beitrag 1478240)

Bekommst Du die WM_MEASURE Message?

Ja.
Aber beim Aufruf stürzt die Anwendung ab.

[himitsu]

sizeof(int) ist aber nicht sizeof(LPARAM)
Ich bin mir fast sicher, dass Letzeres in Win64 eine andere Größe hat.

Zitat:

Delphi-Quellcode:

CopyMemory(@lP, @x, 20);

Bist du sicher, dass du die Adressen der Variablen zum Kopieren nutzen willst?
Ich hätte ja eher vermutet, dass du die Adressen haben willst, die in den Variablen stehen und nicht die Variablen selber, also ohne @.

Außerdem kommt es mir bissl komisch vor, was du da machst.
-> 20 Byte in sich selbst kopieren (auch noch mit den falschen Adressen der Variablen, was einen geilen Bufferoverflow ergibt)

Spontan würde ich

Delphi-Quellcode:

Marshal.WriteInt32(k_Msg.LParam + 4 * sizeof(int), ms32_RowHeight);

als

Delphi-Quellcode:

PInteger(LParam + 4 * SizeOf(Integer))^ := ms32_RowHeight;

übersetzen.
-> 4 Byte von Variable/Konstante in den Record/Buffer kopieren

[venice2]

Zitat:

Zitat von himitsu (Beitrag 1478244)

sizeof(int) ist aber nicht sizeof(LPARAM)
Ich bin mir fast sicher, dass Letzeres in Win64 eine andere Größe hat.

Zitat:

Delphi-Quellcode:

CopyMemory(@lP, @x, 20);

Bist du sicher, dass du die Adressen der Variablen zum Kopieren nutzen willst?
Ich hätte ja eher vermutet, dass du die Adressen haben willst, die in den Variablen stehen und nicht die Variablen selber, also ohne @.

D2010 also 32Bit.
Ich sagte ja

Zitat:

keine Ahnung ob das dem gleich kommt.

CopyMemory erwartet pointer ohne @ lässt es sich nicht kopieren.
Ich will LParam verändern "so habe ich es verstanden" also den aktuellen wert von LP siehe x (Berechnung) in LP kopieren.

Werde es mal versuchen Danke.

[himitsu]

Zitat:

CopyMemory erwartet pointer ohne @ lässt es sich nicht kopieren

Und warum sind dann lP und x keine Pointer? :wink:


Ach ja, anstatt so wild rumzupointern,
wäre ein Cast in den richtigen Recordtypen und dann zuweisen an das gewünschte Feld wohl sowieso besser.

pMEASUREITEMSTRUCT(LParam).itemHeight := ms32_RowHeight;

https://docs.microsoft.com/en-us/win...sureitemstruct

Zitat:

D2010 also 32Bit

In 20 Jahren willst das dann mal als 64 Bit kompilieren und es knallt wieder .......

Tja, hättest du mal gleich die richtigen Typen verwendet. :zwinker:
(PS: falsche Typen waren auch der Grund, warum es 2009 bei Vielen so schön beim Unicode geknallt hat)

[venice2]

Zitat:

Ach ja, anstatt so wild rumzupointern,

Schimpf doch nicht mit mir habe doch gesagt..

Zitat:

keine Ahnung ob das dem gleich kommt.

Delphi-Quellcode:

pMEASUREITEMSTRUCT(LParam).itemHeight := ms32_RowHeight;

Sieht für mich logisch aus. Thanks

Zitat:

In 20 Jahren willst das dann mal als 64 Bit kompilieren

Wenn ich denn 80 werde bestimmt. ;)
Rechne nun mal mit Peek und Poke aus wie alt ich nun bin . LOL

[himitsu]

Ja, das mit dem Rumgepointere und Adressenausrechnen kam von denen da drüben :woistdaströstsmilie:,
aber man muß ja nicht auch von der Brücke springen, nur weil die es so machen. :stupid:


Als Frau?
Immernoch Ende 20? (seit 30 Jahren)

[venice2]

Zitat:

Zitat von himitsu (Beitrag 1478249)

Ja, das mit dem Rumgepointere und Adressenausrechnen kam von denen da drüben :woistdaströstsmilie:,
aber man muß ja nicht auch von der Brücke springen, nur weil die es so machen. :stupid:

Dito! Nochmal Danke.

[venice2]

Funktioniert nicht wie erwünscht.
Es hat schwere Nebeneffekte.

Wenn ich das Grid temporär einschalte kann ich mit Photoshop ermitteln das die Höhe der Items tatsächlich 20 ist.
Das Problem ist dann das meine Button nicht in das Grid passen das müssen sie aber weil sonst das Grid, die Linien davon, ein Invalidate verhindern.
Beim nächsten klick auf den Button bleibt dann vom vorherigen der Teil sichtbar der unter dem Grid liegt und wird beim neuen abgeschnitten.
Habe mal zwei Pics angehängt wo man das sehen kann.

Ich kann das beheben aber ist das sinnvoll? Wenn man in den normalen Eigenschaften der Zeichnungsroutine eingreift?
Aber anders geht es nicht so wie ich das gerne möchte.

TextRect müsste ich verändern.

Delphi-Quellcode:

TextRect.Top := TextRect.Top - 3;

Und den Button Höhe und Top Position.

Delphi-Quellcode:

SkinEngine.PaintButton(Graphics, 5, ImgBack, FLeft, TextRect.Top - 2, TmpRect.Right - 1,
  ItemHeight - 2, BS_PUSHBUTTON);

Das grösste problem jedoch ich kann ItemHight nur in der Anwendung selbst ändern wenn WM_MEASUREITEM aufgerufen wird.
Die DLL selbst weis aber nichts davon.

Wenn ich die ItemHöhe unter WM_MEASUREITEM nicht ändere funktioniert das ListView nicht mehr so wie es soll.
Jemand anderes der meine LIB verwendet weis das aber nicht! Das ist dann das grösste Problem. (Ich murkse also im ListView rum)

Sehr verworren das ganze.