paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 10:18:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples: dragimagelist, partially reverted r32356 #5cae5f037f (juha), since it breaks example with qt and gtk2 (it does not work anymore). Now it's correct.

Browse Source 
git-svn-id: trunk@35180 -
This commit is contained in:
zeljko 2012-02-06 13:47:53 +00:00
parent f9cbf1d9f7
commit 311b8e0ab1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/dragimagelist/unit1.pas
View File

@ -95,7 +95,7 @@ begin
FDragImages.Width := Bitmap.Width;
FDragImages.Height := Bitmap.Height;
FDragImages.Add(Bitmap, nil);
FDragImages.DragHotspot := Point(Bitmap.Width div 2, Bitmap.Height div 2);
FDragImages.DragHotspot := Point(Bitmap.Width, Bitmap.Height);
Bitmap.Free;
end;