Op 13-06-11 12:40, zeljko schreef:
Don't know, no time to test fixes_0_9_30 atm ...
z.
I compared the file lcl/interfaces/qt/qtwinapi.inc in fixes_0_9_30 with
the one in trunk.
Find a few lines of code that wasn't in the trunk tree.
Fixed the bug in the attached patch.
Regards,
Erwin.
Index: lcl/interfaces/qt/qtwinapi.inc
===================================================================
--- lcl/interfaces/qt/qtwinapi.inc (revision 31198)
+++ lcl/interfaces/qt/qtwinapi.inc (working copy)
@@ -758,8 +758,6 @@
QtRegion: TQtRegion;
begin
QtRegion := TQtRegion.Create(True, X1, Y1, X2, Y2);
- if (X1 <> 0) or (Y1 <> 0) then
- QtRegion.translate(X1, Y1);
Result := HRGN(QtRegion);
{$ifdef VerboseQtWinAPI}
WriteLn('Trace: [WinAPI CreateRectRgn] Result: ', dbghex(Result),
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
