Wie arbeitet PaintTo?

[wennerer]

Hallo Winni,
sehr seltsam. Ich habe es eben noch mal mit genau dem gepostetet Beispiel getestet und habe das gleiche verhalten wie von mir beschrieben. Ich hänge jetzt mal die .exe an. Vielleicht kannst du die mal bei Gelegenheit testen, ob die bei dir läuft. Bei mir geht sie unter XP und Win10 nicht!

Vielen Dank und viele Grüße
Bernd

[sstvmaster]

Geht bei mir auch nicht.

Aber wenn ich "Panel1.ParentColor:=False;" setze dann funktioniert es.

[sstvmaster]

Komisch, wenn man Panel1.ParentColor auf True setzt aber Panel1.Color auf clBtnFace setzt dann gehts auch.

[Winni]

Hi!

Was hast Du denn für einen Bug entdeckt???

Test, test, test Deiner exe:

* Unter Wine funktioniert das einwandfrei
* Unter Win7/64 funktioniert garnix

Ich hab ja schon immer gesagt, dass Wine das bessere Windows ist ...

Merkwürdig, merkwürdig ...

Winni

[sstvmaster]

Das Problem scheint aus der PaintTo Procedure zu kommen. Wenn man die Zeile mit PaintTo auskommentiert dann zeichnet "Canvas.Draw" ein schwarzes Rechteck. Oder es hängt mit der Transparenz zusammen.

[sstvmaster]

Also, das ist wirklich komisch ich habe mal das "PaintTo" in den Sourcen verfolgt (2.0.8 + 3.0.4).

PaintTo -> Controls.pp (Zeile 2342) -> Zeile 3592 -> {$I wincontrol.inc} -> 5069 -> 5063 -> 5066 ->

WSControls.pp (Zeile 347).

Und diese procedure ist leer?

[wennerer]

Hallo,
vielen Dank an euch beide für das Testen. Bedeutet dann wohl es liegt nicht daran das ich PaintTo falsch verwende. Aber ob es ein Bug ist? Ich habe leider sehr wenig Erklärung zu PaintTo im Netz gefunden.
Hab es übrigens auch mit Lazarus 2.0.8 r62944 FPC 3.0.4 i386-win32-win32/win64 kompiliert.

Viele Grüße
Bernd

[kupferstecher]

Habs auch mal getestet und kann das Problem bestätigen:
Bei gesetztem ParentColor wird nur der Hintergrund kopiert (zumindest nicht schwarz).
Lazarus 2.0.6 unter Win7 Pro, 64 bit.

Also, das ist wirklich komisch ich habe mal das "PaintTo" in den Sourcen verfolgt (2.0.8 + 3.0.4).
[...]
Und diese procedure ist leer?

Das ist eine virtuelle Methode, die durch das passende Widgetset dann überladen wird. Du musst also in der Widgetset-Datei für Windows (win32wscontrols.pp) nach der PaintTo-Methode suchen.

[wennerer]

Hallo,
ich hab das nun mal verfolgt. Und das gefunden:

Code: Alles auswählen

class procedure TWin32WSWinControl.PaintTo(const AWinControl: TWinControl;
  ADC: HDC; X, Y: Integer);
var
  SavedDC: Integer;
begin
  SavedDC := SaveDC(ADC);
  MoveWindowOrgEx(ADC, X, Y);
  SendMessage(AWinControl.Handle, WM_PRINT, WParam(ADC),
    PRF_CHECKVISIBLE or PRF_CHILDREN or PRF_CLIENT or PRF_NONCLIENT or PRF_OWNED);
  RestoreDC(ADC, SavedDC);
end;

Ich bin aber leider weit davon entfernt zu erkennen ob nun hier ein Bug von Lazarus vorliegt oder ob das einfach von Windows so vorgegeben ist? Oder ob es sich aus irgend einem Grund genauso verhalten soll?
Viele Grüße
Bernd

[sstvmaster]

Habe hier auch was ähnliches gefunden: https://stackoverflow.com/questions/438 ... r-wm-print, Winni hat ja geschrieben das es unter Wine funktioniert. Im Link im 6. Eintrag schreibt er ja auch das es in Wine ganz anders implementiert wurde.